Faktura, která je splatná dnes, je v Microsoft Dynamics NAV nesprávně uvedena v poli "Částky po splatnosti (LCY) k [datum]" v dialogovém okně Statistika zákazníků

Platí pro
Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1 Microsoft Dynamics NAV 5.0

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 máte zákazníka, který má fakturu splatnou dnes v Microsoft Dynamics NAV. Pokud nastavíte pracovní datum na dnešní den, bude faktura nesprávně zahrnuta do pole Částky po splatnosti (LCY) k datu v dialogovém okně Statistika zákazníků . Kromě toho, když vytvoříte novou prodejní fakturu pro odběratele, bude faktura zahrnuta do částky po splatnosti v dialogovém okně Zkontrolovat úvěrový limit . Faktury splatné dnes však ještě nejsou po splatnosti. Zítra by měly být po splatnosti. 
K tomuto problému dochází u následujících produktů:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 5.0

Ř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 dvě nové funkce do tabulky položek registrovaných zákazníky (21) takto:
    Existující kód

    ...
PROCEDURE GetOriginalCurrencyFactor@2() : Decimal;
BEGIN
IF "Original Currency Factor" = 0 THEN
EXIT(1);
EXIT("Original Currency Factor");
END;

BEGIN
END.
}
}

    Náhradní kód

    ...
PROCEDURE GetOriginalCurrencyFactor@2() : Decimal;
BEGIN
IF "Original Currency Factor" = 0 THEN
EXIT(1);
EXIT("Original Currency Factor"); 
END;

// Add the following lines.
PROCEDURE CalcOverDueBalance@1100(CustomerNo@1101 : Code[20]) OverDueBalance : Decimal;
VAR
CustLedgerEntry@1102 : Record 21;
BEGIN
SetFiltersToCalcOverDueBalance(CustLedgerEntry,CustomerNo);
IF CustLedgerEntry.FINDSET THEN BEGIN
REPEAT
CustLedgerEntry.CALCFIELDS("Amount (LCY)");
OverDueBalance += CustLedgerEntry."Amount (LCY)";
UNTIL (CustLedgerEntry.NEXT = 0);
END ELSE
OverDueBalance := 0;
END;

PROCEDURE SetFiltersToCalcOverDueBalance@1103(VAR CustLedgerEntry@1104 : Record 21;CustomerNo@1105 : Code[20]);
BEGIN
CustLedgerEntry.SETCURRENTKEY("Customer No.",Open,Positive,"Due Date","Currency Code");
CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);
CustLedgerEntry.SETRANGE(Open,TRUE);
CustLedgerEntry.SETFILTER("Due Date",'<%1',WORKDATE);
END;
// End of the lines.

BEGIN
END.
}
}

  2. Změňte kód ve formuláři statistiky zákazníků (151) takto:
    Existující kód

    ...
LeaderDots=Yes;
SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
{ 15 ;TextBox ;3850 ;6490 ;2750 ;440 ;ParentControl=1;
InPage=0;

// Delete the following line.
SourceExpr="Balance Due (LCY)";

OnDrillDown=VAR
DtldCustLedgEntry@1000 : Record 379;
CustLedgEntry@1001 : Record 21;
BEGIN
...

    Náhradní kód

    ...
LeaderDots=Yes;
SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
{ 15 ;TextBox ;3850 ;6490 ;2750 ;440 ;ParentControl=1;
InPage=0;

// Add the following line.
SourceExpr=CalcOverDueBalance;

OnDrillDown=VAR
DtldCustLedgEntry@1000 : Record 379;
CustLedgEntry@1001 : Record 21;
BEGIN
...

  3. Přidejte novou funkci do formuláře Statistika zákazníků (151) takto:
    Existující kód

    ...
CODE
{
VAR
Text000@1000 : TextConst 'ENU=Overdue Amounts ($) as of %1';
ValueEntry@1017 : Record 5802;
DateFilterCalc@1001 : Codeunit 358;
CustDateFilter@1002 : ARRAY [4] OF Text[30];
CustDateName@1003 : ARRAY [4] OF Text[30];
TotalAmountLCY@1004 : Decimal;
CurrentDate@1005 : Date;
CustSalesLCY@1006 : ARRAY [4] OF Decimal;
AdjmtCostLCY@1022 : ARRAY [4] OF Decimal;
CustProfit@1007 : ARRAY [4] OF Decimal;
ProfitPct@1008 : ARRAY [4] OF Decimal;
AdjCustProfit@1024 : ARRAY [4] OF Decimal;
AdjProfitPct@1023 : ARRAY [4] OF Decimal;
CustInvDiscAmountLCY@1009 : ARRAY [4] OF Decimal;
CustPaymentDiscLCY@1010 : ARRAY [4] OF Decimal;
CustPaymentDiscTolLCY@1019 : ARRAY [4] OF Decimal;
CustPaymentTolLCY@1018 : ARRAY [4] OF Decimal;
CustReminderChargeAmtLCY@1011 : ARRAY [4] OF Decimal;
CustFinChargeAmtLCY@1012 : ARRAY [4] OF Decimal;
CustCrMemoAmountsLCY@1013 : ARRAY [4] OF Decimal;
CustPaymentsLCY@1014 : ARRAY [4] OF Decimal;
CustRefundsLCY@1020 : ARRAY [4] OF Decimal;
CustOtherAmountsLCY@1021 : ARRAY [4] OF Decimal;
i@1015 : Integer;
InvAmountsLCY@1016 : ARRAY [4] OF Decimal;
Text001@1025 : TextConst 'ENU=Placeholder';

BEGIN
END.
}
}

    Náhradní kód

    ...
CODE
{
VAR
Text000@1000 : TextConst 'ENU=Overdue Amounts ($) as of %1';
ValueEntry@1017 : Record 5802;
DateFilterCalc@1001 : Codeunit 358;
CustDateFilter@1002 : ARRAY [4] OF Text[30];
CustDateName@1003 : ARRAY [4] OF Text[30];
TotalAmountLCY@1004 : Decimal;
CurrentDate@1005 : Date;
CustSalesLCY@1006 : ARRAY [4] OF Decimal;
AdjmtCostLCY@1022 : ARRAY [4] OF Decimal;
CustProfit@1007 : ARRAY [4] OF Decimal;
ProfitPct@1008 : ARRAY [4] OF Decimal;
AdjCustProfit@1024 : ARRAY [4] OF Decimal;
AdjProfitPct@1023 : ARRAY [4] OF Decimal;
CustInvDiscAmountLCY@1009 : ARRAY [4] OF Decimal;
CustPaymentDiscLCY@1010 : ARRAY [4] OF Decimal;
CustPaymentDiscTolLCY@1019 : ARRAY [4] OF Decimal;
CustPaymentTolLCY@1018 : ARRAY [4] OF Decimal;
CustReminderChargeAmtLCY@1011 : ARRAY [4] OF Decimal;
CustFinChargeAmtLCY@1012 : ARRAY [4] OF Decimal;
CustCrMemoAmountsLCY@1013 : ARRAY [4] OF Decimal;
CustPaymentsLCY@1014 : ARRAY [4] OF Decimal;
CustRefundsLCY@1020 : ARRAY [4] OF Decimal;
CustOtherAmountsLCY@1021 : ARRAY [4] OF Decimal;
i@1015 : Integer;
InvAmountsLCY@1016 : ARRAY [4] OF Decimal;
Text001@1025 : TextConst 'ENU=Placeholder';

// Add the following lines.
PROCEDURE CalcOverDueBalance@1000000001() : Decimal;
VAR
CustLedgEntry@1000000000 : Record 21;
BEGIN
EXIT(CustLedgEntry.CalcOverDueBalance("No."));
END;
// End of the lines.

BEGIN
END.
}
}

  4. Změňte kód ve funkci ShowWarning ve formuláři Check Credit Limit (343) následujícím způsobem:
    Existující kód

    ...
