Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r36229 -r36343
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36229)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36343)
@@ -7,12 +7,10 @@
 <Implementation><![CDATA[
 	#dim Verzamelaar As APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar).%New()
 	#dim Converteerder As APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder).%New(Verzamelaar)
-
 	#dim DELVRY03Double As APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New().GeefDELVRY03()
 	
 	#dim CSBSO As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = Converteerder.Converteer(DELVRY03Double)
-	
-	
+		
 	Do $$$AssertIsObject(CSBSO)
 	Do $$$AssertEquals(CSBSO.CSBSOHeader.MIOTCR,"21-06-16")
 	
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r36262 -r36343
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36262)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36343)
@@ -5,6 +5,7 @@
 
 <Property name="MsgNr">
 <Type>%Integer</Type>
+<InitialExpression>99999999</InitialExpression>
 </Property>
 
 <Method name="OnBeforeAllTests">
@@ -17,9 +18,7 @@
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	w !,"Berichtnummer",..MsgNr
-	Kill ^BLImp(..MsgNr)
-	
+	Kill ^BLImp(..MsgNr)	
 	set ..MsgNr = 99999999
 	do ##super(aTestName)
 ]]></Implementation>
@@ -36,8 +35,9 @@
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
 	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
-	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
 	
+	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
+
 	Do $$$AssertTrue($DATA(^BLImp(..MsgNr)))
 	Do $$$AssertEquals(^BLImp(..MsgNr),"BAU300332\5005\CSB\SO\C\21-06-16\1200\5\\\1\")
 ]]></Implementation>
@@ -47,6 +47,7 @@
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
 	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
+	
 	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
 		
 	Do $$$AssertTrue($DATA(^BLImp(..MsgNr,1)))
@@ -58,6 +59,7 @@
 <Implementation><![CDATA[
 	#Dim CSBSODouble As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
 	#Dim Bewaarder As APPS.AKP.AankoopControle.BLUM.impl.Bewaarder = ##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New()
+	
 	set ..MsgNr = Bewaarder.Bewaar(CSBSODouble)
 		
 	Do $$$AssertTrue($DATA(^BLImp(..MsgNr,2)))
Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r36229 -r36343
--- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36229)
+++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36343)
@@ -25,20 +25,70 @@
 </Method>
 
 <Method name="ZetVHProduktInfo">
