Index: AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(revision 0)
+++ AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(revision 50947)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker">
+<Super>TECH.Mockable</Super>
+
+<Property name="ProductLookup">
+<Type>AXimpl.Admin.Common.ProductBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MultiGlobalLocker">
+<Type>TECH.Lock.MultiGlobalLocker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CurrentLegalEntity">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductLookup:AXimpl.Admin.Common.ProductBepaler,MultiGlobalLocker:TECH.Lock.MultiGlobalLocker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	 Set ..ProductLookup = $$$Inject(ProductLookup,##class(AXimpl.Admin.Common.ProductBepaler).%New())
+	 Set ..MultiGlobalLocker = $$$Inject(MultiGlobalLocker,##class(TECH.Lock.MultiGlobalLocker).%New())
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTeLockenProducten">
+<FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</FormalSpec>
+<Implementation><![CDATA[
+	Do ..MultiGlobalLocker.ClearGlobalRefs()
+	try {
+		Set JournalTableIterator = ##class(TECH.ListIterator).%New(WMSJournalOutRequest.JournalTable)
+		
+		While JournalTableIterator.HasNext() {
+			#dim JournalEntry as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable = JournalTableIterator.Next()
+			Set ..CurrentLegalEntity = JournalEntry.LegalEntityId
+			Set JournalLineIterator = ##class(TECH.ListIterator).%New(JournalEntry.JournalTrans)
+			While JournalLineIterator.HasNext()	{
+				#dim JournalEntryLine as AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans = JournalLineIterator.Next()
+				#dim LeverancierID as %String = ..BepaalLeverancierId(JournalEntryLine)
+				#dim ProductId as %String = ..ProductLookup.GeefProductIdVoorLeverancierId(JournalEntryLine.ItemId,LeverancierID,JournalEntryLine.SOPRContractId)
+				Do ..MultiGlobalLocker.VoegToeGlobalRef("^KPR("_ ProductId_")")
+			}
+		}	
+	} catch {
+		Do ..MultiGlobalLocker.ClearGlobalRefs()
+		Do ##class(TECH.ExceptionHandler).Rethrow(##class(TECH.ExceptionHandler).Catch())		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTeLockenProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..MultiGlobalLocker.HeeftTeLockenNodes()
+]]></Implementation>
+</Method>
+
+<Method name="LockProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..MultiGlobalLocker.Lock()
+]]></Implementation>
+</Method>
+
+<Method name="UnlockProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..MultiGlobalLocker.Unlock()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLeverancierId">
+<FormalSpec>JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if JournalEntryLine.InventTransType = "Sales" {
+		Quit "L||6051" ;Van Hoecke voor terugnames
+	} else {
+		if ..CurrentLegalEntity = "vhbe" {
+			Quit ##class(AXimpl.AxToAdminUtils).ConvertSupplierID(JournalEntryLine.CustVendAccount)
+		} else { 
+			Quit ##class(AXimpl.AxToAdminUtils).ConvertSupplierIDHLX(JournalEntryLine.CustVendAccount)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(revision 50947)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalTeLockenProducten">
+<FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BepaalTeLockenProducten",WMSJournalOutRequest)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTeLockenProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftTeLockenProducten")
+]]></Implementation>
+</Method>
+
+<Method name="LockProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("LockProducten")
+]]></Implementation>
+</Method>
+
+<Method name="UnlockProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("UnlockProducten")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker/Test.cls.xml	(revision 50947)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test gedrag bepalen te locken producten">
+<Implementation><![CDATA[
+	Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New()
+	Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer","L||1234").DanReturn(987654)
+	Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","Identnummer2","L||5678").DanReturn(876543)
+	
+	Set MultiGlobalLockerMock = ##class(vhTest.Mock.TECH.Lock.MultiGlobalLocker).%New()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("ClearGlobalRefs").DanDoeNiks()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("VoegToeGlobalRef","^KPR(987654)").DanDoeNiks()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("VoegToeGlobalRef","^KPR(876543)").DanDoeNiks()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("HeeftTeLockenNodes").DanReturn($$$True)
+	
+	Set ProductLocker = ##class(AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker).%New(ProductLookupMock,MultiGlobalLockerMock)
+	
+	Do ProductLocker.BepaalTeLockenProducten(..GeefJournal("ontvangstjournaal.xml"))
+
+	Do $$$AssertTrue(ProductLocker.HeeftTeLockenProducten())
+	
+	Do ProductLookupMock.Verifieer()
+	Do MultiGlobalLockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test HeeftTeLockenProducten roept HeeftTeLockenNodes van multigloballocker aan">
+<Implementation><![CDATA[
+	Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New()
+	
+	Set MultiGlobalLockerMock = ##class(vhTest.Mock.TECH.Lock.MultiGlobalLocker).%New()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("HeeftTeLockenNodes").DanReturn($$$True)
+	
+	Set ProductLocker = ##class(AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker).%New(ProductLookupMock,MultiGlobalLockerMock)
+	
+	Do $$$AssertTrue(ProductLocker.HeeftTeLockenProducten())
+	
+	Do MultiGlobalLockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test LockProducten roept Lock van multigloballocker aan">
+<Implementation><![CDATA[
+	Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New()
+	
+	Set MultiGlobalLockerMock = ##class(vhTest.Mock.TECH.Lock.MultiGlobalLocker).%New()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("Lock",5).DanReturn($$$True)
+	
+	Set ProductLocker = ##class(AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker).%New(ProductLookupMock,MultiGlobalLockerMock)
+	
+	Do $$$AssertTrue(ProductLocker.LockProducten())
+	
+	Do MultiGlobalLockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test UnlockProducten roept Unlock van multigloballocker aan">
+<Implementation><![CDATA[
+	Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New()
+	
+	Set MultiGlobalLockerMock = ##class(vhTest.Mock.TECH.Lock.MultiGlobalLocker).%New()
+	Do MultiGlobalLockerMock.VerwachtMethodCall("Unlock",0).DanReturn($$$True)
+	
+	Set ProductLocker = ##class(AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker).%New(ProductLookupMock,MultiGlobalLockerMock)
+	
+	Do $$$AssertTrue(ProductLocker.UnlockProducten())
+	
+
+	Do MultiGlobalLockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefJournal">
+<FormalSpec>filenaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</ReturnType>
+<Implementation><![CDATA[
+	#dim XmlCorrelater As TECH.XMLCorrelater = ##class(TECH.XMLCorrelater).%New()
+    #dim ClassName As %String = ##class(AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut).%ClassName(1)
+    #dim VolledigeBestandsnaam as %String = ##class(TECH.Files).AppendFile(..GeefBestandLocatie(""),filenaam)
+    #dim Journal As AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut = XmlCorrelater.GeefObjectVanBestand(VolledigeBestandsnaam ,ClassName,"AxdADUMsgWMSJournalOut")
+    quit Journal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Dynamics/InventoryIn/Converter/TeOntvangenProductLocker.cls.xml	(revision 50947)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker</Super>
+
+<Method name="BepaalTeLockenProducten">
+<FormalSpec>WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTeLockenProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="LockProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="UnlockProducten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/UnitTests/AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker/Test/ontvangstjournaal.xml
===================================================================
diff -u
--- vhTestFiles/UnitTests/AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker/Test/ontvangstjournaal.xml	(revision 0)
+++ vhTestFiles/UnitTests/AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker/Test/ontvangstjournaal.xml	(revision 50947)
@@ -0,0 +1,20 @@
+<AxdADUMsgWMSJournalOut>
+    <JournalTable>
+        <JournalId>500001</JournalId>
+        <LegalEntityId>vhbe</LegalEntityId>
+        <JournalTrans>
+            <CustVendAccount>1234</CustVendAccount>
+            <InventTransType>Purch</InventTransType>
+            <ItemId>Identnummer</ItemId>
+            <JournalLineNum>1</JournalLineNum>
+            <Qty>25</Qty>
+        </JournalTrans>
+        <JournalTrans>
+            <CustVendAccount>5678</CustVendAccount>
+            <InventTransType>Purch</InventTransType>
+            <ItemId>Identnummer2</ItemId>
+            <JournalLineNum>2</JournalLineNum>
+            <Qty>26</Qty>
+        </JournalTrans>
+    </JournalTable>
+</AxdADUMsgWMSJournalOut>