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.
...
LOCKTABLE;
IF FINDSET THEN
REPEAT
IF NOT ZeroAmountLine(QtyType) THEN BEGIN
VATAmountLine.GET("VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0);
// Delete the following lines.
IF VATAmountLine.Modified THEN BEGIN
xRecRef.GETTABLE(PurchLine);
IF NOT TempVATAmountLineRemainder.GET(
"VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0)
THEN BEGIN
TempVATAmountLineRemainder := VATAmountLine;
TempVATAmountLineRemainder.INIT;
TempVATAmountLineRemainder.INSERT;
- END;
// End of the lines.
IF QtyType = QtyType::General THEN
LineAmountToInvoice := "Line Amount"
ELSE
LineAmountToInvoice :=
ROUND("Line Amount" * "Qty. to Invoice" / Quantity,Currency."Amount Rounding Precision");
...
...
LOCKTABLE;
IF FINDSET THEN
REPEAT
IF NOT ZeroAmountLine(QtyType) THEN BEGIN
VATAmountLine.GET("VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0);
// Add the following lines.
xRecRef.GETTABLE(PurchLine);
IF NOT TempVATAmountLineRemainder.GET(
"VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0)
THEN BEGIN
TempVATAmountLineRemainder := VATAmountLine;
TempVATAmountLineRemainder.INIT;
TempVATAmountLineRemainder.INSERT;
END;
IF VATAmountLine.Modified THEN BEGIN
// End of the lines.
IF QtyType = QtyType::General THEN
LineAmountToInvoice := "Line Amount"
ELSE
LineAmountToInvoice :=
ROUND("Line Amount" * "Qty. to Invoice" / Quantity,Currency."Amount Rounding Precision");
...