The below function is to be used on a grid with multiple check boxes. Place the code behind a FieldChange event and users will have the option to Select or Deselect grid rows all at once.
Function selectAllRows(&rs As Rowset)
Local number &i;
Local Row &row;
For&i =1 To &rs.ActiveRowCount
&row =&rs.GetRow(&i);
/* Make sure we only select visible rows. */
If&row.Visible=True Then
&row.Selected=True;
End-If;
End-For;
end-function;
/*main line*/
Local Rowset &rs;
Local number &i;
Local Row &row;
For&i =1 To &rs.ActiveRowCount
&row =&rs.GetRow(&i);
/* Make sure we only select visible rows. */
If&row.Visible=True Then
&row.Selected=True;
End-If;
End-For;
end-function;
/*main line*/
Local Rowset &rs;