Index: vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml =================================================================== diff -u -r57035 -r60239 --- vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml (.../BatchPowerService.cls.xml) (revision 57035) +++ vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml (.../BatchPowerService.cls.xml) (revision 60239) @@ -144,9 +144,10 @@ #dim Batch As APPS.Halux.common.impl.BatchImpl = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBijhorendeBatchViaID(ToeleveringID) If ($IsObject(Batch)) { + #dim IsBatchReedsGestart As %Boolean = Batch.IsReedsGestart() Write !,ToeleveringLabel_" in Batch '"_Batch.GeefID()_" ProductieGroep '"_Batch.GeefCategorie()_"'." Write !,"Status van de Batch : "_Batch.GeefStatus() - If (ToeleveringAPI.BestaatToelevering(ToeleveringID)) && (Batch.IsReedsGestart()) { + If (ToeleveringAPI.BestaatToelevering(ToeleveringID)) && (IsBatchReedsGestart) { Write !,"In deze status kan de toelevering niet verwijderd worden." Write !,"Er is niks veranderd." } @@ -161,6 +162,7 @@ Do Batch.Save() Write !,"Toelevering is verwijderd. De Batch is ge-saved." + Write:(IsBatchReedsGestart) !,"!!! LET OP !!! De batch-status is ge-reset naar 'Manueel'. De batch moet opnieuw 'gestart' worden (via vHintra Batches-scherm)." } Else { Write !,"Toelevering is NIET verwijderd uit de batch. Er is niks veranderd."