Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r35625 -r35658
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35625)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35658)
@@ -19,14 +19,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ExterneVerkoopService:APPS.EC.ExterneVerkoopService</FormalSpec>
+<FormalSpec>ExterneVerkoopService:APPS.EC.ExterneVerkoopService,ProductConverter:APPS.EDI.common.ProductConverter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..ExterneVerkoopService = $$$Implementation(ExterneVerkoopService,##class(APPS.EC.impl.ExterneVerkoopService).%New())
-	set ..ProductConverter = ##class(APPS.EDI.common.impl.ProductConverter).%New()
+	set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService,##class(APPS.EC.impl.ExterneVerkoopService).%New())
+	set ..ProductConverter = $$$Inject(ProductConverter,##class(APPS.EDI.common.impl.ProductConverter).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -91,11 +91,19 @@
 <FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	quit:$$$Not($IsObject(Order))
+	Quit:$$$Not($IsObject(Order))	
 	
-	set Iterator = ##class(TECH.ListIterator).%New(Order.Lijnen)
-	while Iterator.HasNext() {
-		do ..VoegToeLijn(OfferteID,Iterator.Next())
+	Set ValueList = ##class(TECH.KeyValue.List).%New()
+	Do ValueList.InsertKeyValue("Product.LadeType","LBX")
+	Do ValueList.InsertKeyValue("Product.LadeType","TAX")
+	
+	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(Order.Lijnen)
+	#dim FilterIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(Iterator,,Filter)
+	
+	while FilterIterator.HasNext() {
+		do ..VoegToeLijn(OfferteID,FilterIterator.Next())
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r35625 -r35658
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35625)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35658)
@@ -13,6 +13,12 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeLijn">
+<FormalSpec>OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35625 -r35658
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35625)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35658)
@@ -70,9 +70,164 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Aanvraag bevat geen TBX">
+<Method name="Test: Indien 1 LBX in Aanvraag: 1x ExterneVerkoopService VoegToeMaatwerk oproepen">
+<Implementation><![CDATA[
+	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(1)
+	
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	
+	#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 UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	
+	do ExterneVerkoopServiceMock.Verifieer()
+]]></Implementation>
 </Method>
 
+<Method name="Test: Indien 1 LBX en 1 TAX in Aanvraag: 2x ExterneVerkoopService VoegToeMaatwerk oproepen">
+<Implementation><![CDATA[
+	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(2)
+	
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+
+	#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 UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	
+	do ExterneVerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien 1 TBX in Aanvraag: 0x ExterneVerkoopService VoegToeMaatwerk oproepen">
+<Implementation><![CDATA[
+	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(0)
+	
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	
+	#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 UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	
+	do ExterneVerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien 2 TBX in Aanvraag: 0x ExterneVerkoopService VoegToeMaatwerk oproepen">
+<Implementation><![CDATA[
+	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(0)
+
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	
+	#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 UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	
+	do ExterneVerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien 2 TBX en 1 LBX  in Aanvraag: 1x ExterneVerkoopService VoegToeMaatwerk oproepen">
+<Implementation><![CDATA[
+	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(1)
+	
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	
+	#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 UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	
+	do ExterneVerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien 2 TBX en 2 LBX en 1 TAX in Aanvraag: 3x ExterneVerkoopService VoegToeMaatwerk oproepen">
+<Implementation><![CDATA[
+	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(3)
+	
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	
+	#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 UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	
+	do ExterneVerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="VoegLadeTypeToe">
+<FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%New()
+	Set Product.LadeType = LadeType
+	Set Orderlijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New()
+	Set Orderlijn.Product = Product
+	Do OrderLijnen.Insert(Orderlijn)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanvraag">
 <Private>1</Private>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
Index: EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml
===================================================================
diff -u -r33312 -r35658
--- EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml	(.../LadeEigenschappenLBX.cls.xml)	(revision 33312)
+++ EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml	(.../LadeEigenschappenLBX.cls.xml)	(revision 35658)
@@ -66,6 +66,12 @@
 <Parameter name="XMLNAME" value="SiphonDataWidthRightY"/>
 </Property>
 
+<Property name="LadeType">
+<Type>%String</Type>
+<InitialExpression>"LBX"</InitialExpression>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>LadeEigenschappenLBXState</State>
@@ -167,6 +173,9 @@
 <Value name="32">
 <Value>ZijwandType</Value>
 </Value>
+<Value name="33">
+<Value>LadeType</Value>
+</Value>
 </Data>
 <Data name="LadeEigenschappenState">
 <Subscript>"LadeEigenschappen"</Subscript>
Index: APPS/EDI/common/dto/v001/Lade.cls.xml
===================================================================
diff -u -r33650 -r35658
--- APPS/EDI/common/dto/v001/Lade.cls.xml	(.../Lade.cls.xml)	(revision 33650)
+++ APPS/EDI/common/dto/v001/Lade.cls.xml	(.../Lade.cls.xml)	(revision 35658)
@@ -96,6 +96,10 @@
 <Type>TECH.String</Type>
 <Collection>list</Collection>
 </Property>
+
+<Property name="LadeType">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTAX.cls.xml
===================================================================
diff -u -r33312 -r35658
--- EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTAX.cls.xml	(.../LadeEigenschappenTAX.cls.xml)	(revision 33312)
+++ EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTAX.cls.xml	(.../LadeEigenschappenTAX.cls.xml)	(revision 35658)
@@ -36,6 +36,12 @@
 <Parameter name="XMLNAME" value="TypeLockingDevice"/>
 </Property>
 
+<Property name="LadeType">
+<Type>%String</Type>
+<InitialExpression>"TAX"</InitialExpression>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
 <Property name="LosseComponent">
 <Description>
 Nog niet ondersteund via EDI </Description>
@@ -214,6 +220,9 @@
 <Value name="27">
 <Value>LosseComponent</Value>
 </Value>
+<Value name="28">
+<Value>LadeType</Value>
+</Value>
 </Data>
 </Storage>
 </Class>