Tuesday, 23 September 2014

Rowsets - Accessing data at scroll level 2




Local Rowset &rsLvl1, &rsLvl2, &rsLvl0;
Local Field &EXTERNAL_SYSTEM_ID;

Local Message &MSG;
Local Rowset &RS1;


/* Get Level 0 Rowset */
&rsLvl0 = GetLevel0();

/* Get Level 1 Rowset */
&rsLvl1 = GetLevel0()(1).GetRowset(Scroll.EXTERNAL_SYSKEY);


For &i = 1 To &rsLvl1.ActiveRowCount
  
   /* Get Level 2 Rowset */
   &rsLvl2 = &rsLvl1(&i).GetRowset(Scroll.EXTERNAL_SYSTEM);
  
  
   &EXTERNAL_SYSTEM_ID = &rsLvl2.GetRow(&i).GetRecord(Record.EXTERNAL_SYSTEM).GetField(Field.EXTERNAL_SYSTEM_ID).VALUE;
  
  
   REM  MessageBox(0, "", 0, 0, "" | &EXTERNAL_SYSTEM_ID )
  
 
  
  
End-For;








No comments:

Post a Comment