(

String currency,Val v1,Val v2,Val v3,Integer curcnt,

Integer pos1,Integer pos2,Integer pos3,Boolean base,Integer PocketPC)

Description:

Curncy Total functions adds up lots of currency sums and prints them in an array, this prints the array


Parameters:
currency	An Array of all the Currencies
v1	An Array of one value in that Currency
v2	An Array of one value in that Currency
v3	An Array of one value in that Currency
curcnt	Number of positions in the array
pos1	What horisontal position to print v1 in the report
pos2	What horisontal position to print v2 in the report
pos3	What horisontal position to print v3 in the report
base	Should the Base Currency value be printed or not
PocketPC	Is the current application a Pocket PC installation or not

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;


Related topics:

««