Index: REMBOURS.mac.rou =================================================================== diff -u -r734 -r2702 --- REMBOURS.mac.rou (.../REMBOURS.mac.rou) (revision 734) +++ REMBOURS.mac.rou (.../REMBOURS.mac.rou) (revision 2702) @@ -560,6 +560,7 @@ . . . Set R=^ORDW("D",BONNr) . . . Set Afgehandeld=$P(R,D,8),$P(Afgehandeld,"#",2)=$P(Afgehandeld,"#",2) . . Else Do ; Nog op order + . . . Quit:$$ISTERUGN^FLOWORD5(ORDNr) . . . Set R=^KOD(KLNr,"F",ORDNr,1),Afgehandeld=$P(R,D,37) . . . If 'Afgehandeld,$L($P(^KOD(KLNr,"F",ORDNr,1),D,25)) Set Afgehandeld="M"[$P(^KOD(KLNr,"F",ORDNr,1),D,25) . . . Set:'Afgehandeld Afgehandeld='$$CHKVERH^EWORDS5(KLNr,ORDNr,100) ; Indien het order niet 100% uitleverbaar, dan afgehandeld ok