Tento článok sa vzťahuje na systém Microsoft Dynamics NAV pre miestne nastavenie španielčiny.
Príznaky
Ak v španielskej verzii Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) nie je hodnota % zľavy za platbu nula, zľava za platbu sa vypočíta nesprávne v nákupnej a predajnej faktúre.
Riešenie
Informácie o rýchlych opravách
Spoločnosť Microsoft teraz poskytuje podporovanú rýchlu opravu. Jeho účelom je však len vyriešiť problém, ktorý je popísaný v tomto článku. Použite ju len v systémoch, v ktorých sa vyskytol tento konkrétny problém. Táto rýchla oprava môže byť ešte otestovaná. Ak teda nie ste týmto problémom vážne zasiahnutí, odporúčame počkať na ďalší balík Service Pack pre systém Microsoft Dynamics NAV 2009 alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu hotfix.
Poznámka: V osobitných prípadoch môžu byť poplatky, ktoré sú zvyčajne účtované za hovory s oddelením technickej podpory, zrušené, ak pracovník technickej podpory pre systém Microsoft Dynamics a súvisiace produkty rozhodne, že konkrétna aktualizácia vyrieši váš problém. Zvyčajné náklady na podporu sa budú vzťahovať na ďalšie otázky a problémy podpory, na ktoré sa nevzťahuje konkrétna príslušná aktualizácia.
Informácie o inštalácii
Spoločnosť Microsoft poskytuje príklady programovania len pre ilustráciu bez výslovnej alebo implicitnej záruky. To sa týka (okrem iného) aj implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Článok predpokladá, že poznáte predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, tieto príklady však nebudú upravovať, aby poskytovali ďalšie funkcie alebo zostavili procedúry podľa vašich špecifických požiadaviek.
Poznámka Pred inštaláciou tejto rýchlej opravy overte, či sú všetci používatelia klienta Microsoft Navision odhlásení zo systému. Týka sa to používateľov klientských služieb Microsoft Navision Application Services (NAS). V čase implementácie tejto rýchlej opravy by ste mali byť jediným klientskym používateľom, ktorý je prihlásený.
Ak chcete implementovať túto rýchlu opravu, musíte mať vývojársku licenciu.
Odporúčame priradiť používateľskému kontu v okne Prihlásenie do Windowsu alebo v okne Prihlásenia do databázy ID roly SUPER. Ak používateľskému kontu nie je možné priradiť ID roly SUPER, musíte overiť, či má používateľské konto nasledujúce povolenia:
- Povolenie Upraviť pre objekt, ktorý budete meniť.
- Povolenie na spustenie pre objekt systémového objektu ID 5210 a pre objekt systémového objektu ID 9015.
Poznámka: Ak nepotrebujete vykonať opravu údajov, nemusíte mať práva na ukladacie priestory údajov.
Zmeny kódu
Poznámka: Opravy kódu pred použitím opráv v produkčných počítačoch vždy testujte v kontrolovanom prostredí.
Pri odstraňovaní tohto problému postupujte nasledovne:
Zmeňte kód vo funkcii CalculateInvoiceDiscount vo výpočte predaja. Zľavový kód jednotka (60):
Existujúci kód 1... SalesSetup@1003 : Record 311; TempServiceChargeLine@1005 : TEMPORARY Record 37; GLAcc@1100000 : Record 15; BEGIN SalesSetup.GET; WITH SalesLine DO BEGIN ...Náhradný kód 1
... SalesSetup@1003 : Record 311; TempServiceChargeLine@1005 : TEMPORARY Record 37; GLAcc@1100000 : Record 15; // Add the following line. TempSalesLine@1100001 : TEMPORARY Record 37; // End of the line. BEGIN SalesSetup.GET; WITH SalesLine DO BEGIN ...Existujúci kód 2
... (SalesLine2."Prepayment %" = 0) THEN SalesLine2.VALIDATE("Inv. Discount Amount"); // Delete the following lines. IF SalesLine2."Allow Invoice Disc." THEN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": SalesLine2."Inv. Discount Amount" := ROUND(SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.000001); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": SalesLine2."Inv. Discount Amount" := ROUND( (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) * CustInvDisc."Discount %" / 100,0.000001); END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": SalesLine2."Pmt. Disc. Given Amount" := ROUND( (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") * SalesHeader."Payment Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": SalesLine2."Pmt. Disc. Given Amount" := ROUND( (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") * SalesHeader."Payment Discount %" / 100,0.01); END; END; // End of the lines. IF (SalesLine2.Type <> SalesLine2.Type::"Charge (Item)") AND (SalesLine2."Prepayment %" = 0) ...Náhradný kód 2
... (SalesLine2."Prepayment %" = 0) THEN SalesLine2.VALIDATE("Inv. Discount Amount"); // Add the following lines. IF SalesLine2."Allow Invoice Disc." THEN BEGIN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempSalesLine."Inv. Discount Amount" := TempSalesLine."Inv. Discount Amount" + SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100; SalesLine2."Inv. Discount Amount" := ROUND(TempSalesLine."Inv. Discount Amount",0.000001); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": BEGIN TempSalesLine."Inv. Discount Amount" := TempSalesLine."Inv. Discount Amount" + (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") * CustInvDisc."Discount %" / 100; SalesLine2."Inv. Discount Amount" := ROUND(TempSalesLine."Inv. Discount Amount",0.000001); END; END; TempSalesLine."Inv. Discount Amount" := TempSalesLine."Inv. Discount Amount" - SalesLine2."Inv. Discount Amount"; END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": BEGIN TempSalesLine."Pmt. Disc. Given Amount" := TempSalesLine."Pmt. Disc. Given Amount" + (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") * SalesHeader."Payment Discount %" / 100; SalesLine2."Pmt. Disc. Given Amount" := ROUND(TempSalesLine."Pmt. Disc. Given Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempSalesLine."Pmt. Disc. Given Amount" := TempSalesLine."Pmt. Disc. Given Amount" + (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") * SalesHeader."Payment Discount %" / 100; SalesLine2."Pmt. Disc. Given Amount" := ROUND(TempSalesLine."Pmt. Disc. Given Amount",0.01); END; END; TempSalesLine."Pmt. Disc. Given Amount" := TempSalesLine."Pmt. Disc. Given Amount" - SalesLine2."Pmt. Disc. Given Amount"; END; // End of the lines. IF (SalesLine2.Type <> SalesLine2.Type::"Charge (Item)") AND (SalesLine2."Prepayment %" = 0) ...Zmeňte kód vo funkcii CalculateInvoiceDiscount v jednotke kódu Purch.-Calc.Discount (70) takto:
Existujúci kód 1... PurchSetup@1003 : Record 312; TempServiceChargeLine@1005 : TEMPORARY Record 39; GLAcc@1100000 : Record 15; BEGIN PurchSetup.GET; WITH PurchLine DO BEGIN ...Náhradný kód 1
... PurchSetup@1003 : Record 312; TempServiceChargeLine@1005 : TEMPORARY Record 39; GLAcc@1100000 : Record 15; // Add the following line. TempPurchLine@1100001 : TEMPORARY Record 39; // End of the line. BEGIN PurchSetup.GET; WITH PurchLine DO BEGIN ...Existujúci kód 2
... (PurchLine2."Prepayment %" = 0) THEN PurchLine2.VALIDATE("Inv. Discount Amount"); // Delete the following lines. IF PurchLine2."Allow Invoice Disc." THEN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": PurchLine2."Inv. Discount Amount" := ROUND(PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": PurchLine2."Inv. Discount Amount" := ROUND( (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) * VendInvDisc."Discount %" / 100,0.01); END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND( (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") * PurchHeader."Payment Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND( (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") * PurchHeader."Payment Discount %" / 100,0.01); END; END; // End of the lines. IF (PurchLine2.Type <> PurchLine2.Type::"Charge (Item)") AND ...Náhradný kód 2
... (PurchLine2."Prepayment %" = 0) THEN PurchLine2.VALIDATE("Inv. Discount Amount"); // Add the following lines. IF PurchLine2."Allow Invoice Disc." THEN BEGIN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempPurchLine."Inv. Discount Amount" := TempPurchLine."Inv. Discount Amount" + PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100; PurchLine2."Inv. Discount Amount" := ROUND(TempPurchLine."Inv. Discount Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": BEGIN TempPurchLine."Inv. Discount Amount" := TempPurchLine."Inv. Discount Amount" + (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") * VendInvDisc."Discount %" / 100; PurchLine2."Inv. Discount Amount" := ROUND(TempPurchLine."Inv. Discount Amount",0.01); END; END; TempPurchLine."Inv. Discount Amount" := TempPurchLine."Inv. Discount Amount" - PurchLine2."Inv. Discount Amount"; END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": BEGIN TempPurchLine."Pmt. Disc. Rcd. Amount" := TempPurchLine."Pmt. Disc. Rcd. Amount" + (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") * PurchHeader."Payment Discount %" / 100; PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND(TempPurchLine."Pmt. Disc. Rcd. Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempPurchLine."Pmt. Disc. Rcd. Amount" := TempPurchLine."Pmt. Disc. Rcd. Amount" + (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") * PurchHeader."Payment Discount %" / 100; PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND(TempPurchLine."Pmt. Disc. Rcd. Amount",0.01); END; END; TempPurchLine."Pmt. Disc. Rcd. Amount" := TempPurchLine."Pmt. Disc. Rcd. Amount" - PurchLine2."Pmt. Disc. Rcd. Amount"; END; // End of the lines. IF (PurchLine2.Type <> PurchLine2.Type::"Charge (Item)") AND ...Zmeňte kód vo funkcii CalculateInvoiceDiscount vo funkcii Service-Calc. Položka kódu zľavy (5950):
Existujúci kód 1... SalesSetup@1005 : Record 311; ServiceChargeLineNo@1004 : Integer; GLAcc@1100000 : Record 15; BEGIN ServSetup.GET; WITH ServiceLine DO BEGIN ...Náhradný kód 1
... SalesSetup@1005 : Record 311; ServiceChargeLineNo@1004 : Integer; GLAcc@1100000 : Record 15; // Add the following line. TempServiceLine@1100001 : TEMPORARY Record 5902; // End of the line. BEGIN ServSetup.GET; WITH ServiceLine DO BEGIN ...Existujúci kód 2
... IF (ServiceLine2.Quantity <> 0) AND NOT InvAllow THEN BEGIN ServiceLine2."Pmt. Disc. Given Amount" := 0; ServiceLine2.VALIDATE("Inv. Discount Amount"); // Delete the following lines. IF ServiceLine2."Allow Invoice Disc." THEN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": ServiceLine2."Inv. Discount Amount" := ROUND(ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.000001); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": ServiceLine2."Inv. Discount Amount" := ROUND( (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) * CustInvDisc."Discount %" / 100,0.000001); END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": ServiceLine2."Pmt. Disc. Given Amount" := ROUND( (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") * ServHeader."Payment Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": ServiceLine2."Pmt. Disc. Given Amount" := ROUND( (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") * ServHeader."Payment Discount %" / 100,0.01); END; END; // End of the lines. ServiceLine2.VALIDATE("Inv. Discount Amount"); ServiceLine2.MODIFY; ...Náhradný kód 2
... IF (ServiceLine2.Quantity <> 0) AND NOT InvAllow THEN BEGIN ServiceLine2."Pmt. Disc. Given Amount" := 0; ServiceLine2.VALIDATE("Inv. Discount Amount"); // Add the following lines. IF ServiceLine2."Allow Invoice Disc." THEN BEGIN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempServiceLine."Inv. Discount Amount" := TempServiceLine."Inv. Discount Amount" + ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100; ServiceLine2."Inv. Discount Amount" := ROUND(TempServiceLine."Inv. Discount Amount",0.000001); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": BEGIN TempServiceLine."Inv. Discount Amount" := TempServiceLine."Inv. Discount Amount" + (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") * CustInvDisc."Discount %" / 100; ServiceLine2."Inv. Discount Amount" := ROUND(TempServiceLine."Inv. Discount Amount",0.000001); END; END; TempServiceLine."Inv. Discount Amount" := TempServiceLine."Inv. Discount Amount" - ServiceLine2."Inv. Discount Amount"; END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": BEGIN TempServiceLine."Pmt. Disc. Given Amount" := TempServiceLine."Pmt. Disc. Given Amount" + (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") * ServHeader."Payment Discount %" / 100; ServiceLine2."Pmt. Disc. Given Amount" := ROUND(TempServiceLine."Pmt. Disc. Given Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempServiceLine."Pmt. Disc. Given Amount" := TempServiceLine."Pmt. Disc. Given Amount" + (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") * ServHeader."Payment Discount %" / 100; ServiceLine2."Pmt. Disc. Given Amount" := ROUND(TempServiceLine."Pmt. Disc. Given Amount",0.01); END; END; TempServiceLine."Pmt. Disc. Given Amount" := TempServiceLine."Pmt. Disc. Given Amount" - ServiceLine2."Pmt. Disc. Given Amount"; END; // End of the lines. ServiceLine2.VALIDATE("Inv. Discount Amount"); ServiceLine2.MODIFY; ...
Predpoklady
Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovanú španielsku verziu balíka Microsoft Dynamics NAV 2009 Service Pack 1.
Informácie o odstránení
Túto rýchlu opravu nemožno odstrániť.
Stav
Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.
Poznámka: Toto je článok typu FAST PUBLISH, ktorý bol vytvorený priamo v rámci organizácie podpory spoločnosti Microsoft. Informácie obsiahnuté v tomto dokumente sa poskytujú tak, ako sú, ako odpoveď na vzniknuté problémy. V dôsledku rýchlosti ich sprístupnenia môžu materiály obsahovať typografické chyby a môžu byť kedykoľvek revidované bez predchádzajúceho upozornenia. Ďalšie dôležité informácie nájdete v Podmienkach používania .