Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml	(revision 0)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml	(revision 37066)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.EXT.Unishop.PurchaseOrder001.OrderConverter.Converteer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: 1 gewone lade mag verwerkt worden">
+<Implementation><![CDATA[
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
+	
+	Set ObjectConverterStub = ##class(vhTest.Mock.TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Do ObjectConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(ObjectConverterStub,AanvraagHeader)
+	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	
+	Set TeConverterenOrder.Lijnen = Orderlijnen
+	
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = OrderConverter.Converteer(TeConverterenOrder)
+	
+	do $$$AssertEquals(Resultaat.Order.Lijnen.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 gewone lade en 1 beslagproduct: enkel lade verwerken">
+<Implementation><![CDATA[
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
+	
+	Set ObjectConverterStub = ##class(vhTest.Mock.TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Do ObjectConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(ObjectConverterStub,AanvraagHeader)
+	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegBeslagToe(Orderlijnen)
+	
+	Set TeConverterenOrder.Lijnen = Orderlijnen
+	
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = OrderConverter.Converteer(TeConverterenOrder)
+	
+	do $$$AssertEquals(Resultaat.Order.Lijnen.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 beslagproduct en 2 lades: enkel laden verwerken">
+<Implementation><![CDATA[
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
+	
+	Set ObjectConverterStub = ##class(vhTest.Mock.TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Do ObjectConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(ObjectConverterStub,AanvraagHeader)
+	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegBeslagToe(Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	
+	Set TeConverterenOrder.Lijnen = Orderlijnen
+	
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = OrderConverter.Converteer(TeConverterenOrder)
+	
+	do $$$AssertEquals(Resultaat.Order.Lijnen.Count(),2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: enkel 1 beslagproduct: niets verwerken">
+<Implementation><![CDATA[
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
+	
+	Set ObjectConverterStub = ##class(vhTest.Mock.TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Do ObjectConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(ObjectConverterStub,AanvraagHeader)
+	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegBeslagToe(Orderlijnen)
+	
+	Set TeConverterenOrder.Lijnen = Orderlijnen
+	
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = OrderConverter.Converteer(TeConverterenOrder)
+	
+	do $$$AssertEquals(Resultaat.Order.Lijnen.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: niets te verwerken">
+<Implementation><![CDATA[
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
+	
+	Set ObjectConverterStub = ##class(vhTest.Mock.TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Do ObjectConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(ObjectConverterStub,AanvraagHeader)
+	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	
+	Set TeConverterenOrder.Lijnen = Orderlijnen
+	
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = OrderConverter.Converteer(TeConverterenOrder)
+	
+	do $$$AssertEquals(Resultaat.Order.Lijnen.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="VoegLadeTypeToe">
+<FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If LadeType = "TBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%New()
+	} ElseIf LadeType = "LBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%New()
+	} Else {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).%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="VoegBeslagToe">
+<FormalSpec><![CDATA[&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BeslagProduct = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Beslagproduct).%New()
+	Set Orderlijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New()
+	Set Orderlijn.Product = BeslagProduct
+	Do OrderLijnen.Insert(Orderlijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml
===================================================================
diff -u -r36951 -r37066
--- EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 36951)
+++ EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 37066)
@@ -36,10 +36,13 @@
 	set AppsOrder = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
 	
 	do ..Converter.Convert(ExtOrder,AppsOrder,..OrderConverteerOpties)
-		
+	
+	#dim OrderLine As EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn
 	set LijnenIterator = ##class(TECH.ListIterator).%New(ExtOrder.Lijnen)
 	while LijnenIterator.HasNext() {
-		do AppsOrder.Lijnen.Insert(..ConverteerLijn(LijnenIterator.Next()))
+		Set OrderLine = LijnenIterator.Next()
+		Continue:OrderLine.Product.%Extends("EXT.Unishop.PurchaseOrder001.CreateOrder.Beslagproduct") 
+		do AppsOrder.Lijnen.Insert(..ConverteerLijn(OrderLine))
 	}
 	
 	set PlaatsBestellingAanvraag.Order = AppsOrder