Index: APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u -r35222 -r35450
--- APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35222)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 35450)
@@ -114,24 +114,27 @@
 			set ProductData.BrutoAankoopPrijs = Product.GeefBrutoAankoopPrijs() 
 		} 
 	}
-	
+	Do ##class(Tools.Wlip).%New(26).String("ProductID " _ProductID)
+	Do ##class(Tools.Wlip).%New(26).String("ProductData.KortTekst " _ProductData.KortTekst)
 	Quit ProductData
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLVHProductNummer">
 <FormalSpec>OrderLineIdentificationCustomer:%String,BLExportLijn:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim LVHProductNummer As %String = $$$Trim($Extract(BLExportLijn,56,74))
-	
+	Do ##class(Tools.Wlip).%New(26).String("LVHProductNummer " _LVHProductNummer)
 	if (LVHProductNummer = "")
 	{
 		#dim ToeleveringID As %String = $Piece(OrderLineIdentificationCustomer,".",1)
-		#dim ToeleveringLijnID As %String = "1" _$Piece(OrderLineIdentificationCustomer,".",2)
+		#dim ToeleveringLijnID As %Integer = $Piece(OrderLineIdentificationCustomer,".",2) * 100
 		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
-		#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(ToeleveringLijnID)
+		#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
+		Do ##class(Tools.Wlip).%New(26).String("ToeleveringID " _ToeleveringID)
+		Do ##class(Tools.Wlip).%New(26).String("ToeleveringLijnID " _ToeleveringLijnID)
+		Do ##class(Tools.Wlip).%New(26).String("ToeleveringLijn.GeefProductID() " _ToeleveringLijn.GeefProductID())
 		Quit:(ToeleveringLijn '= "") ToeleveringLijn.GeefProductID()
 	} 
 	Quit LVHProductNummer
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar/GeefCOMSO/Test.cls.xml
===================================================================
diff -u -r35208 -r35450
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar/GeefCOMSO/Test.cls.xml	(.../Test.cls.xml)	(revision 35208)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar/GeefCOMSO/Test.cls.xml	(.../Test.cls.xml)	(revision 35450)
@@ -56,7 +56,7 @@
 	#dim ToeleveringLijnMock As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
 	Do ToeleveringLijnMock.IndienMethodCall("GeefProductID").DanReturn("DummyProductID")
 
-	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijnViaVolgNr", $$$ElkeWaarde).DanReturn(ToeleveringLijnMock)
+	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijn", $$$ElkeWaarde).DanReturn(ToeleveringLijnMock)
 	
 	#dim DataVerzamelaar As APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar).%New(ProductAPIMock, ToeleveringAPIMock)
 	#dim COMSO As APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO = DataVerzamelaar.GeefCOMSO()