Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
//@DeclareVariables
whileprintingrecords;
shared numbervar array shdselling [DistinctCount(Table.DivID})];
shared stringvar array DivID [DistinctCount(Table.DivID})];
Shared NumberVar intCount :=1
//@Assign Values
whileprintingrecords;
shared numbervar array shdselling ;
shared stringvar array DivID ;
Shared NumberVar intCount;
shdselling[intcount] := Sum ({@Selling Price}, {Command.RRE_Code});
DivID[intCount] := {Table.DivID};
intCount :=intCount + 1
//@Division Display
WhilePrintingRecords;
shared numbervar array shdselling ;
shared stringvar array DivID ;
numbervar DivCount ;
StringVar Display ;
For DivCount := 1 to Count(DivID) - 1
Do ( Display := Display + "Division " +DivID[DivCount} + " : " + ToText(shdselling[DivCount]) + chr(13) );
Display := Display + "Division " + DivID[Count(DivID)} + " : " + ToText(shdselling[Count(DivId)]);
Display