-<FormalSpec>CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
+<FormalSpec>CSBSO31:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031,CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	if ..ToeleveringAPI.BestaatToelevering(ToeleveringNr){		
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringNr)	
+		#dim ToeleveringLijnID As %Integer = ToeleveringLijnNr * 100
+		if Toelevering.BestaatToeleveringLijn(ToeleveringLijnID){
+			#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)	
+			set CSBSO41.ProductNrCustomer = ToeleveringLijn.GeefProductID()
+			#dim Product as DOM.PM.Product = ..ProductAPI.GeefProduct(CSBSO41.ProductNrCustomer)
+			;Theoretische prijs volgens toelevering. 
+			set CSBSO41.Value = CSBSO41.QuantityInvoiced * ToeleveringLijn.GeefEenheidsPrijs() / $Select(Product.GeefGrootteOrdeAankoop()="M":1000,Product.GeefGrootteOrdeAankoop()="H":100,1:1 )
+			set CSBSO41.Value = CSBSO41.Value * (1 - ToeleveringLijn.GeefKorting())
+		} else {
+			#dim Error As %String = ""
+			if ToeleveringLijnNr = "" {
+				set Error = "Geen lijnnr gespecifieerd voor van toelevering " _ ToeleveringNr _" in xml bestand"
+			} else {
+				set Error = "Lijn " _ ToeleveringLijnNr _ " van toelevering " _ ToeleveringNr _ " gespecifieerd in xml bestand niet gevonden in Admin"
+			}
+			set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Error)
+			do ##class(TECH.ExceptionHandler).Throw(Exception)	
+		}		
+	} else {		
+		if (ToeleveringLijnNr=$Char(0)){ ;manual order
+			set CSBSO41.ProductNrCustomer = ..GeefProductNummer(CSBSO31.InvoicingCustomerNr,CSBSO41.IdentNr)
+
+			if ##class(Blum.Product).%ExistsId(CSBSO41.IdentNr) {
+				#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)
+			} else {
+				;Product niet gevonden, dan zetten we er prijs 0 op. (bvb marketing materiaal zit niet onze producten.
+				set CSBSO41.Value = 0				
+				; alternatief is exception throwen, maar helpt niet echt aan de verwerking.
+				/*
+				set Error = "Product in xml bestand gespecifieerd niet gevonden in Admin"
+				set Error = Error _ $$$CRLF _ "ident nummer "_ CSBSO41.IdentNr
+				set Error = Error _ $$$CRLF _ "productnummer "_ CSBSO41.ProductNrCustomer
+				set Error = Error _ $$$CRLF _ "toelevering " _ ToeleveringNr			
+				set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Error)
+				do ##class(TECH.ExceptionHandler).Throw(Exception)	
+				*/
+			}
+		} else { 
+			;voor manuele bestellingen is de toelevering nr opgegegeven als een referentie en lijn nr is leeg, als die dus ingevuld is is er iets fout...
+			set Error = "Toelevering " _ ToeleveringNr _" in xml bestand gespecifieerd niet gevonden in Admin"
+			set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Error)
+			do ##class(TECH.ExceptionHandler).Throw(Exception)				
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductNummer">
+<FormalSpec>IdentNummer:%String,KundeNummer:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringNr)	
-	#dim ToeleveringLijnID As %Integer = ToeleveringLijnNr * 100
-	#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)	
-	set CSBSO41.ProductNrCustomer = ToeleveringLijn.GeefProductID()
-	
-	#dim Product as DOM.PM.Product = ..ProductAPI.GeefProduct(CSBSO41.ProductNrCustomer)	
-	;Theoretischge prijs volgens toelevering. 
-	;eventuele prijs volgens BLUM uit COA bericht zit in ^BLTO
-	;set CSBSO41.Value = CSBSO41.QuantityInvoiced * Product.GeefBrutoAankoopPrijs() / $Select(Product.GeefGrootteOrdeAankoop()="M":1000,Product.GeefGrootteOrdeAankoop()="H":100,1:1 )
-	set CSBSO41.Value = CSBSO41.QuantityInvoiced * ToeleveringLijn.GeefEenheidsPrijs() / $Select(Product.GeefGrootteOrdeAankoop()="M":1000,Product.GeefGrootteOrdeAankoop()="H":100,1:1 )
-	set CSBSO41.Value = CSBSO41.Value * (1 - ToeleveringLijn.GeefKorting())
+	do ##class(vhLib.OldSchool).InitVars()
+	quit $$GETVH^BLPROD(IdentNummer,KundeNummer)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r36229 -r36343
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36229)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36343)
@@ -135,7 +135,8 @@
 			}
 			set CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced = + CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced + E1EDL44.VEMNG
 			set CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityShipped = CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced 			
-			do ..ToeleveringInfoVerzamelaar.ZetVHProduktInfo(CSBSO41,E1EDL44.VBELN, E1EDL44.POSNR)			
+			do ..ToeleveringInfoVerzamelaar.ZetVHProduktInfo(CSBSO31,CSBSO41,E1EDL44.VBELN, E1EDL44.POSNR)			
+			
 			set CSBSO31.NetValue = CSBSO31.NetValue + CSBSO31.CSBSO41Array.GetAt(arraysleutel).Value
 
 			; dan de pallet info toevoegen: tot 5 palletten op 1 record, dan volgend aanmaken etc.
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r36148 -r36343
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36148)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36343)
@@ -10,9 +10,8 @@
 <Inheritance>right</Inheritance>
 
 <Method name="ZetVHProduktInfo">
-<FormalSpec>CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetVHProduktInfo",CSBSO41,ToeleveringNr,ToeleveringLijnNr)
+<FormalSpec>CSBSO31:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031,CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetVHProduktInfo",CSBSO31,CSBSO41,ToeleveringNr,ToeleveringLijnNr)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r36148 -r36343
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36148)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36343)
@@ -8,7 +8,7 @@
 <Super>APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar</Super>
 
 <Method name="ZetVHProduktInfo">
-<FormalSpec>CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
+<FormalSpec>CSBSO31:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031,CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set CSBSO41.ProductNrCustomer = 1070692