Prechádzanie po položkách v DataBloku v PL/SQL

Ukážeme si, ako v PL/SQL prejsť všetky položky, ktoré užívateľ vidí v DataBloku.

DECLARE
  Moj_blok VarChar2(100) := 'MP_ODPH2';
  V$ITEM VARCHAR2(60) := null;
BEGIN
SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'BUSY');
V$ITEM := GET_BLOCK_PROPERTY(Moj_blok, FIRST_ITEM);
WHILE V$ITEM IS NOT NULL AND V$ITEM != 'ROWID' LOOP
  IF GET_ITEM_PROPERTY (Moj_blok||'.'||V$ITEM, DISPLAYED) = 'TRUE' AND
          GET_ITEM_PROPERTY (Moj_blok||'.'||V$ITEM, ITEM_CANVAS) IS NOT NULL AND
          GET_ITEM_PROPERTY (Moj_blok||'.'||V$ITEM, ITEM_TYPE) IN ('TEXT ITEM' /*, 'LIST', 'DISPLAY ITEM','CHECKBOX', 'RADIO GROUP'*/) THEN
    Sem pride Váš kód
  end if;
  V$ITEM := GET_ITEM_PROPERTY(Moj_blok||'.'||V$ITEM, NEXTITEM);
END LOOP;
SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
END;


Pozri aj

Prechádzanie po záznamoch v DataBloku v PL/SQL