Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabItem/BodemDeksel.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/HalffabItem/BodemDeksel.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabItem/BodemDeksel.cls.xml (revision 29286) @@ -0,0 +1,12 @@ + + + +DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem + + +APPS.Halux.PPS.Verpakking.Volume + + + + + Index: APPS/Halux/PPS/Verpakking/Volume.cls.xml =================================================================== diff -u -r29059 -r29286 --- APPS/Halux/PPS/Verpakking/Volume.cls.xml (.../Volume.cls.xml) (revision 29059) +++ APPS/Halux/PPS/Verpakking/Volume.cls.xml (.../Volume.cls.xml) (revision 29286) @@ -1,7 +1,8 @@ -TECH.RegisteredObject +serial +%SerialObject %Numeric @@ -14,6 +15,23 @@ %Numeric + + +%Library.CacheSerialState +VolumeState +^APPS.Halux.PPS.Verp6A05.VolumeS + + +Breedte + + +Diepte + + +Hoogte + + + Index: zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r29238 -r29286 --- zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 29238) +++ zTryout/PBO/TAXBOG/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 29286) @@ -56,6 +56,9 @@ Set ..DoosGrootte = ItHoeveelheidDozenPerGrootte.Key() Do ..Verwerk(Input.BenamingVerpakking) Set ..KartonSpecificatie.AantalStapels = ..GeefDoosAfmetingBepaler().GeefAantalStapels(..LadeOnderdeel, ..AantalOnderdelen) + Set ..KartonSpecificatie.Volume.Diepte = ..Doos.Diepte + set ..KartonSpecificatie.Volume.Breedte = ..Doos.Breedte + set ..KartonSpecificatie.Volume.Hoogte = ..Doos.Hoogte Do ..VoegToe(..KartonSpecificatie,..AantalDozenVoorGrootte) } Quit ..Verpakkingen Index: DOM/PM/Maatwerk/Calc/HF/impl/HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie.cls.xml =================================================================== diff -u -r29236 -r29286 --- DOM/PM/Maatwerk/Calc/HF/impl/HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie.cls.xml (.../HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie.cls.xml) (revision 29236) +++ DOM/PM/Maatwerk/Calc/HF/impl/HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie.cls.xml (.../HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie.cls.xml) (revision 29286) @@ -13,6 +13,10 @@ APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel + +APPS.Halux.PPS.Verpakking.Volume + + %Float Index: vhTestFiles/UnitTests/APPS.PM.Maatwerk.End2End.TAOR/TestTAORGewoneLadePrijzen/TestStandaardLadeVerpakking/BulkPerOnderdeelGegroepeerdVandaag.txt =================================================================== diff -u -r29285 -r29286 --- vhTestFiles/UnitTests/APPS.PM.Maatwerk.End2End.TAOR/TestTAORGewoneLadePrijzen/TestStandaardLadeVerpakking/BulkPerOnderdeelGegroepeerdVandaag.txt (.../BulkPerOnderdeelGegroepeerdVandaag.txt) (revision 29285) +++ vhTestFiles/UnitTests/APPS.PM.Maatwerk.End2End.TAOR/TestTAORGewoneLadePrijzen/TestStandaardLadeVerpakking/BulkPerOnderdeelGegroepeerdVandaag.txt (.../BulkPerOnderdeelGegroepeerdVandaag.txt) (revision 29286) @@ -200,10 +200,12 @@ [BewerktHFKostItem] BOP - Bodem bodemdoos Kost: 0.434 EUR Details: 0.5720 * .7587 + Formaat : Breedte : 480, Diepte : 569, Hoogte : 83 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Bodem dekseldoos Kost: 0.509 EUR Details: 0.8613 * .5914 + Formaat : Breedte : 480, Diepte : 569, Hoogte : 83 Product : 353743 - VFF.TB143EB ZZCARTON BR [StandaardHFKostItem] BOP - Rug Horizontaal Kost: 0.214 EUR @@ -214,10 +216,12 @@ [BewerktHFKostItem] BOP - Rug bodemdoos Kost: 0.476 EUR Details: 0.5720 * .8329 + Formaat : Breedte : 569, Diepte : 334, Hoogte : 81 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Rug dekseldoos Kost: 0.383 EUR Details: 0.5720 * .6692 + Formaat : Breedte : 569, Diepte : 334, Hoogte : 81 Product : 360508 - VFF.TB 95EB ZZCARTON BR [StandaardHFKostItem] BOP - Zijkant_Links Horizontaal Kost: 0.107 EUR @@ -228,10 +232,12 @@ [BewerktHFKostItem] BOP - Zijkant_Links bodemdoos Kost: 0.578 EUR Details: 0.5720 * 1.0105 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Zijkant_Links dekseldoos Kost: 0.414 EUR Details: 0.5720 * .7241 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [StandaardHFKostItem] BOP - Zijkant_Rechts Horizontaal Kost: 0.107 EUR @@ -242,10 +248,12 @@ [BewerktHFKostItem] BOP - Zijkant_Rechts bodemdoos Kost: 0.578 EUR Details: 0.5720 * 1.0105 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Zijkant_Rechts dekseldoos Kost: 0.414 EUR Details: 0.5720 * .7241 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [SamengesteldKostItem] ZijkantBestukking : 0.000 EUR [SamengesteldKostItem] ZijkantBestukkingVooraan : 0.827 EUR Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerd.cls.xml =================================================================== diff -u -r29148 -r29286 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerd.cls.xml (.../HFVerpakkingv001BulkPerOnderdeelGegroepeerd.cls.xml) (revision 29148) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001BulkPerOnderdeelGegroepeerd.cls.xml (.../HFVerpakkingv001BulkPerOnderdeelGegroepeerd.cls.xml) (revision 29286) @@ -128,6 +128,8 @@ } Do HalffabItem.ZetTotaalAantalTeVerpakken(..Input.TotaalTeVerpakken) Do HalffabItem.ZetAantalVerpakkingen(AantalVerpakkingen) + + set HalffabItem.Volume = Verpakking.KartonSpecificatie.Volume ]]> Index: vhTestFiles/UnitTests/APPS.PM.Maatwerk.End2End.TAOR/TestTAORGewoneLadePrijzen/TestStandaardBinnenladeVerpakking/BulkPerOnderdeelGegroepeerdVandaag.txt =================================================================== diff -u -r29285 -r29286 --- vhTestFiles/UnitTests/APPS.PM.Maatwerk.End2End.TAOR/TestTAORGewoneLadePrijzen/TestStandaardBinnenladeVerpakking/BulkPerOnderdeelGegroepeerdVandaag.txt (.../BulkPerOnderdeelGegroepeerdVandaag.txt) (revision 29285) +++ vhTestFiles/UnitTests/APPS.PM.Maatwerk.End2End.TAOR/TestTAORGewoneLadePrijzen/TestStandaardBinnenladeVerpakking/BulkPerOnderdeelGegroepeerdVandaag.txt (.../BulkPerOnderdeelGegroepeerdVandaag.txt) (revision 29286) @@ -267,21 +267,25 @@ [BewerktHFKostItem] BOP - Bodem bodemdoos Kost: 0.434 EUR Details: 0.5720 * .7587 + Formaat : Breedte : 480, Diepte : 569, Hoogte : 83 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Bodem dekseldoos Kost: 0.509 EUR Details: 0.8613 * .5914 + Formaat : Breedte : 480, Diepte : 569, Hoogte : 83 Product : 353743 - VFF.TB143EB ZZCARTON BR [StandaardHFKostItem] BOP - Front Horizontaal Kost: 0.120 EUR Details: 0.4000 * .3 [BewerktHFKostItem] BOP - Front bodemdoos Kost: 1.095 EUR Details: 0.8613 * 1.2714 + Formaat : Breedte : 590, Diepte : 490, Hoogte : 195.5 Product : 353743 - VFF.TB143EB ZZCARTON BR [BewerktHFKostItem] BOP - Front dekseldoos Kost: 0.774 EUR Details: 0.8613 * .898 + Formaat : Breedte : 590, Diepte : 490, Hoogte : 195.5 Product : 353743 - VFF.TB143EB ZZCARTON BR [StandaardHFKostItem] BOP - Rug Horizontaal Kost: 0.214 EUR @@ -292,10 +296,12 @@ [BewerktHFKostItem] BOP - Rug bodemdoos Kost: 0.476 EUR Details: 0.5720 * .8329 + Formaat : Breedte : 569, Diepte : 334, Hoogte : 81 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Rug dekseldoos Kost: 0.383 EUR Details: 0.5720 * .6692 + Formaat : Breedte : 569, Diepte : 334, Hoogte : 81 Product : 360508 - VFF.TB 95EB ZZCARTON BR [StandaardHFKostItem] BOP - Zijkant_Links Horizontaal Kost: 0.107 EUR @@ -306,10 +312,12 @@ [BewerktHFKostItem] BOP - Zijkant_Links bodemdoos Kost: 0.578 EUR Details: 0.5720 * 1.0105 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Zijkant_Links dekseldoos Kost: 0.414 EUR Details: 0.5720 * .7241 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [StandaardHFKostItem] BOP - Zijkant_Rechts Horizontaal Kost: 0.107 EUR @@ -320,10 +328,12 @@ [BewerktHFKostItem] BOP - Zijkant_Rechts bodemdoos Kost: 0.578 EUR Details: 0.5720 * 1.0105 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [BewerktHFKostItem] BOP - Zijkant_Rechts dekseldoos Kost: 0.414 EUR Details: 0.5720 * .7241 + Formaat : Breedte : 495, Diepte : 174.5, Hoogte : 148 Product : 360508 - VFF.TB 95EB ZZCARTON BR [SamengesteldKostItem] ZijkantBestukking : 0.000 EUR [SamengesteldKostItem] ZijkantBestukkingVooraan : 0.827 EUR Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001BulkPerOnderdeelGegroepeerdTemplate.cls.xml =================================================================== diff -u -r29146 -r29286 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001BulkPerOnderdeelGegroepeerdTemplate.cls.xml (.../Verpakkingv001BulkPerOnderdeelGegroepeerdTemplate.cls.xml) (revision 29146) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/Verpakkingv001BulkPerOnderdeelGegroepeerdTemplate.cls.xml (.../Verpakkingv001BulkPerOnderdeelGegroepeerdTemplate.cls.xml) (revision 29286) @@ -1,7 +1,7 @@ -DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem +DOM.PM.Maatwerk.Calc.HF.impl.HalffabItem.BodemDeksel %Integer Index: zTryout/PBO/TAXBOG/impl/Doos.cls.xml =================================================================== diff -u -r29149 -r29286 --- zTryout/PBO/TAXBOG/impl/Doos.cls.xml (.../Doos.cls.xml) (revision 29149) +++ zTryout/PBO/TAXBOG/impl/Doos.cls.xml (.../Doos.cls.xml) (revision 29286) @@ -5,51 +5,58 @@ 1 APPS.Halux.PPS.Verpakking.Volume - -TAORBOX - - %Integer 4.2 -APPS.Halux.PPS.Verpakking.enu.DoosTypes +APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel.AutoComplete +1 -MaxInVerpakking:TECH.Integer +MaxInVerpakking:TECH.Integer=1 DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie -MaxInVerpakking:TECH.Integer +MaxInVerpakking:TECH.Integer=1 DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie -MaxInVerpakking:TECH.Integer +MaxInVerpakking:TECH.Integer=1 DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie + + +Benaming:APPS.Halux.PPS.Verpakking.enu.BenamingVerpakkingsOnderdeel,Lengte:%Decimal,Breedte:%Decimal,MaxInVerpakking:TECH.Integer +1 +DOM.PM.Maatwerk.Calc.HF.impl.HFBulkPerOnderdeelGegroepeerdVerpakkingKartonSpecificatie + + Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml =================================================================== diff -u -r29059 -r29286 --- DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 29286) @@ -51,13 +51,17 @@ Do ..Writer.WriteLine(..GeefIndentatie()_"[BewerktHFKostItem] "_Item.GeefNaam()) Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Kost:"_$$$TAB_..GeefKost(Item)_$$$TAB_"EUR") Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Details:"_$$$TAB_Item.GeefDetails()) + + if Item.GeefHalffabItem().%Extends("DOM.PM.Maatwerk.Calc.HF.impl.HalffabItem.BodemDeksel") { + #dim Volume As APPS.Halux.PPS.Verpakking.Volume = Item.GeefHalffabItem().Volume + Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Formaat : "_"Breedte : "_Volume.Breedte_", Diepte : "_Volume.Diepte _ ", Hoogte : "_Volume.Hoogte) + } #dim ProductID As %String = Item.GeefHalffabItem().GeefHalffab().GeefProductID() if $length(ProductID) { #dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID) Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Product : "_ProductID_" - "_Product.GeefKorttekst()) } - Quit $$$OK ]]> Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml =================================================================== diff -u -r29219 -r29286 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml (.../HFVerpakkingv001.cls.xml) (revision 29219) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml (.../HFVerpakkingv001.cls.xml) (revision 29286) @@ -91,7 +91,7 @@ #dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = Lade.GeefBodems().GetAt(1) if $IsObject(Bodem) { - ; ; Bodem - BodemDoos + ; Bodem - BodemDoos Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Bodem) Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) @@ -223,6 +223,8 @@ Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput)) } + + ]]> Index: DOM/PM/Maatwerk/Calc/HF/impl/Builder/BodemDekselProcessor.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/Builder/BodemDekselProcessor.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/Builder/BodemDekselProcessor.cls.xml (revision 29286) @@ -0,0 +1,20 @@ + + + +DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEenBewerkt + + +LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel +1 +1 +%Status +1 + + + + + +