Index: APPS/Halux/Planning/impl/BatchService.cls.xml =================================================================== diff -u -r69156 -r71638 --- APPS/Halux/Planning/impl/BatchService.cls.xml (.../BatchService.cls.xml) (revision 69156) +++ APPS/Halux/Planning/impl/BatchService.cls.xml (.../BatchService.cls.xml) (revision 71638) @@ -255,6 +255,10 @@ do VerplaatsProblemen.Insert("De toelevering wordt verplaatst vanuit een batch die reeds is gestart") } + if (($IsObject(BronBatch)) && (BronBatch.GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())) { + do VerplaatsProblemen.Insert("De toelevering wordt verplaatst vanuit een batch die bezig is met starten") + } + if (MaatwerkBatch.Status = ##class(APPS.Halux.common.enu.BatchStatus).Gestart()) { do VerplaatsProblemen.Insert("De batch is reeds gestart") } Index: APPS/Halux/Planning/PlanningService.cls.xml =================================================================== diff -u -r65995 -r71638 --- APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 65995) +++ APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 71638) @@ -612,7 +612,7 @@ #dim KanVerplaatsen As %Boolean = 1 If ($IsObject(Batch)) { - If (Batch.GeefStatus() '= ##class(APPS.Halux.common.enu.BatchStatus).Gestart()) + If $$$Not(##class(TECH.StringUtils).Equals(Batch.GeefStatus(),##class(APPS.Halux.common.enu.BatchStatus).Gestart(), ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())) { Do Batch.VerwijderToelevering(Toelevering) Do Batch.Save() @@ -638,7 +638,7 @@ } Else { - Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer _ " (batch al gestart)") + Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer _ " (batch is al gestart of is bezig met starten)") } } Else