| ( |
|
|
|||
| Returns blank value | |||
procedure SetupVATArray(var record SMVc VATr)
BEGIN
row SMVc SMrw;
Integer rwcnt,i;
record VATCodeBlock VATRec;
row VATCodeBlock VATrw;
RecordNew(VATr);
BlockLoad(VATRec);
rwcnt = MatRowCnt(VATRec);
for (i=0; i<rwcnt; i=i+1) begin
MatRowGet(VATRec,i,VATrw);
SMrw.VATCode = VATrw.VATCode;
SMrw.DebVal = blankval;
SMrw.CredVal = blankval;
MatRowPut(VATr,i,SMrw);
end;
RETURN;
END;
 |
|
| Related topics: | |