Index: BLCSBC1.mac.rou
===================================================================
diff -u -r37249 -r37898
--- BLCSBC1.mac.rou	(.../BLCSBC1.mac.rou)	(revision 37249)
+++ BLCSBC1.mac.rou	(.../BLCSBC1.mac.rou)	(revision 37898)
@@ -42,6 +42,7 @@
  . Do ##class(BL.Blum.Facturatie).%New().UpdateFromVervoer(,SIFANR)
  . Set SIFANR=""
  Set RecNaam="CSB-SO-21" Do TF
+ Set ShipDate = $Piece(NewRec,D,3)
  Set T=$P(NewRec,D,8,17) Set NewRec=$P(NewRec,D,1,7)
  FOR I=1:2:9 Set:$L($P(T,D,I)) NewRec=NewRec_D_$P(T,D,I)_U_$P(T,D,I+1)
  Set $P(NewRec,D,15)=SoDo
@@ -71,8 +72,8 @@
  Set ToeLevNr=0
  Q
 VLijn Set RecNaam="CSB-SO-41" Do TF
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New().UpdateVerwerkVlag($Piece(ToeRef,".",1), $Piece(ToeRef,".",2),$Piece(NewRec,D,10),ShipDate) 
  If ($L(SIIDNO)=8)&&($E(SIIDNO)="0") Set $E(SIIDNO)="",$P(NewRec,D,8)=SIIDNO ; zonder voorloop nul opslaan
- 
  Set ToeLevNr=ToeLevNr+1,(ToeNr,ToeLNr)=""
  Goto VL7:$P(NewRec,D,9)="P" ;Indien Phantom product geen best match mogelijk
  Goto VL1:'ABNr
@@ -230,3 +231,4 @@
  Quit VHRec
 
 
+