Message d’erreur « Vous ne pouvez pas gérer la TVA différée pour la note de crédit de vente ici » lorsque vous réalisez une TVA différée dans la boîte de dialogue Feuille de calcul de l’application de TVA dans la version polonaise de Microsoft Dynamics NAV 2009 R2

S’applique à

Microsoft Dynamics NAV 2009 R2

Cet article s’applique à Microsoft Dynamics NAV pour les paramètres régionaux de la langue polonaise (pl).

Symptômes

Supposons que vous postiez une note de crédit de vente contenant une taxe sur la valeur ajoutée (TVA) différée dans la version polonaise de Microsoft Dynamics NAV 2009 R2. Lorsque vous essayez de réaliser la TVA dans la boîte de dialogue Feuille de calcul de l’application de TVA , vous recevez le message d’erreur suivant :

Remarque

Vous ne pouvez pas gérer la TVA différée pour le mémo de crédit de vente ici.

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 2009 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 :

Supprimez les paramètres suivants dans la fonction RealizePostponedVAT dans Gen. Jnl.-Post Line codeunit (12) :
- TransactionNo
- VATEntryNo
- VAR TempJnlLineDim2
Ajoutez un nouveau paramètre dans la fonction RealizePostponedVAT dans Gen. Jnl.-Post Line codeunit (12), puis spécifiez le paramètre comme suit :
- Nom : VATEntry
- DataType : Record
- Sous-type : ENTRÉE DE TVA (254)

Modifiez le code dans la fonction RealizePostponedVAT dans Gen. Jnl.-Post Line codeunit (12) comme suit :
Code 1 existant

...
GenJnlLine.COPY(GenJnlLine2);

// Delete the following lines. 
TempJnlLineDim.RESET;
TempJnlLineDim.DELETEALL;
DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim);
// End of the lines.

GLSetup.GET;
SourceCodeSetup.GET;
...

Code de remplacement 1

...
GenJnlLine.COPY(GenJnlLine2);

// Add the following line.
PreparePostponedVATDim(VATEntry,TempJnlLineDim);

GLSetup.GET;
SourceCodeSetup.GET;
...

Code existant 2

...
InitCodeUnit;

// Delete the following lines. 
VATEntryNoToRealize := VATEntryNo;
IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN
CustLedgEntry."Transaction No." := TransactionNo;
// End of the lines.

CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
END ELSE BEGIN
...

Code de remplacement 2

...
InitCodeUnit;

// Add the following lines.
VATEntryNoToRealize := VATEntry."Entry No.";
IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN
CustLedgEntry."Transaction No." := VATEntry."Transaction No.";
//End of the lines. 

CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
END ELSE BEGIN
...

Code existant 3

...
CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
END ELSE BEGIN

// Delete the following line. 
VendLedgEntry."Transaction No." := TransactionNo;

VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount);
END;
VATEntryNoToRealize := 0;
...

Code de remplacement 3

...
CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
END ELSE BEGIN

// Add the following line.
VendLedgEntry."Transaction No." := VATEntry."Transaction No.";

VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount);
END;
VATEntryNoToRealize := 0;
...

Supprimez les paramètres suivants dans la fonction ReversePostponedVAT dans Gen. Jnl.-Post Line codeunit (12) :
- TransactionNo
- VATEntryNo
- VAR TempJnlLineDim2
Ajoutez un nouveau paramètre dans la fonction ReversePostponedVAT dans Gen. Jnl.-Post Line codeunit (12), puis spécifiez le paramètre comme suit :
- Nom : PostponedVATEntry
- DataType : Record
- Sous-type : ENTRÉE DE TVA (254)

Modifiez le code dans la fonction ReversePostponedVAT dans Gen. Jnl.-Post Line codeunit (12) comme suit :
Code 1 existant

...
GenJnlLine.COPY(GenJnlLine2);

// Delete the following lines. 
TempJnlLineDim.RESET;
TempJnlLineDim.DELETEALL;
DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim);
// End of the lines. 

