Zostava Navrhnúť platby dodávateľa (393) navrhuje platbu pre dodávateľa, ktorý má neočakávane záporný zostatok, ak je v systéme Microsoft Dynamics NAV 2009 R2 povolené nastavenie Priority dodávateľov

Vzťahuje sa na
Dynamics NAV 2009

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

Predpokladajme, že používate 2623584 rýchlych opráv v systéme Microsoft Dynamics NAV 2009 R2. Keď spustíte zostavu Platby navrhnúť dodávateľa (393), ktorá má povolené nastavenie Priority dodávateľov, zostava Navrhnúť platby dodávateľa (393) neočakávane navrhne platbu pre dodávateľa so záporným zostatkom.
  Ďalšie informácie o 2623584 rýchlych opráv nájdete v nasledujúcom článku databázy Microsoft Knowledge Base:

2623584 Zostava Navrhnúť dodávateľa Platby (393) neočakávane navrhuje záporný zostatok ako platbu, ak používate priority dodávateľov v službe Microsoft Dynamics NAV

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:

  1. Pridajte globálnu premennú do zostavy Navrhnúť platby dodávateľa (393) a potom ju zadajte nasledovným spôsobom:

    • Názov: VendorBalance@1065
    • DataType: Decimal

  2. Zmeňte kód v spúšťači Vendor - OnAfterGetRecord v zostave Suggest Vendor Platby (393) takto:
    Existujúci kód

    ...
// Delete the following lines.
IF StopPayments THEN
CurrReport.BREAK;
Window.UPDATE(1,"No.");
GetVendLedgEntries(TRUE,FALSE);
GetVendLedgEntries(FALSE,FALSE);
CheckAmounts(FALSE);
ClearNegative;
// End of the lines.
...

    Náhradný kód

    ...
// Add the following lines.
CLEAR(VendorBalance);
CALCFIELDS("Balance (LCY)");
VendorBalance := "Balance (LCY)";
IF StopPayments THEN
CurrReport.BREAK;
Window.UPDATE(1,"No.");
IF VendorBalance > 0 THEN BEGIN
GetVendLedgEntries(TRUE,FALSE);
GetVendLedgEntries(FALSE,FALSE);
CheckAmounts(FALSE);
ClearNegative;
END;
// End of the lines.
...

  3. Zmeňte kód v spúšťači Vendor - OnPostDataItem v zostave Suggest Vendor Platby (393) takto:
    Existujúci kód

    ...
COPYFILTERS(Vend2);
SETCURRENTKEY(Priority);
SETRANGE(Priority,0);
IF FIND('-') THEN
REPEAT

// Delete the following lines.
Window.UPDATE(1,"No.");
GetVendLedgEntries(TRUE,FALSE);
GetVendLedgEntries(FALSE,FALSE);
CheckAmounts(FALSE);
ClearNegative;
// End of the lines.

UNTIL (NEXT = 0) OR StopPayments;
END;
IF UsePaymentDisc AND NOT StopPayments THEN BEGIN
RESET;
COPYFILTERS(Vend2);
Window.OPEN(Text007);
IF FIND('-') THEN
REPEAT

// Delete the following lines.
Window.UPDATE(1,"No.");
PayableVendLedgEntry.SETRANGE("Vendor No.","No.");
GetVendLedgEntries(TRUE,TRUE);
GetVendLedgEntries(FALSE,TRUE);
CheckAmounts(TRUE);
UNTIL (NEXT = 0) OR StopPayments;
END;
ClearNegative;
// End of the lines.

JnlLineDim.LOCKTABLE;
...

    Náhradný kód

    ...
COPYFILTERS(Vend2);
SETCURRENTKEY(Priority);
SETRANGE(Priority,0);
IF FIND('-') THEN
REPEAT

// Add the following lines.
CLEAR(VendorBalance);
CALCFIELDS("Balance (LCY)");
VendorBalance := "Balance (LCY)";
IF VendorBalance > 0 THEN BEGIN
Window.UPDATE(1,"No.");
GetVendLedgEntries(TRUE,FALSE);
GetVendLedgEntries(FALSE,FALSE);
CheckAmounts(FALSE);
ClearNegative;
END;
// End of the lines.

UNTIL (NEXT = 0) OR StopPayments;
END;
IF UsePaymentDisc AND NOT StopPayments THEN BEGIN
RESET;
COPYFILTERS(Vend2);
Window.OPEN(Text007);
IF FIND('-') THEN
REPEAT

// Add the following lines.
CLEAR(VendorBalance);
CALCFIELDS("Balance (LCY)");
VendorBalance := "Balance (LCY)";
Window.UPDATE(1,"No.");
PayableVendLedgEntry.SETRANGE("Vendor No.","No.");
IF VendorBalance > 0 THEN BEGIN
GetVendLedgEntries(TRUE,TRUE);
GetVendLedgEntries(FALSE,TRUE);
CheckAmounts(TRUE);
ClearNegative;
END;
UNTIL (NEXT = 0) OR StopPayments;
END ELSE
IF FIND('-') THEN
REPEAT
ClearNegative;
UNTIL NEXT = 0;
// End of the lines.

JnlLineDim.LOCKTABLE;
...

  4. Zmeňte kód vo funkcii ClearNegative v zostave Navrhnúť platby dodávateľa (393) takto:
    Existujúci kód

    ...
CLEAR(PayableVendLedgEntry);
PayableVendLedgEntry.SETRANGE("Vendor No.",Vendor."No.");
WHILE PayableVendLedgEntry.NEXT <> 0 DO BEGIN
TempCurrency.Code := PayableVendLedgEntry."Currency Code";
CurrencyBalance := 0;

// Delete the following line.
PayableVendLedgEntry2 := PayableVendLedgEntry;

IF TempCurrency.INSERT THEN BEGIN
PayableVendLedgEntry.SETRANGE("Currency Code",PayableVendLedgEntry."Currency Code");
REPEAT
CurrencyBalance := CurrencyBalance + PayableVendLedgEntry."Amount (LCY)"
UNTIL PayableVendLedgEntry.NEXT = 0;
IF CurrencyBalance < 0 THEN
PayableVendLedgEntry.DELETEALL;
PayableVendLedgEntry.SETRANGE("Currency Code");
PayableVendLedgEntry := PayableVendLedgEntry2;
END;
END;
PayableVendLedgEntry.RESET;
...

    Náhradný kód

    ...
CLEAR(PayableVendLedgEntry);
PayableVendLedgEntry.SETRANGE("Vendor No.",Vendor."No.");
WHILE PayableVendLedgEntry.NEXT <> 0 DO BEGIN
TempCurrency.Code := PayableVendLedgEntry."Currency Code";
CurrencyBalance := 0;
IF TempCurrency.INSERT THEN BEGIN
PayableVendLedgEntry.SETRANGE("Currency Code",PayableVendLedgEntry."Currency Code");
REPEAT
CurrencyBalance := CurrencyBalance + PayableVendLedgEntry."Amount (LCY)"
UNTIL PayableVendLedgEntry.NEXT = 0;
IF CurrencyBalance < 0 THEN
PayableVendLedgEntry.DELETEALL;
PayableVendLedgEntry.SETRANGE("Currency Code");
PayableVendLedgEntry := PayableVendLedgEntry2;
END;
END;
PayableVendLedgEntry.RESET;
...

Predpoklady

Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovaný systém Microsoft Dynamics NAV 2009 R2.

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 .