Index: EWBON.mac.rou =================================================================== diff -u -r51779 -r52252 --- EWBON.mac.rou (.../EWBON.mac.rou) (revision 51779) +++ EWBON.mac.rou (.../EWBON.mac.rou) (revision 52252) @@ -131,7 +131,7 @@ . Set ULNr=$$NEXTULNR(KLNr,CONSNr),$P(R,D,15)="" . Set $P(R,D,41,42)=D,^KUL(KLNr,"F",CONSNr,ULNr)=R . Do BUILDBON^FLOWBON3(KLNr,CONSNr,ULNr),BUILDKUP^FLOWBON3(KLNr,CONSNr,ULNr) - . Set IsTekstlijn=##class(TECH.StringUtils).StartsWith($P(R,"\",17),"KF11#") + . Set IsTekstlijn=##class(TECH.StringUtils).StartsWith($P(R,"\",17),"KF11") . If $$$Not(IsTekstlijn) Set IsTekstlijn=##class(TECH.StringUtils).StartsWith($P(R,"\",18),"T") . If 'IsTekstlijn Kill ^KOD(KLNr,"F",ORDNr,OLNr) . If IsTekstlijn Set OLSubscript=KLNr_",""F"","_ORDNr_","_OLNr Do OLLijst.Insert(OLSubscript)