Acest articol se aplică la Microsoft Dynamics NAV pentru setările regionale de limbă belgiană (be).
Simptome
Atunci când înregistrați o factură de vânzări, o comandă de vânzări, o factură de achiziție, o comandă de achiziție sau o comandă de servicii care are o reducere de linie de 100 procentuale în versiunea belgiană a Microsoft Dynamics NAV, intrările de registru general (GL) sunt incorecte.
Această problemă apare atunci când valoarea liniei, valoarea reducerii liniei, valoarea de bază a taxei pe valoarea adăugată (TVA) și valoarea "Suma inclusiv TVA" sunt setate la zero.
Această problemă apare în cazul următoarelor produse:
- Versiunea belgiană de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Versiunea belgiană de Microsoft Dynamics NAV 2009 R2
Rezolvare
Informații despre remedierea rapidă
O remediere rapidă acceptată este acum disponibilă de la Microsoft. Însă, scopul său este doar să corecteze problema descrisă în acest articol. Aplicați-o doar sistemelor care se confruntă cu această problemă specifică. Această remediere rapidă poate fi testată suplimentar. De aceea, dacă această problemă nu vă afectează grav, vă recomandăm să așteptați următorul pachet Service Pack Microsoft Dynamics NAV 2009 sau versiunea următoare Microsoft Dynamics NAV care conține această remediere rapidă.
Notă În cazuri speciale, costurile implicate de obicei pentru apelurile de asistență pot fi revocate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produsele asociate stabilește că o anumită actualizare va rezolva problema. Costurile uzuale de suport se vor aplica pentru întrebări suplimentare de suport și pentru probleme ce nu fac obiectul actualizării în chestiune.
Informații despre instalare
Microsoft oferă exemple de programare numai în scop ilustrativ, fără nicio garanție explicită sau implicită. Aceasta include, dar nu se limitează la, garanțiile implicite de vandabilitate sau adecvare pentru un anumit scop. Acest articol presupune că sunteți familiarizat cu limbajul de programare prezentat și cu instrumentele utilizate pentru a crea și a depana proceduri. Inginerii de asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri, însă nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară și nu vor construi proceduri pentru a răspunde cerințelor dvs. specifice.
Notă Înainte de a instala această remediere rapidă, verificați dacă toți utilizatorii clientului Microsoft Navision sunt deconectați de la sistem. Printre aceștia se numără utilizatorii clienților Microsoft Navision Application Services (NAS). Ar trebui să fiți singurul utilizator client conectat atunci când implementați această remediere rapidă.
Pentru a implementa această remediere rapidă, trebuie să aveți o licență de dezvoltator.
Recomandăm ca contului de utilizator din fereastra Conectări Windows sau din fereastra Conectări bază de date să primească ID-ul de rol "SUPER". În cazul în care contului de utilizator nu i se poate atribui ID-ul de rol "SUPER", trebuie să verificați dacă acel cont de utilizator are următoarele permisiuni:
- Permisiunea Modificare pentru obiectul pe care îl veți modifica.
- Permisiunea de executare pentru obiectul cu ID obiect de sistem 5210 și pentru obiectul ID obiect de sistem 9015.
Notă: nu trebuie să aveți drepturi asupra depozitelor de date decât dacă trebuie să efectuați repararea datelor.
Modificări de cod
Notă: testați întotdeauna remedierile de cod într-un mediu controlat înainte de a aplica remedierile la computerele de producție.
Pentru a rezolva această problemă, urmați acești pași:
Modificați codul din funcția ZeroAmountLine din tabelul Linie de vânzări (37) după cum urmează:
Cod existent
... 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); ...Codul de înlocuire
... 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); ...Modificați codul din funcția UpdateVATOnLines din tabelul Linie de achiziție (39), după cum urmează:
Cod existent 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)" + ...Cod de înlocuire 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)" + ...Cod existent 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"); ...Codul de înlocuire 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"); ...Modificați codul din funcția CalcVATAmountLines din tabelul Linie de achiziție (39), după cum urmează:
Cod existent
... 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); ...Codul de înlocuire
... 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); ...Creați funcția ZeroAmountLine în tabelul Linie de achiziție (39), după cum urmează:
... 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; ...Modificați codul din funcția UpdInvPostingBuffer din unitatea de cod Sales-Post (80), după cum urmează:
Cod existent
... 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"; ...Codul de înlocuire
... 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"; ...Modificați codul din funcția DivideAmount din unitatea de cod Sales-Post (80) după cum urmează:
Cod existent
... 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; ...Codul de înlocuire
... 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; ...Modificați codul din funcția UpdInvPostingBuffer din unitatea de cod Purch.-Post (90), după cum urmează:
Cod existent
... 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" := ...Codul de înlocuire
... 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" := ...Modificați codul din funcția DivideAmount din unitatea de cod Purch.-Post (90) după cum urmează:
Cod existent
... 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; ...Codul de înlocuire
... 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; ...Modificați codul din funcția FillInvPostingBuffer din unitatea de cod Serv-Amounts Mgt. (5986) după cum urmează:
Cod existent 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 ...Cod de înlocuire 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 ...Cod existent 2
... TotalVATACY, TotalAmount, TotalAmountACY, TotalVATBase, TotalVATBaseACY); UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); END; InvPostingBuffer[1].SetAmounts( TotalVAT, ...Codul de înlocuire 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, ...Cod existent 3
... TotalVATBase, TotalVATBaseACY); END; END; END; UpdInvPostingBuffer(InvPostingBuffer,TempDocDim); ...Codul de înlocuire 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); ...Modificați codul din funcția ClearSerLineDiscBuffer din unitatea de cod Serv-Amounts Mgt. (5986) după cum urmează:
... 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; ...
Cerințe preliminare
Trebuie să aveți instalat unul dintre următoarele produse pentru a aplica această remediere rapidă:
- Versiunea belgiană de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Versiunea belgiană de Microsoft Dynamics NAV 2009 R2
Eliminarea informațiilor
Nu puteți elimina această remediere rapidă.
Stare
Microsoft a confirmat că aceasta este o problemă în produsele Microsoft care sunt listate în secțiunea „Se aplică la”.
Referințe
VSTF DynamicsNAV SE: 284212
Notă: Acesta este un articol "PUBLICARE RAPIDĂ" creat direct din cadrul organizației de asistență Microsoft. Informațiile din acest document sunt furnizate ca atare ca răspuns la problemele apărute. Ca urmare a vitezei de punere la dispoziție, materialele pot include erori tipografice și pot fi revizuite în orice moment fără preaviz. Consultați Condițiile de utilizare pentru alte considerente.