TECH.Mockable AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository 1 APPS.Halux.common.BatchService 1 vhLib.Logger 1 SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,BatchService:APPS.Halux.common.BatchService="" 1 1 %Status 1 Order:DOM.VKP.Order Order:DOM.VKP.Order %ArrayOfDataTypes Order:DOM.VKP.Order 1 0 { Do ..Logger.Info("VerwijderToeleveringenUitBatches", "Voor het order '" _Order.GeefID() _"' worden toeleveringen uit batch gewist : ToeNr: "_##class(TECH.ListUtils).ListToPieces(##class(TECH.ListUtils).KeyList(ToeleveringenReedsInBatch),", ")_ " .") Do ..BatchService.VerwijderToeleveringenUitBatches(ToeleveringenReedsInBatch) } ]]> Order:DOM.VKP.Order 1 0 { Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Voor het order '" _Order.GeefID() _"' zijn toeleveringen reeds in Batch (ToeNr: "_##class(TECH.ListUtils).ListToPieces(##class(TECH.ListUtils).KeyList(ToeleveringenReedsInBatch),", ")_ "). Toelevering(en) en Order worden niet verwijderd.") } ]]> 1 1 ToeleveringID:%String 1