Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml =================================================================== diff -u -r73874 -r73909 --- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 73874) +++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 73909) @@ -230,12 +230,10 @@ While ((Hoogte <= ..#MaximumVerpakkingHoogteVoorEuropallet)) { Set Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, Breedte, Diepte, Hoogte) Set Response = ..GeefParsedCubeIQResponse(Request) - If (Response.cubeiq.unloadedproducts = "") { - If (Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon) { - #dim Beoordeling As %Decimal = ..GeefBeoordelingScoreVanEenOverdoos(Response.cubeiq.loadedcontainers.loadedcontainer.GetAt(1), MinimumAantalPallettenVoorBon) - Do ArrayVanResultaten.SetAt(Response, Beoordeling) - } - } + If ((Response.cubeiq.unloadedproducts.unloadedproduct.Count() = 0) && (Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon)) { + #dim Beoordeling As %Decimal = ..GeefBeoordelingScoreVanEenOverdoos(Response.cubeiq.loadedcontainers.loadedcontainer.GetAt(1), MinimumAantalPallettenVoorBon) + Do ArrayVanResultaten.SetAt(Response, Beoordeling) + } Set Hoogte = (Hoogte + 130) } Set Diepte = (Diepte + 130) @@ -269,7 +267,7 @@ Set Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, ..#MaximumOverdoosBreedteVoorEuropallet, ..#MaximumOverdoosDiepteVoorEuropallet, MaxHoogteDoos, $$$True) Set Response = ..GeefParsedCubeIQResponse(Request) - If ((Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon) && (Response.cubeiq.unloadedproducts = "")) { + If ((Response.cubeiq.loadedcontainers.loadedcontainer.Count() = MinimumAantalPallettenVoorBon) && (Response.cubeiq.unloadedproducts.unloadedproduct.Count() = 0)) { Set BesteStapeling = Response } @@ -302,13 +300,11 @@ #dim RequestVolumeVolledigePallet As APPS.Verpakking.dto.CubeIQ.Request = ..CubeIQRequestBuilder.MaakCubeIQRequest(BoxDataLijstVanTeStapelenDozen, ..#MaximumOverdoosBreedteVoorEuropallet, ..#MaximumOverdoosDiepteVoorEuropallet, ..#MaximumOverdoosHoogteVoorEuropallet) #dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefParsedCubeIQResponse(RequestVolumeVolledigePallet) - If $$$Not(CubeIQResponse.cubeiq.unloadedproducts = "") { - If (CubeIQResponse.cubeiq.unloadedproducts.unloadedproduct.Count() > 0) { - #dim FoutOmschrijving As %String = "Er is minstens 1 product van bon " _ ..BonId _ " die niet kon ondergebracht worden in de overdozen ondanks de producten groter dan een pallet al werden uitgefilterd. Dit komt normaal enkel voor als er een lang product is waarbij de langste dimensie + 3*6.7 > dan de toegelaten " _ ..#MaximumOverdoosBreedteVoorEuropallet _ ". Dit dient manueel te worden nagekeken zodat dit kan worden opgelost en dit niet meer voorvalt." - Do ..Logger.ErrorMail("Bepaal minimum aantal palletten", FoutOmschrijving) - Set Exception = ##class(TECH.Exceptions.InvalidResponseException).%New(FoutOmschrijving) - Do ##class(TECH.ExceptionHandler).Throw(Exception) - } + If (CubeIQResponse.cubeiq.unloadedproducts.unloadedproduct.Count() > 0) { + #dim FoutOmschrijving As %String = "Er is minstens 1 product van bon " _ ..BonId _ " die niet kon ondergebracht worden in de overdozen ondanks de producten groter dan een pallet al werden uitgefilterd. Dit komt normaal enkel voor als er een lang product is waarbij de langste dimensie + 3*6.7 > dan de toegelaten " _ ..#MaximumOverdoosBreedteVoorEuropallet _ ". Dit dient manueel te worden nagekeken zodat dit kan worden opgelost en dit niet meer voorvalt." + Do ..Logger.ErrorMail("Bepaal minimum aantal palletten", FoutOmschrijving) + Set Exception = ##class(TECH.Exceptions.InvalidResponseException).%New(FoutOmschrijving) + Do ##class(TECH.ExceptionHandler).Throw(Exception) } Set MinimumAantalPallettenVoorBon = CubeIQResponse.cubeiq.loadedcontainers.loadedcontainer.Count()