To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
END;
VATEntry3.SETRANGE("Document Date",FromDate,ToDate);
IF VATEntry3.FINDFIRST THEN
REPEAT
// Delete the following lines.
IF IsCustomer THEN
Amt := Amt - VATEntry3.Base - VATEntry3.Amount
ELSE
Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
UpdateQuarterAmount(AmountType::Sales,ABS(VATEntry3.Base) + ABS(VATEntry3.Amount),VATEntry3."Document Date");
// End of the lines.
TempVATEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
IF NOT TempVATEntry.FINDFIRST THEN BEGIN
GLEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
IF GLEntry.FINDSET THEN
REPEAT
...
...
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
END;
VATEntry3.SETRANGE("Document Date",FromDate,ToDate);
IF VATEntry3.FINDFIRST THEN
REPEAT
// Add the following lines.
IF IsCustomer THEN BEGIN
Amt := Amt - VATEntry3.Base - VATEntry3.Amount;
UpdateQuarterAmount(AmountType::Sales,-VATEntry3.Base - VATEntry3.Amount,VATEntry3."Document Date");
END ELSE BEGIN
Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
UpdateQuarterAmount(AmountType::Purchase,VATEntry3.Base + VATEntry3.Amount,VATEntry3."Document Date");
END;
// End of the lines.
TempVATEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
IF NOT TempVATEntry.FINDFIRST THEN BEGIN
GLEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
IF GLEntry.FINDSET THEN
REPEAT
...