Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r35723 -r35839
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35723)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35839)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="ProductConverter">
-<Type>APPS.EDI.common.ProductConverter</Type>
+<Type>APPS.EDI.common.impl.ProductConverter</Type>
 <Private>1</Private>
 </Property>
 
@@ -24,7 +24,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ExterneVerkoopService:APPS.EC.ExterneVerkoopService,ProductConverter:APPS.EDI.common.ProductConverter,OfferteService:APPS.VKP.OfferteService</FormalSpec>
+<FormalSpec>ExterneVerkoopService:APPS.EC.ExterneVerkoopService,ProductConverter:APPS.EDI.common.impl.ProductConverter,OfferteService:APPS.VKP.OfferteService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -118,7 +118,10 @@
 <FormalSpec>OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ProductConverter.GeefIngegevenKenmerken(Lijn.Product,..Aanvraag.Header.KlantID,..Aanvraag.Header.PersonalityID)
+	#dim ConvertOpties As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
+	Do ConvertOpties.InsertKeyValue("KlantID",..Aanvraag.Header.KlantID)
+	Do ConvertOpties.InsertKeyValue("PersonalityID",..Aanvraag.Header.PersonalityID)
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ProductConverter.Convert(Lijn.Product,,ConvertOpties)
 	Do ..OfferteService.VoegToeMaatwerk(..OfferteService.GeefOfferte(OfferteID),IngegevenKenmerken,Lijn.Aantal,Lijn.Referentie)
 ]]></Implementation>
 </Method>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r35827 -r35839
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35827)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35839)
@@ -101,7 +101,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ConvertOpties As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
-	Do ConvertOpties.InsertKeyValue("Aantal","1")
+	Do ConvertOpties.InsertKeyValue("Aantal",Lijn.Aantal)
 	Do ..WebOrder.Lijnen.SetAt(..ProductConverter.Convert(Lijn.Product,, ConvertOpties), Volgnummer)
 ]]></Implementation>
 </Method>
Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u -r35468 -r35839
--- APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35468)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35839)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EDI.common.impl.ProductConverter">
-<Super>TECH.RegisteredObject,APPS.EDI.common.ProductConverter</Super>
+<Super>TECH.Converter</Super>
 
 <Property name="ObjectConverter">
 <Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
@@ -65,14 +65,26 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIngegevenKenmerken">
-<FormalSpec>Product:APPS.EDI.common.dto.Product,KlantID:%String,PersonalityID:%String</FormalSpec>
+<Method name="Convert">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.Product,&IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Opties:TECH.KeyValue.List=""]]></FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set ..PersonalityID = PersonalityID	
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConverteerNaarIngegevenKenmerken(Product)
-	do ..VervolledigIngegevenKenmerken(IngegevenKenmerken,KlantID)
-	quit IngegevenKenmerken
+	#dim KlantID As %String
+	If Opties.GetValuesForKey("KlantID").Count() > 0 {
+		Set KlantID = Opties.GetValuesForKey("KlantID").GetAt(1)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Verkeerde KlantID"))
+	}
+	
+	If Opties.GetValuesForKey("PersonalityID").Count() > 0 {
+		Set ..PersonalityID = Opties.GetValuesForKey("PersonalityID").GetAt(1)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Verkeerde PersonalityID"))
+	}
+	
+	Set IngegevenKenmerken  = ..ConverteerNaarIngegevenKenmerken(Product)
+	Do ..VervolledigIngegevenKenmerken(IngegevenKenmerken,KlantID)
+	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35715 -r35839
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35715)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35839)
@@ -83,8 +83,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
-	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
+	Set ProductConverterStub = ##class(vhTest.Mock.TECH.Converter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
@@ -111,8 +111,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
-	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
+	Set ProductConverterStub = ##class(vhTest.Mock.TECH.Converter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
@@ -138,8 +138,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
-	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
+	Set ProductConverterStub = ##class(vhTest.Mock.TECH.Converter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(0)
@@ -165,8 +165,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
-	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
+	Set ProductConverterStub = ##class(vhTest.Mock.TECH.Converter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(0)
@@ -193,8 +193,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen	
 	
-	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
-	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
+	Set ProductConverterStub = ##class(vhTest.Mock.TECH.Converter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
@@ -224,8 +224,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
-	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
+	Set ProductConverterStub = ##class(vhTest.Mock.TECH.Converter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
FishEye: Tag 35839 refers to a dead (removed) revision in file `APPS/EDI/common/ProductConverter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 35839 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EDI/common/ProductConverter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?