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))
Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml
===================================================================
diff -u -r38553 -r39140
--- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml	(.../ToeleveringInfoVerzamelaarV2.cls.xml)	(revision 38553)
+++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaarV2.cls.xml	(.../ToeleveringInfoVerzamelaarV2.cls.xml)	(revision 39140)
@@ -42,11 +42,14 @@
 			set ToeleveringLijnID = ToeleveringLijnNr * 100 + count
 			quit:Toelevering.BestaatToeleveringLijn(ToeleveringLijnID)
 		}		
-		//haa linfo van toelevering, blum kan iets anders leveren dan we verwachten (vervang product)
+		//haal info van toelevering, blum kan iets anders leveren dan we verwachten (vervang product)
 		if Toelevering.BestaatToeleveringLijn(ToeleveringLijnID){
 			#Dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)	
 			set CSBSO41.ProductNrCustomer = ToeleveringLijn.GeefProductID()
 		} else {
+			if ProductNr = "" {				
+				set ProductNr = ..GeefProductNummer(CSBSO41.IdentNr,Toelevering.GeefKlantNummerBijLeverancier())
+			}
 			#Dim Error As %String = ""
 			if ToeleveringLijnNr = "" {
 				set Error = "Geen lijnnr gespecifieerd voor lijn van toelevering " _ ToeleveringNr _" in xml bestand"
@@ -58,27 +61,18 @@
 				// daar door is de lijn uit KTO en moeten we product gegevens op andere manier ophalen dan uit KTO.
 				// we gaan er vanuit da Blum hetzelfde product levert als we gevraagd hebben : productnr zit mee in xml bericht.
 				set CSBSO41.ProductNrCustomer = ProductNr
-				//TODO : mail nog te sturen
 				do ..StuurMailNietGesplitsteToeleveringLijn(ToeleveringNr,CSBSO41.IdentNr,CSBSO41.ProductNrCustomer)
 			}
 		}		
-		#Dim Product as DOM.PM.Product = ..BlumProductAPI.GeefProduct(CSBSO41.ProductNrCustomer)
 		;is de prijs die we verwachten -> dummy factuur, prijs die blum gaat rekenen zit niet in despatch bericht.
 		set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(CSBSO41.ProductNrCustomer)
-
 	} else {		
 		if (ToeleveringLijnNr=""){ ;manual order
 			set:(CSBSO41.KundeStamNummer="") CSBSO41.KundeStamNummer = CSBSO31.InvoicingCustomerNr ;geen toelevering om kundestamnummer op te halen, we gebruiken de shipto
 			set CSBSO41.ProductNrCustomer = ..BlumProductAPI.GeefProductIdVolgensIdentNummer(CSBSO41.KundeStamNummer,CSBSO41.IdentNr)
-
 			if ##class(Blum.Product).%ExistsId(CSBSO41.IdentNr) {
 				;Theorische prijs volgens product
-				#Dim BlumProduct as Blum.Product = ##class(Blum.Product).%OpenId(CSBSO41.IdentNr)
-				#Dim ProductPrijs as Blum.ProductPrijs = ##class(Blum.ProductPrijs).%OpenId(CSBSO41.IdentNr_"||"_ $Select(CSBSO31.InvoicingCustomerNr="212250":"E12",1:"E24"))
-				#Dim Rabat as Blum.Rabat = ##class(Blum.Rabat).%OpenId(CSBSO31.InvoicingCustomerNr)
-
-				set CSBSO41.Value = CSBSO41.QuantityInvoiced * ProductPrijs.Prijs / $Select(ProductPrijs.PrijsDimensie="M":1000,ProductPrijs.PrijsDimensie="H":100,1:1 ) 
-				set CSBSO41.Value = CSBSO41.Value * (1- Rabat.KortingsPercentageDefault)
+				set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(..GeefProductNummer(CSBSO41.IdentNr, CSBSO31.InvoicingCustomerNr))				
 			} else {
 				;Product niet gevonden, dan zetten we er prijs 0 op. (bvb marketing materiaal zit niet onze producten.
 				set CSBSO41.Value = 0