...
Window.UPDATE(2,DocCount);
TESTFIELD("Currency Code",BillGr."Currency Code");
TESTFIELD("Collection Agent","Collection Agent"::Bank);
IF "Remaining Amount" = 0 THEN
FIELDERROR("Remaining Amount");
TESTFIELD(Type,Type::Receivable);
IF Accepted = Accepted::No THEN
FIELDERROR(Accepted);
...
...
Window.UPDATE(2,DocCount);
TESTFIELD("Currency Code",BillGr."Currency Code");
TESTFIELD("Collection Agent","Collection Agent"::Bank);
// Add the following lines.
IF "Due Date" < BillGr."Posting Date" THEN
FIELDERROR("Due Date",
STRSUBSTNO(
Text1100004,
BillGr.FIELDCAPTION("Posting Date"),
BillGr.TABLECAPTION));
// End of the lines.
IF "Remaining Amount" = 0 THEN
FIELDERROR("Remaining Amount");
TESTFIELD(Type,Type::Receivable);
IF Accepted = Accepted::No THEN
FIELDERROR(Accepted);
...
...
IF CustLedgEntry."Applies-to ID" <> '' THEN
ERROR(Text1100010,Doc."Document No.",Doc."No.");
IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN
CustPostingGr.TESTFIELD("Discted. Bills Acc.");
AccountNo := CustPostingGr."Discted. Bills Acc.";
// Delete the following lines.
IF "Due Date" < BillGr."Posting Date" THEN
FIELDERROR("Due Date",
STRSUBSTNO(
Text1100004,
BillGr.FIELDCAPTION("Posting Date"),
BillGr.TABLECAPTION));
// End of the lines.
FeeRange.CalcDiscExpensesAmt(
BankAcc."Operation Fees Code",
BankAcc."Currency Code",
"Remaining Amount",
CustLedgEntry."Entry No.");
...
...
IF CustLedgEntry."Applies-to ID" <> '' THEN
ERROR(Text1100010,Doc."Document No.",Doc."No.");
IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN
CustPostingGr.TESTFIELD("Discted. Bills Acc.");
AccountNo := CustPostingGr."Discted. Bills Acc.";
FeeRange.CalcDiscExpensesAmt(
BankAcc."Operation Fees Code",
BankAcc."Currency Code",
"Remaining Amount",
CustLedgEntry."Entry No.");
...