Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml =================================================================== diff -u -r72419 -r72420 --- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 72419) +++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 72420) @@ -168,19 +168,23 @@ #dim BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten As List of DS.Prod.OptiBox.BoxDataMetID = ..VergrootDimensiesVoorOrgaluxBasisPaketten(BoxDataLijstVanTeStapelenDozenVergrootVoorKartonsMetBufferzone) Do ..BepaalGrootsteGrondOppervlak(BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten) - #dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten) - Set ..JobId = $Piece(CubeIQResponse.cubeiq.loads.load.GetAt(1).jobid, "-", 1) - - If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) { - #dim FoutOmschrijving As %String = "Geen afbeelding gevonden voor optimale stapeling gevonden voor bon "_ ..BonId _" met JobId "_ ..JobId _ ". Indien nodig, probeer manueel de stapeling van de bon opnieuw te optimaliseren via 'Do ##class(BL.PPS.OL.OptiBox).OptimizeBon(BonNr)'." - Do ..Logger.Warning("Ontbrekende afbeelding voor bon", FoutOmschrijving) - } - - Do ..SnijDataRepository.VerwijderViaBonId(..BonId) + If (BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten.Count() > 0) { + #dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefBesteStapeling(BoxDataLijstVanTeStapelenDozenVergrootVoorOrgaluxBasisPaketten) + Set ..JobId = $Piece(CubeIQResponse.cubeiq.loads.load.GetAt(1).jobid, "-", 1) + + If $$$Not(..ZijnAfbeeldingenGegenereerdVoorBesteStapeling()) { + #dim FoutOmschrijving As %String = "Geen afbeelding gevonden voor optimale stapeling gevonden voor bon "_ ..BonId _" met JobId "_ ..JobId _ ". Indien nodig, probeer manueel de stapeling van de bon opnieuw te optimaliseren via 'Do ##class(BL.PPS.OL.OptiBox).OptimizeBon(BonNr)'." + Do ..Logger.Warning("Ontbrekende afbeelding voor bon", FoutOmschrijving) + } + + Do ..SnijDataRepository.VerwijderViaBonId(..BonId) + + Do ..ProcessCubeIQResponse(CubeIQResponse, BoxDataLijstVanTeMakenKartons, OrigineleBoxDataLijst) + Do ..MaakOptiboxQueue() + } Else { + Do ..Logger.Info("Optimaliseer bon orgalux", "Bon " _ BonId _" heeft geen optimalisatie doorlopen gezien er 0 producten in de overdoos zitten. Dit kan komen doordat er slechts 1 product in de bon zit die dan ook groter is dan een pallet.") + } - Do ..ProcessCubeIQResponse(CubeIQResponse, BoxDataLijstVanTeMakenKartons, OrigineleBoxDataLijst) - Do ..MaakOptiboxQueue() - Do ..Logger.Info("Optimaliseer bon orgalux", "Klaar met optimaliseren bon " _ BonId _".") ]]>