|
|
| Curncy Total functions adds up lots of currency sums and prints them in an array, this adds to the array |
 |
| cur |
An Array of all the Currencies |
| v1 |
An Array of one value in that Currency |
| curcnt |
Number of positions in the array |
| currency |
What currency code to add to the array of cur |
| v |
What value to add to this position |
|
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;
««