Index: EWORDS6.mac.rou =================================================================== diff -u -r734 -r1023 --- EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 734) +++ EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 1023) @@ -479,7 +479,7 @@ Set TxtLoc(2)=Warning Set:$G(Manueel) TxtLoc(3)="EWMS markeren orderpicking manueel verwerken." Set ButLoc(1)=$S($G(Manueel):"Manueel&M",1:"Ok") - Set:$G(Manueel) ButLoc(2)="Annuleer&A" + Set:$G(Manueel) ButLoc(2)="Annuleer&A*" If $$WILD^vhTXTPOP("C;C","","TxtLoc","ButLoc",2)="M" { Do:MarkeerKredietProbleemInORDNr MarkeerKredietProbleemInORDNr^EWORDS3(ORDNr,"B") Do EWMS^FLOWORD("M") @@ -669,7 +669,7 @@ Set OrderAPI = Context.GeefOrderAPI() Set Order=OrderAPI.GeefOrder(ORDNr) Set KLNr=Order.GeefKlantNr() - Set Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderlijnType).Product()) + Set Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderLijnType).Product()) While Iterator.HasNext() { Set OrderLijn=Iterator.Next() Set PRNr=OrderLijn.GeefPRNr()