Index: APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml =================================================================== diff -u -r58777 -r58779 --- APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml (.../MaatwerkBatchBuilder.cls.xml) (revision 58777) +++ APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml (.../MaatwerkBatchBuilder.cls.xml) (revision 58779) @@ -110,7 +110,14 @@ Try { #dim ToeleveringDto As APPS.Halux.Planning.dto.Toelevering = ..GeefToelevering(Toelevering) - Set MaatwerkBatch.ProductieGroep = ##class(TECH.ListUtils).Unie(..BatchServiceUtils.GeefProductieGroepen(Toelevering), MaatwerkBatch.ProductieGroep) + #dim ToeleveringProductieGroepen As %ListOfDataTypes = Toelevering.GeefProductieGroepen() + If (ToeleveringProductieGroepen.Count() = 0) { + Set ToeleveringProductieGroepen = ..BatchServiceUtils.GeefProductieGroepen(Toelevering) + Do Toelevering.ZetProductieGroepenEnSave(ToeleveringProductieGroepen) + } + + Set MaatwerkBatch.ProductieGroep = ##class(TECH.ListUtils).Unie(ToeleveringProductieGroepen, MaatwerkBatch.ProductieGroep) + Set MaatwerkBatch.VerpakkingTypes = ##class(TECH.ListUtils).Unie(MaatwerkBatch.VerpakkingTypes,ToeleveringDto.VerpakkingTypes) Set MaatwerkBatch.HeeftAandachtNodig= ##class(TECH.Math).Max(MaatwerkBatch.HeeftAandachtNodig,ToeleveringDto.HeeftAandachtNodig) Set MaatwerkBatch.AantalKlaarGezet = MaatwerkBatch.AantalKlaarGezet + ToeleveringDto.AantalKlaarGezet