Este artículo se aplica a Microsoft Dynamics NAV para la configuración regional del idioma español.
Síntomas
Suponga que aplicó 2547942 de revisiones en Microsoft Dynamics NAV. Sin embargo, la Declaración de IVA española de 349 sigue exportando los importes en la moneda que se utiliza en el documento en lugar de en la moneda local. Si un cliente o un proveedor no tiene ningún código de moneda en la tarjeta, pero se registra un documento con una moneda, los importes que se exportan en la declaración 349 son incorrectos, ya que el importe exportado es la cantidad en la moneda que se usa en el documento en lugar de en la moneda local que el usuario debe informar a las autoridades fiscales.
Este problema se produce en los siguientes productos:
- Microsoft Dynamics NAV 2013
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
Resolución
Información de revisiones
Una revisión compatible ya está disponible en Microsoft. Sin embargo, solo está pensado para corregir el problema que se describe en este artículo. Aplicarlo solo a los sistemas que experimentan este problema específico. Esta revisión puede recibir pruebas adicionales. Por lo tanto, si no se ve afectado gravemente por este problema, le recomendamos que espere al siguiente Service Pack de Microsoft Dynamics NAV 2013 o a la siguiente versión de Microsoft Dynamics NAV que contenga esta revisión.
Nota En casos especiales, los cargos que se incurren normalmente por las llamadas de soporte técnico pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados determina que una actualización específica resolverá el problema. Se aplicarán los costos habituales de soporte técnico a las consultas y cuestiones de soporte técnico adicionales que no guarden relación con la actualización en cuestión.
Información de instalación
Microsoft proporciona ejemplos de programación solo para ilustración, sin garantía expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad o idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se usan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden ayudar a explicar la funcionalidad de un procedimiento determinado. Sin embargo, no modificarán estos ejemplos para proporcionar funcionalidad adicional o construir procedimientos para satisfacer sus requisitos específicos.
Nota Antes de instalar esta revisión, verifique que todos los usuarios cliente de Microsoft Navision hayan cerrado sesión en el sistema. Esto incluye a los usuarios cliente de Microsoft Navision Application Services (NAS). Usted debe ser el único usuario del cliente que ha iniciado sesión al implementar esta revisión.
Para implementar esta revisión, debe tener una licencia de desarrollador.
Le recomendamos que la cuenta de usuario en la ventana Inicios de sesión de Windows o en la ventana Inicios de sesión de base de datos tenga asignado el id. de rol "SUPER". Si no se puede asignar a la cuenta de usuario el id. de rol "SUPER", debe comprobar que la cuenta de usuario tiene los permisos siguientes:
- El permiso Modificar para el objeto que va a cambiar.
- El permiso Execute para el objeto System Object ID 5210 y para el objeto System Object ID 9015.
Nota No es necesario tener derechos sobre los almacenes de datos a menos que tenga que realizar una reparación de datos.
Cambios de código
Nota Pruebe siempre las correcciones de código en un entorno controlado antes de aplicar las correcciones a los equipos de producción.
Para resolver este problema, cambie el código en el informe Hacer 349 declaración (10710). Para hacerlo, siga estos pasos.
Cambie el código de la función GetPostedCountryLocCode de la siguiente manera:
Código 1 existente... 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 de reemplazo 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 2 existente
... 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 de reemplazo 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 3 existente
... 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 de reemplazo 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 4 existente
... 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 de reemplazo 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; ...Cambie el código de 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 reemplazo
... 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 { ...
Requisitos previos
Debe tener uno de los siguientes productos instalados para aplicar esta revisión:
- Microsoft Dynamics NAV 2013
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
Información sobre la eliminación
No puede quitar esta revisión.
Estado
Microsoft ha confirmado que se trata de un problema de los productos de Microsoft que se enumeran en la sección "Aplicable a".
Nota Esto es un artículo "PUBLICACIÓN RÁPIDA" creado directamente desde la organización de soporte técnico de Microsoft. La información contenida se proporciona tal cual en respuesta a nuevos problemas. Como resultado de la rapidez en la publicación, es posible que los materiales incluyan errores tipográficos. Además, se pueden revisar en cualquier momento sin previo aviso. Consulte los Términos de uso para otras consideraciones.