|
|
| Clears (but does not store) the record variable of a specified register from all it's values. |
 |
| AnyRecord |
The record of a register that is being cleared. |
|
procedure SumupVATRates(record SMVc VATr,Integer inclvat,Integer NoTAXonVAT)
begin
Integer i,rwcnt;
record SMVc tmpVATr;
row SMVc VATrw;
val vat,t1;
row VATCodeBlock VATCbrw;
RecordCopy(tmpVATr,VATr);
RecordClear(VATr);
rwcnt = MatRowCnt(tmpVATr);
for (i=0;i<rwcnt;i=i+1) begin
MatRowGet(tmpVATr,i,VATrw);
GetVATRow(VATrw.VATCode,VATCbrw);
MulVATIV(VATrw.VATCode,VATrw.DebVal,vat,t1,inclvat,NoTAXonVAT);
AddToVATSumup(VATr,VATCbrw.ExVatpr,vat);
end;
return;
end;
««