Este artículo se aplica a Microsoft Dynamics NAV para todos los países y todas las configuraciones regionales de idioma.
Síntomas
Suponga que tiene un elemento en el que el valor Reserva está establecido en Siempre en Microsoft Dynamics NAV. Cuando se crea un pedido de fabricación para el artículo, el artículo no está reservado para los movimientos de artículos que se crean para el artículo según lo esperado.
Nota En esta situación, el artículo está reservado para los pedidos de compra que se crean para el artículo.
Este problema se produce en los siguientes productos:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 5,0
Causa
Este problema se produce porque la cantidad reservada en los movimientos de contabilidad de artículos no se calcula cuando el sistema reserva una línea automáticamente.
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 de la función SetSalesLine en el codeunit (99000845) de la siguiente manera:
Código existente... SetPointerFilter(CalcReservEntry2); // Delete the following lines. IF (CalcReservEntry."Location Code" <> '') AND Location.GET(CalcReservEntry."Location Code") AND (Location."Bin Mandatory" OR Location."Require Pick") THEN CalcReservedQtyOnPick(TotalAvailQty,QtyAllocInWhse); // End of the lines. END; PROCEDURE SetReqLine@13(NewReqLine@1000 : Record 246); ...Código de reemplazo
... SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetReqLine@13(NewReqLine@1000 : Record 246); ...Cambie el código de la función SetReqLine en el codeunit (99000845) de la siguiente manera:
Código existente... GetItemSetup(CalcReservEntry); SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetPurchLine@2(NewPurchLine@1000 : Record 39); ...Código de reemplazo
... GetItemSetup(CalcReservEntry); SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetPurchLine@2(NewPurchLine@1000 : Record 39); ...Cambie el código de la función SetPurchLine en el codeunit (99000845) de la siguiente manera:
Código existente... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForPurchLine."Outstanding Qty. (Base)") < 0); SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetItemJnlLine@3(NewItemJnlLine@1000 : Record 83); ...Código de reemplazo
... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForPurchLine."Outstanding Qty. (Base)") < 0); SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetItemJnlLine@3(NewItemJnlLine@1000 : Record 83);Cambie el código de la función SetItemJnlLine en el codeunit (99000845) de la siguiente manera:
Código existente... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForItemJnlLine."Quantity (Base)") < 0); SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetProdOrderLine@9(NewProdOrderLine@1000 : Record 5406); ...Código de reemplazo
... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForItemJnlLine."Quantity (Base)") < 0); SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetProdOrderLine@9(NewProdOrderLine@1000 : Record 5406); ...Cambie el código de la función SetProdOrderLine en la unidad de código de gestión de reservas (99000845) de la siguiente manera:
Código existente... Positive := ForProdOrderLine."Remaining Qty. (Base)" < 0; SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetProdOrderComponent@11(NewProdOrderComp@1000 : Record 5407); ...Código de reemplazo
... Positive := ForProdOrderLine."Remaining Qty. (Base)" < 0; SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetProdOrderComponent@11(NewProdOrderComp@1000 : Record 5407);Cambie el código de la función SetProdOrderComponent en el codeunit (99000845) de la siguiente manera:
Código existente... Positive := ForProdOrderComp."Remaining Qty. (Base)" > 0; SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetPlanningComponent@12(NewPlanningComponent@1000 : Record 99000829); ...Código de reemplazo
... Positive := ForProdOrderComp."Remaining Qty. (Base)" > 0; SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetPlanningComponent@12(NewPlanningComponent@1000 : Record 99000829); ...Cambie el código de la función SetPlanningComponent en el codeunit (99000845) de la siguiente manera:
Código existente... Positive := ForPlanningComponent."Net Quantity (Base)" > 0; SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetItemLedgEntry@34(NewItemLedgEntry@1000 : Record 32); ...Código de reemplazo
... Positive := ForPlanningComponent."Net Quantity (Base)" > 0; SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetItemLedgEntry@34(NewItemLedgEntry@1000 : Record 32); ...Cambie el código de la función SetItemLedgEntry en el codeunit (99000845) de la siguiente manera:
Código existente... GetItemSetup(CalcReservEntry); SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetTransferLine@47(NewTransLine@1000 : Record 5741;Direction@1001 : 'Outbound,Inbound'); ...Código de reemplazo
... GetItemSetup(CalcReservEntry); SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetTransferLine@47(NewTransLine@1000 : Record 5741;Direction@1001 : 'Outbound,Inbound'); ...Cambie el código de la función SetTransferLine en la unidad de código de la administración de reservas (99000845) de la siguiente manera:
Código existente... GetItemSetup(CalcReservEntry); SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetServLine@48(NewServiceInvLine@1000 : Record 5902); ...Código de reemplazo
... GetItemSetup(CalcReservEntry); SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetServLine@48(NewServiceInvLine@1000 : Record 5902); ...Cambie el código de la función SetServLine en la unidad de código de gestión de reservas (99000845) de la siguiente manera:
Código existente... SetPointerFilter(CalcReservEntry2); // Delete the following lines. IF (CalcReservEntry."Location Code" <> '') AND Location.GET(CalcReservEntry."Location Code") AND (Location."Bin Mandatory" OR Location."Require Pick") THEN CalcReservedQtyOnPick(TotalAvailQty,QtyAllocInWhse); // End of the lines. END; PROCEDURE SetBOMJnlLine@61(NewBOMJnlLine@1000 : Record 89);Código de reemplazo
... SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetBOMJnlLine@61(NewBOMJnlLine@1000 : Record 89); ...Cambie el código de la función SetBOMJnlLine en la unidad de código de gestión de reservas (99000845) de la siguiente manera:
Código existente... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForBOMJnlLine."Quantity (Base)") < 0); SetPointerFilter(CalcReservEntry2); END; PROCEDURE SetJobJnlLine@20(NewJobJnlLine@1000 : Record 210); ...Código de reemplazo
... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForBOMJnlLine."Quantity (Base)") < 0); SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SetJobJnlLine@20(NewJobJnlLine@1000 : Record 210); ...Cambie el código de la función SetJobJnlLine en la unidad de código de gestión de reservas (99000845) de la siguiente manera:
Código existente... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForJobJnlLine."Quantity (Base)") < 0); SetPointerFilter(CalcReservEntry2); END; PROCEDURE SalesLineUpdateValues@54(VAR CurrentSalesLine@1000 : Record 37;VAR QtyToReserve@1001 : Decimal;VAR QtyReservedThisLine@1002 : Decimal); ...Código de reemplazo
... ((CreateReservEntry.SignFactor(CalcReservEntry) * ForJobJnlLine."Quantity (Base)") < 0); SetPointerFilter(CalcReservEntry2); // Add the following line. CallCalcReservedQtyOnPick; END; PROCEDURE SalesLineUpdateValues@54(VAR CurrentSalesLine@1000 : Record 37;VAR QtyToReserve@1001 : Decimal;VAR QtyReservedThisLine@1002 : Decimal); ...Cambie el código de la función CallCalcReservedQtyOnPick en la unidad de código de administración de reservas (99000845) de la siguiente manera:
Código existente... CreateReservEntry2.CreateRemainingReservEntry(SurplusEntry,QtyToSave); END; BEGIN END. } ...Código de reemplazo
... CreateReservEntry2.CreateRemainingReservEntry(SurplusEntry,QtyToSave); END; // Add the following lines. PROCEDURE CallCalcReservedQtyOnPick@104(); BEGIN IF Positive AND (CalcReservEntry."Location Code" <> '') AND Location.GET(CalcReservEntry."Location Code") AND (Location."Bin Mandatory" OR Location."Require Pick") THEN CalcReservedQtyOnPick(TotalAvailQty,QtyAllocInWhse); END; // End of the lines. BEGIN END. } ...
Requisitos previos
Debe tener uno de los siguientes productos instalados para aplicar esta revisión:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 5,0
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.