Index: EWBON.mac.rou
===================================================================
diff -u -r49630 -r49939
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 49630)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 49939)
@@ -103,16 +103,18 @@
 
 
 ORDER(KLNr,CONSNr,ORDNr,BonLijnTeller,BonMaxTeller) 
- New R,OLUNr,OLNr,ULNr,IntPers,OrgalRef,KlasRef,EDINummer,VHisieVwCust,ComTegKom,PRNr,DocumentReferentiesID
+ New R,OLUNr,OLNr,ULNr,IntPers,OrgalRef,KlasRef,EDINummer,VHisieVwCust,ComTegKom,PRNr,DocumentReferentiesID,SalesIdAX
  Set R=^KOD(KLNr,"F",ORDNr,1),OrdDat=$P(R,D,2),OrdRef=$P(R,D,3)
  Set IntPers=$P(R,D,8),VHisieVwCust=$P(R,D,9),OrgalRef=$P(R,D,19),KlasRef=$P(R,D,24),EDINummer=$P(R,D,40)
  Set DocumentReferentiesID = $P(R,D,57)
+ Set SalesIdAX = $Piece(R,D,58)
  #dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = $P(R,D,53)
  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)=""
  set $P(R,D,27) = DocumentReferentiesID
  Set $P(R,D,28) = Oorsprong
+ Set $Piece(R,D,29) = SalesIdAX
  Set ULNr=$$NEXTULNR(KLNr,CONSNr),^KUL(KLNr,"F",CONSNr,ULNr)=R
  Do BUILDBON^FLOWBON3(KLNr,CONSNr,ULNr),BUILDKUP^FLOWBON3(KLNr,CONSNr,ULNr)
  
@@ -718,4 +720,3 @@
 
 
 
-