Index: APPS/Verpakking/CubeIQRequestBuilder.cls.xml =================================================================== diff -u -r72329 -r72353 --- APPS/Verpakking/CubeIQRequestBuilder.cls.xml (.../CubeIQRequestBuilder.cls.xml) (revision 72329) +++ APPS/Verpakking/CubeIQRequestBuilder.cls.xml (.../CubeIQRequestBuilder.cls.xml) (revision 72353) @@ -79,9 +79,9 @@ Set CubeIQProduct = ##class(APPS.Verpakking.dto.CubeIQ.Request.Product).%New() Set CubeIQProduct.productid = BoxData.OrigineleBoxDataID _ "_" _..GeefKorttekst(BoxData.ObjRef) _ "_" _ BoxData.AantalProductenGenest - Set CubeIQProduct.length = BoxData.Diepte + (3 * 6.7) //Grootorde kartondikte in rekening brengen - Set CubeIQProduct.width = BoxData.Breedte + (3 * 6.7) //Grootorde kartondikte in rekening brengen - Set CubeIQProduct.height = BoxData.Hoogte + (3 * 6.7) //Grootorde kartondikte in rekening brengen + Set CubeIQProduct.length = BoxData.Diepte + (2 * 4) //Grootorde kartondikte in rekening brengen + Set CubeIQProduct.width = BoxData.Breedte + (2 * 4) //Grootorde kartondikte in rekening brengen + Set CubeIQProduct.height = BoxData.Hoogte + (2 * 4) //Grootorde kartondikte in rekening brengen ;Set CubeIQProduct.weight = ..GeefGewichtVanProduct(BoxData.ObjRef) Set CubeIQProduct.turnable = $$$True Set CubeIQProduct.flatok = $$$True Index: vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml =================================================================== diff -u -r72345 -r72353 --- vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml (.../Test.cls.xml) (revision 72345) +++ vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml (.../Test.cls.xml) (revision 72353) @@ -140,7 +140,7 @@ dan de toegelaten 1173. Dit dient manueel te worden nagekeken zodat dit kan worden opgelost en dit niet meer voorvalt.") + #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is minstens 1 product van bon 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 + 2*4 > dan de toegelaten 1170. Dit dient manueel te worden nagekeken zodat dit kan worden opgelost en dit niet meer voorvalt.") Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException", Substrings)) #dim BoxDataList As DS.Prod.OptiBox.BoxDataMetID = ..GeefLijstBoxDataMetKartonMetBufferZone() Index: APPS/Verpakking/OrgaluxBonOptimizer.cls.xml =================================================================== diff -u -r72349 -r72353 --- APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 72349) +++ APPS/Verpakking/OrgaluxBonOptimizer.cls.xml (.../OrgaluxBonOptimizer.cls.xml) (revision 72353) @@ -5,7 +5,7 @@ %Integer -1173 +1170 @@ -263,7 +263,7 @@ #dim CubeIQResponse As APPS.Verpakking.dto.CubeIQ.Response = ..GeefParsedCubeIQResponse(RequestVolumeVolledigePallet) If $$$Not(CubeIQResponse.cubeiq.unloadedproducts = "") { - #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 " _ ..#MaximumVerpakkingBreedteVoorEuropallet _ ". Dit dient manueel te worden nagekeken zodat dit kan worden opgelost en dit niet meer voorvalt." + #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 + 2*4 > dan de toegelaten " _ ..#MaximumVerpakkingBreedteVoorEuropallet _ ". 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) @@ -1041,7 +1041,7 @@ Set BoxData.Diepte = ..CalcMetDefault(1, BoxData.DiepteExec, .Params) Set BoxData.Hoogte = ..CalcMetDefault(1, BoxData.HoogteExec, .Params) - If ((##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > (..#MaximumVerpakkingBreedteVoorEuropallet )) || ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingDiepteVoorEuropallet) { // 3 * 6.7 is svoor dikte kartonverpakking in rekening te brengen + If ((##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte) + (2 * 4)) >= (..#MaximumVerpakkingBreedteVoorEuropallet )) || ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (2 * 4)) >= ..#MaximumVerpakkingDiepteVoorEuropallet) { // 2 * 4 is svoor dikte kartonverpakking in rekening te brengen Do ..Logger.Debug("PastProductOpEuropallet", "Genest product "_PRNr_" past niet op een europallet voor bon " _ BonID_". Er zijn " _ Aantal _" producten genest in deze verpakking.") } Else { Do BoxDataLijst.Insert(BoxData) @@ -1057,7 +1057,7 @@ Set BoxData.Diepte = ..CalcMetDefault(1, BoxData.DiepteExec, .Params) Set BoxData.Hoogte = ..CalcMetDefault(1, BoxData.HoogteExec, .Params) - If ((##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingBreedteVoorEuropallet) || ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (3 * 6.7)) > ..#MaximumVerpakkingDiepteVoorEuropallet) { // 3 * 6.7 is svoor dikte kartonverpakking in rekening te brengen + If ((##class(TECH.Math).Max(BoxData.Breedte, BoxData.Diepte) + (2 * 4)) >= ..#MaximumVerpakkingBreedteVoorEuropallet) || ((##class(TECH.Math).Min(BoxData.Breedte, BoxData.Diepte) + (2 * 4)) >= ..#MaximumVerpakkingDiepteVoorEuropallet) { // 3 * 2 * 4 is svoor dikte kartonverpakking in rekening te brengen Do ..Logger.Debug("PastProductOpEuropallet", "Product "_PRNr_" past niet op een europallet voor bon " _ BonID_".") } Else { Do BoxDataLijst.Insert(BoxData)