Este artículo se aplica a Microsoft Dynamics NAV para la configuración regional del idioma griego (gr).
Síntomas
Si hace clic para activar las casillas Contabilización automática de costos y Registro de costos esperados en la versión griega de Microsoft Dynamics NAV, los movimientos de contabilidad generales incorrectos creados por el importe de costo esperado no se invertirán. Por lo tanto, el resultado del informe de balance de prueba (16702) difiere del resultado del informe Tarjeta de almacén (16785).
Este problema se produce en los siguientes productos:
- La versión griega de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- La versión griega de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Causa
Este problema se produce porque los costos de artículo se calculan dos veces en los movimientos de contabilidad general. El costo se calcula como el costo esperado una vez y el costo se calcula como el costo real otra vez.
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 2009 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 de la función BufferInvtPosting en la unidad de código Contabilización de inventario a G/L (5802) como se explica a continuación:
Código existente... // Dionisis Calculate Cost Differently for Manufacturing Entries. IF "Expected Cost" THEN BEGIN CalcCostToPost( ValueEntry,ExpCostToPost,CostExpected,"Expected Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,ExpCostToPostACY,"Cost Amount (Expected) (ACY)","Exp. Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); END ELSE BEGIN CalcCostToPost( ValueEntry,CostToPost,CostActual,"Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,CostToPostACY,"Cost Amount (Actual) (ACY)","Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); END; ...Código de reemplazo
... // Dionisis Calculate Cost Differently for Manufacturing Entries. //Add the following lines. // IF "Expected Cost" THEN BEGIN IF "Expected Cost" OR InvtSetup."Expected Cost Posting to G/L" THEN BEGIN //End of the lines. CalcCostToPost( ValueEntry,ExpCostToPost,CostExpected,"Expected Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,ExpCostToPostACY,"Cost Amount (Expected) (ACY)","Exp. Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); //Add the following lines. // END ELSE BEGIN END; IF NOT "Expected Cost" THEN BEGIN //End of the lines. CalcCostToPost( ValueEntry,CostToPost,CostActual,"Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,CostToPostACY,"Cost Amount (Actual) (ACY)","Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); END; ...Cambie el código de la función BufferInvtPosting en la unidad de código Contabilización de inventario a G/L (5802) a lo siguiente:
… // Find Actual Cost // Dionisis changed with valuation cost // CASE "Item Ledger Entry Type" OF // "Item Ledger Entry Type"::Purchase: // // GR0010.begin // // CostActual := "Entry Valuation Cost"; // "Cost Amount (Actual)"; // GR004 // CostActual := "Cost Amount (Actual)"; // // GR0010.end // "Item Ledger Entry Type"::Sale, // "Item Ledger Entry Type"::"Positive Adjmt.", // "Item Ledger Entry Type"::"Negative Adjmt.", // "Item Ledger Entry Type"::Transfer, // "Item Ledger Entry Type"::Consumption, // "Item Ledger Entry Type"::Output: // // GR0010.begin // // CostActual := "Entry Valuation Cost"; // CostActual := "Cost Amount (Actual)"; // // GR0010.end // END; // Find Expected Cost // Dionisis changed with valuation cost // CASE "Item Ledger Entry Type" OF // "Item Ledger Entry Type"::Purchase: // // GR0010.begin // //CostExpected := "Valuation Expected Cost"; // "Cost Amount (Expected)"; // GR0004 // CostExpected := "Cost Amount (Expected)"; // // GR0010.end // "Item Ledger Entry Type"::Sale: // // GR0010.begin // // CostExpected := "Valuation Expected Cost"; // CostExpected := "Cost Amount (Expected)"; // // GR0010 end // "Item Ledger Entry Type"::"Positive Adjmt.", // "Item Ledger Entry Type"::"Negative Adjmt.", // "Item Ledger Entry Type"::Transfer, // "Item Ledger Entry Type"::Consumption, // "Item Ledger Entry Type"::Output: // // GR0010.begin // //CostExpected := "Entry Valuation Cost"; //CostExpected := "Invoiced Quantity" * "Valuation Cost Per Unit"; // CostExpected := "Cost Amount (Actual)"; // // GR0010.end // END; CostActual := "Cost Amount (Actual)"; CostExpected := "Cost Amount (Expected)"; …Cambie el código de la función CalcExpCost en la unidades de código Registro inventario a G/L (5802) como se explica a continuación:
Código existente... QtyNotInv := Quantity - QtyNotInv; AdjdCost := ROUND(AdjdCost * QtyNotInv / Quantity,RoundPrecision); ...Código de reemplazo
... QtyNotInv := Quantity - QtyNotInv; //Add the following line. IF QtyNotInv <> 0 THEN AdjdCost := ROUND(AdjdCost * QtyNotInv / Quantity,RoundPrecision); ...Cambie el código de la función CalcPeriodAverageCost en la unidad de código gestión valoración (16783) como sigue:
Código existente... WITH Item DO BEGIN SETRANGE("Date Filter",InventoryPeriod."Starting Date",InventoryPeriod."Ending Date"); SETFILTER("Location Filter",LocationFilter); CALCFIELDS("Valuation Purchases Qty","Valuation Purchases (LCY)","Valuation Expd. Cost (Purch.)", "Valuation Output Cost","Output Qty","Assembled Qty","Valuation Assembly Cost", "Valuation Transfers Qty","Valuation Transfers (LCY)"); CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + "Valuation Assembly Cost" + "Valuation Transfers (LCY)"; CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty" + "Valuation Transfers Qty"; IF "Production Method" <> "Production Method"::" " THEN CalcCostPerCostComp; END; CalcValuationCostPerUnit; ...Código de reemplazo
... WITH Item DO BEGIN SETRANGE("Date Filter",InventoryPeriod."Starting Date",InventoryPeriod."Ending Date"); SETFILTER("Location Filter",LocationFilter); //Add the following lines. //CALCFIELDS("Valuation Purchases Qty","Valuation Purchases (LCY)","Valuation Expd. Cost (Purch.)", // "Valuation Output Cost","Output Qty","Assembled Qty","Valuation Assembly Cost", // "Valuation Transfers Qty","Valuation Transfers (LCY)"); // CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + // "Valuation Assembly Cost" + "Valuation Transfers (LCY)"; // CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty" + "Valuation Transfers Qty"; CALCFIELDS("Valuation Purchases Qty","Valuation Purchases (LCY)","Valuation Expd. Cost (Purch.)", "Valuation Output Cost","Output Qty","Assembled Qty","Valuation Assembly Cost", "Inbound Transfer Qty","Inbound Transfers (LCY)"); IF IsAvgCostCalcTypeItem THEN BEGIN CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + "Valuation Assembly Cost"; CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty"; END ELSE BEGIN CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + "Valuation Assembly Cost" + "Inbound Transfers (LCY)"; CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty" + "Inbound Transfer Qty"; END; //End of the lines. IF "Production Method" <> "Production Method"::" " THEN CalcCostPerCostComp; END; CalcValuationCostPerUnit; ...
Requisitos previos
Debe tener uno de los siguientes productos instalados para aplicar esta revisión:
- La versión griega de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- La versión griega 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.