|
попробуйте прогнать код:
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
|