Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml =================================================================== diff -u -r44580 -r44589 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44580) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44589) @@ -95,7 +95,7 @@ Do SoprProductConverterStub.IndienMethodCall("GeefBlumKunde","102").DanReturn("BlumKunde") Set AxInventSyncCreatorMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator).%New() - Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","10","10","05005").DanDoeNiks().ExactAantalKeer(0) + Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","10","10","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","101","10","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","102","10","05005").DanDoeNiks().ExactAantalKeer(1) @@ -107,7 +107,7 @@ #dim Response As AXif.Dynamics.InventoryOut.MessageParts = Converter.Convert(Request) Do AxInventSyncCreatorMock.Verifieer() - Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),2) + Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),3) ]]> @@ -141,12 +141,12 @@ Do SoprProductConverterStub.IndienMethodCall("GeefBlumKunde","303").DanReturn("BlumKunde") Set AxInventSyncCreatorMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator).%New() - Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","10","10","05005").DanDoeNiks().ExactAantalKeer(0) + Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","10","10","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","101","10","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","102","10","05005").DanDoeNiks().ExactAantalKeer(1) - Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","20","20","05005").DanDoeNiks().ExactAantalKeer(0) + Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","20","20","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","201","20","05005").DanDoeNiks().ExactAantalKeer(1) - Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","30","30","05005").DanDoeNiks().ExactAantalKeer(0) + Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","30","30","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","301","30","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","302","30","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","303","30","05005").DanDoeNiks().ExactAantalKeer(1) @@ -159,7 +159,7 @@ #dim Response As AXif.Dynamics.InventoryOut.MessageParts = Converter.Convert(Request) Do AxInventSyncCreatorMock.Verifieer() - Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),6) + Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),9) ]]> @@ -189,11 +189,11 @@ Do SoprProductConverterStub.IndienMethodCall("GeefBlumKunde","303").DanReturn("BlumKunde") Set AxInventSyncCreatorMock = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator).%New() - Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","10","10","05005").DanDoeNiks().ExactAantalKeer(0) + Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","10","10","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","101","10","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","102","10","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","20","","").DanDoeNiks().ExactAantalKeer(1) - Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","30","30","05005").DanDoeNiks().ExactAantalKeer(0) + Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","30","30","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","301","30","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","302","30","05005").DanDoeNiks().ExactAantalKeer(1) Do AxInventSyncCreatorMock.VerwachtMethodCall("MaakInventSync","303","30","05005").DanDoeNiks().ExactAantalKeer(1) @@ -206,7 +206,7 @@ #dim Response As AXif.Dynamics.InventoryOut.MessageParts = Converter.Convert(Request) Do AxInventSyncCreatorMock.Verifieer() - Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),6) + Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),8) ]]> Index: AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml =================================================================== diff -u -r44580 -r44589 --- AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml (.../InventoryOutConverter.cls.xml) (revision 44580) +++ AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml (.../InventoryOutConverter.cls.xml) (revision 44589) @@ -48,16 +48,14 @@ While PRNrIterator.HasNext(){ Set SoprPRNr = "" Set PRNr = PRNrIterator.Next() - If ('..SoprProductConverter.IsSOPRInAX(PRNr)){ + If ('..SoprProductConverter.IsSOPRInAX(PRNr)){ // Het is GEEN principale SOPR, want geen SOPR in AX Do AxdEntityHeader.InventSync.Insert(..AxInventSyncCreator.MaakInventSync(PRNr)) - } Else { + } Else { // Het is WEL een principale SOPR, want een SOPR in AX Set SoprIterator = ..SoprProductConverter.GeefSOPRIterator(PRNr) While SoprIterator.HasNext(){ Set SoprPRNr = SoprIterator.Next() - If (SoprPRNr '= PRNr){ - Set BlumKunde = ..BlumKundeConverter.AdminNaarAx(..SoprProductConverter.GeefBlumKunde(SoprPRNr)) - Do AxdEntityHeader.InventSync.Insert(..AxInventSyncCreator.MaakInventSync(SoprPRNr, PRNr, BlumKunde)) - } + Set BlumKunde = ..BlumKundeConverter.AdminNaarAx(..SoprProductConverter.GeefBlumKunde(SoprPRNr)) + Do AxdEntityHeader.InventSync.Insert(..AxInventSyncCreator.MaakInventSync(SoprPRNr, PRNr, BlumKunde)) } } }