Symptômes

Après avoir installé la dernière version du rapport de la liste des factures client, si vous appliquez une facture pour la transaction de paiement et le publier dans la version italienne de Microsoft Dynamics NAV 2009, le rapport n’affiche pas le paiement. Il affiche uniquement la facture comme fermer. Suivez les étapes décrites dans la section modifications du code pour résoudre ce problème. Ce problème se produit dans les produits suivants :

  • La version italienne de Microsoft Dynamics NAV 2009 R2

  • La version italienne de Microsoft Dynamics NAV 2009 SP1

Résolution

Informations sur le correctif

Un correctif pris en charge est désormais disponible auprès de Microsoft. Toutefois, il est conçu uniquement pour corriger le problème décrit dans cet article. Il s’applique uniquement aux systèmes rencontrant ce problème spécifique. Ce correctif peut subir des tests supplémentaires. Par conséquent, si vous n’êtes pas sérieusement concerné par ce problème, nous vous recommandons d’attendre le prochain service pack Microsoft Dynamics NAV 2009 ou la prochaine version de Microsoft Dynamics NAV qui comprendra ce correctif.

Remarque Dans certains cas, les frais généralement encourus pour la prise en charge des appels peuvent être annulés si un technicien du Support technique pour Microsoft Dynamics et les produits associés détermine qu’une mise à jour spécifique peut résoudre votre problème. Les coûts habituels du support technique s’appliqueront aux autres questions et problèmes qui ne relèvent pas de la mise à jour spécifique en question.

Informations sur l’installation

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Ceci inclut, mais n'est pas limité à, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les ingénieurs du support technique Microsoft peuvent aider à expliquer la fonctionnalité d'une procédure particulière. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.

Remarque Avant d’installer ce correctif, vérifiez que tous les utilisateurs du client Microsoft Dynamics NAV sont déconnectés sur le système. Ceci comprend les services de Microsoft Dynamics NAV Application Server (NAS). Vous devez être le seul utilisateur client connecté lors de l’implémentation de ce correctif.

Pour appliquer ce correctif, vous devez posséder une licence développeur.

Il est recommandé que le compte d’utilisateur dans la fenêtre Logins Windows ou dans la fenêtre Logins base de données est affecté à l’ID de rôle « SUPER ». Si le compte d’utilisateur ne peut pas être affecté à l’ID de rôle « SUPER », vous devez vérifier que le compte d’utilisateur dispose des autorisations suivantes :

  • L’autorisation de modification pour l’objet que vous allez modifier.

  • L’autorisation d’exécution pour l’objet ID objet système 5210 et pour l' ID objet système 9015

    objet.

Remarque Vous n’êtes pas obligé de disposer des droits pour les banques de données excepté si vous devez réparer des données.

Modifications du code

