Los artículos publicados rápidamente proporcionan información directamente desde la organización de soporte técnico de Microsoft. La información contenida en este documento se crea en respuesta a temas emergentes o únicos, o está pensada para complementar otra información de knowledge base.
Microsoft Business Solutions-Navision 4.0 y Microsoft Navision 4.0 forman ahora parte de Microsoft Dynamics NAV 4.0. Todas las referencias a Microsoft Business Solutions-Navision o a Microsoft Navision 4.0 se refieren a Microsoft Dynamics NAV.
Este artículo se aplica a Microsoft Dynamics NAV para la configuración regional del idioma portugués (pt).
Síntomas
Suponga que estableció el valor del IVA de cargo invertido , el valor del IVA D. % y el valor N.D.% de IVA en la configuración de contabilización del impuesto sobre el valor añadido (IVA) en la versión portuguesa de Microsoft Dynamics NAV. Al registrar una nota de crédito de compra que utiliza dimensiones, recibe el siguiente mensaje de error coherente:
Nota
La transacción no se puede completar porque causará incoherencias en la tabla Entrada de mayor.
Compruebe dónde y cómo se usa la función COHERENTE en la transacción para encontrar el motivo del error.
Ponte en contacto con el administrador del sistema.
Las tablas se pueden marcar como incoherentes durante tareas completas, como la contabilización. Esto impide que los datos se actualicen incorrectamente.
Este problema se produce en los siguientes productos:
- La versión portuguesa de Microsoft Dynamics NAV 2009 Service Pack 1
- La versión portuguesa de Microsoft Dynamics NAV 5.0 Service Pack 1
- La versión portuguesa de Microsoft Dynamics NAV 4.0 Service Pack 3
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 aplicar esta revisión, siga estos pasos:
Cambie el código de las variables globales en la generación. Jnl.-Unidades de código de línea de poste (12) de la siguiente manera:
Código existente... LastTempTransNo@1110089 : Integer; NextEntryNo2@1110152 : Integer; PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45); ...Código de reemplazo
... LastTempTransNo@1110089 : Integer; NextEntryNo2@1110152 : Integer; // Add the following line. TempVATAmount@1110024 : Decimal; // End of the added line. PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45); ...Cambie el código de la función InitVat en la generación. Jnl.-Unidades de código de línea de poste (12) de la siguiente manera:
Código 1 existentePROCEDURE InitVat@33(); BEGIN WITH GenJnlLine DO ...Código de reemplazo 1
PROCEDURE InitVat@33(); // Add the following line. VAR TempVATDAmount@1110025 : Decimal; // End of the added line. BEGIN WITH GenJnlLine DO ...Código 2 existente
... //--PT---- GLEntry."VAT Amount" := ROUND(GLEntry.Amount * VATPostingSetup."VAT D. %" / 100); AddCurrGLEntryVATAmt := ROUND( ...Código de reemplazo 2
... //--PT---- GLEntry."VAT Amount" := ROUND(GLEntry.Amount * VATPostingSetup."VAT D. %" / 100); // Add the following lines. TempVATAmount := ROUND(GLEntry.Amount * VATPostingSetup."VAT %" / 100); TempVATDAmount := GLEntry."VAT Amount"; // End of the added lines. AddCurrGLEntryVATAmt := ROUND( ...Código 3 existente
... AddCurrency."Amount Rounding Precision"); // Delete the following lines. GLEntry.Amount := ROUND( GLEntry.Amount * (1 + VATPostingSetup."VAT N.D. %" / 100)); // End of the deleted lines. GLEntry."Additional-Currency Amount" := ROUND( ...Código de reemplazo 3
... AddCurrency."Amount Rounding Precision"); // Add the following lines. GLEntry.Amount := ROUND(GLEntry.Amount + TempVATAmount - TempVATDAmount); // End of the added lines. GLEntry."Additional-Currency Amount" := ROUND( ...Código 4 existente
... //--PT---- // Delete the following lines. IF VATPostingSetup."VAT %" <> 0 THEN BEGIN GLEntry.Amount := GLEntry.Amount + (GLEntry."VAT Amount" - ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT D. %" / VATPostingSetup."VAT %")) + "ND Difference"; // End of the deleted lines. // Delete the following lines. IF VATPostingSetup."VAT Calculation Type" = VATPostingSetup."VAT Calculation Type"::"Reverse Charge VAT" THEN BEGIN IF "ND Difference" > 0 THEN BEGIN IF VATPostingSetup."VAT D. %" > 0 THEN GLEntry."VAT Amount" := ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT D. %" / VATPostingSetup."VAT %") - "ND Difference" ELSE BEGIN GLEntry."VAT Amount" := ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT N.D. %" / VATPostingSetup."VAT %") - "ND Difference"; "UE Aquisition Not Accep." := TRUE; END; END ELSE BEGIN IF VATPostingSetup."VAT D. %" > 0 THEN GLEntry."VAT Amount" := ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT D. %" / VATPostingSetup."VAT %") ELSE BEGIN GLEntry."VAT Amount" := ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT N.D. %" / VATPostingSetup."VAT %"); "UE Aquisition Not Accep." := TRUE; END; END; // End of the deleted lines. END ELSE BEGIN IF "ND Difference" > 0 THEN ...Código de reemplazo 4
... // Add the following lines. TempVATAmount := GLEntry."VAT Amount"; IF VATPostingSetup."VAT %" <> 0 THEN BEGIN TempVATDAmount := ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT D. %" / VATPostingSetup."VAT %"); GLEntry.Amount := GLEntry.Amount + GLEntry."VAT Amount" - TempVATDAmount + "ND Difference"; IF VATPostingSetup."VAT Calculation Type" = VATPostingSetup."VAT Calculation Type"::"Reverse Charge VAT" THEN BEGIN IF VATPostingSetup."VAT D. %" > 0 THEN GLEntry."VAT Amount" := TempVATDAmount ELSE "UE Aquisition Not Accep." := TRUE; IF "ND Difference" > 0 THEN GLEntry."VAT Amount" := GLEntry."VAT Amount" - "ND Difference"; // End of the added lines. END ELSE BEGIN IF "ND Difference" > 0 THEN ...Código 5 existente
GLEntry."VAT Amount" := ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT D. %" / VATPostingSetup."VAT %") ELSE // Delete the following lines. GLEntry."VAT Amount" := GLEntry."VAT Amount" - ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT N.D. %" / VATPostingSetup."VAT %") + "VAT Difference"; // End of the deleted lines. END; END; ...Código de reemplazo 5
GLEntry."VAT Amount" := ROUND(GLEntry."VAT Amount" * VATPostingSetup."VAT D. %" / VATPostingSetup."VAT %") ELSE // Add the following line. GLEntry."VAT Amount" := TempVATDAmount + "VAT Difference"; // End of the added line. END; END; ...Cambie el código en la función InsertVAT en la generación. Jnl.-Unidades de código de línea de poste (12) de la siguiente manera:
Código 1 existente... VATPostingSetup."Return VAT account (Sales)", // -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100, // Delete the following line. ROUND(-GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100), // End of the deleted line. // -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100, ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100), ...Código de reemplazo 1
... VATPostingSetup."Return VAT account (Sales)", // -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100, // Add the following line. -TempVATAmount, // End of the added line. // -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100, ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100), ...Código 2 existente
... // -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100, // ROUND(-GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100), // Delete the following line. ROUND((- VATBase * VATPostingSetup."VAT D. %" / 100) - (VATBase * VATPostingSetup."VAT N.D. %" / 100)), // End of the deleted line. // -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100, ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100), ...Código de reemplazo 2
... // -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100, // ROUND(-GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100), // Add the following line. -TempVATAmount, // End of the added line. // -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100, ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100), ...
Requisitos previos
Debe tener uno de los siguientes productos instalados para aplicar esta revisión:
- La versión portuguesa de Microsoft Dynamics NAV 2009 Service Pack 1
- La versión portuguesa de Microsoft Dynamics NAV 5.0 Service Pack 1
- La versión portuguesa de Microsoft Dynamics NAV 4.0 Service Pack 3
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".
MICROSOFT Y/O SUS PROVEEDORES NO REALIZAN DECLARACIONES NI GARANTÍAS SOBRE LA IDONEIDAD, LA CONFIABILIDAD O LA PRECISIÓN DE LA INFORMACIÓN CONTENIDA EN LOS DOCUMENTOS Y LOS GRÁFICOS RELACIONADOS PUBLICADOS EN ESTE SITIO WEB (LOS "MATERIALES") PARA CUALQUIER FIN.
LOS MATERIALES PUEDEN INCLUIR IMPRECISIONES TÉCNICAS O ERRORES TIPOGRÁFICOS Y PUEDEN REVISARSE EN CUALQUIER MOMENTO SIN PREVIO AVISO. EN LA MÁXIMA MEDIDA PERMITIDA POR LA LEGISLACIÓN APLICABLE, MICROSOFT Y/O SUS PROVEEDORES RENUNCIAN Y EXCLUYEN TODAS LAS REPRESENTACIONES, GARANTÍAS Y CONDICIONES, EXPRESAS, IMPLÍCITAS O ESTATUTARIAS, INCLUIDAS, ENTRE OTRAS, LAS REPRESENTACIONES, GARANTÍAS O CONDICIONES DE TÍTULO, AUSENCIA DE INFRACCIÓN, CONDICIÓN SATISFACTORIA O CALIDAD, COMERCIABILIDAD Y IDONEIDAD PARA UN FIN PARTICULAR, CON RESPECTO A LOS MATERIALES.