1 %RegisteredObject %SQLGatewayConnection 1 %List list 1 Deze moet overschreven worden en mag geen super aanroepen, anders krijg je een framestack error. 1 1 %Status D ##class(APPS.MAG.Receptie.impl.ReceptieService).%New().ControleVeranderProduct(3551,"xxxx") Controleert of er GEEN recepties bestaan 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 RCPNr:%Integer,TOENr:%Integer,TLUNr:%Integer,SubLNr:%Integer,VanProductID:%Integer,NaarProductID:%Integer 1 D ##class(APPS.MAG.Receptie.impl.ReceptieService).%New().VeranderProduct(3551,"xxxx") Veranderd het product in de sublijn waarvoor er GEEN recepties bestaan 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 zijn VanProductID:%Integer,NaarProductID:%Integer Called by SubLijnIterator RCPNr:%Integer,TOENr:%Integer,TLUNr:%Integer,SubLNr:%Integer,VanProductID:%Integer,NaarProductID:%Integer 1 PieceDelim=$c(9),LijnDelim=$c(13,10) TECH.Iterator Loopt door de ganse Receptie tabel op zoek naar het VanProduct en de sublijn mag nog niet in verwerking zijn VanProductID:%Integer,NaarProductID:%Integer,MethodName:%String 1 RCPNr,TOENr,TLUNr %Boolean RCPNr:%Integer,TOENr:%Integer,TLUNr:%Integer,SubLNr:%Integer 1 %Boolean RCPNr:%Integer,TOENr:%Integer,TLUNr:%Integer,SubLNr:%Integer,VanProductID:%Integer 1 %Boolean RCPNr:%Integer,TOENr:%Integer,TLUNr:%Integer,SubLNr:%Integer,NaarProductID:%Integer 1 1 TOENr:%Integer,TLUNr:%Integer,SubLNr:%Integer 1 %String RCPNr:%Integer 1 %String