Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r39063 -r39140
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 39063)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 39140)
@@ -114,15 +114,14 @@
 	#dim ToeleveringsLijnNummer as %String = ""
 	
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1")	
-	
+	quit:(ToeleveringsNummer=$c(0))
+	quit:(ToeleveringsNummer="")
 	Do ..Logger.Info("BLOrdRsp UpdateVerwerkVlag ", "Toelevering : "_ToeleveringsNummer_"."_ToeleveringsUniekLijnNummer_" Aantal "_Aantal_" op "_LeverDatum )		
 	if (ToeleveringsUniekLijnNummer >= 100) {
 		set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100)
 	} else {
 		set ToeleveringsLijnNummer = +ToeleveringsUniekLijnNummer
 	}
-	quit:(ToeleveringsLijnNummer="")
-	
 	Do:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer))) ..Logger.Info("BLOrdRsp UpdateVerwerkvlag", "Toelevering : "_ToeleveringsNummer_"."_ToeleveringsLijnNummer _ " niet gevonden in BLOrdRsp")	
 	quit:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer)))
 	
@@ -198,6 +197,7 @@
 <FormalSpec>ToeleveringsNummer:%String</FormalSpec>
 <Implementation><![CDATA[
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1")
+	Quit:(ToeleveringsNummer="")
 	Do ..Logger.Info("BLOrdRsp VerwijderToelevering", "Toelevering : #"_ToeleveringsNummer_"#")		
 	;manuele komen nu binnen met punt op einde in CSB record. ,zijn binnen gekomen zonder punt met ordrsp.
 	Kill @..#Global($Piece(ToeleveringsNummer,".",1))