Este artículo se aplica a Microsoft Dynamics NAV para la configuración regional del idioma italiano (it).
Síntomas
Suponga que tiene un activo fijo en la versión italiana de Microsoft Dynamics NAV. El importe del impuesto sobre el valor añadido (IVA) para la compra del bien fijo se deducirá en parte. En esta situación, si vende el activo fijo, la transacción de la factura de ventas correspondiente crea dos transacciones de ganancia o pérdida en lugar de una transacción.
Este problema se produce en los siguientes productos:
- La versión italiana de Microsoft Dynamics NAV 2009 R2
- La versión italiana de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- La versión italiana de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
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 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 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 del elemento de datos número 3 en la Hoja de libro de cuentas - Informe de impresión (12109) como sigue:
Código existente... CurrReport.CREATETOTALS(Amount,IcreasesAmnt,DecreasesAmnt,"Additional-Currency Amount"); END; // Delete the following lines. OnAfterGetRecord=BEGIN CALCFIELDS(Amount,"Debit Amount","Credit Amount","Additional-Currency Amount"); IF NOT UseAmtsInAddCurr THEN BEGIN Amnt := Amnt + Amount; IF Amount > 0 THEN IcreasesAmnt := Amount ELSE DecreasesAmnt := ABS(Amount); END ELSE BEGIN Amnt := Amnt + "Additional-Currency Amount"; IF "Additional-Currency Amount" > 0 THEN IcreasesAmnt := "Additional-Currency Amount" ELSE DecreasesAmnt := ABS("Additional-Currency Amount"); END; // End of the lines. END; DataItemLinkReference=G/L Account; ...Código de reemplazo
... CurrReport.CREATETOTALS(Amount,IcreasesAmnt,DecreasesAmnt,"Additional-Currency Amount"); END; // Add the following lines. OnAfterGetRecord=VAR GroupAmount@1130001 : Decimal; BEGIN CALCFIELDS(Amount,"Debit Amount","Credit Amount","Additional-Currency Amount"); IF TempGLBookEntry.GET("Entry No.") THEN CurrReport.SKIP ELSE BEGIN GroupAmount := GroupBookEntry("GL Book Entry",UseAmtsInAddCurr); Amnt += GroupAmount; IF GroupAmount > 0 THEN BEGIN IcreasesAmnt := ABS(GroupAmount); DecreasesAmnt := 0; END ELSE BEGIN IcreasesAmnt := 0; DecreasesAmnt := ABS(GroupAmount); END; END; // End of the lines. END; DataItemLinkReference=G/L Account; ...Cambie el código en las secciones Número de elemento de datos 3 de la Hoja de libro de cuentas - Informe de impresión (12109) de la siguiente manera:
Código existente... { 1130104;TextBox ;18000;423 ;1800 ;423 ;SourceExpr=Amnt; AutoFormatType=1; DataSetFieldName=Amnt_Control1130104 } // Delete the following line. { 1130105;TextBox ;18000;846 ;1800 ;423 ;SourceExpr=StartOnHand + Amount; AutoFormatType=1; DataSetFieldName=StartOnHand___Amount_Control1130105 } ...Código de reemplazo
... { 1130104;TextBox ;18000;423 ;1800 ;423 ;SourceExpr=Amnt; AutoFormatType=1; DataSetFieldName=Amnt_Control1130104 } // Add the following line. { 1130105;TextBox ;18000;846 ;1800 ;423 ;SourceExpr=StartOnHand + IcreasesAmnt - DecreasesAmnt; AutoFormatType=1; DataSetFieldName=StartOnHand___Amount_Control1130105 } { 1130111;TextBox ;0 ;846 ;150 ;423 ;Name=TotalAmount; ...Agregue una nueva variable global en la Hoja de libro de cuentas - Informe de impresión (12109) y, a continuación, especifique la variable de la siguiente manera:
- Nombre: TempGLBookEntry
- Tipo de datos: registro TEMPORAL
- Subtipo: Entrada del libro GL (12144)
Agregue una función local en la Hoja de libro de cuentas - Imprimir informe (12109) de la siguiente manera:
LOCAL PROCEDURE GroupBookEntry@1130001(GLBookEntry@1130001 : Record 12144;UseAmtsInAddCurr@1130002 : Boolean) GroupAmount@1130003 : Decimal; VAR GLBookEntry1@1130004 : Record 12144; BEGIN GLBookEntry1.SETRANGE("G/L Account No.",GLBookEntry."G/L Account No."); GLBookEntry1.SETRANGE("Transaction No.",GLBookEntry."Transaction No."); IF GLBookEntry1.FINDSET THEN REPEAT TempGLBookEntry."Entry No." := GLBookEntry1."Entry No."; TempGLBookEntry.INSERT; GLBookEntry1.CALCFIELDS(Amount,"Additional-Currency Amount"); IF UseAmtsInAddCurr THEN GroupAmount := GroupAmount + GLBookEntry1."Additional-Currency Amount" ELSE GroupAmount := GroupAmount + GLBookEntry1.Amount; UNTIL GLBookEntry1.NEXT = 0; EXIT(GroupAmount); END;Cambie el código en el Número de elemento de datos 2 del libro G/L - Informe de impresión (12121) de la siguiente manera:
Código 1 existente... END; END; // Delete the following lines. OnAfterGetRecord=BEGIN IF ReportType = ReportType::Reprint THEN LastNo := "Progressive No." ELSE LastNo := LastNo + 1; // End of the lines. TotalDebit := TotalDebit + "Debit Amount"; TotalCredit := TotalCredit + "Credit Amount"; ...Código de reemplazo 1
... END; END; // Add the following lines. OnAfterGetRecord=VAR GroupAmount@1130001 : Decimal; BEGIN // End of the lines. TotalDebit := TotalDebit + "Debit Amount"; TotalCredit := TotalCredit + "Credit Amount"; ...Código 2 existente
... END; "Source Type" :: "Fixed Asset": BEGIN FA.GET("Source No."); Descr := FA.Description; END; ...Código de reemplazo 2
... END; "Source Type" :: "Fixed Asset": BEGIN // Add the following lines. IF TempGLBookEntry.GET("Entry No.") THEN CurrReport.SKIP ELSE BEGIN GroupAmount := GroupBookEntry("GL Book Entry"); IF GroupAmount > 0 THEN BEGIN "Debit Amount" := GroupAmount; "Credit Amount" := 0; END ELSE BEGIN "Debit Amount" := 0; "Credit Amount" := GroupAmount; END; END; // End of the lines. FA.GET("Source No."); Descr := FA.Description; END; ...Código 3 existente
... ELSE Descr := ''; END; IF (NOT CurrReport.PREVIEW) AND (ReportType = ReportType::"Final Print") THEN BEGIN ...Código de reemplazo 3
... ELSE Descr := ''; END; // Add the following lines. IF ReportType = ReportType::Reprint THEN LastNo := "Progressive No." ELSE LastNo := LastNo + 1; // End of the lines. IF (NOT CurrReport.PREVIEW) AND (ReportType = ReportType::"Final Print") THEN BEGIN ...Agregue una nueva variable global en el informe Libro G/L - Imprimir (12121) y, a continuación, especifique la variable de la siguiente manera:
- Nombre: TempGLBookEntry
- Tipo de datos: registro TEMPORAL
- Subtipo: Entrada del libro GL (12144)
Cambie el código en la Documentación del libro de contabilidad (12121) como se indica a continuación:
Código existente... EndDate := Date."Period Start" - 1; END; ...Código de reemplazo
... EndDate := Date."Period Start" - 1; END; // Add the following lines. LOCAL PROCEDURE GroupBookEntry@1130002(GLBookEntry@1130001 : Record 12144) GroupAmount@1130002 : Decimal; VAR GLBookEntry1@1130003 : Record 12144; BEGIN GLBookEntry1.SETRANGE("G/L Account No.",GLBookEntry."G/L Account No."); GLBookEntry1.SETRANGE("Transaction No.",GLBookEntry."Transaction No."); IF GLBookEntry1.FINDSET THEN REPEAT TempGLBookEntry."Entry No." := GLBookEntry1."Entry No."; TempGLBookEntry.INSERT; GLBookEntry1.CALCFIELDS(Amount); GroupAmount := GroupAmount + GLBookEntry1.Amount; UNTIL GLBookEntry1.NEXT = 0; EXIT(GroupAmount); END; // End of the lines. ...
Requisitos previos
Debe tener uno de los siguientes productos instalados para aplicar esta revisión:
- La versión italiana de Microsoft Dynamics NAV 2009 R2
- La versión italiana de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- La versión italiana de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
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.