SourceCodeSetup.GET;
GenJnlLine."Source Code" := SourceCodeSetup.Reversal;
...

Code de remplacement 1

...
GenJnlLine.COPY(GenJnlLine2);

// Add the following lines. 
PreparePostponedVATDim(PostponedVATEntry,TempJnlLineDim);
//End of the lines. 

SourceCodeSetup.GET;
GenJnlLine."Source Code" := SourceCodeSetup.Reversal;
...

Code existant 2

...
VATEntry.LOCKTABLE;
UnrealVATEntry.SETCURRENTKEY("Transaction No.");

// Delete the following lines. 
IF VATEntryNo <> 0 THEN
UnrealVATEntry.SETRANGE("Entry No.",VATEntryNo)
ELSE
UnrealVATEntry.SETRANGE("Transaction No.",TransactionNo);
// End of the lines.

IF UnrealVATEntry.FINDSET(TRUE) THEN
REPEAT
VATEntry.SETCURRENTKEY("Unrealized VAT Entry No.");
...

Code de remplacement 2

...
VATEntry.LOCKTABLE;
UnrealVATEntry.SETCURRENTKEY("Transaction No.");

// Add the following lines. 
IF PostponedVATEntry."Entry No." <> 0 THEN
UnrealVATEntry.SETRANGE("Entry No.",PostponedVATEntry."Entry No.")
ELSE
UnrealVATEntry.SETRANGE("Transaction No.",PostponedVATEntry."Transaction No.");
//End of the lines. 

IF UnrealVATEntry.FINDSET(TRUE) THEN
REPEAT
VATEntry.SETCURRENTKEY("Unrealized VAT Entry No.");
...

Créez une fonction PreparePostponedVATDim dans Gen. Jnl.-Post Line codeunit (12) comme suit :

LOCAL PROCEDURE PreparePostponedVATDim@1170010(VATEntry@1170003 : Record 254;VAR TempJnlLineDim@1170000 : Record 356);
VAR
GLEntryVATEntryLink@1170002 : Record 253;
LedgEntryDim@1170001 : Record 355;
BEGIN
TempJnlLineDim.RESET;
TempJnlLineDim.DELETEALL;
IF VATEntry.GetCVLedgEntryNo(TempJnlLineDim) = 0 THEN BEGIN
GLEntryVATEntryLink.SETRANGE("VAT Entry No.",VATEntry."Entry No.");
IF GLEntryVATEntryLink.FINDFIRST THEN BEGIN
LedgEntryDim.SETRANGE("Table ID",DATABASE::"G/L Entry");
LedgEntryDim.SETRANGE("Entry No.",GLEntryVATEntryLink."G/L Entry No.");
DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim);
END;
END;
END;

Modifiez le code dans la fonction PostponeVATEntry dans l’unité de code VATManagement (12376) comme suit :
Code existant

...
VATEntry.TESTFIELD("Postponed VAT",FALSE);
VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
IF NOT AllowSalesCrMemo AND

