Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml =================================================================== diff -u -r71778 -r71779 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml (.../Test.cls.xml) (revision 71778) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml (.../Test.cls.xml) (revision 71779) @@ -59,6 +59,7 @@ Do $$$AssertEquals(BatchNaarObjectiveData.Rangorde, BatchPitchExportedVolgnummer _ "_0000" _ SequentieNummerToelevering) Do $$$AssertEquals(BatchNaarObjectiveData.MultipersonalityKlant1, "null") Do $$$AssertEquals(BatchNaarObjectiveData.KlantId, "01000") + Do $$$AssertEquals(BatchNaarObjectiveData.ReceptNaam, "Template Lade TLM.Template M1.3") Do BatchMock.Verifieer() Do ToeleveringMock.Verifieer() Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml =================================================================== diff -u -r71777 -r71779 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 71777) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml (.../HoofdDataGenerator.cls.xml) (revision 71779) @@ -53,7 +53,7 @@ Set BatchNaarObjectiveData = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData).%New() Set BatchNaarObjectiveData.Rangorde = ..BepaalRangorde(Batch.GeefID(), SequentieNummerToelevering) - Set BatchNaarObjectiveData.ReceptNaam = "Template Lade TLM.Template Lade TLM M1.11" // Receptnaam tijdelijk invullen als vaste waarde + Set BatchNaarObjectiveData.ReceptNaam = "Template Lade TLM.Template M1.3" // Receptnaam tijdelijk invullen als vaste waarde Set BatchNaarObjectiveData.Id = ..GeefWaardeOfNull(Toelevering.GeefID()) Set BatchNaarObjectiveData.Omschrijving = ..GeefWaardeOfNull("Productieorder gegenereerd vanuit Caché")