Index: EWBON.mac.rou
===================================================================
diff -u -r51484 -r51507
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 51484)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 51507)
@@ -110,7 +110,6 @@
  Set DocumentReferentiesID = $P(R,D,57)
  Set SalesIdAX = $Piece(R,D,58)
  #dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = $P(R,D,53)
- #dim IsTekstlijn As %Boolean
  Set R=""
  Set $P(R,D,4)=IntPers,$P(R,D,5)=ORDNr_" - "_OrdDat_" - "_OrdRef
  Set $P(R,D,17)="KF5",$P(R,D,19)=KlasRef,$P(R,D,20)=OrgalRef,$P(R,D,21)=EDINummer,$P(R,D,22)=VHisieVwCust,$P(R,D,26)=""
@@ -129,8 +128,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#")
- . If 'IsTekstlijn Kill ^KOD(KLNr,"F",ORDNr,OLNr)
+ . Kill ^KOD(KLNr,"F",ORDNr,OLNr)
  
  Set (OLUNr,ComTegKom)=""
  For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do