Loop through all items in all data blocks?

Question

Is there a way to loop through every item in every data block and set the property of a format mask?

Answer 1

I do not know what error it is, only that an on-error trigger fires.
I found out one thing I was definitely doing wrong, using nextblock, nextitem properties at the wrong level.
DECLARE
     v_firstblock VARCHAR2(50);
     v_currentblock VARCHAR2(50);
     v_firstitem VARCHAR2(50);
     v_currentitem VARCHAR2(50);
     v_counter NUMBER :=0;
     v_counter2 NUMBER :=0;
begin
   v_firstblock := get_form_property(:System.Current_Form,first_block);
   v_currentblock:= get_block_property(v_firstblock,nextblock);
   MESSAGE(v_firstblock||v_currentblock);
     LOOP
          v_counter := v_counter +1;
          IF (v_counter >10) THEN
               exit;
          END IF;
          IF (v_currentblock = v_firstblock) THEN
                         exit;
       ELSE
               v_firstitem :=  get_block_property(v_firstblock,first_item);
                    IF (lower(GET_ITEM_PROPERTY(v_firstitem,format_mask))=lower('mm-dd-yyyy')) THEN
                                   SET_ITEM_PROPERTY(v_firstitem,format_mask,'DD-MON-YYYY');
                    END IF;
               v_currentitem :=  get_block_property(v_firstblock,first_item);
               v_currentblock:= get_block_property(v_currentblock,nextblock);
               GO_BLOCK(v_currentblock);
                    LOOP
                         v_counter2 := v_counter2 +1;
                         IF (v_counter2>15) THEN
                              exit;
                         END IF;
                         v_currentitem:= get_item_property(v_currentitem,nextitem);
                         MESSAGE(v_counter||v_firstblock||v_currentblock||v_firstitem||v_currentitem||v_counter2);
                         IF (v_currentitem <> v_firstitem) THEN
                              IF (lower(GET_ITEM_PROPERTY(v_currentitem,format_mask))=lower('mm-dd-yyyy')) THEN
                                   SET_ITEM_PROPERTY(v_currentitem,format_mask,'DD-MON-YYYY');
                              END IF;
                         ELSE
                              exit;
                         END IF;
                    END LOOP;
           END IF;
  END LOOP;
     end;Here is updated new code. I am currently trying to debug it, it has crashed my form on the server when tied to a button press.
EDIT: So far I have found that it infinitely loops through the first 3 items and a null item in the first block. Still looking into why...
EDIT: Some code changes to temporarily stop infinite loop and make v_currentblock actually change. Still loops through same 3 items in the first data block even though v_currentblock changes.
Edited by: 878576 on Oct 21, 2011 12:46 PM