// Delete the following lines. 
(VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
(VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")
// End of the lines.

THEN
ERROR(Text010);
UNTIL VATEntry.NEXT = 0
...

Code de remplacement

...
VATEntry.TESTFIELD("Postponed VAT",FALSE);
VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
IF NOT AllowSalesCrMemo AND

// Add the following line. 
IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.")

THEN
ERROR(Text010);
UNTIL VATEntry.NEXT = 0
...

Modifiez le code dans la fonction RealizeVATEntry dans l’unité de code VATManagement (12376) comme suit :
Code existant

...
VATEntry.TESTFIELD("Postponed VAT",TRUE);
VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
IF NOT AllowSalesCrMemo AND

// Delete the following lines. 
(VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
(VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")
// End of the lines.

THEN
ERROR(Text010);
UNTIL VATEntry.NEXT = 0
...

Code de remplacement

...
VATEntry.TESTFIELD("Postponed VAT",TRUE);
VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
IF NOT AllowSalesCrMemo AND

// Add the following line. 
IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.")

THEN
ERROR(Text010);
UNTIL VATEntry.NEXT = 0
...

Supprimez les variables locales suivantes dans la fonction PostUnrealVAT dans l’unité de code VATManagement (12376) :
- TempJnlLineDim
- EntryNo

Modifiez le code dans la fonction PostUnrealVAT dans l’unité de code VATManagement (12376) comme suit :
Code existant

...
ERROR(Text011,
VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date",
VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No.");

// Delete the following lines. 
EntryNo := VATEntry.GetCVLedgEntryNo(TempJnlLineDim);
IF EntryNo <> 0 THEN BEGIN
GenJnlLine."Document Type" := VATEntry."Document Type";
GenJnlLine."Document No." := VATEntry."Document No.";
GenJnlLine."Postponed VAT" := TRUE;
GenJnlLine."VAT Date" := VATDate;
GenJnlLine."Posting Date" := VATDate;
IF VATEntry."Postponed VAT" THEN
GenJnlLine.Description := Text008
ELSE
GenJnlLine.Description := Text009;
GenJnlLine.Description :=
COPYSTR(
STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."),
1,MAXSTRLEN(GenJnlLine.Description));
GenJnlLine."System-Created Entry" := TRUE;
CASE VATEntry.Type OF
VATEntry.Type::Sale:
GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
VATEntry.Type::Purchase:
GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor;
END;
IF Type = Type::Realize THEN
PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim)
ELSE // Reverse
PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim);
END;
// End of the lines. 
...

Code de remplacement

...
ERROR(Text011,
VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date",
VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No.");

// Add the following lines.
GenJnlLine."Document Type" := VATEntry."Document Type";
GenJnlLine."Document No." := VATEntry."Document No.";
GenJnlLine."Postponed VAT" := TRUE;
GenJnlLine."VAT Date" := VATDate;
GenJnlLine."Posting Date" := VATDate;
IF VATEntry."Postponed VAT" THEN
GenJnlLine.Description := Text008
ELSE
GenJnlLine.Description := Text009;
GenJnlLine.Description :=
COPYSTR(
STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."),
1,MAXSTRLEN(GenJnlLine.Description));
GenJnlLine."System-Created Entry" := TRUE;
CASE VATEntry.Type OF
VATEntry.Type::Sale:
GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
VATEntry.Type::Purchase:
GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor;
END;
IF Type = Type::Realize THEN
PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry)
ELSE // Reverse
PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry);
//End of the lines. 
...

Créez une fonction HasPostedCrMemo dans l’unité de code VATManagement (12376) comme suit :

LOCAL PROCEDURE HasPostedCrMemo@1170007(DocumentNo@1170000 : Code[20]) : Boolean;
VAR
SalesCrMemoHeader@1170001 : Record 114;
BEGIN
EXIT(SalesCrMemoHeader.GET(DocumentNo));
END;

Créez une fonction IsPostponedSalesCrMemoVAT dans l’unité de code VATManagement (12376) comme suit :

LOCAL PROCEDURE IsPostponedSalesCrMemoVAT@1170008(VATEntry@1170000 : Record 254) : Boolean;
BEGIN
EXIT(
(VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
(VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo"));
END;

Configuration requise

La version polonaise de Microsoft Dynamics NAV 2009 R2 doit être installée pour appliquer ce correctif logiciel.

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.

Message d’erreur « Vous ne pouvez pas gérer la TVA différée pour la note de crédit de vente ici » lorsque vous réalisez une TVA différée dans la boîte de dialogue Feuille de calcul de l’application de TVA dans la version polonaise de Microsoft Dynamics NAV 2009 R2

Symptômes

Résolution

Informations sur le correctif logiciel

Informations sur l’installation

Modifications du code

Configuration requise

Informations sur la suppression

État

Ces informations vous ont-elles été utiles ?

Nous vous remercions de vos commentaires.