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 0 { Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Voor het order '" _Order.GeefID() _"' zijn toeleveringen reeds in Batch (ToeNr: "_##class(TECH.ListUtils).ListToPieces(ToeleveringenReedsInBatch,", ")_ "). Toelevering(en) en Order worden niet verwijderd.") } } Do ##class(vhLib.OldSchool).InitVars() #dim ToeleveringIDArray As TECH.MultiDim = "" Do ..ZetToeleveringIDArray(Order, .ToeleveringIDArray) Do ..VerwijderToeleveringenMetVrijeOrderlijnen(.ToeleveringIDArray) ]]> Order:DOM.VKP.Order %ArrayOfDataTypes 1 1 ToeleveringID:%String 1