Aqui otra solución mucho más sencilla
/// Elimina un item de la producción
ClassMethod ProductionItemRemove(pProdName, pItemName) As %Status
{
write !,"Removing Item: "_pItemName
if ##class(Ens.Config.Item).NameExists(pProdName, pItemName,.itemId)
{
set objItem=##class(Ens.Config.Item).%OpenId(itemId)
set prod=##class(Ens.Config.Production).%OpenId(pProdName)
do prod.RemoveItem(objItem)
do prod.%Save()
kill objItem
do ##class(Ens.Director).RestartProduction(0,1)
}
quit $$$OK
}
Un saludo,
Francisco López
- Inicie sesión para enviar comentarios




