Ovaj članak se odnosi na Microsoft Dynamics NAV za lokalni standard indijskog (in) jezika.
Simptomi
Pretpostavimo da imate prodajni nalog koji ima omogućen cena uključujući porez u indijskoj verziji programa Microsoft Dynamics NAV 2009. Kada pokrenete funkciju "Izračunaj vrednosti strukture ", vrednosti "Iznos popusta", "Cena po jedinici bez PDV-a " i "Iznos reda bez PDV-a " su netačne.
Ovaj problem se javlja u sledećim proizvodima:
- Indijska verzija operativnog sistema Microsoft Dynamics NAV 2009 R2
- Indijska verzija Microsoft Dynamics NAV 2009 servisni paket 1 (SP1)
Rešenje
Informacije o hitnim ispravkama
Podržana hitna ispravka je sada dostupna od korporacije Microsoft. Međutim, namena je samo za rešavanje problema koji je opisan u ovom članku. Primenite je samo na sisteme koji imaju ovaj određeni problem. Ova hitna ispravka može proći dodatno testiranje. Stoga, ako ovaj problem ne utiče ozbiljno, preporučujemo da sačekate sledeći servisni paket za Microsoft Dynamics NAV ili sledeću verziju programa Microsoft Dynamics NAV koja sadrži ovu hitnu ispravku.
Napomena: U posebnim slučajevima, troškovi koji se obično nastaju za pozive podršci mogu biti otkazani ako stručnjak za tehničku podršku za Microsoft Dynamics i srodne proizvode utvrdi da će određena ispravka rešiti problem. Uobičajeni troškovi podrške primenjivaće se na dodatna pitanja podrške i probleme koji ne ispunjavaju uslove za određenu ispravku u pitanju.
Informacije o instalaciji
Microsoft pruža primere programiranja samo za ilustraciju, bez izričite ili podrazumevane garancije. Ovo uključuje, ali nije ograničeno na, podrazumevane garancije o podesnosti za prodaju ili o podesnosti za određenu namenu. U ovom članku se pretpostavlja da ste upoznati sa programskim jezikom koji se demonstrira i sa alatkama koje se koriste za kreiranje procedura i otklanjanje grešaka. Inženjeri Microsoft podrške mogu da vam objasne funkcionalnost određene procedure, ali neće izmeniti ove primere da bi obezbedili dodatnu funkcionalnost ili konstruisali procedure koje ispunjavaju vaše određene zahteve.
Napomena: Pre nego što instalirate ovu hitnu ispravku, proverite da li su svi korisnici Microsoft Navision klijenta odjavljeni iz sistema. To uključuje korisnike Microsoft Navision Application Services (NAS) klijenta. Vi bi trebalo da budete jedini korisnik klijenta koji je prijavljen kada primenjujete ovu hitnu ispravku.
Da biste primenili ovu hitnu ispravku, morate imati licencu za projektante.
Preporučujemo da se korisničkom nalogu u prozoru "Prijavljivanje u operativni sistem Windows" ili u prozoru "Prijavljivanje u bazu podataka" dodeli ID uloge "SUPER". Ako korisničkom nalogu nije moguće dodeliti ID uloge "SUPER", morate da proverite da li korisnički nalog ima sledeće dozvole:
- Dozvola "Izmeni" za objekat koji ćete menjati.
- Dozvola za izvršavanje za objekat sistema ID 5210 i za objekat sistema ID 9015.
Napomena: Ne morate da imate prava na skladišta podataka osim ako ne morate da izvršite popravku podataka.
Promene kodova
Napomena: Popravke kodova uvek testirajte u kontrolisanom okruženju pre nego što ih primenite na računare proizvodnje.
Pratite ove korake da biste rešili problem:
Promenite kôd u okidaču "Linija popusta % – OnValidate" u tabeli "Linija prodaje" (37) na sledeći način:
Postojeći kôd... "Line Discount %" := 100; // Delete the following line. IF NOT "Price Inclusive of Tax" THEN "Line Discount Amount" := ROUND(ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") * "Line Discount %" / 100, Currency."Amount Rounding Precision") // Delete the following lines. ELSE "Line Discount Amount" := ROUND(ROUND(Quantity * "Unit Price Incl. of Tax",Currency."Amount Rounding Precision") * "Line Discount %" / 100,Currency."Amount Rounding Precision"); // End of the lines. ...Kôd za zamenu
... "Line Discount %" := 100; "Line Discount Amount" := ROUND(ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") * "Line Discount %" / 100, Currency."Amount Rounding Precision"); ...Promenite kôd u okidaču "Iznos popusta u redu – OnValidate" u tabeli "Linija prodaje" (37) na sledeći način:
Postojeći kôd... TESTFIELD(Quantity); // Delete the following line. IF NOT "Price Inclusive of Tax" THEN IF ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") <> 0 THEN "Line Discount %" := ROUND( "Line Discount Amount" / ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") * 100, 0.00001) ELSE "Line Discount %" := 0 // Delete the following lines. ELSE IF ROUND(Quantity * "Unit Price Incl. of Tax",Currency."Amount Rounding Precision") <> 0 THEN "Line Discount %" := ROUND( "Line Discount Amount" / ROUND(Quantity * "Unit Price Incl. of Tax",Currency."Amount Rounding Precision") * 100, 0.00001) ELSE "Line Discount %" := 0; // End of the lines. "Inv. Discount Amount" := 0; ...Kôd za zamenu
... TESTFIELD(Quantity); IF ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") <> 0 THEN "Line Discount %" := ROUND( "Line Discount Amount" / ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") * 100, 0.00001) ELSE "Line Discount %" := 0; "Inv. Discount Amount" := 0; ...Promenite kôd u funkciji GetSalesPriceExclusiveTaxes u tabeli "Linija prodaje" (37) na sledeći način:
Postojeći kôd... IF StrOrderDetails."Include Base" THEN BaseAmountVariable := BaseAmountVariable + Quantity; // Delete the following lines. IF StrOrderDetails."Include Line Discount" THEN BaseAmountFixed := BaseAmountFixed - "Line Discount Amount"; IF StrOrderDetails."Include Invoice Discount" THEN BEGIN BaseAmountFixed := BaseAmountFixed + "Inv Discount Fixed"; BaseAmountVariable := BaseAmountVariable - "Inv Discount Variable"; END; // End of the lines. IF SalesHeader."Currency Factor" <> 0 THEN ...Kôd za zamenu
... IF StrOrderDetails."Include Base" THEN BaseAmountVariable := BaseAmountVariable + Quantity; IF SalesHeader."Currency Factor" <> 0 THEN ...Promenite kôd u funkciji CalculateStructuresPIT u tabeli "Linija prodaje" (37) na sledeći način:
Postojeći kôd... SalesLine.MODIFY; // Delete the following lines. IF i < 3 THEN BEGIN FixedAmt := 0; VariableAmt := 0; AdjustedAmt := 0; DiffAdjustmentAmt := 0; FixedAmt := SalesLine."Unit Price Incl. of Tax" * SalesLine.Quantity; VariableAmt := SalesLine.Quantity; StrOrderLineDetails.RESET; StrOrderLineDetails.SETCURRENTKEY(Type,"Document Type","Document No.","Structure Code","Item No.","Line No."); StrOrderLineDetails.SETRANGE(Type,StrOrderLineDetails.Type::Sale); StrOrderLineDetails.SETRANGE("Document Type",SalesLine."Document Type"); StrOrderLineDetails.SETRANGE("Document No.",SalesLine."Document No."); StrOrderLineDetails.SETRANGE("Structure Code",SalesLine."PIT Structure"); StrOrderLineDetails.SETRANGE("Item No.",SalesLine."No."); StrOrderLineDetails.SETRANGE("Line No.",SalesLine."Line No."); StrOrderLineDetails.SETRANGE("Include PIT Calculation",TRUE); IF StrOrderLineDetails.FIND('-') THEN REPEAT FixedAmt -= StrOrderLineDetails.Amount; AdjustedAmt := AdjustedAmt + StrOrderLineDetails.Amount; UNTIL StrOrderLineDetails.NEXT = 0; SalesLine."Unit Price" := 0; IF VariableAmt <> 0 THEN BEGIN SalesLine."Unit Price" := ROUND((FixedAmt / VariableAmt),GetRoundingPrecisionUnitPrice); IF SalesLine."Unit Price" < 0 THEN SalesLine.FIELDERROR("Unit Price"); IF (i = 2) AND (FixedAmt <> 0) AND (SalesLine.Quantity <> 0) THEN BEGIN AdjustedAmt := AdjustedAmt + (SalesLine."Unit Price" * SalesLine.Quantity); FixedAmt := SalesLine."Unit Price Incl. of Tax" * SalesLine.Quantity; DiffAdjustmentAmt := ((FixedAmt - AdjustedAmt)/SalesLine.Quantity) * (SalesLine."Unit Price" * SalesLine.Quantity) / (FixedAmt ); SalesLine."Unit Price" := ROUND(SalesLine."Unit Price" - DiffAdjustmentAmt,GetRoundingPrecisionUnitPrice); IF SalesLine."Unit Price" < 0 THEN SalesLine.FIELDERROR("Unit Price"); END; SalesLine.ValidateUnitPrice; SalesLine.ChkQtyUpdatioAfterDDPLA; SalesLine.MODIFY; IF SalesHeader."Calc. Inv. Discount (%)" THEN CalcInvDis.CalculateWithSalesHeader(SalesHeader,SalesLine); SalesLine.GET(SalesLine."Document Type",SalesLine."Document No.",SalesLine."Line No."); END; END; // End of the lines. ...Kôd za zamenu
... SalesLine.MODIFY; ...Promenite kôd u funkciji UpdateSalesLinesPIT u tabeli "Linija prodaje" (37) na sledeći način:
Postojeći kôd... "Service Tax Amount" + "Service Tax eCess Amount" + "Service Tax SHE Cess Amount"; MODIFY; ...Kôd za zamenu
... "Service Tax Amount" + "Service Tax eCess Amount" + "Service Tax SHE Cess Amount"; // Add the following lines. "Amount To Customer UPIT" := "Line Amount" - "Inv. Discount Amount" + "Excise Amount" + "Tax Amount" + "Charges To Customer"; // End of the lines. MODIFY; ...Promenite kôd u funkciji "ValidateUnitPrice" u tabeli "Linija prodaje" (37) na sledeći način:
Postojeći kôd... "Line Discount %" := 100; // Delete the following line. IF NOT "Price Inclusive of Tax" THEN "Line Discount Amount" := ROUND(ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") * "Line Discount %" / 100, Currency."Amount Rounding Precision") // Delete the following lines. ELSE "Line Discount Amount" := ROUND(ROUND(Quantity * "Unit Price Incl. of Tax",Currency."Amount Rounding Precision") * "Line Discount %" / 100,Currency."Amount Rounding Precision"); // End of the lines. "Inv. Discount Amount" := 0; ...Kôd za zamenu
... "Line Discount %" := 100; "Line Discount Amount" := ROUND(ROUND(Quantity * "Unit Price",Currency."Amount Rounding Precision") * "Line Discount %" / 100, Currency."Amount Rounding Precision"); "Inv. Discount Amount" := 0; ...Promenite kôd u funkciji DivideAmount u kodnoj jedinici Prodaja - Poštanski broj (80) na sledeći način:
Postojeći kôd 1... IF SalesLineQty <> Quantity THEN // Delete the following lines. IF "Price Inclusive of Tax" THEN "Line Discount Amount" := ROUND((SalesLineQty * "Unit Price Incl. of Tax") * "Line Discount %" / 100,Currency."Amount Rounding Precision") ELSE // End of the lines. "Line Discount Amount" := ROUND("Line Amount" * "Line Discount %" / 100,Currency."Amount Rounding Precision"); "Line Amount" := "Line Amount" - "Line Discount Amount"; ...Kôd za zamenu 1
... IF SalesLineQty <> Quantity THEN "Line Discount Amount" := ROUND("Line Amount" * "Line Discount %" / 100,Currency."Amount Rounding Precision"); "Line Amount" := "Line Amount" - "Line Discount Amount"; ...Postojeći kôd 2
... "Bal. TDS/TCS Including SHECESS",Currency."Amount Rounding Precision"); // Delete the following lines. IF "Price Inclusive of Tax" THEN BEGIN "Amount To Customer UPIT" := SalesLineQty * "Unit Price"; GLSetup.GET; StrOrdLineDetails2.RESET; StrOrdLineDetails2.SETRANGE(Type,StrOrdLineDetails2.Type::Sale); StrOrdLineDetails2.SETRANGE("Document Type","Document Type"); StrOrdLineDetails2.SETRANGE("Document No.","Document No."); StrOrdLineDetails2.SETRANGE("Line No.","Line No."); StrOrdLineDetails2.SETRANGE("Include PIT Calculation",TRUE); IF StrOrdLineDetails2.FINDSET THEN REPEAT SalesLine2.GET("Document Type","Document No.","Line No."); IF StrOrdLineDetails2."Tax/Charge Type" = StrOrdLineDetails2."Tax/Charge Type"::Excise THEN "Amount To Customer UPIT" += "Excise Amount"; IF StrOrdLineDetails2."Tax/Charge Type" = StrOrdLineDetails2."Tax/Charge Type"::"Sales Tax" THEN "Amount To Customer UPIT" += "Tax Amount"; IF StrOrdLineDetails2."Tax/Charge Type" = StrOrdLineDetails2."Tax/Charge Type"::Charges THEN BEGIN IF QuantityType = QuantityType::General THEN "Amount To Customer UPIT" += ROUND(StrOrdLineDetails2.Amount * SalesLineQty / Quantity, Currency."Amount Rounding Precision"); IF QuantityType = QuantityType::Invoicing THEN "Amount To Customer UPIT" += ROUND(StrOrdLineDetails2.Amount * SalesLine2."Qty. to Invoice" / SalesLine2.Quantity, Currency."Amount Rounding Precision"); IF QuantityType = QuantityType::Shipping THEN "Amount To Customer UPIT" += ROUND(StrOrdLineDetails2.Amount * SalesLine2."Qty. to Ship" / SalesLine2.Quantity, Currency."Amount Rounding Precision"); END; UNTIL StrOrdLineDetails2.NEXT = 0; "Total UPIT Amount" := ROUND("Total UPIT Amount" * SalesLineQty / Quantity,Currency."Amount Rounding Precision"); END; // End of the lines. END; END; ...Kôd zamene 2
... "Bal. TDS/TCS Including SHECESS",Currency."Amount Rounding Precision"); // Add the following lines. IF "Price Inclusive of Tax" THEN "Amount To Customer UPIT" := ROUND("Line Amount" - "Inv. Discount Amount" + "Excise Amount" + "Tax Amount" + "Charges To Customer", Currency."Amount Rounding Precision"); // End of the lines. END; END; ...Promenite kôd u funkciji "RoundAmount" u kodnoj jedinici "Prodaja–Pošta" (80) na sledeći način:
Postojeći kôd... TotalSalesLineLCY."Amount To Customer"; "Charges To Customer" := ...Kôd za zamenu
... TotalSalesLineLCY."Amount To Customer"; // Add the following lines. "Amount To Customer UPIT" := ROUND( CurrExchRate.ExchangeAmtFCYToLCY( UseDate,SalesHeader."Currency Code", TotalSalesLine."Amount To Customer UPIT",SalesHeader."Currency Factor")) - TotalSalesLineLCY."Amount To Customer UPIT"; "Total UPIT Amount" := ROUND( CurrExchRate.ExchangeAmtFCYToLCY( UseDate,SalesHeader."Currency Code", TotalSalesLine."Total UPIT Amount",SalesHeader."Currency Factor")) - TotalSalesLineLCY."Total UPIT Amount"; // End of the lines. "Charges To Customer" := ...Promenite kôd u funkciji ReverseAmount u kodnoj jedinici "Prodaja–Pošta" (80) na sledeći način:
Postojeći kôd... "Amount To Customer" := -"Amount To Customer"; "Charges To Customer" := -"Charges To Customer"; ...Kôd za zamenu
... "Amount To Customer" := -"Amount To Customer"; // Add the following lines. Amount To Customer UPIT" := -"Amount To Customer UPIT"; Total UPIT Amount" := -"Total UPIT Amount"; // End of the lines. "Charges To Customer" := -"Charges To Customer"; ...Promenite kôd u funkciji "InvoiceUPITRounding" u kodnoj jedinici (80) "Prodaja–Pošta" na sledeći način:
Postojeći kôd 1... EXIT; // Delete the following line. UPITRoundingAmount := TotalSalesLine."Total UPIT Amount" - ROUND(TotalSalesLine."Amount To Customer UPIT"); IF UPITRoundingAmount <> 0 THEN BEGIN ...Kôd za zamenu 1
... EXIT; // Add the following line. UPITRoundingAmount := TotalSalesLine."Amount To Customer UPIT" - ROUND(TotalSalesLine."Amount To Customer UPIT"); IF UPITRoundingAmount <> 0 THEN BEGIN ...Postojeći kôd 2
... "UPIT Rounding Inserted" := TRUE; // Delete the following line. IF SalesHeader."Prices Including VAT" THEN VALIDATE("Unit Price",UPITRoundingAmount) ...Kôd zamene 2
... "UPIT Rounding Inserted" := TRUE; // Add the following line. IF SalesHeader."Price Inclusive of Taxes" THEN VALIDATE("Unit Price",UPITRoundingAmount) ...
Preduslovi
Morate da imate instaliran jedan od sledećih proizvoda da biste primenili ovu hitnu ispravku:
- Indijska verzija operativnog sistema Microsoft Dynamics NAV 2009 R2
- Indijska verzija Microsoft Dynamics NAV 2009 servisni paket 1 (SP1)
Informacije o uklanjanju
Ne možete da uklonite ovu hitnu ispravku.
Status
Microsoft je potvrdio da je ovo problem u Microsoft proizvodima koji su navedeni u odeljku „Odnosi se na“.
Napomena: Ovo je članak "BRZO OBJAVLJIVANJE" koji je kreiran direktno u okviru organizacije Microsoft podrške. Informacije koje se nalaze ovde pružaju se kakve jesu kao odgovor na nove probleme. Kao rezultat brzine stavljanja na raspolaganje, materijali mogu sadržavati tipografske greške i mogu se revidirati u bilo kom trenutku bez prethodne najave. Pogledajte Uslove korišćenja za druga razmatranja.