Index: EWORDS.mac.rou =================================================================== diff -u -r51245 -r51246 --- EWORDS.mac.rou (.../EWORDS.mac.rou) (revision 51245) +++ EWORDS.mac.rou (.../EWORDS.mac.rou) (revision 51246) @@ -468,7 +468,7 @@ SAVE(NoAsk) New R,Ok,Count,VerzW,VerzDat,DOutDate,DOutTime,VerzZ,LevAdr,CONSNr,Send,ORDNr,Check,Rembours,ChkBeletDone,OLU,LijnRec,ReturnLocal New PickingOpdrachtInfo, PickingOpdrachtInfoLijst, PickingOpdrachtInfoIterator, FilterIterator - New Tekst1, Tekst2, OnvolledigOrderPopup, PopupDetail, KKLNode3 + New OnvolledigOrderPopup, PopupDetail, KKLNode3 Set Ok = $$$False If $Data(^HULP(%J,KLNr,"M","A")) { @@ -498,9 +498,8 @@ Set KKLNode3=^KKL(^KK1(KLNr),3) Set Rembours=$P(KKLNode3,"\") If (Rembours && ($$$Not(##class(CHUI.VKP.OrderIngave.OrderControle).%New().IsOrderVolledigGemarkeerd(%J,KLNr,ORDNr)))) { - Set Tekst1 = "Omdat het remboursbedrag van deelleveringen niet kan berekend worden, is het niet toegelaten om orders gedeeltelijk door te sturen voor picking. " - Set Tekst2 = "U kan in AX het order splitsen in 2 en dan 1 van die delen doorsturen voor picking." - Set PopupDetail = Tekst1_Tekst2 + Set PopupDetail = "Omdat het remboursbedrag van deelleveringen niet kan berekend worden, is het niet toegelaten om orders gedeeltelijk door te sturen voor picking. " + Set PopupDetail = PopupDetail_"U kan in AX het order splitsen in 2 en dan 1 van die delen doorsturen voor picking." Set OnvolledigOrderPopup = $$Boodschap^vhTXTPOP(PopupDetail) Kill ^HULP(%J, KLNr, "M", "A") Quit