Index: DOM/AKP/impl/DataM/DataMProductToeleveringLijn.cls.xml
===================================================================
diff -u -r35461 -r36229
--- DOM/AKP/impl/DataM/DataMProductToeleveringLijn.cls.xml	(.../DataMProductToeleveringLijn.cls.xml)	(revision 35461)
+++ DOM/AKP/impl/DataM/DataMProductToeleveringLijn.cls.xml	(.../DataMProductToeleveringLijn.cls.xml)	(revision 36229)
@@ -17,6 +17,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKorting">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit $Piece(..GeefPiece(7),"#",1)/100
+]]></Implementation>
+</Method>
+
 <Method name="GeefEenheidsPrijs">
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefPiece(6)
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml
===================================================================
diff -u -r36189 -r36229
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 36189)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 36229)
@@ -65,14 +65,10 @@
 <Implementation><![CDATA[
 	
 	try{
-		w !,1		
 		Do ..BewaarCSBSO(..ConverteerDELVRY03(..LeesXMLBestand(BestandVolledigeNaam)))
-		w !,2
 		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
-		w !,3
 	} catch {		
-		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()		
 		#dim BerichtVoorGebruiker As %String = "Een DESPATCH bericht van BLUM kon niet verwerkt worden. : " _BestandVolledigeNaam
 		Do ##class(vhLib.Logger).%New("").ErrorMail("VerwerkDESPATCHBestand",(BerichtVoorGebruiker _" " _Exceptie.ToString()))
 		Do ..KopieerNaarErrorMap(BestandVolledigeNaam)		
@@ -85,7 +81,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	do ..Bewaarder.Bewaar(CSBSO)
-	w !,"Bewaard"
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -95,9 +90,7 @@
 <Private>1</Private>
 <ReturnType>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</ReturnType>
 <Implementation><![CDATA[
-	w !,"Voor converteer"
 	#dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ..Delvry03Converteerder.Converteer(DELVRY03)
-	w !,"geconverteerd"
 	quit CSBSO
 ]]></Implementation>
 </Method>
@@ -109,7 +102,6 @@
 <Implementation><![CDATA[
 	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1)
 	#dim DELVRY03 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = ..XmlCorrelater.GeefObjectVanBestand(BestandVolledigeNaam,ClassName,"DELVRY03")
-	w !,"bestand gelezen"
 	quit DELVRY03
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r36189 -r36229
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36189)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36229)
@@ -31,9 +31,6 @@
 	
 	#dim CSBSO41 as  APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041 = CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).CSBSO41Array.GetAt("0438123420583401")	
 	
-	;do ##class(Tools.ObjectDumper.CodeCreator).%New(CSBSO).Dump()
-	;do ##class(Tools.ObjectDumper.CodeCreator).%New(CSBSO.CSBSOHeader).Dump()
-	
 	do $$$AssertIsObject(CSBSO41)
 	do $$$AssertEquals(CSBSO41.ABNr,"779465")
 	do $$$AssertEquals(CSBSO41.ABLijnNr,"01000")
Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r36189 -r36229
--- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36189)
+++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36229)
@@ -32,10 +32,13 @@
 	#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 * 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())
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r36189 -r36229
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36189)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36229)
@@ -24,15 +24,11 @@
 <FormalSpec>DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
 <ReturnType>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</ReturnType>
 <Implementation><![CDATA[
-	w !,"begin converteer"
 	#dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO).%New()
 	#dim CSBSO11 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011).%New()
 	do ..VoegToeCSBSOHeader(CSBSO,DELVRY03)
-	w !,"Header toegevoegd"
 	do ..VoegToeCSBSO11(CSBSO11,DELVRY03)	
-	w !,"CSBSO11 teogevoegd"
 	do CSBSO.CSBSO11List.Insert(CSBSO11)
-	w !,"einde converteer"
 	quit CSBSO
 ]]></Implementation>
 </Method>
Index: APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml
===================================================================
diff -u -r36189 -r36229
--- APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36189)
+++ APPS/AKP/AankoopControle/BLUM/impl/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36229)
@@ -64,8 +64,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..MsgNr = +$O(^BLImp(..MsgNr),-1) + 1
-	w !,"BLImp bericht " _ ..MsgNr
- 	Kill ^BLImp(..MsgNr)
+	Kill ^BLImp(..MsgNr)
  	Do ..SchrijfHeader("")
 ]]></Implementation>
 </Method>