Index: AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator/DataBouwer.cls.xml
===================================================================
diff -u -r49353 -r49402
--- AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 49353)
+++ AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 49402)
@@ -3,6 +3,11 @@
 <Class name="AXimpl.Controle.Order.Admin.AdminUniekeOrderLijnIterator.DataBouwer">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AdminOrderLijnIterator">
 <Type>AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</Type>
 <Private>1</Private>
@@ -22,6 +27,7 @@
 <Implementation><![CDATA[
 	Set ..AdminOrderLijnIterator = $$$Inject(AdminOrderLijnIterator, ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New())
 	Set ..ProductOrderLijnRepository = $$$Inject(ProductOrderLijnRepository, ##class(AXimpl.Controle.Order.ProductOrderLijnRepository).%New())
+	Set ..LegacyPartijAPI = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -33,7 +39,7 @@
 	While (..AdminOrderLijnIterator.HasNext()) {
 		#dim AdminOrderLijn As DOM.VKP.ProductOrderlijn = ..AdminOrderLijnIterator.Next()
 		#dim Order As DOM.VKP.Order = AdminOrderLijn.GeefOrder()
-		#dim KlantNr As %String = $Extract(Order.GeefKlantID(),4,*)
+		#dim KlantNr As %String = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Order.GeefKlantID())
 		#dim OrderId As %String = Order.GeefID()
 		#dim OrderLijnId As %String = AdminOrderLijn.GeefID()
 		#dim ProductNr As %String = AdminOrderLijn.GeefProductID()
Index: vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml
===================================================================
diff -u -r49390 -r49402
--- vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49390)
+++ vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 49402)
@@ -53,6 +53,7 @@
 		
 	Set ..AxProductConvertorMock = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	Do ..AxProductConvertorMock.IndienMethodCall("GeefBlumKunde",..#ProductId).DanDoeNiks()
+	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
 	
 	#dim LeverAdresMock As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
 	
@@ -84,8 +85,6 @@
 
 <Method name="Test: Convert returnt het juiste type">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals($classname(ConvertedProductOrderLijn),"AXimpl.Controle.Order.OrderLijn")
@@ -94,8 +93,6 @@
 
 <Method name="Test: Klant bevat het KlantNr">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Klant,"01234")
@@ -104,8 +101,6 @@
 
 <Method name="Test: LeverDatum bevat de LeverDag volgens format jaar streepje maand streepje dag">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.LeverDatum,"2017-07-06")
@@ -116,8 +111,6 @@
 <Implementation><![CDATA[
 	Do ..ProductOrderLijnStub.IndienMethodCall("GeefAxConfigId").DanReturn("")
 	
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Product,"0.123.451.0")
@@ -127,7 +120,6 @@
 <Method name="Test: Als er een AxConfigId op de OrderLijn staat dan moet het IdentNummer van het Generisch product gebruikt worden">
 <Implementation><![CDATA[
 	Do ..ProductOrderLijnStub.IndienMethodCall("GeefAxConfigId").DanReturn("AxConfigId")
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
 	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
@@ -153,7 +145,6 @@
 
 <Method name="Test: VerkoopOrderId bevat het AxSalesId">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
 	Do ..AxProductConvertorMock.IndienMethodCall("GeefBlumKunde",..#ProductId).DanDoeNiks()
 	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
@@ -164,8 +155,6 @@
 
 <Method name="Test: VerkoopOrderLijnId bevat het AxInventTransId">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.VerkoopOrderLijnId,"000019541")
@@ -174,8 +163,6 @@
 
 <Method name="Test: ConfigId bevat het ConfigId">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.ConfigId,"ConfigId")
@@ -184,8 +171,6 @@
 
 <Method name="Test: Land bevat het Land van de klant in Iso3 formaat">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Land,"BEL")
@@ -194,8 +179,6 @@
 
 <Method name="Test: Postcode bevat de Postcode van de klant">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Postcode,"9100")
@@ -206,8 +189,6 @@
 <Implementation><![CDATA[
 	Do ..Product.ZetLeverancierId("L||4321")
 	
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanDoeNiks()
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Sopr,"")
@@ -216,7 +197,6 @@
 
 <Method name="Test: Sopr roept de AxProductConvertor op als het een Blumproduct betreft">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
 	Do ..AxProductConvertorMock.VerwachtMethodCall("GeefBlumKunde",..#ProductId).DanDoeNiks()
 	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
@@ -227,8 +207,6 @@
 
 <Method name="Test: Stad bevat de Stad van de klant">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Stad,"Sint-Niklaas")
@@ -237,8 +215,6 @@
 
 <Method name="Test: Straat bevat de Straat van de klant">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Straat,"Ankerstraat 91")
@@ -247,8 +223,6 @@
 
 <Method name="Test: Hoeveelheid is de 2e parameter van de Convert">
 <Implementation><![CDATA[
-	Do ..AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn(..#ProductId)
-	
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
 	
 	Do $$$AssertEquals(ConvertedProductOrderLijn.Hoeveelheid,..Aantal)
Index: AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml
===================================================================
diff -u -r49369 -r49402
--- AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml	(.../AxOrderLijnConverter.cls.xml)	(revision 49369)
+++ AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml	(.../AxOrderLijnConverter.cls.xml)	(revision 49402)
@@ -8,18 +8,18 @@
 <ReturnType>AXimpl.Controle.Order.OrderLijn</ReturnType>
 <Implementation><![CDATA[
 	Set ConvertedAxOrderLijn = ##class(AXimpl.Controle.Order.OrderLijn).%New()
-	Set ConvertedAxOrderLijn.Klant = ResultSet.GetData(2)
-	Set ConvertedAxOrderLijn.LeverDatum = $Piece(ResultSet.GetData(5)," ",1)
-	Set ConvertedAxOrderLijn.Product = ResultSet.GetData(4)
-	Set ConvertedAxOrderLijn.VerkoopOrderId = ResultSet.GetData(1)
-	Set ConvertedAxOrderLijn.VerkoopOrderLijnId = ResultSet.GetData(3)
-	Set ConvertedAxOrderLijn.ConfigId = $$$If(ResultSet.GetData(9)=$Char(0),"",ResultSet.GetData(9))
-	Set ConvertedAxOrderLijn.Hoeveelheid = $$$ExcelNum(ResultSet.GetData(8) - ResultSet.GetData(7))
-	Set ConvertedAxOrderLijn.Land = ResultSet.GetData(11)
-	Set ConvertedAxOrderLijn.Postcode = ResultSet.GetData(14)
-	Set ConvertedAxOrderLijn.Sopr = $$$If(ResultSet.GetData(10)=$Char(0),"",ResultSet.GetData(10))
-	Set ConvertedAxOrderLijn.Stad = ResultSet.GetData(12)
-	Set ConvertedAxOrderLijn.Straat = ResultSet.GetData(13)
+	Set ConvertedAxOrderLijn.Klant = ResultSet.GetDataByName("CustAccount")
+	Set ConvertedAxOrderLijn.LeverDatum = $Piece(ResultSet.GetDataByName("CONFIRMEDDLV")," ",1)
+	Set ConvertedAxOrderLijn.Product = ResultSet.GetDataByName("itemid")
+	Set ConvertedAxOrderLijn.VerkoopOrderId = ResultSet.GetDataByName("SalesId")
+	Set ConvertedAxOrderLijn.VerkoopOrderLijnId = ResultSet.GetDataByName("inventtransid")
+	Set ConvertedAxOrderLijn.ConfigId = $$$If(ResultSet.GetDataByName("CONFIGID")=$Char(0),"",ResultSet.GetDataByName("CONFIGID"))
+	Set ConvertedAxOrderLijn.Hoeveelheid = $$$ExcelNum(ResultSet.GetDataByName("OpenstaandeHoeveelheid") - ResultSet.GetDataByName("GepickteHoeveelheid"))
+	Set ConvertedAxOrderLijn.Land = ResultSet.GetDataByName("CountryRegionId")
+	Set ConvertedAxOrderLijn.Postcode = ResultSet.GetDataByName("Zipcode")
+	Set ConvertedAxOrderLijn.Sopr = $$$If(ResultSet.GetDataByName("ADUSOPRContractId")=$Char(0),"",ResultSet.GetDataByName("ADUSOPRContractId"))
+	Set ConvertedAxOrderLijn.Stad = ResultSet.GetDataByName("City")
+	Set ConvertedAxOrderLijn.Straat = ResultSet.GetDataByName("Street")
 	
 	Quit ConvertedAxOrderLijn
 ]]></Implementation>
Index: vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml
===================================================================
diff -u -r49353 -r49402
--- vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 49353)
+++ vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 49402)
@@ -8,42 +8,42 @@
 <InitialExpression>7</InitialExpression>
 </Property>
 
-<Property name="AxInventTransId8">
+<Property name="AxInventTransIdA">
 <Type>%String</Type>
 <InitialExpression>"1456"</InitialExpression>
 </Property>
 
-<Property name="AxInventTransId9">
+<Property name="AxInventTransIdB">
 <Type>%String</Type>
 <InitialExpression>"2456"</InitialExpression>
 </Property>
 
-<Property name="KlantNr8">
+<Property name="KlantNrA">
 <Type>%String</Type>
 <InitialExpression>"1111"</InitialExpression>
 </Property>
 
-<Property name="KlantNr9">
+<Property name="KlantNrB">
 <Type>%String</Type>
 <InitialExpression>"2111"</InitialExpression>
 </Property>
 
-<Property name="OrderId8">
+<Property name="OrderIdA">
 <Type>%Integer</Type>
 <InitialExpression>1789</InitialExpression>
 </Property>
 
-<Property name="OrderId9">
+<Property name="OrderIdB">
 <Type>%Integer</Type>
 <InitialExpression>2789</InitialExpression>
 </Property>
 
-<Property name="ProductNr8">
+<Property name="ProductNrA">
 <Type>%String</Type>
 <InitialExpression>"1000"</InitialExpression>
 </Property>
 
-<Property name="ProductNr9">
+<Property name="ProductNrB">
 <Type>%String</Type>
 <InitialExpression>"2000"</InitialExpression>
 </Property>
@@ -73,145 +73,145 @@
 
 <Method name="Test: BestaatVolgensKlantNrOrderIdProductNrAxInventTransId als er geen record bestaat">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn8(1)
+	Do ..VoegToeProductOrderLijn("A",1)
 	
-	#dim Result9 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	Do $$$AssertFalse(Result9)
+	Do $$$AssertFalse(BestaatB)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BestaatVolgensKlantNrOrderIdProductNrAxInventTransId als de Global leeg is">
 <Implementation><![CDATA[
 	Do ..VerwijderData()
 	
-	#dim Result9 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	Do $$$AssertFalse(Result9)
+	Do $$$AssertFalse(BestaatB)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BestaatVolgensKlantNrOrderIdProductNrAxInventTransId als er een record bestaat">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn9(1)
+	Do ..VoegToeProductOrderLijn("B",1)
 	
-	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	Do $$$AssertTrue(Result)
+	Do $$$AssertTrue(BestaatB)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BestaatVolgensKlantNrOrderIdProductNrAxInventTransId als er meerdere records bestaan">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn9(9)
+	Do ..VoegToeProductOrderLijn("B",9)
 	
-	#dim Result As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	Do $$$AssertTrue(Result)
+	Do $$$AssertTrue(BestaatB)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId als er geen record bestaat">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn8(1)
+	Do ..VoegToeProductOrderLijn("A",1)
 	
-	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	#dim Result9 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
-	#dim Result8 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr8,..OrderId8,..ProductNr8,..AxInventTransId8)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
+	#dim BestaatA As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrA,..OrderIdA,..ProductNrA,..AxInventTransIdA)
 	
-	Do $$$AssertFalse(Result9)
-	Do $$$AssertTrue(Result8)
+	Do $$$AssertFalse(BestaatB)
+	Do $$$AssertTrue(BestaatA)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId als de Global leeg is">
 <Implementation><![CDATA[
 	Do ..VerwijderData()
 	
-	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	#dim Result9 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	Do $$$AssertFalse(Result9)
+	Do $$$AssertFalse(BestaatB)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId als er een record bestaat">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn9(1)
-	Do ..VoegToeProductOrderLijn8(1)
+	Do ..VoegToeProductOrderLijn("B",1)
+	Do ..VoegToeProductOrderLijn("A",1)
 	
-	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	#dim Result9 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
-	#dim Result8 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr8,..OrderId8,..ProductNr8,..AxInventTransId8)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
+	#dim BestaatA As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrA,..OrderIdA,..ProductNrA,..AxInventTransIdA)
 	
-	Do $$$AssertFalse(Result9)
-	Do $$$AssertTrue(Result8)
+	Do $$$AssertFalse(BestaatB)
+	Do $$$AssertTrue(BestaatA)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId als er meerdere records bestaan">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn9(9)
-	Do ..VoegToeProductOrderLijn8(9)
+	Do ..VoegToeProductOrderLijn("B",9)
+	Do ..VoegToeProductOrderLijn("A",9)
 	
-	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	Do ..GeefProductOrderLijnRepository().VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	#dim Result9 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
-	#dim Result8 As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr8,..OrderId8,..ProductNr8,..AxInventTransId8)
+	#dim BestaatB As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
+	#dim BestaatA As %Boolean = ..GeefProductOrderLijnRepository().BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrA,..OrderIdA,..ProductNrA,..AxInventTransIdA)
 	
-	Do $$$AssertFalse(Result9)
-	Do $$$AssertTrue(Result8)
+	Do $$$AssertFalse(BestaatB)
+	Do $$$AssertTrue(BestaatA)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId als er geen record bestaat">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn8(1)
+	Do ..VoegToeProductOrderLijn("A",1)
 	
-	#dim Result9 As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
-	#dim Result8 As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr8,..OrderId8,..ProductNr8,..AxInventTransId8)
+	#dim AantalB As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
+	#dim AantalA As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrA,..OrderIdA,..ProductNrA,..AxInventTransIdA)
 	
-	Do $$$AssertEquals(Result9,0)
-	Do $$$AssertEquals(Result8,7)
+	Do $$$AssertEquals(AantalB,0)
+	Do $$$AssertEquals(AantalA,7)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId als de Global leeg is">
 <Implementation><![CDATA[
 	Do ..VerwijderData()
 	
-	#dim Result9 As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
+	#dim AantalB As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
 	
-	Do $$$AssertEquals(Result9,0)
+	Do $$$AssertEquals(AantalB,0)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId als er een record bestaat">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn9(1)
-	Do ..VoegToeProductOrderLijn8(9)
+	Do ..VoegToeProductOrderLijn("B",1)
+	Do ..VoegToeProductOrderLijn("A",9)
 	
-	#dim Result9 As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
-	#dim Result8 As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr8,..OrderId8,..ProductNr8,..AxInventTransId8)
+	#dim AantalB As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
+	#dim AantalA As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrA,..OrderIdA,..ProductNrA,..AxInventTransIdA)
 	
-	Do $$$AssertEquals(Result9,7)
-	Do $$$AssertEquals(Result8,63)
+	Do $$$AssertEquals(AantalB,7)
+	Do $$$AssertEquals(AantalA,63)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId als er meerdere records bestaan">
 <Implementation><![CDATA[
-	Do ..VoegToeProductOrderLijn9(9)
-	Do ..VoegToeProductOrderLijn8(1)
+	Do ..VoegToeProductOrderLijn("B",9)
+	Do ..VoegToeProductOrderLijn("A",1)
 	
-	#dim Result9 As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr9,..OrderId9,..ProductNr9,..AxInventTransId9)
-	#dim Result8 As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNr8,..OrderId8,..ProductNr8,..AxInventTransId8)
+	#dim AantalB As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrB,..OrderIdB,..ProductNrB,..AxInventTransIdB)
+	#dim AantalA As %Integer = ..GeefProductOrderLijnRepository().GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(..KlantNrA,..OrderIdA,..ProductNrA,..AxInventTransIdA)
 	
-	Do $$$AssertEquals(Result9,63)
-	Do $$$AssertEquals(Result8,7)
+	Do $$$AssertEquals(AantalB,63)
+	Do $$$AssertEquals(AantalA,7)
 ]]></Implementation>
 </Method>
 
@@ -224,72 +224,82 @@
 <Method name="VerwijderData">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim ProductOrderLijnNr As %Integer
-	For ProductOrderLijnNr=0:1:9 {
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AD(99999_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr9,99999_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId9,99999_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr9,99999_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_..AxInventTransId9,99999_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..AxInventTransId9," "_..KlantNr9," "_..OrderId9," "_..ProductNr9,99999_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AD(99998_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr8,99998_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId8,99998_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr8,99998_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_..AxInventTransId8,99998_ProductOrderLijnNr)
-		Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..AxInventTransId8," "_..KlantNr8," "_..OrderId8," "_..ProductNr8,99998_ProductOrderLijnNr)
+	#dim ProductOrderLijnNr, GlobalPositie As %Integer
+	#dim Instantie As %Char
+	For GlobalPositie=7:1:9 {
+		For Instantie="A","B" {
+			For ProductOrderLijnNr=0:1:9 {
+				#dim KlantNr As %String = $property($this,"KlantNr"_Instantie)
+				#dim OrderId As %String = $property($this,"OrderId"_Instantie)
+				#dim ProductNr As %String = $property($this,"ProductNr"_Instantie)
+				#dim AxInventTransId As %String = $property($this,"AxInventTransId"_Instantie)
+				Kill ^AXimpl.Con7EC2.ProductOrdeAC5AD(9999_GlobalPositie_ProductOrderLijnNr)
+				Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_KlantNr,9999_GlobalPositie_ProductOrderLijnNr)
+				Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_OrderId,9999_GlobalPositie_ProductOrderLijnNr)
+				Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_ProductNr,9999_GlobalPositie_ProductOrderLijnNr)
+				Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_AxInventTransId,9999_GlobalPositie_ProductOrderLijnNr)
+				Kill ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_AxInventTransId," "_KlantNr," "_OrderId," "_ProductNr,9999_GlobalPositie_ProductOrderLijnNr)
+			}
+		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeProductOrderLijn8">
-<FormalSpec>AantalProductOrderLijnen:%Integer</FormalSpec>
+<Method name="VoegToeProductOrderLijn">
+<FormalSpec>Instantie:%Char,AantalProductOrderLijnen:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	If $$$Not(##class(TECH.StringUtils).Equals(Instantie, "A", "B")) {
+		Do ..ThrowExceptieInstantie(Instantie)
+	}
+	
 	If (AantalProductOrderLijnen > 9) {
-		Do ..ThrowExceptie(AantalProductOrderLijnen)
+		Do ..ThrowExceptieAantal(AantalProductOrderLijnen)
 	}
 	
+	#dim GlobalPositie As %Integer = ..GeefGlobalPosition(Instantie)
+	#dim KlantNr As %String = $property($this,"KlantNr"_Instantie)
+	#dim OrderId As %String = $property($this,"OrderId"_Instantie)
+	#dim ProductNr As %String = $property($this,"ProductNr"_Instantie)
+	#dim AxInventTransId As %String = $property($this,"AxInventTransId"_Instantie)
 	#dim ProductOrderLijnNr As %Integer
 	For ProductOrderLijnNr=1:1:AantalProductOrderLijnen {
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr8,99998_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId8,99998_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr8,99998_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_..AxInventTransId8,99998_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..AxInventTransId8," "_..KlantNr8," "_..OrderId8," "_..ProductNr8,99998_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AD(99998_ProductOrderLijnNr) = $ListBuild("",..Aantal,..AxInventTransId8,..KlantNr8,..OrderId8,"00"_ProductOrderLijnNr,..ProductNr8)
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_KlantNr,9999_GlobalPositie_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_OrderId,9999_GlobalPositie_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_ProductNr,9999_GlobalPositie_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_AxInventTransId,9999_GlobalPositie_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_AxInventTransId," "_KlantNr," "_OrderId," "_ProductNr,9999_GlobalPositie_ProductOrderLijnNr) = ""
+		Set ^AXimpl.Con7EC2.ProductOrdeAC5AD(9999_GlobalPositie_ProductOrderLijnNr) = $ListBuild("",..Aantal,AxInventTransId,KlantNr,OrderId,"00"_ProductOrderLijnNr,ProductNr)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeProductOrderLijn9">
-<FormalSpec>AantalProductOrderLijnen:%Integer</FormalSpec>
+<Method name="GeefGlobalPosition">
+<FormalSpec>Instantie:%Char</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (AantalProductOrderLijnen > 9) {
-		Do ..ThrowExceptie(AantalProductOrderLijnen)
-	}
-	
-	#dim ProductOrderLijnNr As %Integer
-	For ProductOrderLijnNr=1:1:AantalProductOrderLijnen {
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr9,99999_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId9,99999_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr9,99999_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_..AxInventTransId9,99999_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..AxInventTransId9," "_..KlantNr9," "_..OrderId9," "_..ProductNr9,99999_ProductOrderLijnNr) = ""
-		Set ^AXimpl.Con7EC2.ProductOrdeAC5AD(99999_ProductOrderLijnNr) = $ListBuild("",..Aantal,..AxInventTransId9,..KlantNr9,..OrderId9,"00"_ProductOrderLijnNr,..ProductNr9)
-	}
+	Quit:Instantie="A" 8
+	Quit:Instantie="B" 9
 ]]></Implementation>
 </Method>
 
-<Method name="ThrowExceptie">
+<Method name="ThrowExceptieAantal">
 <FormalSpec>AantalProductOrderLijnen:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("AantalProductOrderLijnen mag maximaal 9 zijn. AantalProductOrderLijnen = '"_AantalProductOrderLijnen_"'")
+	Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("AantalProductOrderLijnen mag maximaal 9 zijn. Opgegeven AantalProductOrderLijnen = '"_AantalProductOrderLijnen_"'")
 	Do ##class(TECH.ExceptionHandler).%New().Throw(Exceptie)
 ]]></Implementation>
 </Method>
+
+<Method name="ThrowExceptieInstantie">
+<FormalSpec>Instantie:%Char</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Instantie mag enkel A of B zijn. Opgegeven Instantie = '"_Instantie_"'")
+	Do ##class(TECH.ExceptionHandler).%New().Throw(Exceptie)
+]]></Implementation>
+</Method>
 </Class>