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