Index: APPS/EDI/Bestel/BestelService/PlaatsBestelling/Order.cls.xml
===================================================================
diff -u -r32161 -r32215
--- APPS/EDI/Bestel/BestelService/PlaatsBestelling/Order.cls.xml	(.../Order.cls.xml)	(revision 32161)
+++ APPS/EDI/Bestel/BestelService/PlaatsBestelling/Order.cls.xml	(.../Order.cls.xml)	(revision 32215)
@@ -30,7 +30,7 @@
 </Property>
 
 <Property name="Lijnen">
-<Type>APPS.EDI.Bestel.BestelService.PlaatsBestelling.OrderLijn</Type>
+<Type>APPS.EDI.common.dto.ProductLijn</Type>
 <Collection>list</Collection>
 <Required>1</Required>
 </Property>
Index: EXT/Unishop/PurchaseOrderService001/OrderConverter.cls.xml
===================================================================
diff -u
--- EXT/Unishop/PurchaseOrderService001/OrderConverter.cls.xml	(revision 0)
+++ EXT/Unishop/PurchaseOrderService001/OrderConverter.cls.xml	(revision 32215)
@@ -0,0 +1,151 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Unishop.PurchaseOrderService001.OrderConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Converter">
+<Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Converter:TECH.ObjectUtils.impl.ObjectConverter</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Converter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>Request:EXT.Unishop.PurchaseOrderService001.CreateOrder.Request</FormalSpec>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
+<Implementation><![CDATA[
+	set PlaatsBestellingAanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	set PlaatsBestellingAanvraag.KlantID = "SFS_12345680"
+	set PlaatsBestellingAanvraag.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+		
+	set Order = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
+	
+	do ..Converter.Convert(Request.Order,Order,..OrderConverteerOpties)
+	
+	set LijnenIterator = ##class(TECH.ListIterator).%New(Request.Order.Lijnen)
+	while LijnenIterator.HasNext() {
+		do Order.Lijnen.Insert(..ConverteerLijn(LijnenIterator.Next()))
+	}
+	
+	set PlaatsBestellingAanvraag.Order = Order
+	quit PlaatsBestellingAanvraag
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>OrderLine:EXT.Unishop.PurchaseOrderService001.CreateOrder.OrderLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EDI.common.dto.ProductLijn</ReturnType>
+<Implementation><![CDATA[
+	set ProductLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
+	do ..Converter.Convert(OrderLine,ProductLijn,..OrderLijnConverteerOpties)
+	
+	set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTAX).%New()
+	do ..Converter.Convert(OrderLine.Product,LadeEigenschappen,..LadeEigenschappenConverteerOpties)
+	set ProductLijn.Product = LadeEigenschappen
+	
+	quit ProductLijn
+]]></Implementation>
+</Method>
+
+<Property name="LadeEigenschappenConverteerOpties">
+<Type>TECH.ObjectUtils.ObjectConvertData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="LadeEigenschappenConverteerOptiesGet">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	set r%LadeEigenschappenConverteerOpties = $$$LazyLoad(r%LadeEigenschappenConverteerOpties,..VerzamelLadeEigenschappenConverteerOpties())
+	quit r%LadeEigenschappenConverteerOpties
+]]></Implementation>
+</Method>
+
+<Method name="VerzamelLadeEigenschappenConverteerOpties">
+<Implementation><![CDATA[
+	set ConverterData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties("APPS.EDI.common.dto.v001.LadeTAX")
+	set PropertyIterator = ##class(TECH.ListIterator).%New(Properties)
+	while PropertyIterator.HasNext() {
+		#dim PropertyName As %String = PropertyIterator.Next()
+		continue:PropertyName="NietMeeleveren"
+		do ConverterData.Add(PropertyName,PropertyName)
+	}
+	quit ConverterData
+]]></Implementation>
+</Method>
+
+<Property name="OrderLijnConverteerOpties">
+<Type>TECH.ObjectUtils.ObjectConvertData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OrderLijnConverteerOptiesGet">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	set r%OrderLijnConverteerOpties = $$$LazyLoad(r%OrderLijnConverteerOpties,..VerzamelOrderLijnConverteerOpties())
+	quit r%OrderLijnConverteerOpties
+]]></Implementation>
+</Method>
+
+<Method name="VerzamelOrderLijnConverteerOpties">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	set ConverterData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties("APPS.EDI.common.dto.ProductLijn")
+	set PropertyIterator = ##class(TECH.ListIterator).%New(Properties)
+	while PropertyIterator.HasNext() {
+		#dim PropertyName As %String = PropertyIterator.Next()
+		continue:PropertyName="Product"
+		do ConverterData.Add(PropertyName,PropertyName)
+	}
+	quit ConverterData
+]]></Implementation>
+</Method>
+
+<Property name="OrderConverteerOpties">
+<Type>TECH.ObjectUtils.ObjectConvertData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OrderConverteerOptiesGet">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	set r%OrderConverteerOpties = $$$LazyLoad(r%OrderConverteerOpties,..VerzamelOrderConverteerOpties())
+	quit r%OrderConverteerOpties
+]]></Implementation>
+</Method>
+
+<Method name="VerzamelOrderConverteerOpties">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	set ConverterData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties("APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order")
+	set PropertyIterator = ##class(TECH.ListIterator).%New(Properties)
+	while PropertyIterator.HasNext() {
+		#dim PropertyName As %String = PropertyIterator.Next()
+		continue:PropertyName="Lijnen"
+		do ConverterData.Add(PropertyName,PropertyName)
+	}
+	quit ConverterData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 32215 refers to a dead (removed) revision in file `APPS/EDI/Bestel/BestelService/PlaatsBestelling/OrderLijn.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: EXT/Unishop/PurchaseOrderService001/CreateOrder/LadeEigenschappen/NietMeeleveren.cls.xml
===================================================================
diff -u
--- EXT/Unishop/PurchaseOrderService001/CreateOrder/LadeEigenschappen/NietMeeleveren.cls.xml	(revision 0)
+++ EXT/Unishop/PurchaseOrderService001/CreateOrder/LadeEigenschappen/NietMeeleveren.cls.xml	(revision 32215)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Unishop.PurchaseOrderService001.CreateOrder.LadeEigenschappen.NietMeeleveren">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>NotRequiredForDelivery</Default>
+</Parameter>
+
+<Property name="FrontBevestiging">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="XMLNAME" value="FrontAttachment"/>
+</Property>
+
+<Property name="GlijderType">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="XMLNAME" value="RunnerType"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>NietMeeleverenState</State>
+<StreamLocation>^EXT.UnishopD2C7.NietMeeleverenS</StreamLocation>
+<Data name="NietMeeleverenState">
+<Value name="1">
+<Value>FrontBevestiging</Value>
+</Value>
+<Value name="2">
+<Value>GlijderType</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
FishEye: Tag 32215 refers to a dead (removed) revision in file `APPS/EDI/Bestel/BestelService/PlaatsBestelling/LadeEigenschappenLBX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 32215 refers to a dead (removed) revision in file `APPS/EDI/Bestel/BestelService/PlaatsBestelling/LadeEigenschappenTAX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: EXT/Unishop/PurchaseOrderService001/Exception.cls.xml
===================================================================
diff -u
--- EXT/Unishop/PurchaseOrderService001/Exception.cls.xml	(revision 0)
+++ EXT/Unishop/PurchaseOrderService001/Exception.cls.xml	(revision 32215)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Unishop.PurchaseOrderService001.Exception">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="Code">
+<Type>%String</Type>
+</Property>
+
+<Property name="Description">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>ExceptionState</State>
+<StreamLocation>^EXT.Unishop.PurcAC2F.ExceptionS</StreamLocation>
+<Data name="ExceptionState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Code</Value>
+</Value>
+<Value name="2">
+<Value>Description</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: EXT/Unishop/PurchaseOrderService001/CreateOrder/OrderLijn.cls.xml
===================================================================
diff -u -r32161 -r32215
--- EXT/Unishop/PurchaseOrderService001/CreateOrder/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 32161)
+++ EXT/Unishop/PurchaseOrderService001/CreateOrder/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 32215)
@@ -28,7 +28,7 @@
 <Parameter name="XMLPROJECTION" value="NONE"/>
 </Property>
 
-<Property name="ProductEigenschappen">
+<Property name="Product">
 <Type>EXT.Unishop.PurchaseOrderService001.CreateOrder.ProductEigenschappen</Type>
 <Parameter name="XMLNAME" value="ProductFeatures"/>
 </Property>
Index: EXT/Unishop/PurchaseOrderService001/CreateOrder/Response.cls.xml
===================================================================
diff -u -r32161 -r32215
--- EXT/Unishop/PurchaseOrderService001/CreateOrder/Response.cls.xml	(.../Response.cls.xml)	(revision 32161)
+++ EXT/Unishop/PurchaseOrderService001/CreateOrder/Response.cls.xml	(.../Response.cls.xml)	(revision 32215)
@@ -7,6 +7,10 @@
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="ShoppingCartNumber"/>
 </Property>
+
+<Property name="Exception">
+<Type>EXT.Unishop.PurchaseOrderService001.Exception</Type>
+</Property>
 </Class>
 
 
Index: APPS/EDI/common/dto/ProductLijn.cls.xml
===================================================================
diff -u -r32078 -r32215
--- APPS/EDI/common/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 32078)
+++ APPS/EDI/common/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 32215)
@@ -3,13 +3,25 @@
 <Class name="APPS.EDI.common.dto.ProductLijn">
 <Super>TECH.DataTransferObject</Super>
 
+<Property name="Nummer">
+<Type>TECH.String</Type>
+</Property>
+
 <Property name="Aantal">
 <Type>%Integer</Type>
 </Property>
 
 <Property name="Product">
 <Type>APPS.EDI.common.dto.Product</Type>
 </Property>
+
+<Property name="Referentie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="GevraagdeLeverdatum">
+<Type>TECH.String</Type>
+</Property>
 </Class>
 
 
FishEye: Tag 32215 refers to a dead (removed) revision in file `APPS/EDI/Bestel/BestelService/PlaatsBestelling/ProductEigenschappen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: EXT/Unishop/PurchaseOrderService001/CreateOrder/Aankoper.cls.xml
===================================================================
diff -u -r32161 -r32215
--- EXT/Unishop/PurchaseOrderService001/CreateOrder/Aankoper.cls.xml	(.../Aankoper.cls.xml)	(revision 32161)
+++ EXT/Unishop/PurchaseOrderService001/CreateOrder/Aankoper.cls.xml	(.../Aankoper.cls.xml)	(revision 32215)
@@ -41,6 +41,36 @@
 <Type>TECH.String</Type>
 <Parameter name="XMLNAME" value="DeliveryCountry"/>
 </Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>AankoperState</State>
