Un compte G/L incorrect est utilisé lorsque vous postez un paiement pour appliquer une facture où la « TVA totale » a été utilisée si le paramètre « Ajuster pour la remise sur paiement » est activé dans le formulaire « Configuration du registre général » dans Microsoft Dynamics NAV 2009

S’applique à
Dynamics NAV 2009 Dynamics NAV 2009 Service Pack 1

Les articles publiés rapidement fournissent des informations directement dans le organization de support Microsoft. Les informations contenues dans les présentes sont créées en réponse à des sujets émergents ou uniques, ou sont destinées à compléter d’autres informations de la Base de connaissances.

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

Symptômes

Supposons que la zone Ajuster pour la case activée remise sur paiement est cochée sous l’onglet Général du formulaire Configuration du registre général dans Microsoft Dynamics NAV 2009. Si vous publiez un paiement pour appliquer une facture où la « TVA totale » a été utilisée et que vous déduitz la remise de paiement où vous devez ajuster la TVA pour la remise de paiement, un compte G/L incorrect est utilisé. L’entrée pour l’ajustement de la « TVA totale » est enregistrée pour le compte de débit de remise de paiement au lieu du compte de crédit de remise de paiement en entrées G/L.

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 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 installer ce correctif logiciel, modifiez le code dans Gen. Jnl.-Post Line codeunit (12).

Pour ce faire, procédez comme suit :

  1. Modifiez le code dans la fonction PostDtldCustLedgEntries comme suit :
    Code 1 existant

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Code de remplacement 1

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                             (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                          THEN BEGIN
                            GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Code existant 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code existant 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code existant 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code existant 5

    …
                          END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 5

    …
                          END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    
  2. Modifiez le code dans la fonction AutoEntrForDtldCustLedgEntries comme suit :
    Code 1 existant

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                    GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    

    Code de remplacement 1

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                     (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                  THEN BEGIN
                    GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    
    

    Code existant 2

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Code de remplacement 2

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Code existant 3

     …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Code de remplacement 3

    …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    

    Code existant 4

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    

    Code de remplacement 4

    …
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Tol. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    

    Code existant 5

    …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    

    Code de remplacement 5

    …
                        AccNo := GenPostingSetup."Sales Pmt. Tol. Credit Acc.";
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                         (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                      THEN BEGIN
                        GenPostingSetup.TESTFIELD("Sales Pmt. Disc. Debit Acc.");
                        AccNo := GenPostingSetup."Sales Pmt. Disc. Debit Acc.";
                      END ELSE BEGIN
    …
    
    
    
    
    
  3. Modifiez le code dans la fonction PostDtldVendLedgEntries comme suit :
    Code 1 existant

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                            GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Code de remplacement 1

    …
                          GenPostingSetup.GET(
                            DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                            DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                          IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                             (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                          THEN BEGIN
                            GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                            PaymentDiscAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                          END ELSE BEGIN
    …
    
    

    Code existant 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 2

    …
                          IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code existant 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 3

    …
                          END ELSE IF GLSetup."Payment Tolerance Posting" =
                            GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code existant 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 4

    …
                          IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code existant 5

    …
                          END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    

    Code de remplacement 5

    …
                          END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" =
                            GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts"
                          THEN BEGIN
                            IF (DtldCVLedgEntryBuf."Amount (LCY)" <= 0) AND
                               (DtldCVLedgEntryBuf."VAT Amount (LCY)" <= 0)
                            THEN BEGIN
                              GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                              PaymentTolAcc := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                            END ELSE BEGIN
    …
    
    
  4. Modifiez le code dans la fonction AutoEntrForDtldVendLedgEntries comme suit :
    Code 1 existant

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                    GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    

    Code de remplacement 1

    …
                  GenPostingSetup.GET(
                    DtldCVLedgEntryBuf."Gen. Bus. Posting Group",
                    DtldCVLedgEntryBuf."Gen. Prod. Posting Group");
                  IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                     (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                  THEN BEGIN
                    GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                    AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                  END ELSE BEGIN
    …
    
    

    Code existant 2

    …
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Code de remplacement 2

    …
                  CASE GLSetup."Payment Tolerance Posting" OF
                    GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Code existant 3

    …
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Code de remplacement 3

    …
                      END;
                    GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

    Code existant 4

    …
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

    Code de remplacement 4

    …
                  CASE GLSetup."Pmt. Disc. Tolerance Posting" OF
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Tol. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Tol. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

    Code existant 5

    …
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF DtldCVLedgEntryBuf."Amount (LCY)" > 0 THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    
    

    Code de remplacement 5

    …
                      END;
                    GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts":
                      BEGIN
                        IF (DtldCVLedgEntryBuf."Amount (LCY)" > 0) OR
                           (DtldCVLedgEntryBuf."VAT Amount (LCY)" > 0)
                        THEN BEGIN
                          GenPostingSetup.TESTFIELD("Purch. Pmt. Disc. Debit Acc.");
                          AccNo := GenPostingSetup."Purch. Pmt. Disc. Debit Acc.";
                        END ELSE BEGIN
    …
    
    

Configuration requise

Microsoft Dynamics NAV 2009 Service Pack 1 doit être installé pour appliquer ce correctif.

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

MICROSOFT ET/OU SES FOURNISSEURS NE FONT AUCUNE DÉCLARATION OU GARANTIE QUANT À LA PERTINENCE, À LA FIABILITÉ OU À L’EXACTITUDE DES INFORMATIONS CONTENUES DANS LES DOCUMENTS ET LES GRAPHIQUES ASSOCIÉS PUBLIÉS SUR CE SITE WEB (LES « SUPPORTS ») À QUELQUE FIN QUE CE SOIT.

LES DOCUMENTS PEUVENT INCLURE DES IMPRÉCISIONS TECHNIQUES OU DES ERREURS TYPOGRAPHIQUES ET PEUVENT ÊTRE MODIFIÉS À TOUT MOMENT SANS PRÉAVIS. DANS LA MESURE MAXIMALE AUTORISÉE PAR LA LOI EN VIGUEUR, MICROSOFT ET/OU SES FOURNISSEURS REJETTENT ET EXCLUENT TOUTES LES REPRÉSENTATIONS, GARANTIES ET CONDITIONS EXPRESSES, IMPLICITES OU LÉGALES, Y COMPRIS, MAIS SANS S’Y LIMITER, LES REPRÉSENTATIONS, GARANTIES OU CONDITIONS DE TITRE, L’ABSENCE DE CONTREFAÇON, LA CONDITION SATISFAISANTE OU LA QUALITÉ, LA QUALITÉ MARCHANDE ET L’ADÉQUATION À UN USAGE PARTICULIER, EN CE QUI CONCERNE LE MATÉRIEL.