Remarque Toujours tester le code des correctifs 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. Modifiez le code dans l’état liste des factures client (12117) comme suit :
    Code existant 1

    ...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
    WHERE(Entry Type=CONST(Application));
    OnPreDataItem=BEGIN

    // Delete the following line.
    CustLedgEntry1.COPYFILTER("Posting Date", "Detailed Cust. Ledg. Entry"."Posting Date"); // IT0004
    // End of the deleted line.

    END;

    OnAfterGetRecord=BEGIN
    ...

    Code de substitution 1

    ...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
    WHERE(Entry Type=CONST(Application));
    OnPreDataItem=BEGIN

    // Add the following line.
    FindAppliedDtldCustLedgEntry(CustLedgEntry1."Entry No.");
    // End of the added line.

    END;

    OnAfterGetRecord=BEGIN
    ...

    Code existant 2

    ...     {   END;

    OnAfterGetRecord=BEGIN

    // Delete the following lines.
    IF ("Entry No." = 0) OR ("Unapplied by Entry No." <> 0) OR
    ("Document Type" IN
    ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::Dishonored,"Document Type"::" "])
    THEN
    ShowDetailedCustLedgerEntry := TRUE
    ELSE
    ShowDetailedCustLedgerEntry := FALSE;
    // IT0015.begin
    //VSTF275923 begin
    // VSTF305887.begin
    //IF PrintCustLedgEntry2 THEN
    IF PrintCustLedgEntry2 AND ("Document Type" <> "Document Type"::Payment) THEN
    CurrReport.SKIP;
    // VSTF305887.end
    //CurrReport.SKIP;
    //VSTF275923 end
    // IT0015.end
    CustLedgEntry3.GET("Applied Cust. Ledger Entry No.");
    CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
    // IT0004.begin
    ClosedByAmountLCY := "Amount (LCY)";
    TotalForCustomer += "Amount (LCY)";
    // IT0004.end
    TotalClosedByAmntLCY += "Amount (LCY)"; // IT0005
    // End of the deleted lines.

    END;

    DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
    ...

    Code de substitution 2

    ...END;

    OnAfterGetRecord=BEGIN

    // Add the following lines.
    IF NOT TempDetailedCustLedgEntryApp.GET("Entry No.") THEN
    CurrReport.SKIP;
    CustLedgEntry3.GET("Cust. Ledger Entry No.");
    CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
    AppliedDocumentTypeText := FORMAT(CustLedgEntry3."Document Type");
    ClosedByAmountLCY := "Amount (LCY)";
    TotalForCustomer -= "Amount (LCY)";
    TotalClosedByAmntLCY -= "Amount (LCY)";
    // End of the added lines.

    END;

    DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
    ...

    Code existant 3

    ... SectionWidth=24450;
    SectionHeight=846;
    OnPreSection=BEGIN

    // Delete the following line.
    CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)
    // End of the deleted line.

    END;

    }
    ...

    Code de substitution 3

    ...SectionWidth=24450;
    SectionHeight=846;
    OnPreSection=BEGIN

    // Add the following lines.
    IF ("Unapplied by Entry No." <> 0) THEN
    CurrReport.SHOWOUTPUT(FALSE);
    // End of the added lines.

    END;

    }
    ...

    4 le code existant

    ...ForeColor=65535;
    SourceExpr="Document Type" = "Document Type"::Dishonored;
    DataSetFieldName=Document_Type_____Document_Type___Dishonored }

    // Delete the following lines.
    { 1130123;TextBox ;24000;0 ;150 ;423 ;Visible=No;
    SourceExpr=ShowDetailedCustLedgerEntry;
    DataSetFieldName=ShowDetailedCustLedgerEntry }
    // End of the deleted lines.

    }
    }
    { PROPERTIES
    ...

    Code de remplacement 4

    ... ForeColor=65535;
    SourceExpr="Document Type" = "Document Type"::Dishonored;
    DataSetFieldName=Document_Type_____Document_Type___Dishonored }
    }
    }
    { PROPERTIES
    ...
  2. Modifiez le code dans les Variables globales dans le rapport de liste des factures client (12117) comme suit :
    Code existant 1

    ...Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
    Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
    SalesSetup@1130002 : Record 311;
    EndingDate@1130003 : Date;
    ExposureDate@1130004 : Date;
    OnlyOpened@1130005 : Boolean;
    ...

    Code de substitution 1

    ...  Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
    Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
    SalesSetup@1130002 : Record 311;

    // Add the following lines.
    CustLedgEntry3@1130130 : Record 21;
    TempDetailedCustLedgEntryApp@1130131 : TEMPORARY Record 379;
    // End of the added lines.

    EndingDate@1130003 : Date;
    ExposureDate@1130004 : Date;
    OnlyOpened@1130005 : Boolean;
    ...

    Code existant 2

    ... TotExpAmntForCust@1130011 : Decimal;
    BalanceDue@1130012 : Decimal;
    NULL@1130013 : DateFormula;

    // Delete the following lines.
    CustLedgEntry3@1130130 : Record 21;
    PrintCustLedgEntry2@1130014 : Boolean;
    ShowDetailedCustLedgerEntry@1130015 : Boolean INDATASET;
    // End of the deleted lines.

    BEGIN
    {
    ...

    Code de substitution 2

    ...  TotExpAmntForCust@1130011 : Decimal;
    BalanceDue@1130012 : Decimal;
    NULL@1130013 : DateFormula;

    // Add the following lines.
    PrintCustLedgEntry2@1130014 : Boolean;
    AppliedDocumentTypeText@1130132 : Text[30];

    LOCAL PROCEDURE FindAppliedDtldCustLedgEntry@1130007(CustLedgerEntryNo@1130000 : Integer);
    VAR
    DetailedCustLedgEntry@1130001 : Record 379;
    DetailedCustLedgEntryApplied@1130003 : Record 379;
    BEGIN
    TempDetailedCustLedgEntryApp.RESET;
    TempDetailedCustLedgEntryApp.DELETEALL;

    DetailedCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgerEntryNo);
    DetailedCustLedgEntry.SETRANGE("Entry Type",DetailedCustLedgEntry."Entry Type"::Application);
    DetailedCustLedgEntry.SETRANGE(Unapplied,FALSE);

    DetailedCustLedgEntryApplied.SETRANGE(
    "Entry Type",DetailedCustLedgEntryApplied."Entry Type"::Application);

    IF DetailedCustLedgEntry.FINDSET THEN
    REPEAT
    DetailedCustLedgEntryApplied.SETRANGE(
    "Applied Cust. Ledger Entry No.",DetailedCustLedgEntry."Applied Cust. Ledger Entry No.");
    DetailedCustLedgEntryApplied.SETFILTER(
    "Cust. Ledger Entry No.",'<>%1',CustLedgerEntryNo);
    DetailedCustLedgEntryApplied.SETRANGE(
    "Customer No.",DetailedCustLedgEntry."Customer No.");
    DetailedCustLedgEntryApplied.SETRANGE(
    "Transaction No.",DetailedCustLedgEntry."Transaction No.");
    IF DetailedCustLedgEntryApplied.FINDSET THEN
    REPEAT
    TempDetailedCustLedgEntryApp := DetailedCustLedgEntryApplied;
    IF TempDetailedCustLedgEntryApp.INSERT THEN;
    UNTIL DetailedCustLedgEntryApplied.NEXT = 0;
    UNTIL DetailedCustLedgEntry.NEXT = 0;
    END;
    // End of the added lines.

    BEGIN
    {
    ...
  3. Modifiez le code dans l’état liste des factures fournisseur compte (12116) comme suit :
    Code existant 1

    ... </TableRow>
    </TableRows>
    </Header>
    <Visibility>
    <Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
    </Visibility>
    </TableGroup>
    </TableGroups>
    <Top>2.22222cm</Top>
    ...

    Code de substitution 1

    ... </TableRow>
    </TableRows>
    </Header>

    // Delete the following lines.
    <Visibility>
    <Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
    </Visibility>
    // End of the deleted lines.

    </TableGroup>
    </TableGroups>
    <Top>2.22222cm</Top>
    ...

    Code existant 2

    ...Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
    <DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
    </Field>
    <Field Name="ShowDetailedCustLedgerEntry">
    <DataField>ShowDetailedCustomerLedgerEntry</DataField>
    </Field>
    </Fields>
    <Query>
    <CommandText />
    ...

    Code de substitution 2

    ...<Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
    <DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
    </Field>

    // Delete the following lines.
    <Field Name="ShowDetailedCustLedgerEntry">
    <DataField>ShowDetailedCustomerLedgerEntry</DataField>
    </Field>
    // End of the deleted lines.

    </Fields>
    <Query>
    <CommandText />
    ...

Conditions préalables

Vous devez disposer d’un des produits suivants est installé pour appliquer ce correctif :

  • La version italienne de Microsoft Dynamics NAV 2009 R2

  • La version italienne de Microsoft Dynamics NAV 2009 SP1

Informations sur la suppression

Vous ne pouvez pas supprimer ce correctif.

État

Microsoft a confirmé l'existence de ce 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 de Microsoft. Les informations contenues dans ce document sont fournies en l'état, en réponse à des problèmes nouveaux. En raison de la rapidité de leur mise à disposition, les documents peuvent contenir des erreurs typographiques et peuvent être révisés à tout moment sans préavis. Consultez les Conditions d’utilisationpour d’autres considérations.

Besoin d’aide ?

Développez vos compétences

Découvrez des formations >

Accédez aux nouvelles fonctionnalités en avant-première

Rejoindre Microsoft Insider >

Ces informations vous ont-elles été utiles ?

Dans quelle mesure êtes-vous satisfait(e) de la qualité de la langue ?
Qu’est-ce qui a affecté votre expérience ?

Nous vous remercions de vos commentaires.

×