Ten artykuł dotyczy funkcji Microsoft Dynamics NAV dla ustawień regionalnych języka belgijskiego (be).
Objawy
Po opublikowaniu faktury sprzedaży, zamówienia sprzedaży, faktury zakupu, zamówienia zakupu lub zlecenia serwisowego z rabatem 100 procentowym w belgijskiej wersji usługi Microsoft Dynamics NAV zapisy księgi głównej (GL) są niepoprawne.
Ten problem występuje, gdy wielkość wiersza, kwota rabatu liniowego, kwota podatku vat i kwota "Kwota łącznie z podatkiem VAT" są ustawione na zero.
Ten problem występuje w następujących produktach:
- Dodatek Service Pack 1 (SP1) dla belgijskiej wersji programu Microsoft Dynamics NAV 2009
- Belgijska wersja oprogramowania Microsoft Dynamics NAV 2009 R2
Rozwiązanie
Informacje dotyczące poprawek
Obsługiwana poprawka jest teraz dostępna od firmy Microsoft. Jednak jego celem jest tylko naprawienie problemu opisanego w tym artykule. Zastosuj ją tylko do systemów, w których występuje ten konkretny problem. Ta poprawka może wymagać dodatkowych testów. Dlatego jeśli ten problem cię nie dotyczy poważnie, zalecamy poczekanie na kolejny dodatek Service Pack dla oprogramowania Microsoft Dynamics NAV 2009 lub następną wersję microsoft Dynamics NAV zawierającą tę poprawkę.
Uwaga W specjalnych przypadkach opłaty, które zwykle naliczane są w związku z połączeniami pomocy technicznej, mogą zostać anulowane, jeśli specjalista pomocy technicznej w zakresie oprogramowania Microsoft Dynamics i produktów pokrewnych ustali, że określona aktualizacja rozwiąże problem. Typowe koszty pomocy technicznej będą miały zastosowanie do dodatkowych pytań dotyczących pomocy technicznej i problemów, które nie kwalifikują się do określonej aktualizacji.
Informacje o instalacji
Firma Microsoft udostępnia przykłady programowania wyłącznie w celach ilustracyjnych, bez gwarancji wyrażonej lub dorozumianej. To obejmuje między innymi dorozumiane gwarancje przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że znasz język programowania, który jest demonstrowany, oraz narzędzia, które są używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w objaśnieniu funkcjonalności określonej procedury, ale nie zmodyfikują tych przykładów w celu zapewnienia dodatkowych funkcji ani skonstruowania procedur spełniających określone wymagania.
Uwaga Przed zainstalowaniem tej poprawki sprawdź, czy wszyscy użytkownicy klienckich usługi Microsoft Navision wylogowali się z systemu. Dotyczy to również użytkowników klienckich usług Microsoft Navision Application Services (NAS). Należy być jedynym użytkownikiem klienckim, który jest zalogowany podczas implementowania tej poprawki.
Aby zaimplementować tę poprawkę, musisz mieć licencję dewelopera.
Zalecamy przypisanie do konta użytkownika w oknie Logowania systemu Windows lub w oknie Logowania bazy danych identyfikator roli "SUPER". Jeśli do konta użytkownika nie można przypisać identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
- Uprawnienie Modyfikuj dla obiektu, który ma zostać zmieniony.
- Uprawnienie Execute dla obiektu System Object ID 5210 i obiektu System Object ID 9015.
Uwaga Nie musisz mieć praw do magazynów danych, chyba że musisz wykonać naprawę danych.
Zmiany kodu
Uwaga Przed zastosowaniem poprawek do komputerów produkcyjnych należy zawsze testować poprawki kodu w środowisku kontrolowanym.
Aby rozwiązać ten problem, wykonaj następujące czynności:
Zmień kod w funkcji ZeroAmountLine w tabeli Wiersz sprzedaży (37) w następujący sposób:
Istniejący kod
... IF Type = Type::" " THEN EXIT(TRUE); IF Quantity = 0 THEN EXIT(TRUE); // Delete the following line. IF ("Unit Price" = 0) OR ("Line Discount %" = 100) THEN EXIT(TRUE); IF QtyType = QtyType::Invoicing THEN IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); ...Kod zastępczy
... IF Type = Type::" " THEN EXIT(TRUE); IF Quantity = 0 THEN EXIT(TRUE); // Add the following line. IF ("Unit Price" = 0) THEN EXIT(TRUE); IF QtyType = QtyType::Invoicing THEN IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); ...Zmień kod w funkcji UpdateVATOnLines w tabeli Wiersz zakupu (39) w następujący sposób:
Istniejący kod 1
... IF FINDSET THEN REPEAT // Delete the following lines. VATAmountLine.GET("VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0); 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; IF QtyType = QtyType::General THEN LineAmountToInvoice := "Line Amount" ELSE LineAmountToInvoice := ROUND("Line Amount" * "Qty. to Invoice" / Quantity,Currency."Amount Rounding Precision"); IF "Allow Invoice Disc." THEN BEGIN IF VATAmountLine."Inv. Disc. Base Amount" = 0 THEN InvDiscAmount := 0 ELSE BEGIN IF QtyType = QtyType::General THEN LineAmountToInvoice := "Line Amount" ELSE LineAmountToInvoice := ROUND("Line Amount" * "Qty. to Invoice" / Quantity,Currency."Amount Rounding Precision"); TempVATAmountLineRemainder."Invoice Discount Amount" := TempVATAmountLineRemainder."Invoice Discount Amount" + VATAmountLine."Invoice Discount Amount" * LineAmountToInvoice / VATAmountLine."Inv. Disc. Base Amount"; InvDiscAmount := ROUND( TempVATAmountLineRemainder."Invoice Discount Amount",Currency."Amount Rounding Precision"); TempVATAmountLineRemainder."Invoice Discount Amount" := TempVATAmountLineRemainder."Invoice Discount Amount" - InvDiscAmount; END; IF QtyType = QtyType::General THEN BEGIN "Inv. Discount Amount" := InvDiscAmount; CalcInvDiscToInvoice; END ELSE "Inv. Disc. Amount to Invoice" := InvDiscAmount; END ELSE InvDiscAmount := 0; IF QtyType = QtyType::General THEN IF PurchHeader."Prices Including VAT" THEN BEGIN IF (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount" = 0) OR ("Line Amount" = 0) THEN BEGIN VATAmount := 0; NewAmountIncludingVAT := 0; END ELSE BEGIN VATAmount := TempVATAmountLineRemainder."VAT Amount" + VATAmountLine."VAT Amount" * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"); NewAmountIncludingVAT := TempVATAmountLineRemainder."Amount Including VAT" + VATAmountLine."Amount Including VAT" * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"); END; NewAmount := ROUND(NewAmountIncludingVAT,Currency."Amount Rounding Precision") - ROUND(VATAmount,Currency."Amount Rounding Precision"); IF ("VAT %" <> 0) AND (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"<> 0) THEN NewVATBaseAmount := TempVATAmountLineRemainder."VAT Base (Lowered)" + VATAmountLine."Line Amount" * (1 - PurchHeader."VAT Base Discount %" / 100) * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount") ELSE NewVATBaseAmount := NewAmount; END ELSE BEGIN IF "VAT Calculation Type" = "VAT Calculation Type"::"Full VAT" THEN BEGIN VATAmount := "Line Amount" - "Inv. Discount Amount"; NewAmount := 0; NewVATBaseAmount := 0; END ELSE BEGIN NewAmount := "Line Amount" - "Inv. Discount Amount"; // End of the deleted lines. IF ("VAT %" <> 0) AND (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount" <> 0) THEN NewVATBaseAmount := TempVATAmountLineRemainder."VAT Base (Lowered)" + ...Kod zastępczy 1
... IF FINDSET THEN REPEAT // Add the following lines. IF NOT ZeroAmountLine(QtyType) THEN BEGIN VATAmountLine.GET("VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0); 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; IF QtyType = QtyType::General THEN LineAmountToInvoice := "Line Amount" ELSE LineAmountToInvoice := ROUND("Line Amount" * "Qty. to Invoice" / Quantity,Currency."Amount Rounding Precision"); IF "Allow Invoice Disc." THEN BEGIN IF VATAmountLine."Inv. Disc. Base Amount" = 0 THEN InvDiscAmount := 0 ELSE BEGIN IF QtyType = QtyType::General THEN LineAmountToInvoice := "Line Amount" ELSE LineAmountToInvoice := ROUND("Line Amount" * "Qty. to Invoice" / Quantity,Currency."Amount Rounding Precision"); TempVATAmountLineRemainder."Invoice Discount Amount" := TempVATAmountLineRemainder."Invoice Discount Amount" + VATAmountLine."Invoice Discount Amount" * LineAmountToInvoice / VATAmountLine."Inv. Disc. Base Amount"; InvDiscAmount := ROUND( TempVATAmountLineRemainder."Invoice Discount Amount",Currency."Amount Rounding Precision"); TempVATAmountLineRemainder."Invoice Discount Amount" := TempVATAmountLineRemainder."Invoice Discount Amount" - InvDiscAmount; END; IF QtyType = QtyType::General THEN BEGIN "Inv. Discount Amount" := InvDiscAmount; CalcInvDiscToInvoice; END ELSE "Inv. Disc. Amount to Invoice" := InvDiscAmount; END ELSE InvDiscAmount := 0; IF QtyType = QtyType::General THEN IF PurchHeader."Prices Including VAT" THEN BEGIN IF (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount" = 0) OR ("Line Amount" = 0) THEN BEGIN VATAmount := 0; NewAmountIncludingVAT := 0; END ELSE BEGIN VATAmount := TempVATAmountLineRemainder."VAT Amount" + VATAmountLine."VAT Amount" * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"); NewAmountIncludingVAT := TempVATAmountLineRemainder."Amount Including VAT" + VATAmountLine."Amount Including VAT" * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"); END; NewAmount := ROUND(NewAmountIncludingVAT,Currency."Amount Rounding Precision") - ROUND(VATAmount,Currency."Amount Rounding Precision"); // End of the added lines. IF ("VAT %"<> 0) AND (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount" <> 0) THEN NewVATBaseAmount := TempVATAmountLineRemainder."VAT Base (Lowered)" + ...Istniejący kod 2
... TempVATAmountLineRemainder."VAT Base (Lowered)" + VATAmountLine."Line Amount" * (1 - PurchHeader."VAT Base Discount %" / 100) * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount") ELSE NewVATBaseAmount := NewAmount; // Delete the following lines. IF VATAmountLine."VAT Base" = 0 THEN VATAmount := 0 ELSE VATAmount := TempVATAmountLineRemainder."VAT Amount" + VATAmountLine."VAT Amount" * NewAmount / VATAmountLine."VAT Base"; END; NewAmountIncludingVAT := NewAmount + ROUND(VATAmount,Currency."Amount Rounding Precision"); END ELSE BEGIN IF (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount") = 0 THEN VATDifference := 0 ELSE VATDifference := TempVATAmountLineRemainder."VAT Difference" + VATAmountLine."VAT Difference" * (LineAmountToInvoice - InvDiscAmount) / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"); IF LineAmountToInvoice = 0 THEN "VAT Difference" := 0 ELSE "VAT Difference" := ROUND(VATDifference,Currency."Amount Rounding Precision"); END; IF (QtyType = QtyType::General) AND (PurchHeader.Status = PurchHeader.Status::Released) THEN BEGIN Amount := NewAmount; "Amount Including VAT" := ROUND(NewAmountIncludingVAT,Currency."Amount Rounding Precision"); IF "VAT %" <> 0 THEN "VAT Base Amount" := ROUND(NewVATBaseAmount,Currency."Amount Rounding Precision") ELSE "VAT Base Amount" := Amount; END; InitOutstanding; IF NOT ((Type = Type::"Charge (Item)") AND ("Quantity Invoiced" <> "Qty. Assigned")) THEN BEGIN SetUpdateFromVAT(TRUE); UpdateUnitCost; END; IF Type = Type::"Charge (Item)" THEN UpdateItemChargeAssgnt; MODIFY; RecRef.GETTABLE(PurchLine); ChangeLogMgt.LogModification(RecRef,xRecRef); TempVATAmountLineRemainder."Amount Including VAT" := NewAmountIncludingVAT - ROUND(NewAmountIncludingVAT,Currency."Amount Rounding Precision"); TempVATAmountLineRemainder."VAT Amount" := VATAmount - NewAmountIncludingVAT + NewAmount; TempVATAmountLineRemainder."VAT Difference" := VATDifference - "VAT Difference"; TempVATAmountLineRemainder."VAT Base (Lowered)" := NewVATBaseAmount - "VAT Base Amount"; TempVATAmountLineRemainder.MODIFY; // End of the deleted lines. END; UNTIL NEXT = 0; SETRANGE(Type); SETRANGE(Quantity); SETRANGE("Qty. to Invoice"); ...Kod zastępczy 2
... TempVATAmountLineRemainder."VAT Base (Lowered)" + VATAmountLine."Line Amount" * (1 - PurchHeader."VAT Base Discount %" / 100) * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount") ELSE NewVATBaseAmount := NewAmount; // Add the following lines. END ELSE BEGIN IF "VAT Calculation Type" = "VAT Calculation Type"::"Full VAT" THEN BEGIN VATAmount := "Line Amount" - "Inv. Discount Amount"; NewAmount := 0; NewVATBaseAmount := 0; END ELSE BEGIN NewAmount := "Line Amount" - "Inv. Discount Amount"; IF ("VAT %" <>0) AND (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"<>0) THEN NewVATBaseAmount := TempVATAmountLineRemainder."VAT Base (Lowered)" + VATAmountLine."Line Amount" * (1 - PurchHeader."VAT Base Discount %" / 100) * ("Line Amount" - "Inv. Discount Amount") / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount") ELSE NewVATBaseAmount := NewAmount; IF VATAmountLine."VAT Base" = 0 THEN VATAmount := 0 ELSE VATAmount := TempVATAmountLineRemainder."VAT Amount" + VATAmountLine."VAT Amount" * NewAmount / VATAmountLine."VAT Base"; END; NewAmountIncludingVAT := NewAmount + ROUND(VATAmount,Currency."Amount Rounding Precision"); END ELSE BEGIN IF (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount") = 0 THEN VATDifference := 0 ELSE VATDifference := TempVATAmountLineRemainder."VAT Difference" + VATAmountLine."VAT Difference" * (LineAmountToInvoice - InvDiscAmount) / (VATAmountLine."Line Amount" - VATAmountLine."Invoice Discount Amount"); IF LineAmountToInvoice = 0 THEN "VAT Difference" := 0 ELSE "VAT Difference" := ROUND(VATDifference,Currency."Amount Rounding Precision"); END; IF (QtyType = QtyType::General) AND (PurchHeader.Status = PurchHeader.Status::Released) THEN BEGIN Amount := NewAmount; "Amount Including VAT" := ROUND(NewAmountIncludingVAT,Currency."Amount Rounding Precision"); IF "VAT %" <> 0 THEN "VAT Base Amount" := ROUND(NewVATBaseAmount,Currency."Amount Rounding Precision") ELSE "VAT Base Amount" := Amount; END; InitOutstanding; IF NOT ((Type = Type::"Charge (Item)") AND ("Quantity Invoiced" <>"Qty. Assigned")) THEN BEGIN SetUpdateFromVAT(TRUE); UpdateUnitCost; END; IF Type = Type::"Charge (Item)" THEN UpdateItemChargeAssgnt; MODIFY; RecRef.GETTABLE(PurchLine); ChangeLogMgt.LogModification(RecRef,xRecRef); TempVATAmountLineRemainder."Amount Including VAT" := NewAmountIncludingVAT - ROUND(NewAmountIncludingVAT,Currency."Amount Rounding Precision"); TempVATAmountLineRemainder."VAT Amount" := VATAmount - NewAmountIncludingVAT + NewAmount; TempVATAmountLineRemainder."VAT Difference" := VATDifference - "VAT Difference"; TempVATAmountLineRemainder."VAT Base (Lowered)" := NewVATBaseAmount - "VAT Base Amount"; TempVATAmountLineRemainder.MODIFY; END; // End of the added lines. END; UNTIL NEXT = 0; SETRANGE(Type); SETRANGE(Quantity); SETRANGE("Qty. to Invoice"); ...Zmień kod w funkcji CalcVATAmountLines w tabeli Wiersz zakupu (39) w następujący sposób:
Istniejący kod
... Vendor.GET(PurchHeader."Pay-to Vendor No."); VendorPostingGroup.GET(Vendor."Vendor Posting Group"); END; IF FINDSET THEN REPEAT // Delete the following lines. IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN RoundingLineInserted := ("No." = VendorPostingGroup."Invoice Rounding Account") OR RoundingLineInserted; IF "VAT Calculation Type" IN ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"] THEN "VAT %" := 0; IF NOT VATAmountLine.GET( "VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0) THEN BEGIN VATAmountLine.INIT; VATAmountLine."VAT Identifier" := "VAT Identifier"; VATAmountLine."VAT Calculation Type" := "VAT Calculation Type"; VATAmountLine."Tax Group Code" := "Tax Group Code"; VATAmountLine."Use Tax" := "Use Tax"; VATAmountLine."VAT %" := "VAT %"; VATAmountLine.Modified := TRUE; VATAmountLine.Positive := "Line Amount" >= 0; VATAmountLine.INSERT; END; CASE QtyType OF QtyType::General: BEGIN VATAmountLine.Quantity := VATAmountLine.Quantity + "Quantity (Base)"; VATAmountLine."Line Amount" := VATAmountLine."Line Amount" + "Line Amount"; IF "Allow Invoice Disc." THEN VATAmountLine."Inv. Disc. Base Amount" := VATAmountLine."Inv. Disc. Base Amount" + "Line Amount"; VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + "Inv. Discount Amount"; VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference"; IF "Prepayment Line" THEN VATAmountLine."Includes Prepayment" := TRUE; VATAmountLine."VAT Base (Lowered)" := VATAmountLine."VAT Base (Lowered)" + "VAT Base Amount"; VATAmountLine.MODIFY; END; QtyType::Invoicing: BEGIN CASE TRUE OF ("Document Type" IN ["Document Type"::Order,"Document Type"::Invoice]) AND (NOT PurchHeader.Receive) AND PurchHeader.Invoice AND (NOT "Prepayment Line"): BEGIN IF "Receipt No." = '' THEN BEGIN QtyToHandle := GetAbsMin("Qty. to Invoice","Qty. Rcd. Not Invoiced"); VATAmountLine.Quantity := VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Qty. Rcd. Not Invoiced (Base)"); END ELSE BEGIN QtyToHandle := "Qty. to Invoice"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)"; END; END; ("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND (NOT PurchHeader.Ship) AND PurchHeader.Invoice: BEGIN QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Shipped Not Invd."); VATAmountLine.Quantity := VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Shpd Not Invd.(Base)"); END; ELSE BEGIN QtyToHandle := "Qty. to Invoice"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)"; END; END; VATAmountLine."Line Amount" := VATAmountLine."Line Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); IF "Allow Invoice Disc." THEN VATAmountLine."Inv. Disc. Base Amount" := VATAmountLine."Inv. Disc. Base Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); IF (PurchHeader."Invoice Discount Calculation" <> PurchHeader."Invoice Discount Calculation"::Amount) THEN VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision") ELSE VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + "Inv. Disc. Amount to Invoice"; VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference"; IF "Prepayment Line" THEN VATAmountLine."Includes Prepayment" := TRUE; VATAmountLine."VAT Base (Lowered)" := VATAmountLine."VAT Base (Lowered)" + "VAT Base Amount"; VATAmountLine.MODIFY; END; QtyType::Shipping: BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN QtyToHandle := "Return Qty. to Ship"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Return Qty. to Ship (Base)"; END ELSE BEGIN QtyToHandle := "Qty. to Receive"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Receive (Base)"; END; VATAmountLine."Line Amount" := VATAmountLine."Line Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); IF "Allow Invoice Disc." THEN VATAmountLine."Inv. Disc. Base Amount" := VATAmountLine."Inv. Disc. Base Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision"); VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference"; IF "Prepayment Line" THEN VATAmountLine."Includes Prepayment" := TRUE; VATAmountLine.MODIFY; END; END; TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount; // End of the deleted lines. UNTIL NEXT = 0; SETRANGE(Type); SETRANGE(Quantity); ...Kod zastępczy
... Vendor.GET(PurchHeader."Pay-to Vendor No."); VendorPostingGroup.GET(Vendor."Vendor Posting Group"); END; IF FINDSET THEN REPEAT // Add the following lines. IF NOT ZeroAmountLine(QtyType) THEN BEGIN IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN RoundingLineInserted := ("No." = VendorPostingGroup."Invoice Rounding Account") OR RoundingLineInserted; IF "VAT Calculation Type" IN ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"] THEN "VAT %" := 0; IF NOT VATAmountLine.GET( "VAT Identifier","VAT Calculation Type","Tax Group Code","Use Tax","Line Amount" >= 0) THEN BEGIN VATAmountLine.INIT; VATAmountLine."VAT Identifier" := "VAT Identifier"; VATAmountLine."VAT Calculation Type" := "VAT Calculation Type"; VATAmountLine."Tax Group Code" := "Tax Group Code"; VATAmountLine."Use Tax" := "Use Tax"; VATAmountLine."VAT %" := "VAT %"; VATAmountLine.Modified := TRUE; VATAmountLine.Positive := "Line Amount" >= 0; VATAmountLine.INSERT; END; CASE QtyType OF QtyType::General: BEGIN VATAmountLine.Quantity := VATAmountLine.Quantity + "Quantity (Base)"; VATAmountLine."Line Amount" := VATAmountLine."Line Amount" + "Line Amount"; IF "Allow Invoice Disc." THEN VATAmountLine."Inv. Disc. Base Amount" := VATAmountLine."Inv. Disc. Base Amount" + "Line Amount"; VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + "Inv. Discount Amount"; VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference"; IF "Prepayment Line" THEN VATAmountLine."Includes Prepayment" := TRUE; VATAmountLine."VAT Base (Lowered)" := VATAmountLine."VAT Base (Lowered)" + "VAT Base Amount"; VATAmountLine.MODIFY; END; QtyType::Invoicing: BEGIN CASE TRUE OF ("Document Type" IN ["Document Type"::Order,"Document Type"::Invoice]) AND (NOT PurchHeader.Receive) AND PurchHeader.Invoice AND (NOT "Prepayment Line"): BEGIN IF "Receipt No." = '' THEN BEGIN QtyToHandle := GetAbsMin("Qty. to Invoice","Qty. Rcd. Not Invoiced"); VATAmountLine.Quantity := VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Qty. Rcd. Not Invoiced (Base)"); END ELSE BEGIN QtyToHandle := "Qty. to Invoice"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)"; END; END; ("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND (NOT PurchHeader.Ship) AND PurchHeader.Invoice: BEGIN QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Shipped Not Invd."); VATAmountLine.Quantity := VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Shpd Not Invd.(Base)"); END; ELSE BEGIN QtyToHandle := "Qty. to Invoice"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)"; END; END; VATAmountLine."Line Amount" := VATAmountLine."Line Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); IF "Allow Invoice Disc." THEN VATAmountLine."Inv. Disc. Base Amount" := VATAmountLine."Inv. Disc. Base Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); IF (PurchHeader."Invoice Discount Calculation" <> PurchHeader."Invoice Discount Calculation"::Amount) THEN VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision") ELSE VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + "Inv. Disc. Amount to Invoice"; VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference"; IF "Prepayment Line" THEN VATAmountLine."Includes Prepayment" := TRUE; VATAmountLine."VAT Base (Lowered)" := VATAmountLine."VAT Base (Lowered)" + "VAT Base Amount"; VATAmountLine.MODIFY; END; QtyType::Shipping: BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN QtyToHandle := "Return Qty. to Ship"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Return Qty. to Ship (Base)"; END ELSE BEGIN QtyToHandle := "Qty. to Receive"; VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Receive (Base)"; END; VATAmountLine."Line Amount" := VATAmountLine."Line Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); IF "Allow Invoice Disc." THEN VATAmountLine."Inv. Disc. Base Amount" := VATAmountLine."Inv. Disc. Base Amount" + (ROUND(QtyToHandle * "Direct Unit Cost" - ("Line Discount Amount" * QtyToHandle / Quantity), Currency."Amount Rounding Precision")); VATAmountLine."Invoice Discount Amount" := VATAmountLine."Invoice Discount Amount" + ROUND("Inv. Discount Amount" * QtyToHandle / Quantity,Currency."Amount Rounding Precision"); VATAmountLine."VAT Difference" := VATAmountLine."VAT Difference" + "VAT Difference"; IF "Prepayment Line" THEN VATAmountLine."Includes Prepayment" := TRUE; VATAmountLine.MODIFY; END; END; TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount; END; // End of the added lines. UNTIL NEXT = 0; SETRANGE(Type); SETRANGE(Quantity); ...Utwórz funkcję ZeroAmountLine w tabeli Wiersz zakupu (39) w następujący sposób:
... PROCEDURE ZeroAmountLine@66(QtyType@1000 : 'General,Invoicing,Shipping') : Boolean; BEGIN IF Type = Type::" " THEN EXIT(TRUE); IF Quantity = 0 THEN EXIT(TRUE); IF ("Direct Unit Cost" = 0) THEN // W10001 EXIT(TRUE); IF QtyType = QtyType::Invoicing THEN IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; ...Zmień kod w funkcji UpdInvPostingBuffer w Sales-Post kodera-dekodera (80) w następujący sposób:
Istniejący kod
... InvPostingBuffer[1]."Dimension Entry No." := EntryNo; IF InvPostingBuffer[1].Type = InvPostingBuffer[1].Type::"Fixed Asset" THEN BEGIN FALineNo := FALineNo + 1; InvPostingBuffer[1]."Fixed Asset Line No." := FALineNo; END; InvPostingBuffer[2] := InvPostingBuffer[1]; IF InvPostingBuffer[2].FIND THEN BEGIN InvPostingBuffer[2].Amount := InvPostingBuffer[2].Amount + InvPostingBuffer[1].Amount; InvPostingBuffer[2]."VAT Amount" := InvPostingBuffer[2]."VAT Amount" + InvPostingBuffer[1]."VAT Amount"; ...Kod zastępczy
... InvPostingBuffer[1]."Dimension Entry No." := EntryNo; IF InvPostingBuffer[1].Type = InvPostingBuffer[1].Type::"Fixed Asset" THEN BEGIN FALineNo := FALineNo + 1; InvPostingBuffer[1]."Fixed Asset Line No." := FALineNo; END; // Add the following lines. IF (SalesLine."Line Discount %" = 100) THEN BEGIN InvPostingBuffer[1]."VAT Base Amount" := 0; InvPostingBuffer[1]."VAT Base Amount (ACY)" := 0; InvPostingBuffer[1]."VAT Amount" := 0; InvPostingBuffer[1]."VAT Amount (ACY)" := 0; END; // End of the added lines. InvPostingBuffer[2] := InvPostingBuffer[1]; IF InvPostingBuffer[2].FIND THEN BEGIN InvPostingBuffer[2].Amount := InvPostingBuffer[2].Amount + InvPostingBuffer[1].Amount; InvPostingBuffer[2]."VAT Amount" := InvPostingBuffer[2]."VAT Amount" + InvPostingBuffer[1]."VAT Amount"; ...Zmień kod w funkcji DivideAmount w Sales-Post koder-dekoder (80) w następujący sposób:
Istniejący kod
... IF RoundingLineInserted AND (RoundingLineNo = SalesLine."Line No.") THEN EXIT; WITH SalesLine DO // Delete the following line IF (SalesLineQty = 0) OR ("Unit Price" = 0) OR ("Line Discount %" = 100) THEN BEGIN "Line Amount" := 0; "Line Discount Amount" := 0; "Inv. Discount Amount" := 0; "VAT Base Amount" := 0; Amount := 0; ...Kod zastępczy
... IF RoundingLineInserted AND (RoundingLineNo = SalesLine."Line No.") THEN EXIT; WITH SalesLine DO // Add the following line IF (SalesLineQty = 0) OR ("Unit Price" = 0) THEN BEGIN // W10001 "Line Amount" := 0; "Line Discount Amount" := 0; "Inv. Discount Amount" := 0; "VAT Base Amount" := 0; Amount := 0; ...Zmień kod w funkcji UpdInvPostingBuffer w kodeecie Purch.-Post (90) w następujący sposób:
Istniejący kod
... IF InvPostingBuffer[1].Type = InvPostingBuffer[1].Type::"Fixed Asset" THEN BEGIN FALineNo := FALineNo + 1; InvPostingBuffer[1]."Fixed Asset Line No." := FALineNo; END; InvPostingBuffer[2] := InvPostingBuffer[1]; IF InvPostingBuffer[2].FIND THEN BEGIN InvPostingBuffer[2].Amount := InvPostingBuffer[2].Amount + InvPostingBuffer[1].Amount; InvPostingBuffer[2]."VAT Amount" := ...Kod zastępczy
... IF InvPostingBuffer[1].Type = InvPostingBuffer[1].Type::"Fixed Asset" THEN BEGIN FALineNo := FALineNo + 1; InvPostingBuffer[1]."Fixed Asset Line No." := FALineNo; END; // Add the following lines. IF (PurchLine."Line Discount %" = 100) THEN BEGIN InvPostingBuffer[1]."VAT Base Amount" := 0; InvPostingBuffer[1]."VAT Base Amount (ACY)" := 0; InvPostingBuffer[1]."VAT Amount" := 0; InvPostingBuffer[1]."VAT Amount (ACY)" := 0; END; // End of the added lines. InvPostingBuffer[2] := InvPostingBuffer[1]; IF InvPostingBuffer[2].FIND THEN BEGIN InvPostingBuffer[2].Amount := InvPostingBuffer[2].Amount + InvPostingBuffer[1].Amount; InvPostingBuffer[2]."VAT Amount" := ...Zmień kod w funkcji DivideAmount w kodzie purch.-post (90) w następujący sposób:
Istniejący kod
... IF RoundingLineInserted AND (RoundingLineNo = PurchLine."Line No.") THEN EXIT; WITH PurchLine DO // Delete the following line IF (PurchLineQty = 0) OR ("Direct Unit Cost" = 0) OR ("Line Discount %" = 100) THEN BEGIN "Line Amount" := 0; "Line Discount Amount" := 0; "Inv. Discount Amount" := 0; "VAT Base Amount" := 0; Amount := 0; ...Kod zastępczy
... IF RoundingLineInserted AND (RoundingLineNo = PurchLine."Line No.") THEN EXIT; WITH PurchLine DO // Add the following line IF (PurchLineQty = 0) OR ("Direct Unit Cost" = 0) THEN BEGIN // W10001 "Line Amount" := 0; "Line Discount Amount" := 0; "Inv. Discount Amount" := 0; "VAT Base Amount" := 0; Amount := 0; ...Zmień kod w funkcji FillInvPostingBuffer w Serv-Amounts Mgt. codeunit (5986) w następujący sposób:
Istniejący kod 1
... TotalVATACY, TotalAmount, TotalAmountACY, TotalVATBase, TotalVATBaseACY); UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); END; IF SalesSetup."Discount Posting" IN [SalesSetup."Discount Posting"::"Line Discounts",SalesSetup."Discount Posting"::"All Discounts"] THEN ...Kod zastępczy 1
... TotalVATACY, TotalAmount, TotalAmountACY, TotalVATBase, TotalVATBaseACY); // Add the following lines. IF ServiceLine."Line Discount %" = 100 THEN ClearSerLineDiscBuffer(InvPostingBuffer[1]); // End of the added lines. UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); END; IF SalesSetup."Discount Posting" IN [SalesSetup."Discount Posting"::"Line Discounts",SalesSetup."Discount Posting"::"All Discounts"] THEN ...Istniejący kod 2
... TotalVATACY, TotalAmount, TotalAmountACY, TotalVATBase, TotalVATBaseACY); UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); END; InvPostingBuffer[1].SetAmounts( TotalVAT, ...Kod zastępczy 2
... TotalVATACY, TotalAmount, TotalAmountACY, TotalVATBase, TotalVATBaseACY); // Add the following lines. IF ServiceLine."Line Discount %" = 100 THEN ClearSerLineDiscBuffer(InvPostingBuffer[1]); // End of the added lines. UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); END; InvPostingBuffer[1].SetAmounts( TotalVAT, ...Istniejący kod 3
... TotalVATBase, TotalVATBaseACY); END; END; END; UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); ...Kod zastępczy 3
... TotalVATBase, TotalVATBaseACY); END; END; END; // Add the following lines. IF ServiceLine."Line Discount %" = 100 THEN ClearSerLineDiscBuffer(InvPostingBuffer[1]); // End of the added lines. UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); ...Zmień kod w funkcji ClearSerLineDiscBuffer w Serv-Amounts Mgt. codeunit (5986) w następujący sposób:
... LOCAL PROCEDURE ClearSerLineDiscBuffer@50(VAR InvPostingBuffer@1050 : Record 49); BEGIN InvPostingBuffer."VAT Base Amount" := 0; InvPostingBuffer."VAT Base Amount (ACY)" := 0; InvPostingBuffer."VAT Amount" := 0; InvPostingBuffer."VAT Amount (ACY)" := 0; END; ...
Wymagania wstępne
Aby zastosować tę poprawkę, musisz mieć zainstalowany jeden z następujących produktów:
- Dodatek Service Pack 1 (SP1) dla belgijskiej wersji programu Microsoft Dynamics NAV 2009
- Belgijska wersja oprogramowania Microsoft Dynamics NAV 2009 R2
Informacje o usunięciu
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem dotyczący produktów firmy Microsoft wymienionych w sekcji „Dotyczy”.
Źródła informacji
VSTF DynamicsNAV SE: 284212
Uwaga Jest to artykuł "SZYBKIE PUBLIKOWANIE" utworzony bezpośrednio z poziomu organizacji pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym artykule są dostarczane w stanie odpowiadającym na pojawiające się problemy. Ze względu na szybkość jego udostępnienia materiały mogą zawierać błędy typograficzne i mogą zostać poprawione w dowolnym momencie bez powiadomienia. Zobacz Warunki użytkowania , aby zapoznać się z innymi zagadnieniami.