Sestava Navrhnout dodavatele Platby (393) navrhuje platbu pro dodavatele, který má neočekávaně záporný zůstatek, když je v aplikaci Microsoft Dynamics NAV 2009 R2 povoleno nastavení Priority dodavatelů

Platí pro
Dynamics NAV 2009

Tento článek platí pro Microsoft Dynamics NAV pro všechny země a všechna jazyková národní prostředí.

Příznaky

Předpokládejme, že 2623584 oprav hotfix použijete v aplikaci Microsoft Dynamics NAV 2009 R2. Když spustíte sestavu Navrhované Platby dodavatelům (393), která má povolené nastavení Priority dodavatelů, sestava Navrhované Platby dodavatele (393) navrhne platbu pro dodavatele, který má neočekávaně záporný zůstatek.
  Další informace o opravách hotfix 2623584 naleznete v následujícím článku znalostní báze znalostní báze Microsoft Knowledge Base:

2623584 Sestava "Navrhnout dodavatele Platby" (393) neočekávaně navrhne záporný zůstatek jako platbu, pokud použijete Priority dodavatelů v Microsoft Dynamics NAV

Řešení

Informace o opravě hotfix

Od Microsoftu je teď k dispozici podporovaná oprava hotfix. Účelem je však pouze vyřešení problému, který je popsán v tomto článku. Aplikujte ho jenom na systémy, ve kterých dochází k tomuto konkrétnímu problému. Tato oprava hotfix může projít dalším testováním. Pokud se vás tedy tento problém vážně netýká, doporučujeme počkat na další aktualizaci Service Pack pro Microsoft Dynamics NAV nebo další verzi Microsoft Dynamics NAV, která tuto opravu hotfix obsahuje.

Poznámka: Ve zvláštních případech mohou být poplatky, které jsou obvykle účtovány za telefonická hovory podpory, zrušeny, pokud pracovník technické podpory pro řešení Microsoft Dynamics a související produkty zjistí, že konkrétní aktualizace vyřeší váš problém. Další dotazy a problémy týkající se podpory, které se netýkají této konkrétní opravy, podléhají běžným sazbám za podporu.

            
          

Informace o instalaci

Společnost Microsoft poskytuje příklady programování pouze pro ilustraci, bez záruky, ať už vyjádřené nebo předpokládané. To zahrnuje, ale není omezeno na, předpokládané záruky prodejnosti nebo vhodnosti pro konkrétní účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předváděn, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci technické podpory Microsoftu vám můžou pomoct vysvětlit funkčnost určitého postupu, ale nebudou tyto příklady upravovat za účelem poskytování dalších funkcí nebo konstrukce procedur, které by splňovaly vaše konkrétní požadavky.

Poznámka: Před instalací této opravy hotfix ověřte, zda jsou všichni uživatelé klienta Microsoft Navision odhlášeni ze systému. To zahrnuje i uživatele klienta Microsoft Navision Application Services (NAS). Měli byste být jediným klientským uživatelem, který je přihlášen při implementaci této opravy hotfix.

K implementaci této opravy hotfix musíte mít vývojářskou licenci.

Doporučujeme, aby uživatelské účtu v okně Windows Přihlášení nebo v okně Přihlášení k databázi bylo přiřazeno ID role "SUPER". Pokud nelze uživatelskému účtu přiřadit ID role "SUPER", je nutné ověřit, zda má uživatelský účet následující oprávnění:

  • Oprávnění k úpravám objektu, který budete měnit.
  • Oprávnění ke spuštění pro objekt s ID systémového objektu 5210 a pro objekt s ID systémového objektu 9015.

                
Poznámka: K úložištím dat nemusíte mít práva, ledaže byste museli provádět opravu dat.

Změny kódu

Poznámka: Před použitím oprav v produkčních počítačích vždy otestujte opravy kódu v kontrolovaném prostředí.
Chcete-li tento problém vyřešit, postupujte takto:

  1. Přidejte globální proměnnou v sestavě Platby Suggest Vendor (393) a poté specifikujte proměnnou takto:

    • Název: VendorBalance@1065
    • Datový typ: Desetinné číslo

  2. Změňte kód v aktivačním události Vendor - OnAfterGetRecord v sestavě Suggest Vendor Platby (393) takto:
    Existující 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. Změňte kód v triggeru Dodavatel – OnPostDataItem v sestavě Navrhnout dodavatele Platby (393) takto:
    Existující 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. Změňte kód ve funkci ClearNegative v sestavě Platby Suggest Vendor (393) takto:
    Existující 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;
...

Požadavky

Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovanou aplikaci Microsoft Dynamics NAV 2009 R2.

Informace o odebrání

Tuto opravu hotfix nelze odebrat.

Stav

Společnost Microsoft potvrdila, že se jedná o problém produktů Microsoft, které jsou uvedeny v sekci Platí pro.

Poznámka: Toto je článek určený k rychlému zveřejnění, který byl vytvořen přímo v rámci organizace podpory společnosti Microsoft. Zde uvedené informace jsou poskytovány tak, jak jsou, jako reakce na nově vznikající potíže. Vzhledem k rychlosti, s jakou byl článek zpřístupněn, mohou příslušné materiály obsahovat typografické chyby a mohou být kdykoli bez předchozího upozornění revidovány. Další okolnosti viz Podmínky použití .