Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml =================================================================== diff -u -r71842 -r71843 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 71842) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 71843) @@ -62,7 +62,7 @@ Set BatchNaarObjectiveData.AantalLades = ..GeefWaardeOfNull(..GeefAantalLades(Batch, Toelevering)) Set BatchNaarObjectiveData.BatchId = ..GeefWaardeOfNull(Batch.GeefID()) - Set BatchNaarObjectiveData.ProductieLijn = ..GeefWaardeOfNull(Batch.GeefLijn()) + Set BatchNaarObjectiveData.ProductieLijn = ..GeefWaardeOfNull(..GeefProductieLijn(Batch.GeefID())) Set BatchNaarObjectiveData.DueBefore = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime())) Set BatchNaarObjectiveData.DueOut = ..GeefWaardeOfNull(..FormateerHorolog(Toelevering.GeefDueOutTime())) @@ -112,6 +112,16 @@ ]]> + +BatchId:%String +1 +%Integer + + + 1 Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml =================================================================== diff -u -r71783 -r71843 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml (.../Test.cls.xml) (revision 71783) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml (.../Test.cls.xml) (revision 71843) @@ -13,10 +13,10 @@ #dim VerzendingWijze As %String = "OD3;1`OD3;3" #dim VerwachteVerzendingWijzeGeformateerd = "OD3" #dim KlantId As %String = "1000" + #dim LijnNummer As %Integer = 1 #dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New() - Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(2).DanReturn(BatchId) - Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks() + Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(3).DanReturn(BatchId) #dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn() Do ToeleveringMock.VerwachtMethodCall("GeefAantalProducten").ExactAantalKeer(1).DanDoeNiks() @@ -28,10 +28,11 @@ Set BatchPitchExported = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New() Set BatchPitchExported.Volgnummer = BatchPitchExportedVolgnummer + Set BatchPitchExported.LijnNummer = LijnNummer #dim BatchPitchExportedIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(BatchPitchExported) Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New() - Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).ExactAantalKeer(1).DanReturn(BatchPitchExportedIterator) + Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).ExactAantalKeer(2).DanReturn(BatchPitchExportedIterator) #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New() Do OrderMock.VerwachtMethodCall("GeefAxSalesId").ExactAantalKeer(1).DanDoeNiks() @@ -60,6 +61,7 @@ Do $$$AssertEquals(BatchNaarObjectiveData.MultipersonalityKlant1, "null") Do $$$AssertEquals(BatchNaarObjectiveData.KlantId, "01000") Do $$$AssertEquals(BatchNaarObjectiveData.ReceptNaam, "Template Lade TLM.Template M1.4") + Do $$$AssertEquals(BatchNaarObjectiveData.ProductieLijn, LijnNummer) Do BatchMock.Verifieer() Do ToeleveringMock.Verifieer()