Контроль G/L Entry

[navi-prog]

попробуйте прогнать код:

with gle do begin
setcurrentkey("Transaction No.");
if find('-') then repeat
setrange("Transaction No.", "Transaction No.");
calcsums("Amount", "Debit Amount", "Credit Amount");
if (Amount<>0) or ("Debit Amount"<>"Credit Amount") then error('%1', "Transaction No.");
find('+');
setrange("Transaction No.");
until next=0;
end

gle - record 17