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>