Este artículo se aplica a Microsoft Dynamics NAV para la configuración regional del idioma español.
Si utiliza dos grupos de contabilización de IVA en la versión en español de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1), la declaración 349 mostrará un resultado incorrecto. Este problema se produce tanto si utiliza el servicio de la UE en la configuración de la contabilización del IVA como si no.
Síntomas
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 5.0 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.
Resolució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 explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.
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, siga estos pasos:
Cambie el código de las secciones número 5 de los elementos de datos en el informe de declaración 349 (88)) de la siguiente manera:
Código 1 existente... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Delete the following line. OnPostSection=BEGIN CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Código de reemplazo 1
... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Add the following lines. OnPostSection=VAR SalesInvLine@1100300 : Record 113; SalesInvHeader@1100301 : Record 112; BEGIN // End of the lines. CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Código 2 existente
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Código de reemplazo 2
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Código 3 existente
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Código de reemplazo 3
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; // Add the following lines. NoTaxableNormalAmount := 0; NoTaxableAmountOpTri := 0; NoTaxableAmountEUService := 0; // End of the lines. Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Código 4 existente
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; //END; UNTIL Customer2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Código de reemplazo 4
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; //END; // Add the following lines. SalesInvLine.RESET; SalesInvLine.SETRANGE("Bill-to Customer No.",Customer2."No."); SalesInvLine.SETRANGE("Posting Date",FromDate,ToDate); SalesInvLine.SETRANGE("VAT Calculation Type",SalesInvLine."VAT Calculation Type"::"No Taxable VAT"); SalesInvLine.SETFILTER("Gen. Prod. Posting Group", FilterString); IF SalesInvLine.FINDSET THEN REPEAT IF VATPostingSetup.GET(SalesInvLine."VAT Bus. Posting Group",SalesInvLine."VAT Prod. Posting Group") THEN IF VATPostingSetup."EU Service" THEN NoTaxableAmountEUService := NoTaxableAmountEUService + SalesInvLine."Line Amount" ELSE IF SalesInvHeader.GET(SalesInvLine."Document No.") THEN IF SalesInvHeader."EU 3-Party Trade" THEN NoTaxableAmountOpTri := NoTaxableAmountOpTri + SalesInvLine."Line Amount" ELSE NoTaxableNormalAmount := NoTaxableNormalAmount + SalesInvLine."Line Amount" UNTIL SalesInvLine.NEXT = 0; // End of the lines. UNTIL Customer2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Código 5 existente
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Código de reemplazo 5
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; // Add the following line. NormalAmount := NormalAmount + NoTaxableNormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Código 6 existente
... END; IF AmountOpTri < 0 THEN AmountOpTri := -AmountOpTri; IF CorrIncludedForOpTriAmount OR (AmountOpTri <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountOpTri),3,13); Txt := ...Código de reemplazo 6
... END; IF AmountOpTri < 0 THEN AmountOpTri := -AmountOpTri; // Add the following line. AmountOpTri := AmountOpTri + NoTaxableAmountOpTri; IF CorrIncludedForOpTriAmount OR (AmountOpTri <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountOpTri),3,13); Txt := ...Código 7 existente
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Código de reemplazo 7
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; // Add the following line. AmountEUService := AmountEUService + NoTaxableAmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Cambie el código de las secciones número 6 de los elementos de datos en el informe de declaración 349 (88) como se indica a continuación:
Código 1 existente... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Delete the following line. OnPostSection=BEGIN CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Código de reemplazo 1
... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Add the following lines. OnPostSection=VAR PurchInvLine@1100302 : Record 123; BEGIN // End of the lines. CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Código 2 existente
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Vendor2.RESET; Vendor2.SETRANGE(Vendor2."VAT Registration No.","VAT Registration No."); ...Código de reemplazo 2
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; // Add the following lines. NoTaxableNormalAmount := 0; NoTaxableAmountEUService := 0; // End of the lines. Vendor2.RESET; Vendor2.SETRANGE(Vendor2."VAT Registration No.","VAT Registration No."); ...Código 3 existente
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; END; UNTIL Vendor2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Código de reemplazo 3
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; END; // Add the following lines. PurchInvLine.RESET; PurchInvLine.SETRANGE("Pay-to Vendor No.",Vendor2."No."); PurchInvLine.SETRANGE("Posting Date",FromDate,ToDate); PurchInvLine.SETRANGE("VAT Calculation Type",PurchInvLine."VAT Calculation Type"::"No Taxable VAT"); PurchInvLine.SETFILTER("Gen. Prod. Posting Group", FilterString); IF PurchInvLine.FINDSET THEN REPEAT IF VATPostingSetup.GET(PurchInvLine."VAT Bus. Posting Group",PurchInvLine."VAT Prod. Posting Group") THEN IF VATPostingSetup."EU Service" THEN NoTaxableAmountEUService := NoTaxableAmountEUService + PurchInvLine."Line Amount" ELSE NoTaxableNormalAmount := NoTaxableNormalAmount + PurchInvLine."Line Amount" UNTIL PurchInvLine.NEXT = 0; // End of the lines. UNTIL Vendor2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Código 4 existente
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Código de reemplazo 4
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; // Add the following line. NormalAmount := NormalAmount + NoTaxableNormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Código 5 existente
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Código de reemplazo 5
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; // Add the following line. AmountEUService := AmountEUService + NoTaxableAmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Cambie el código de las variables globales en el informe Hacer 349 declaración (88) como se indica a continuación:
Código existente... CorrIncludedForNormalAmount@1100063 : Boolean; CorrIncludedForOpTriAmount@1100070 : Boolean; CorrIncludedForEUServiceAmount@1100071 : Boolean; PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15]; VAR ...Código de reemplazo
... CorrIncludedForNormalAmount@1100063 : Boolean; CorrIncludedForOpTriAmount@1100070 : Boolean; CorrIncludedForEUServiceAmount@1100071 : Boolean; // Add the following lines. NoTaxableNormalAmount@1100304 : Decimal; NoTaxableAmountOpTri@1100305 : Decimal; NoTaxableAmountEUService@1100306 : Decimal; VATPostingSetup@1100307 : Record 325; // End of the lines. PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15]; VAR ...
Requisitos previos
Debe tener instalada la versión en español de Microsoft Dynamics NAV 5.0 Service Pack 1 para aplicar esta revisión.
Información sobre la eliminación
No puede quitar esta revisión.
Microsoft ha confirmado que se trata de un problema de los productos de Microsoft que se enumeran en la sección "Aplicable a".
Estado
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.