Index: vhUnitTest/Prod/VoorraadBeweging/AxReferentieBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Prod/VoorraadBeweging/AxReferentieBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/Prod/VoorraadBeweging/AxReferentieBepaler/Test.cls.xml	(revision 54451)
@@ -0,0 +1,198 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Prod.VoorraadBeweging.AxReferentieBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="PRNr">
+<Type>%String</Type>
+<Default>TestPRNr</Default>
+</Parameter>
+
+<Parameter name="AxInventTransId">
+<Type>%String</Type>
+<Default>TestAxInventTransId</Default>
+</Parameter>
+
+<Parameter name="AxConfigId">
+<Type>%String</Type>
+<Default>TestAxConfigId</Default>
+</Parameter>
+
+<Parameter name="AxMaatwerkGenerischItemId">
+<Type>%String</Type>
+<Default>TestAxMaatwerkGenerischItemId</Default>
+</Parameter>
+
+<Parameter name="BonNummer">
+<Type>%String</Type>
+<Default>TestBonNummer</Default>
+</Parameter>
+
+<Parameter name="ToeleveringNummer">
+<Type>%String</Type>
+<Default>TestToeleveringNummer</Default>
+</Parameter>
+
+<Parameter name="LijnNummer">
+<Type>%String</Type>
+<Default>100</Default>
+</Parameter>
+
+<Parameter name="UniekLijnNummer">
+<Type>%Integer</Type>
+<Default>102</Default>
+</Parameter>
+
+<Property name="OrderApiMock">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApiMock">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TranslatorFake">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##Super()
+	Set ..OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Set ..TranslatorFake = ##class(vhTest.Fake.AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	
+	Do ..ZetDataOp()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..KillData()
+	Do ##Super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als BonOfToeleveringNummer leeg is zijn AxConfigId en AxInventTransId leeg en AxItemId is identnummer via translator">
+<Implementation><![CDATA[
+	#dim AxReferentieBepaler As Prod.VoorraadBeweging.AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New("", ..#LijnNummer, ..OrderApiMock, ..ToeleveringApiMock, ..TranslatorFake)
+	
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxConfigId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxInventTransId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxItemId(..#PRNr),"Identnummer")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LijnNummer leeg is zijn AxConfigId en AxInventTransId leeg en AxItemId is identnummer via translator">
+<Implementation><![CDATA[
+	#dim AxReferentieBepaler As Prod.VoorraadBeweging.AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New(..#BonNummer, "", ..OrderApiMock, ..ToeleveringApiMock, ..TranslatorFake)
+	
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxConfigId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxInventTransId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxItemId(..#PRNr),"Identnummer")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als BonOfToeleveringNummer en LijnNummer meegegeven zijn en BonOfToeleveringNummer is een BonNummer =&gt; AxIds afhalen van BonLijn">
+<Implementation><![CDATA[
+	#dim OrderlijnMock As DOM.VKP.Orderlijn = ##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn(..#AxInventTransId, ..#UniekLijnNummer)
+	Do OrderlijnMock.VerwachtMethodCall("GeefAxInventTransId").DanReturn(..#AxInventTransId)
+	Do OrderlijnMock.VerwachtMethodCall("GeefAxConfigId").DanReturn(..#AxConfigId)
+	Do OrderlijnMock.VerwachtMethodCall("GeefAxMaatwerkGenerischItemId").DanReturn(..#AxMaatwerkGenerischItemId)
+	
+	#dim BonStub As DOM.VKP.Bon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	Do BonStub.IndienMethodCall("GeefBonLijnViaVolgnummer", ..#UniekLijnNummer).DanReturn(OrderlijnMock)
+	
+	Do ..OrderApiMock.IndienMethodCall("BestaatBon", ..#BonNummer).DanReturn($$$True)
+	Do ..OrderApiMock.IndienMethodCall("GeefBon", ..#BonNummer, "F").DanReturn(BonStub)
+	
+	#dim AxReferentieBepaler As Prod.VoorraadBeweging.AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New(..#BonNummer, ..#LijnNummer, ..OrderApiMock, ..ToeleveringApiMock)
+	
+	Do OrderlijnMock.Verifieer()
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxConfigId(), ..#AxConfigId)
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxInventTransId(), ..#AxInventTransId)
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxItemId(), ..#AxMaatwerkGenerischItemId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als BonOfToeleveringNummer en LijnNummer meegegeven zijn en BonOfToeleveringNummer is een ToeleveringNummer =&gt; AxIds afhalen van ToeleveringLijn">
+<Implementation><![CDATA[
+	#dim ToeleveringLijnMock As DOM.AKP.ToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijnMock.VerwachtMethodCall("GeefAxInventTransId").DanReturn(..#AxInventTransId)
+	Do ToeleveringLijnMock.VerwachtMethodCall("GeefAxConfigId").DanReturn(..#AxConfigId)
+	Do ToeleveringLijnMock.VerwachtMethodCall("GeefAxMaatwerkGenerischItemId").DanReturn(..#AxMaatwerkGenerischItemId)
+	
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnViaVolgNr", ..#UniekLijnNummer).DanReturn(ToeleveringLijnMock)
+	
+	Do ..OrderApiMock.IndienMethodCall("BestaatBon", ..#ToeleveringNummer).DanReturn($$$False)
+	Do ..ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#ToeleveringNummer).DanReturn($$$True)
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#ToeleveringNummer).DanReturn(ToeleveringStub)
+	
+	#dim AxReferentieBepaler As Prod.VoorraadBeweging.AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New(..#ToeleveringNummer, ..#LijnNummer, ..OrderApiMock, ..ToeleveringApiMock)
+	
+	Do ToeleveringLijnMock.Verifieer()
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxConfigId(), ..#AxConfigId)
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxInventTransId(), ..#AxInventTransId)
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxItemId(), ..#AxMaatwerkGenerischItemId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als BonOfToeleveringNummer een BonNummer is en UniekLijnNummer niet gevonden =&gt; AxConfigId en AxInventTransId leeg en AxItemId is identnummer via translator">
+<Implementation><![CDATA[
+	Do ..KillData()
+	
+	#dim BonDummy As DOM.VKP.Bon = ##class(vhTest.Mock.DOM.VKP.Bon).%New()
+	
+	Do ..OrderApiMock.IndienMethodCall("BestaatBon", ..#BonNummer).DanReturn($$$True)
+	Do ..OrderApiMock.IndienMethodCall("GeefBon", ..#BonNummer, "F").DanReturn(BonDummy)
+	
+	#dim AxReferentieBepaler As Prod.VoorraadBeweging.AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New(..#BonNummer, ..#LijnNummer, ..OrderApiMock, ..ToeleveringApiMock, ..TranslatorFake)
+	
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxConfigId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxInventTransId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxItemId(..#PRNr),"Identnummer")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als BonOfToeleveringNummer een ToeleveringNummer is en UniekLijnNummer niet gevonden =&gt; AxConfigId en AxInventTransId leeg en AxItemId is identnummer via translator">
+<Implementation><![CDATA[
+	Do ..KillData()
+	
+	#dim ToeleveringDummy As DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	Do ..OrderApiMock.IndienMethodCall("BestaatBon", ..#ToeleveringNummer).DanReturn($$$False)
+	Do ..ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#ToeleveringNummer).DanReturn($$$True)
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#ToeleveringNummer).DanReturn(ToeleveringDummy)
+	
+	#dim AxReferentieBepaler As Prod.VoorraadBeweging.AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New(..#ToeleveringNummer, ..#LijnNummer, ..OrderApiMock, ..ToeleveringApiMock, ..TranslatorFake)
+	
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxConfigId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxInventTransId(),"")
+	Do $$$AssertEquals(AxReferentieBepaler.GeefAxItemId(..#PRNr),"Identnummer")
+]]></Implementation>
+</Method>
+
+<Method name="ZetDataOp">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^BON("IU",..#BonNummer,..#LijnNummer) = ..#UniekLijnNummer
+	Set ^TO("IU",..#ToeleveringNummer,..#LijnNummer) = ..#UniekLijnNummer
+]]></Implementation>
+</Method>
+
+<Method name="KillData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ^BON("IU",..#BonNummer,..#LijnNummer)
+	Kill ^TO("IU",..#ToeleveringNummer,..#LijnNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Prod/VoorraadBeweging/AxReferentieBepaler.cls.xml
===================================================================
diff -u
--- Prod/VoorraadBeweging/AxReferentieBepaler.cls.xml	(revision 0)
+++ Prod/VoorraadBeweging/AxReferentieBepaler.cls.xml	(revision 54451)
@@ -0,0 +1,137 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Prod.VoorraadBeweging.AxReferentieBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AxConfigId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxInventTransId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxItemId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BonOfToeleveringNummer:%String,LijnNummer:%String,OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Translator:AX.Uitgaand.EC.DataAX.impl.Translator=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi, ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New())
+	Set ..Translator = $$$Inject(Translator, ##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New())
+	
+	Do ..ZetIds(BonOfToeleveringNummer, LijnNummer)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxInventTransId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AxInventTransId
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxConfigId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AxConfigId
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxItemId">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AxItemId As %String = ..AxItemId
+	
+	If ($$$Not($$$HasLength(AxItemId))) {
+		Set AxItemId = ..Translator.GeefItemIDForAX(PRNr)
+	}
+	
+	Quit AxItemId
+]]></Implementation>
+</Method>
+
+<Method name="ZetIds">
+<FormalSpec>BonOfToeleveringNummer:%Integer,LijnNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim IsBon As %Boolean = $$$False
+	#dim IsToelevering As %Boolean = $$$False
+	#dim Bon As DOM.VKP.Bon
+	#dim Toelevering As DOM.AKP.Toelevering
+	#dim BonLijn As DOM.VKP.Orderlijn
+	#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn
+	#dim UniekLijnNummer As %Integer
+	
+	If (($$$HasLength(BonOfToeleveringNummer)) && ($$$HasLength(LijnNummer))) {
+		Set IsBon = ..OrderApi.BestaatBon(BonOfToeleveringNummer)
+		If $$$Not(IsBon) {
+			Set IsToelevering = ..ToeleveringApi.BestaatToelevering(BonOfToeleveringNummer)
+		}
+	}
+	
+	If IsBon {
+		Set Bon = ..OrderApi.GeefBon(BonOfToeleveringNummer)
+		If $Data(^BON("IU",BonOfToeleveringNummer,LijnNummer)) {
+			Set UniekLijnNummer = ^BON("IU",BonOfToeleveringNummer,LijnNummer)
+			Set BonLijn = Bon.GeefBonLijnViaVolgnummer(UniekLijnNummer)
+			Set ..AxConfigId = BonLijn.GeefAxConfigId()
+			Set ..AxInventTransId = BonLijn.GeefAxInventTransId()
+			Set ..AxItemId = BonLijn.GeefAxMaatwerkGenerischItemId()
+		} Else {
+			Do ..ZetIdsLeeg()
+		}
+	} ElseIf IsToelevering {
+		Set Toelevering = ..ToeleveringApi.GeefToelevering(BonOfToeleveringNummer)
+		If $Data(^TO("IU",BonOfToeleveringNummer,LijnNummer)) {
+			Set UniekLijnNummer = ^TO("IU",BonOfToeleveringNummer,LijnNummer)
+			Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(UniekLijnNummer)
+			Set ..AxConfigId = ToeleveringLijn.GeefAxConfigId()
+			Set ..AxInventTransId = ToeleveringLijn.GeefAxInventTransId()
+			Set ..AxItemId = ToeleveringLijn.GeefAxMaatwerkGenerischItemId()
+		} Else {
+			Do ..ZetIdsLeeg()
+		}
+	} Else {
+		Do ..ZetIdsLeeg()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetIdsLeeg">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..AxConfigId = ""
+	Set ..AxInventTransId = ""
+	Set ..AxItemId = ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>