| ( |
|
|
|||
| Loads block from database to operational memory | |||
 |
|
| Parameters: | |
| block for reading | |
|
|
procedure FindVATAccount(string VATCode,var string AccNumber)
BEGIN
record VATCodeBlock VATr;
row VATCodeBlock VATrw;
Integer i,rwcnt;
BlockLoad(VATr);
rwcnt = MatRowCnt(VATr);
for (i=0;i<rwcnt;i=i+1) begin
MatRowGet(VATr,i,VATrw);
if (VATCode==VATrw.VATCode) then begin
AccNumber = VATrw.SalesVATAcc;
goto LFindVATAccount;
end;
end;
LFindVATAccount:;
return;
END;
|
|
| Related topics: | |