Movimientos extraños que se generan cuando se aplica un abono con IVA no realizado a una factura de compra en la versión italiana de Microsoft Dynamics NAV 2009

Información de la revisión

Ahora hay una revisión compatible de Microsoft. Sin embargo, sólo se diseñó para corregir el problema que se describe en este artículo. Aplíquela sólo a sistemas que experimenten este problema específico. Esta revisión puede ser sometida a comprobaciones adicionales. Por lo tanto, si no se ve muy afectado por este problema, recomendamos que espere al próximo service pack de Microsoft Dynamics NAV 2009 o la próxima versión de Microsoft Dynamics NAV que contenga esta revisión.

Nota: En casos especiales, los costos derivados normalmente de las llamadas pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados de soporte determina que una actualización específica resolverá el problema. Los costos habituales de soporte se aplicarán a las preguntas de soporte técnico adicionales y problemas que no guarden relación con la actualización en cuestión.

Cambios de código

Nota: Siempre pruebe correcciones de código en un entorno controlado antes de aplicar las revisiones a los equipos de producción.
Para resolver este problema, cambie el código en el gen.-línea de Post Codeunit (12). Para ello, siga estos pasos:

1. Cambie el código de la InsertVATfunciona como sigue:
   Código existente

   ...IF UnrealizedVAT THEN BEGIN
   VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");
   InitGLEntry(
   VATPostingSetup."Purch. VAT Unreal. Account",
   VATAmount,SrcCurrVATAmount,TRUE,TRUE);
   InsertGLEntry(TRUE);
   END ELSE
   IF "Deductible %" <> 0 THEN BEGIN
   VATPostingSetup.TESTFIELD("Purchase VAT Account");
   InitGLEntry(
   ...
   

   Código de sustitución

   ...IF UnrealizedVAT THEN BEGIN
   VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");
   InitGLEntry(
   VATPostingSetup."Purch. VAT Unreal. Account",
   VATAmount,SrcCurrVATAmount,TRUE,TRUE);
   
   // Add the following lines.
   IF GLEntry."Document Type" = GLEntry."Document Type"::"Credit Memo" THEN
   UnrealizedVATPosted := TRUE;
   // End of the added lines.
   
   InsertGLEntry(TRUE);
   END ELSE
   IF "Deductible %" <> 0 THEN BEGIN
   VATPostingSetup.TESTFIELD("Purchase VAT Account");
   InitGLEntry(
   ...
   

2. Cambie el código en la función VendUnrealizedVAT de la siguiente manera:
   Código existente

   ...VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
   TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   
   IF VATAmount <> 0 THEN BEGIN
   // IT0037.end
   
   // Delete the following lines.
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    GLEntry."Bal. Account No." := PurchVATAccount;
    SummarizeVAT(
    GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   // End of the deleted lines.
   
   InitGLEntry(PurchVATAccount,VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
   GLEntry."Gen. Posting Type" := VATEntry2.Type;
   GLEntry."Gen. Bus. Posting Group" := VATEntry2."Gen. Bus. Posting Group";
   GLEntry."Gen. Prod. Posting Group" := VATEntry2."Gen. Prod. Posting Group";
   ...
   

   Código de sustitución

   ...VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
   TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   
   IF VATAmount <> 0 THEN BEGIN
   // IT0037.end
   
   // Add the following lines.
    IF NOT UnrealizedVATPosted THEN BEGIN
   
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    GLEntry."Bal. Account No." := PurchVATAccount;
    SummarizeVAT(
    GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   
    END;
   // End of the added lines.
   
   InitGLEntry(PurchVATAccount,VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
   GLEntry."Gen. Posting Type" := VATEntry2.Type;
   GLEntry."Gen. Bus. Posting Group" := VATEntry2."Gen. Bus. Posting Group";
   GLEntry."Gen. Prod. Posting Group" := VATEntry2."Gen. Prod. Posting Group";
   ...