IF CheckOverDueBalance AND
(SalesSetup."Credit Warnings" IN
[SalesSetup."Credit Warnings"::"Both Warnings",
SalesSetup."Credit Warnings"::"Overdue Balance"])
THEN BEGIN

// Delete the following lines.
CalcOverdueBalanceLCY;
IF "Balance Due (LCY)" > 0 THEN BEGIN
// End of the lines.

ExitValue := ExitValue + 2;
END;
END;
...

    Náhradní kód

    ...
IF CheckOverDueBalance AND
(SalesSetup."Credit Warnings" IN
[SalesSetup."Credit Warnings"::"Both Warnings",
SalesSetup."Credit Warnings"::"Overdue Balance"])
THEN BEGIN

// Add the following line.
IF CalcOverDueBalance > 0 THEN BEGIN

ExitValue := ExitValue + 2;
END;
END;
...

  5. Přidejte novou funkci do formuláře Limit kreditu kontroly (343) takto:
    Existující kód

    ...
PROCEDURE CalcReturnAmounts@9(VAR OutstandingRetOrdersLCY2@1001 : Decimal;VAR RcdNotInvdRetOrdersLCY2@1002 : Decimal) : Decimal;
BEGIN
SalesLine.RESET;
SalesLine.SETCURRENTKEY("Document Type","Bill-to Customer No.","Currency Code");
SalesLine.SETRANGE("Document Type",SalesLine."Document Type"::"Return Order");
SalesLine.SETRANGE("Bill-to Customer No.","No.");
SalesLine.CALCSUMS("Outstanding Amount (LCY)","Return Rcd. Not Invd. (LCY)");
OutstandingRetOrdersLCY2 := SalesLine."Outstanding Amount (LCY)";
RcdNotInvdRetOrdersLCY2 := SalesLine."Return Rcd. Not Invd. (LCY)";
END;

BEGIN
END.
}
}

    Náhradní kód

    ...
PROCEDURE CalcReturnAmounts@9(VAR OutstandingRetOrdersLCY2@1001 : Decimal;VAR RcdNotInvdRetOrdersLCY2@1002 : Decimal) : Decimal;
BEGIN
SalesLine.RESET;
SalesLine.SETCURRENTKEY("Document Type","Bill-to Customer No.","Currency Code");
SalesLine.SETRANGE("Document Type",SalesLine."Document Type"::"Return Order");
SalesLine.SETRANGE("Bill-to Customer No.","No.");
SalesLine.CALCSUMS("Outstanding Amount (LCY)","Return Rcd. Not Invd. (LCY)");
OutstandingRetOrdersLCY2 := SalesLine."Outstanding Amount (LCY)";
RcdNotInvdRetOrdersLCY2 := SalesLine."Return Rcd. Not Invd. (LCY)";
END;

// Add the following lines.
PROCEDURE CalcOverDueBalance@1000000000() : Decimal;
VAR
CustLedgEntry@1000000000 : Record 21;
BEGIN
EXIT(CustLedgEntry.CalcOverDueBalance("No."));
END;
// End of the lines.

BEGIN
END.
}
}

Požadavky

Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovaný jeden z následujících produktů:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 5.0

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í .