1 APPS.MAG.PickingService %List list 1 Deze moet overschreven worden en mag geen super aanroepen, anders krijg je een framestack error. 1 1 %Status s bl=##class(APPS.MAG.Picking.impl.PickingService).%New() w bl.ControleVeranderProduct(3551,"xxxx"),! w bl.GeefControleTekst() Controleert of er GEEN pickopdracht bestaat waarvan de status gecontroleerd is of gestockeerd. De status = "I" (ingeboekt) is OK, deze lijnen zijn volledig afgewerkt ((niets meer te veranderen) De status = "W" (wachtend) of leeg is OK, voor deze sublijnen kan product nog veranderd worden Indien resultaat = true dan OK om product te veranderen Via method GeefControleIterator kunnen alle lijnen opgevraagd worden die problemen geven VanProductID:%Integer,NaarProductID:%Integer %Boolean Called by SubLijnIterator BONNr:%Integer,ORDNr:%Integer,OLUNr:%Integer,SubLNr:%Integer,VanProductID:%Integer,NaarProductID:%Integer 1 D ##class(APPS.MAG.Picking.impl.PickingService).%New().VeranderProduct(3551,"xxxx") Veranderd het product in de sublijn waarvoor er GEEN pickopdracht bestaat waarvan de status gecontroleerd is of gestockeerd. De status = "I" (ingeboekt) is OK, deze lijnen zijn volledig afgewerkt (niet meer te veranderen) De status = "W" (wachtend) of leeg is OK, voor deze sublijnen kan product nog veranderd worden Via method GeefControleIterator kunnen alle lijnen opgevraagd worden die veranderd werden VanProductID:%Integer,NaarProductID:%Integer BONNr:%Integer,ORDNr:%Integer,OLUNr:%Integer,SubLNr:%Integer,VanProductID:%Integer,NaarProductID:%Integer PieceDelim=$c(9),LijnDelim=$c(13,10) TECH.Iterator Loopt door de ganse Picking tabel op zoek naar het VanProduct en de sublijn mag nog niet in verwerking zijn VanProductID:%Integer,NaarProductID:%Integer,MethodName:%String 1 BONNr:%Integer,ORDNr:%Integer,OLUNr:%Integer %Boolean BONNr:%Integer,ORDNr:%Integer,OLUNr:%Integer,SubLNr:%Integer 1 %Boolean BONNr:%Integer,ORDNr:%Integer,OLUNr:%Integer,SubLNr:%Integer,VanProductID:%Integer 1 %Boolean