+<Data name="AankoperState">
+<Structure>listnode</Structure>
+<Subscript>"Aankoper"</Subscript>
+<Value name="1">
+<Value>Naam</Value>
+</Value>
+<Value name="2">
+<Value>Code</Value>
+</Value>
+<Value name="3">
+<Value>LeveringNaam</Value>
+</Value>
+<Value name="4">
+<Value>LeveringStraatNrBus</Value>
+</Value>
+<Value name="5">
+<Value>LeveringPostcode</Value>
+</Value>
+<Value name="6">
+<Value>LeveringWoonplaats</Value>
+</Value>
+<Value name="7">
+<Value>LeveringLand</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 
 
FishEye: Tag 32215 refers to a dead (removed) revision in file `APPS/EDI/Bestel/BestelService/PlaatsBestelling/LadeEigenschappen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: EXT/Unishop/PurchaseOrderService001/CreateOrder/DataTransferObject.cls.xml
===================================================================
diff -u -r32161 -r32215
--- EXT/Unishop/PurchaseOrderService001/CreateOrder/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 32161)
+++ EXT/Unishop/PurchaseOrderService001/CreateOrder/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 32215)
@@ -3,14 +3,19 @@
 <Class name="EXT.Unishop.PurchaseOrderService001.CreateOrder.DataTransferObject">
 <Abstract>1</Abstract>
 <IncludeCode>vhLib.Macro</IncludeCode>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Super>%SerialObject,%XML.Adaptor</Super>
 
 <Parameter name="XMLIGNORENULL">
 <Type>STRING</Type>
 <Constraint>,0,1,inputonly,runtime</Constraint>
 <Default>1</Default>
 <Flags>ENUM</Flags>
 </Parameter>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^EXT.UnishoADF0.DataTransfe59C6S</StreamLocation>
+</Storage>
 </Class>
 
 
Index: EXT/Unishop/PurchaseOrderService001/CreateOrder/LadeEigenschappen.cls.xml
===================================================================
diff -u -r32161 -r32215
--- EXT/Unishop/PurchaseOrderService001/CreateOrder/LadeEigenschappen.cls.xml	(.../LadeEigenschappen.cls.xml)	(revision 32161)
+++ EXT/Unishop/PurchaseOrderService001/CreateOrder/LadeEigenschappen.cls.xml	(.../LadeEigenschappen.cls.xml)	(revision 32215)
@@ -104,6 +104,11 @@
 <Type>TECH.String</Type>
 <Parameter name="XMLNAME" value="MatColour"/>
 </Property>
+
+<Property name="NietMeeleveren">
+<Type>EXT.Unishop.PurchaseOrderService001.CreateOrder.LadeEigenschappen.NietMeeleveren</Type>
+<Parameter name="XMLNAME" value="NotRequiredForDelivery"/>
+</Property>
 </Class>
 
 
Index: EXT/Unishop/PurchaseOrderService001/Service.cls.xml
===================================================================
diff -u -r32161 -r32215
--- EXT/Unishop/PurchaseOrderService001/Service.cls.xml	(.../Service.cls.xml)	(revision 32161)
+++ EXT/Unishop/PurchaseOrderService001/Service.cls.xml	(.../Service.cls.xml)	(revision 32215)
@@ -11,13 +11,36 @@
 <Default>http://vanhoecke.be</Default>
 </Parameter>
 
+<Property name="BestelService">
+<Type>APPS.EDI.Bestel.BestelService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RequestConverter">
+<Type>EXT.Unishop.PurchaseOrderService001.OrderConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New()
+	set ..RequestConverter = ##class(EXT.Unishop.PurchaseOrderService001.OrderConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="CreateOrder">
 <FormalSpec>CreateOrderRequest:EXT.Unishop.PurchaseOrderService001.CreateOrder.Request</FormalSpec>
 <ReturnType>EXT.Unishop.PurchaseOrderService001.CreateOrder.Response</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New()
-	quit ..CreateResponse(BestelService.PlaatsBestelling(..ConvertRequest(CreateOrderRequest)))
+	#dim Response As EXT.Unishop.PurchaseOrderService001.CreateOrder.Response
+	set Response = ..CreateResponse(..BestelService.PlaatsBestelling(..RequestConverter.Converteer(CreateOrderRequest)))
+	quit Response
 ]]></Implementation>
 </Method>
 
@@ -28,24 +51,11 @@
 <Implementation><![CDATA[
 	set Response = ##class(EXT.Unishop.PurchaseOrderService001.CreateOrder.Response).%New()
 	set Response.OfferteID = Resultaat.OfferteID
-	if $length(Resultaat.Exceptie) do ##class(TECH.ExceptionHandler).Throw(Resultaat.Exceptie)
+	set Response.Exception.Code = Resultaat.Exceptie.GeefExceptionCode()
+	do Response.Exception.Description.WriteLine(Resultaat.Exceptie.ToString()) 
 	quit Response
 ]]></Implementation>
 </Method>
-
-<Method name="ConvertRequest">
-<FormalSpec>CreateOrderRequest:EXT.Unishop.PurchaseOrderService001.CreateOrder.Request</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
-<Implementation><![CDATA[
-	set PlaatsBestellingAanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	set PlaatsBestellingAanvraag.KlantID = "SFS_12345680"
-	set PlaatsBestellingAanvraag.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
-	
-	set PlaatsBestellingAanvraag.Order = CreateOrderRequest.Order
-	quit PlaatsBestellingAanvraag
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r32161 -r32215
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 32161)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 32215)
@@ -44,8 +44,8 @@
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		do ..ExterneVerkoopService.WisOfferte(Offerte.OfferteID)
-		set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
-		set Resultaat.Exceptie = Exception
+	 	set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	 	set Resultaat.Exceptie = Exception
 	}
 	quit Resultaat
 ]]></Implementation>
@@ -59,7 +59,7 @@
 	
 	set Iterator = ##class(TECH.ListIterator).%New(Order.Lijnen)
 	while Iterator.HasNext() {
-		do ..VoegToeLijn(Iterator.Next())
+		do ..VoegToeLijn(OfferteID,Iterator.Next())
 	}
 ]]></Implementation>
 </Method>
@@ -68,7 +68,7 @@
 <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(..Aanvraag.KlantID,Lijn.Product)
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ProductConverter.GeefIngegevenKenmerken(Lijn.Product,..Aanvraag.KlantID,..Aanvraag.PersonalityID)
 	do ..ExterneVerkoopService.VoegToeMaatwerk(OfferteID,IngegevenKenmerken,Lijn.Aantal,"")
 ]]></Implementation>
 </Method>