TECH.RegisteredObject Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).ZendKlaargezetWissenNaarAx(ToeleveringID) 1 ToeleveringID:%String Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).VerwijderOrderVerwijzingIndienOrderNietBestaat(ToeleveringID) 1 ToeleveringID:%String Order :"_GekoppeldOrderID If ($L(GekoppeldOrderID)) && ($$$Not(OrderAPI.BestaatOrder(GekoppeldOrderID))) { // Order bestaat niet, dus verwijder de verwijzing ernaartoe Do ToeleveringLijn.ZetOrderID("") Do ToeleveringLijn.ZetOrderLijnVolgnummer("") Write !,"Ref naar Order "_GekoppeldOrderID_" wordt verwijderd" Do ToeleveringLijn.Save() } } // Hoofding van de Toelevering Set GekoppeldOrderID = Toelevering.GeefOrderID() write !,"Hoofding "_Toelevering.GeefID()_" --> Order :"_GekoppeldOrderID If ($L(GekoppeldOrderID)) && ($$$Not(OrderAPI.BestaatOrder(GekoppeldOrderID))) { // Order bestaat niet, dus verwijder de verwijzing ernaartoe Do Toelevering.ZetOrderID("") Do Toelevering.ZetKlantID("") Write !,"Ref naar Order "_GekoppeldOrderID_" wordt verwijderd" Do Toelevering.Save() } ]]> Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).VerwijderHaluxToeleveringenGekoppeldAanOrder(OrderID) 1 OrderID:%String Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).VerbreekKOMLinkVanToelevering(ToeleveringID) 1 ToeleveringID:%String Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).VerwijderToeleveringMetBehoudVanOrder(ToeleveringID) 1 ToeleveringID:%String Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).VerwijderToelevering(ToeleveringID) Deze is nog niet volledig klaar (JBL - 03/01/2014) 1 ToeleveringID:%String 1 ToeleveringID:%String 1 1 ToeleveringID:%String 1 1 ToeleveringID:%String 1 1 TeVerwijderenToeleveringID:%String