...
DateToDecimal(StartingDate) + DateToDecimal(EndingDate) +
TextToDecimal(FormatVersion) + TextToDecimal(ProductVersion);
SubsidGLAcc.RESET;
IF SubsidGLAcc.FIND('-') THEN
REPEAT
// Delete the following lines.
CheckSum := CheckSum +
TextToDecimal(SubsidGLAcc."No.") + TextToDecimal(SubsidGLAcc."Consol. Debit Acc.") +
TextToDecimal(SubsidGLAcc."Consol. Credit Acc.");
// End of the deleted lines.
UNTIL SubsidGLAcc.NEXT = 0;
SubsidGLEntry.RESET;
IF SubsidGLEntry.FIND('-') THEN
REPEAT
CheckSum := CheckSum +
...
...
DateToDecimal(StartingDate) + DateToDecimal(EndingDate) +
TextToDecimal(FormatVersion) + TextToDecimal(ProductVersion);
SubsidGLAcc.RESET;
IF SubsidGLAcc.FIND('-') THEN
REPEAT
// Add the following lines.
CheckSum :=
CheckSum +
TextToDecimal(COPYSTR(SubsidGLAcc."No.",1,10)) + TextToDecimal(COPYSTR(SubsidGLAcc."No.",11,10)) +
TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Debit Acc.",1,10)) +
TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Debit Acc.",11,10)) +
TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Credit Acc.",1,10)) +
TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Credit Acc.",11,10)) ;
// End of the added lines.
UNTIL SubsidGLAcc.NEXT = 0;
SubsidGLEntry.RESET;
IF SubsidGLEntry.FIND('-') THEN
REPEAT
CheckSum := CheckSum +
...