ยอดเงินของรายการ VAT เป็น 0 แต่ยอดเงินสกุลเงินเพิ่มเติมไม่ใช่ 0 ใน Microsoft Dynamics NAV 2009 รุ่นโปรตุเกส

... ROUND(
                               "Amount (LCY)" * VATPostingSetup."VAT D. %" / (100 + VATPostingSetup."VAT %"),
                                LCYCurrency."Amount Rounding Precision",LCYCurrency.VATRoundingDirection);
                        GLEntry.Amount := "Amount (LCY)" - GLEntry."VAT Amount";
                        IF "Source Currency Code" = GLSetup."Additional Reporting Currency" THEN
                          AddCurrGLEntryVATAmt :=
                            ROUND(
...

...ROUND(
                               "Amount (LCY)" * VATPostingSetup."VAT D. %" / (100 + VATPostingSetup."VAT %"),
                                LCYCurrency."Amount Rounding Precision",LCYCurrency.VATRoundingDirection);
                          GLEntry.Amount := "Amount (LCY)" - GLEntry."VAT Amount";

// Add the following lines.
END;

// End of the added lines.

IF "Source Currency Code" = GLSetup."Additional Reporting Currency" THEN
                          AddCurrGLEntryVATAmt :=
                            ROUND(
...

...IF "Source Currency Code" = GLSetup."Additional Reporting Currency" THEN
                          AddCurrGLEntryVATAmt :=
                            ROUND(

// Delete the following line.
"Source Currency Amount" * VATPostingSetup."VAT %" / (100 + VATPostingSetup."VAT %"),
// End of the deleted line.

                              AddCurrency."Amount Rounding Precision",AddCurrency.VATRoundingDirection)
                        ELSE
                          AddCurrGLEntryVATAmt := CalcLCYToAddCurr(GLEntry."VAT Amount");
...

...IF "Source Currency Code" = GLSetup."Additional Reporting Currency" THEN
                          AddCurrGLEntryVATAmt :=
                            ROUND(

// Add the following line.
"Source Currency Amount" * VATPostingSetup."VAT D. %" / (100 + VATPostingSetup."VAT %"),
// End of the added line.

                              AddCurrency."Amount Rounding Precision",AddCurrency.VATRoundingDirection)
                        ELSE
                          AddCurrGLEntryVATAmt := CalcLCYToAddCurr(GLEntry."VAT Amount");
...

...AddCurrGLEntryVATAmt := CalcLCYToAddCurr(GLEntry."VAT Amount");
                        GLEntry."Additional-Currency Amount" := "Source Currency Amount" - AddCurrGLEntryVATAmt;
                      END;

                        IF "Source Currency Code" = GLSetup."Additional Reporting Currency" THEN
                          AddCurrGLEntryVATAmt :=
                            ROUND(
                              "Source Currency Amount" * VATPostingSetup."VAT %" / (100 + VATPostingSetup."VAT %"),
                              AddCurrency."Amount Rounding Precision",AddCurrency.VATRoundingDirection)
                        ELSE
                          AddCurrGLEntryVATAmt := CalcLCYToAddCurr(GLEntry."VAT Amount");
                        GLEntry."Additional-Currency Amount" := "Source Currency Amount" - AddCurrGLEntryVATAmt;
                      END;
                    END;
                  "VAT Calculation Type"::"Reverse Charge VAT":
                    CASE "Gen. Posting Type" OF
...

...// Delete the following lines.
AddCurrGLEntryVATAmt := CalcLCYToAddCurr(GLEntry."VAT Amount");
GLEntry."Additional-Currency Amount" := "Source Currency Amount" - AddCurrGLEntryVATAmt;
END;

IF "Source Currency Code" = GLSetup."Additional Reporting Currency" THEN
AddCurrGLEntryVATAmt :=
ROUND(
"Source Currency Amount" * VATPostingSetup."VAT %" / (100 + VATPostingSetup."VAT %"),
AddCurrency."Amount Rounding Precision",AddCurrency.VATRoundingDirection)
ELSE
// End of the deleted lines.

                          AddCurrGLEntryVATAmt := CalcLCYToAddCurr(GLEntry."VAT Amount");
                        GLEntry."Additional-Currency Amount" := "Source Currency Amount" - AddCurrGLEntryVATAmt;
                      END;
                    END;
                  "VAT Calculation Type"::"Reverse Charge VAT":
                    CASE "Gen. Posting Type" OF
...