Declaración del IVA español 349 exporta los importes en la divisa que se usa en el documento aunque aplique el hotfix 254942 en Microsoft Dynamics NAV

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 2013 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 informe de hacer declaración de 349 (10710). Para ello, siga estos pasos:

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

   ...                            REPEAT
                                 IF SalesInvLines."Location Code" <> '' THEN BEGIN
                                   IF Location.GET(SalesInvLines."Location Code") THEN
                                     EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                   IF EUCountryLinesLocationCode THEN BEGIN
   
   // Delete the following line.
                                     AmountToIncludeIn349 := AmountToIncludeIn349 + SalesInvLines.Amount;
   
                                     IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                       LocationDifferentCountryCode := TRUE;
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
   ...
   
   

   Código nuevo 1

   ...                            REPEAT
                                 IF SalesInvLines."Location Code" <> '' THEN BEGIN
                                   IF Location.GET(SalesInvLines."Location Code") THEN
                                     EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                   IF EUCountryLinesLocationCode THEN BEGIN
   
   // Add the following lines.
                                     AmountToIncludeIn349 +=
                                       GetExportedAmountIn349(SalesInvHeader."Currency Code",
                                       SalesInvHeader."Currency Factor",SalesInvLines."Line Amount");
   // End of the lines.
   
                                     IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                       LocationDifferentCountryCode := TRUE;
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
   ...
   
   

   Código existente 2

   ...                                  TempSalesInvLines.INSERT;
                                   END;
                                 END ELSE
                                   IF CompInforShipToCountryCode THEN BEGIN
                                     EUCountryLinesLocationCode := TRUE;
   
   // Delete the following line.
                                     AmountToIncludeIn349 := AmountToIncludeIn349 + SalesInvLines.Amount;
   
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
                               UNTIL SalesInvLines.NEXT = 0;
                           END;
   ...
   
   

   Código nuevo 2

   ...                                  TempSalesInvLines.INSERT;
                                   END;
                                 END ELSE
                                   IF CompInforShipToCountryCode THEN BEGIN
                                     EUCountryLinesLocationCode := TRUE;
   
   // Add the following lines.
                                     AmountToIncludeIn349 +=
                                       GetExportedAmountIn349(SalesInvHeader."Currency Code",
                                       SalesInvHeader."Currency Factor",SalesInvLines."Line Amount");
   // End of the lines.
   
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
                               UNTIL SalesInvLines.NEXT = 0;
                           END;
   ...
   
   

   Código existente 3

   ...                          REPEAT
                               IF PurchInvLines."Location Code" <> '' THEN BEGIN
                                 IF Location.GET(PurchInvLines."Location Code") THEN
                                   EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                 IF EUCountryLinesLocationCode THEN BEGIN
   
   // Delete the following line.
                                   AmountToIncludeIn349 := AmountToIncludeIn349 + PurchInvLines.Amount;
   
                                   IF GetCountryfromLocation(PurchInvLines."Location Code") <> CountryCode THEN
                                     LocationDifferentCountryCode := TRUE;
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
   ...
   

   Código nuevo 3

   ...                          REPEAT
                               IF PurchInvLines."Location Code" <> '' THEN BEGIN
                                 IF Location.GET(PurchInvLines."Location Code") THEN
                                   EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                 IF EUCountryLinesLocationCode THEN BEGIN
   
   // Add the following lines.
                                   AmountToIncludeIn349 +=
                                     GetExportedAmountIn349(PurchInvHeader."Currency Code",
                                     PurchInvHeader."Currency Factor",PurchInvLines."Line Amount");
   // End of the lines.
   
                                   IF GetCountryfromLocation(PurchInvLines."Location Code") <> CountryCode THEN
                                     LocationDifferentCountryCode := TRUE;
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
   ...
   
   

   Código existente 4

   ...                                TempPurchInvLines.INSERT;
                                 END;
                               END ELSE
                                 IF CompInforShipToCountryCode THEN BEGIN
                                   EUCountryLinesLocationCode := TRUE;
   
   // Delete the following line.
                                   AmountToIncludeIn349 := AmountToIncludeIn349 + PurchInvLines.Amount;
   
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
                             UNTIL PurchInvLines.NEXT = 0;
                         END;
   ...
   
   

   Código nuevo 4

   ...                                TempPurchInvLines.INSERT;
                                 END;
                               END ELSE
                                 IF CompInforShipToCountryCode THEN BEGIN
                                   EUCountryLinesLocationCode := TRUE;
   
   // Add the following lines.
                                   AmountToIncludeIn349 +=
                                     GetExportedAmountIn349(PurchInvHeader."Currency Code",
                                     PurchInvHeader."Currency Factor",PurchInvLines."Line Amount");
   // End of the lines.
   
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
                             UNTIL PurchInvLines.NEXT = 0;
                         END;
   ...
   
   

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

   ...      BEGIN
           IF DeliveryOperationCode = DeliveryOperationCode::" " THEN
             DeliveryOperationCode := DeliveryOperationCode::E;
         END;
   
         BEGIN
         END.
       }
       RDLDATA
       {
   ...
   
   

   Código de sustitución

   ...      BEGIN
           IF DeliveryOperationCode = DeliveryOperationCode::" " THEN
             DeliveryOperationCode := DeliveryOperationCode::E;
         END;
   
   // Add the following lines.  
         LOCAL PROCEDURE GetExportedAmountIn349@1100014(CurrencyCode@1100008 : Code[20];CurrencyFactor@1100009 : Decimal;LineAmount@1100010 : Decimal) : Decimal;
         VAR
           Currency@1100001 : Record 4;
         BEGIN
           IF CurrencyCode <> '' THEN BEGIN
             Currency.GET(CurrencyCode);
             EXIT(ROUND(LineAmount / CurrencyFactor,Currency."Amount Rounding Precision"))
           END;
           EXIT(LineAmount);
         END;
   
   // End of the lines.
   
         BEGIN
         END.
       }
       RDLDATA
       {
   ...