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
 
 
+
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37861 -r37898
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37861)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37898)
@@ -96,9 +96,15 @@
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1")	
 	
 	Do ..Logger.Info("BLOrdRsp UpdateVerwerkVlag ", "Toelevering : "_ToeleveringsNummer_"."_ToeleveringsUniekLijnNummer_" Aantal "_Aantal_" op "_LeverDatum )		
+	Do ##class(Tools.Wlip).%New(207).String("BLOrdRsp UpdateVerwerkVlag Toelevering : "_ToeleveringsNummer_"."_ToeleveringsUniekLijnNummer_" Aantal "_Aantal_" op "_LeverDatum )		
 	
-	set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100)
-
+	if (ToeleveringsUniekLijnNummer >= 100) {
+		set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100)
+	} else {
+		set ToeleveringsLijnNummer = ToeleveringsUniekLijnNummer
+	}
+	
+	
 	quit:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer)))
 	
 	set eersteindexvoortlnr = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,0))
@@ -207,6 +213,7 @@
 	#dim Record as %String = @..#Global(ToeleveringNummer,+ToeleveringLijnNummer,index)
 	Set ToeleveringAantal = +$Extract($Piece(Record,"\",1),28,34)
 	Set ToeleveringLeverDatum = $Extract($Piece(Record,"\",1),46,51)
+	Do ##class(Tools.Wlip).%New(207).String("Matching " _ ToeleveringLeverDatum _  " en " _ LeverDatum)
 	Quit (ToeleveringAantal = +Aantal) && (ToeleveringLeverDatum = LeverDatum)
 ]]></Implementation>
 </Method>