...
GroupTotal := TRUE;
END ELSE
GroupTotal := TRUE;
IF GroupTotal THEN BEGIN
IF AdjAmount <>0 THEN BEGIN
AdjExchRateBufferUpdate(
"Bank Account"."Currency Code","Bank Account"."Bank Acc. Posting Group",
AdjBase,AdjBaseLCY,AdjAmount,0,0,0,PostingDate,'');
InsertExchRateAdjmtReg(3,"Bank Account"."Bank Acc. Posting Group","Bank Account"."Currency Code");
AdjExchRateBuffer.RESET;
AdjExchRateBuffer.DELETEALL;
END;
END;
...
...
GroupTotal := TRUE;
END ELSE
GroupTotal := TRUE;
IF GroupTotal THEN BEGIN
IF TotalAdjAmtLCY <>0 THEN BEGIN
AdjExchRateBufferUpdate(
"Bank Account"."Currency Code","Bank Account"."Bank Acc. Posting Group",
TotalAdjBase,TotalAdjBaseLCY,TotalAdjAmtLCY,0,0,0,PostingDate,'');
InsertExchRateAdjmtReg(3,"Bank Account"."Bank Acc. Posting Group","Bank Account"."Currency Code");
AdjExchRateBuffer.RESET;
AdjExchRateBuffer.DELETEALL;
TotalAdjBase := 0;
TotalAdjBaseLCY := 0;
TotalAdjAmtLCY := 0;
END;
END;
...