Une facture qui est due aujourd’hui est incluse dans le champ « Montants en retard (LCY) à partir de [date] » de la boîte de dialogue Statistiques client de façon incorrecte dans Microsoft Dynamics NAV

S’applique à
Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1 Microsoft Dynamics NAV 5.0

Cet article s’applique à Microsoft Dynamics NAV pour tous les pays et tous les paramètres régionaux de langue.

Symptômes

Supposons que vous avez un client qui a une facture à échéance aujourd’hui dans Microsoft Dynamics NAV. Si vous définissez la date de travail pour aujourd’hui, la facture est incluse dans le champ Montants en retard (LCY) de la boîte de dialogue Statistiques client de manière incorrecte. En outre, lorsque vous créez une facture de vente pour le client, la facture est incluse dans le montant en retard dans la boîte de dialogue Vérifier la limite de crédit . Toutefois, les factures dues aujourd’hui ne sont pas encore en retard. Ils devraient être en retard demain. 
Ce problème se produit dans les produits suivants :

  • 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

Résolution

Informations sur le correctif logiciel

Un correctif logiciel pris en charge est désormais disponible auprès de Microsoft. Toutefois, il est uniquement destiné à corriger le problème décrit dans cet article. Appliquez-la uniquement aux systèmes qui rencontrent ce problème spécifique. Ce correctif logiciel peut recevoir des tests supplémentaires. Par conséquent, si vous n’êtes pas gravement affecté par ce problème, nous vous recommandons d’attendre le prochain Service Pack Microsoft Dynamics NAV ou la prochaine version de Microsoft Dynamics NAV qui contient ce correctif logiciel.

Remarque Dans des cas particuliers, les frais habituellement engagés pour les appels de support peuvent être annulés si un professionnel du support technique pour Microsoft Dynamics et les produits associés détermine qu’une mise à jour spécifique permettra de résoudre votre problème. Les coûts habituels du support technique s’appliqueront aux autres questions et problèmes non directement liés à la mise à jour en question.

            
          

Informations sur l’installation

Microsoft fournit des exemples de programmation à des fins d’illustration uniquement, sans garantie exprimée ou implicite. Cela inclut, sans s’y limiter, les garanties implicites de qualité commerciale ou d’adéquation à un usage particulier. Cet article part du principe que vous êtes familiarisé avec le langage de programmation présenté et avec les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

Remarque Avant d’installer ce correctif logiciel, vérifiez que tous les utilisateurs du client Microsoft Navision sont déconnectés du système. Cela inclut les utilisateurs du client Nas (Microsoft Navision Application Services). Vous devez être le seul utilisateur client connecté lorsque vous implémentez ce correctif logiciel.

Pour implémenter ce correctif logiciel, vous devez disposer d’une licence de développeur.

Nous vous recommandons d’attribuer au compte d’utilisateur dans la fenêtre Connexions Windows ou dans la fenêtre Connexions de base de données l’ID de rôle « SUPER ». Si l’ID de rôle « SUPER » ne peut pas être attribué au compte d’utilisateur, vous devez vérifier que le compte d’utilisateur dispose des autorisations suivantes :

  • Autorisation Modifier pour l’objet que vous allez modifier.
  • Autorisation Exécuter pour l’objet ID d’objet système 5210 et pour l’objet ID d’objet système 9015.

                
Remarque Vous n’avez pas besoin de disposer de droits sur les magasins de données, sauf si vous devez effectuer une réparation des données.

Modifications du code

Remarque Toujours tester les correctifs de code dans un environnement contrôlé avant d’appliquer les correctifs à vos ordinateurs de production.
Pour résoudre ce problème, procédez comme suit :

  1. Ajoutez deux nouvelles fonctions dans la table Cust. Ledger Entry (21) comme suit :
    Code existant

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

BEGIN
END.
}
}

    Code de remplacement

    ...
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. Modifiez le code dans le formulaire Statistiques client (151) comme suit :
    Code existant

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

    Code de remplacement

    ...
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. Ajoutez une nouvelle fonction dans le formulaire Statistiques client (151) comme suit :
    Code existant

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

    Code de remplacement

    ...
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. Modifiez le code dans la fonction ShowWarning dans le formulaire Vérifier la limite de crédit (343) comme suit :
    Code existant

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

    Code de remplacement

    ...
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. Ajoutez une nouvelle fonction dans le formulaire Vérifier la limite de crédit (343) comme suit :
    Code existant

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

    Code de remplacement

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

Configuration requise

L’un des produits suivants doit être installé pour appliquer ce correctif :

  • 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

Informations sur la suppression

Vous ne pouvez pas supprimer ce correctif logiciel.

État

Microsoft a confirmé qu’il s’agissait d’un problème dans les produits Microsoft répertoriés dans la section « S’applique à ».

Remarque Il s’agit d'un article de « dernière minute » créé directement à partir de l’organisation de support technique Microsoft. Les informations présentées ici sont fournies telles quelles en réponse à des problèmes nouveaux. En raison de la rapidité de leur mise à disposition, les documents peuvent contenir des erreurs typographiques et être modifiés à tout moment sans préavis. Consultez les Conditions d’utilisation pour d’autres considérations.