SecondLevel Traverse(To make the field visible at first Level)
Ø Local Rowset &RS2,&RS3;
Ø &RS2 =
GetLevel0()(1).GetRowset(Scroll.JOB);
Ø For &I = 1 To &RS2.ActiveRowCount
Ø &RS3 =
&RS2.GetRow(&I).GetRowset(Scroll.JOB_JR);
Ø For &J = 1 To &RS3.ActiveRowCount &RS3.GetRow(&J).GetRecord(Record.HR_LBL_WRK).GetField(Field.DETYA_LBL_AUS).Visible
= True;
Ø End-For;
Ø End-For;
Comments
Post a Comment