|
|
| Curncy Total functions adds up lots of currency sums and prints them in an array, this initiates the array |
 |
| curcnt |
A counter of how many currencies exists in the array, is set to zero here |
|
external procedure BeginCurncyTotals(var Integer);
external procedure AddCurncyTotals(var array string,var array val,var Integer,string,val);
external procedure PrintCurncyTotals(array string,array val,array val,array val,
Integer,Integer,Integer,Integer,Integer,Boolean,Integer);
procedure PrintAndAddCurncy(record RcVc RepSpec)
begin
array val av1;
array val av2;
array val av3;
array string 20 acur;
Integer curcnt;
BeginCurncyTotals(curcnt);
AddCurncyTotals(acur,av1,curcnt,"EUR",500); // Add 500 to the EUR currency
AddCurncyTotals(acur,av1,curcnt,"SEK",4500); // Add 4500 to the SEK currency
// This will print the entire array.
// The currency names on position 140 and only av1 value on position 460.
PrintCurncyTotals(acur,av1,av2,av3,curcnt,460,-1,-1,140,true,RepSpec.PocketPC);
return;
end;
««