Rýchlo publikované články poskytujú informácie priamo z organizácie podpory spoločnosti Microsoft. Informácie obsiahnuté v tomto dokumente sú vytvorené ako odpoveď na vznikajúce alebo jedinečné témy alebo sú určené na doplnenie iných informácií vedomostnej databázy.
Tento článok sa vzťahuje na službu Microsoft Dynamics NAV pre všetky krajiny a miestne nastavenia pre všetky jazyky.
Príznaky
Po priradení faktúry k platbe v službe Microsoft Dynamics NAV sa zaúčtuje nesprávna tolerancia platby. Tento problém sa vyskytuje v nasledujúcich produktoch:
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1
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 alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu.
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 v spúšťači OnRun v časti "Gen. Jnl.-Apply" (225) takto:
Existujúci kód 1... IF CustLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := CustLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT CheckAgainstApplnCurrency(CurrencyCode2,CustLedgEntry."Currency Code",AccType::Customer,TRUE); ...Náhradný kód 1
... IF CustLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := CustLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT // Add the following line. PaymentToleranceMgt.DelPmtTolApllnDocNo(GenJnlLine,CustLedgEntry."Document No."); CheckAgainstApplnCurrency(CurrencyCode2,CustLedgEntry."Currency Code",AccType::Customer,TRUE); ...Existujúci kód 2
... IF VendLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := VendLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT CheckAgainstApplnCurrency(CurrencyCode2,VendLedgEntry."Currency Code",AccType::Vendor,TRUE); ...Náhradný kód 2
... IF VendLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := VendLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT // Add the following line. PaymentToleranceMgt.DelPmtTolApllnDocNo(GenJnlLine,VendLedgEntry."Document No."); CheckAgainstApplnCurrency(CurrencyCode2,VendLedgEntry."Currency Code",AccType::Vendor,TRUE); ...Zmeňte kód vo funkcii CalcCustApplnAmount v kódovej jednotke "Správa tolerancie platieb" nasledovne:
Existujúci kód... TempAmount := TempAmount + AppliedCustLedgEntry."Amount to Apply"; UNTIL AppliedCustLedgEntry.NEXT = 0; // Delete the following lines. // Check Payment Tolerance IF (CustledgEntry."Document Type" = CustledgEntry."Document Type"::Payment) THEN BEGIN IF TempAmount - CustledgEntry."Remaining Amount" < MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - CustledgEntry."Remaining Amount"; END ELSE IF (CustledgEntry."Document Type" = CustledgEntry."Document Type"::Refund) THEN BEGIN IF TempAmount - CustledgEntry."Remaining Amount" > MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - CustledgEntry."Remaining Amount"; END; // End of the deleted lines. TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount <= 0; ...Náhradný kód
... TempAmount := TempAmount + AppliedCustLedgEntry."Amount to Apply"; UNTIL AppliedCustLedgEntry.NEXT = 0; TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount <= 0; ...Zmeňte kód vo funkcii CalcVendApplnAmount v kódovej jednotke "Správa tolerancie platieb" (426) takto:
Existujúci kód... TempAmount := TempAmount + AppliedVendLedgEntry."Amount to Apply"; UNTIL AppliedVendLedgEntry.NEXT = 0; // Delete the following lines. // Check Payment Tolerance IF (VendledgEntry."Document Type" = VendledgEntry."Document Type"::Payment) THEN BEGIN IF TempAmount - VendledgEntry."Remaining Amount" > MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - VendledgEntry."Remaining Amount"; END ELSE IF (VendledgEntry."Document Type" = VendledgEntry."Document Type"::Refund) THEN BEGIN IF TempAmount - VendledgEntry."Remaining Amount" < MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - VendledgEntry."Remaining Amount"; END; // End of the deleted lines. TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount >= 0; ...Náhradný kód
... TempAmount := TempAmount + AppliedVendLedgEntry."Amount to Apply"; UNTIL AppliedVendLedgEntry.NEXT = 0; TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount >= 0; ...Zmeňte kód vo funkcii DelPmtTolApllnDocNo v kódovej jednotke "Správa tolerancie platieb" (426) takto:
Existujúci kód... AppliedCustLedgEntry.SETRANGE(Open,TRUE); AppliedCustLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedCustLedgEntry.LOCKTABLE; // Delete the following lines. IF AppliedCustLedgEntry.FIND('-') THEN BEGIN AppliedCustLedgEntry."Accepted Payment Tolerance" := 0; AppliedCustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedCustLedgEntry.MODIFY; // End of the deleted lines. COMMIT; END; ...Náhradný kód
... AppliedCustLedgEntry.SETRANGE(Open,TRUE); AppliedCustLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedCustLedgEntry.LOCKTABLE; // Add the following lines. IF AppliedCustLedgEntry.FINDSET THEN BEGIN REPEAT AppliedCustLedgEntry."Accepted Payment Tolerance" := 0; AppliedCustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedCustLedgEntry.MODIFY; UNTIL AppliedCustLedgEntry.NEXT = 0; //End of the added lines. COMMIT; END; ...Zmeňte kód v spúšťači DelPmtTolApllnDocNo v kódovej jednotke "Správa tolerancie platieb" (426) takto:
Existujúci kód... AppliedVendLedgEntry.SETRANGE(Open,TRUE); AppliedVendLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedVendLedgEntry.LOCKTABLE; // Delete the following lines. IF AppliedVendLedgEntry.FIND('-') THEN BEGIN AppliedVendLedgEntry."Accepted Payment Tolerance" := 0; AppliedVendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedVendLedgEntry.MODIFY; // End of the deleted lines COMMIT; END; END; ...Náhradný kód
... AppliedVendLedgEntry.SETRANGE(Open,TRUE); AppliedVendLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedVendLedgEntry.LOCKTABLE; // Add the following lines. IF AppliedVendLedgEntry.FINDSET THEN BEGIN REPEAT AppliedVendLedgEntry."Accepted Payment Tolerance" := 0; AppliedVendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedVendLedgEntry.MODIFY; UNTIL AppliedVendLedgEntry.NEXT = 0; //End of the added lines. COMMIT; END; END; ...
Predpoklady
Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovaný niektorý z nasledujúcich produktov:
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 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.
SPOLOČNOSŤ MICROSOFT A/ALEBO JEJ DODÁVATELIA NEPOSKYTUJÚ ŽIADNE VYHLÁSENIA ANI ZÁRUKY TÝKAJÚCE SA VHODNOSTI, SPOĽAHLIVOSTI ALEBO PRESNOSTI INFORMÁCIÍ OBSIAHNUTÝCH V DOKUMENTOCH A SÚVISIACICH GRAFIKÁCH PUBLIKOVANÝCH NA TEJTO WEBOVEJ LOKALITE (ĎALEJ LEN "MATERIÁLY") NA AKÝKOĽVEK ÚČEL.
MATERIÁLY MÔŽU OBSAHOVAŤ TECHNICKÉ NEPRESNOSTI ALEBO TYPOGRAFICKÉ CHYBY A MÔŽU BYŤ KEDYKOĽVEK REVIDOVANÉ BEZ PREDCHÁDZAJÚCEHO UPOZORNENIA. V MAXIMÁLNOM ROZSAHU POVOLENOM PRÍSLUŠNÝMI ZÁKONMI SPOLOČNOSŤ MICROSOFT A/ALEBO JEJ DODÁVATELIA ODMIETAJÚ ZODPOVEDNOSŤ A VYLUČUJÚ VŠETKY VYHLÁSENIA, ZÁRUKY A PODMIENKY, ČI UŽ VÝSLOVNÉ, IMPLICITNÉ ALEBO ZÁKONNÉ, VRÁTANE, NIE VŠAK VÝHRADNE, VYHLÁSENÍ, GARANCIÍ ALEBO PODMIENOK VLASTNÍCTVA, NEPORUŠENIA CUDZÍCH PRÁV, USPOKOJIVÉHO STAVU ALEBO KVALITY, OBCHODOVATEĽNOSTI A VHODNOSTI NA KONKRÉTNY ÚČEL V SÚVISLOSTI S MATERIÁLMI.