Informe de declaración de IVA no imprime datos correctos en la versión portuguesa 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, siga estos pasos:

1. Cambie el código en la función CalcVendorsRelation en el informe de declaración de IVA (PT) (13398) como sigue:
   Código existente

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Delete the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                  VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

   Código de sustitución

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Add the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  VendEntries."Country/Region Code" := 'RC';
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              END ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

2. Cambie el código en la función InsertCertificateNo en el informe de declaración de IVA (PT) (13398) como sigue:
   Código existente

   ...            IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Delete the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                  IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                    IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...
   
   

   Código de sustitución

   ...          REPEAT
               IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Add the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN BEGIN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
                  END ELSE
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                      IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...