Index: EWORDS5.mac.rou =================================================================== diff -u -r75040 -r75048 --- EWORDS5.mac.rou (.../EWORDS5.mac.rou) (revision 75040) +++ EWORDS5.mac.rou (.../EWORDS5.mac.rou) (revision 75048) @@ -111,12 +111,12 @@ Set DoorsturenOrderPickingService = ##class(APPS.OrderUitvoering.DoorsturenOrderPickingService).%New() #dim Bezwaren As %ArrayOfDataTypes = DoorsturenOrderPickingService.GeefBezwarenTegenOrderLijnDoorsturen(OrderID, OrderLijnID) If Bezwaren.Count() > 0 { - Set BezwarenBericht = "" + Set BezwarenBericht = "" For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht _ Bezwaren.GetAt(BezwarenCnt)_$C(13,10) Set GaVerder = $$^vhTXTPOP("EWORDS","DUEOUTVRD",0,$ZDT(+$$GetPickDatum^EWORDS6(OrderID,$G(OrderLijnID)),4),$ZDT(+$Piece(^HULP(%J,"V","V"),"\",2),4)) Set LijnLeverdatumControleren = $$$Not(GaVerder) ; Als er verdergegaan word, volgende keer niet meer vragen } - Quit GaVerder ; kan nu 3 waarden bevatten Vervroegen = 1 , Behouden = 2 Annuleren = 0 + Quit GaVerder ; kan nu 3 waarden bevatten Wijzigen = 1 , Behouden = 2 Annuleren = 0 MARKORD(Ref) New R,ORDNr,OLNr,Quit,Marked,OLUNr,StartRef,VerzW,AskLink