Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_006_PRODUCTIEDETAILBLAD.xml =================================================================== diff -u -r38603 -r39015 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_006_PRODUCTIEDETAILBLAD.xml (.../Productie_006_PRODUCTIEDETAILBLAD.xml) (revision 38603) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_006_PRODUCTIEDETAILBLAD.xml (.../Productie_006_PRODUCTIEDETAILBLAD.xml) (revision 39015) @@ -44,15 +44,15 @@ Front bodemdoos - 881mm + 371.5mm ,2st - VFF.TB165EB ZZCARTON BR + VFF.TB143EB ZZCARTON BR Front dekseldoos - 981mm + 568.3mm ,2st - VFF.TB143EB ZZCARTON BR + VFF.TB 95EB ZZCARTON BR Index: zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepaler.cls.xml =================================================================== diff -u -r29318 -r39015 --- zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepaler.cls.xml (.../DoosAfmetingenFrontBepaler.cls.xml) (revision 29318) +++ zTryout/PBO/TAXBOG/impl/DoosAfmetingenFrontBepaler.cls.xml (.../DoosAfmetingenFrontBepaler.cls.xml) (revision 39015) @@ -15,16 +15,30 @@ Set Volume = ##class(DOM.PM.Verpakking.Volume).%New() Set Volume.Breedte = Front.GeefBreedteInMM() #dim Aantal As TECH.Integer = ..GeefMaximaalAantalOnderdelen(Front) - If Aantal = 10 { - Set Volume.Diepte = 490 - } ElseIf Aantal = 5 { - Set Volume.Diepte = 255 + #dim AantalStapels As TECH.Integer = ..GeefAantalStapels(Front, Aantal) + If AantalStapels = 1 { + Set Volume.Diepte = Front.GeefHoogteInMM() + Set Volume.Hoogte = (Aantal*Front.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten(Aantal-1) + } ElseIf AantalStapels = 2 { + Set Volume.Diepte = Front.GeefHoogteInMM()*2+..#DikteVerticaalTussenschot + Set Volume.Hoogte = ((Aantal/2)*Front.GeefDikteInMM()) + ..GeefDikteVoorHorizontaalTussenschotten((Aantal/2)-1) } - Set Volume.Hoogte = Front.GeefHoogteInMM() + ..#ExtraHoogteDoorKantelenBijFront Quit Volume ]]> + +Front:DOM.PM.Maatwerk.LadeInfo.Zijkant,AantalOnderdelen:TECH.String +TECH.Integer + + + Front:DOM.PM.Maatwerk.LadeInfo.Front 1 Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/OptiboxRequests_LosseOnderdelen.txt =================================================================== diff -u -r39007 -r39015 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/OptiboxRequests_LosseOnderdelen.txt (.../OptiboxRequests_LosseOnderdelen.txt) (revision 39007) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/OptiboxRequests_LosseOnderdelen.txt (.../OptiboxRequests_LosseOnderdelen.txt) (revision 39015) @@ -78,8 +78,8 @@ TAORBOX V1 BOTTOM-LID - 490 - 189.5 + 191.5 + 84 BIT BOX PALLET