Doosberekenaar voor LEGRABOX. We gebruiken dezelfde dozen als voor TA'OR BOX, vandaar dat we het dependencies hebben op TA'OR BOX doosklassen. DOM.PM.Verpakking.impl.DoosBerekenaar DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken 1 APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler 1 DOM.common.ProductID 1 HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,BreedteBepaler:APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler,ProductID:DOM.common.ProductID="ProductID" %Status %Boolean 1 1 DOM.PM.Verpakking.impl.Doos 1 %Integer 1 %Integer 1 %Integer 1 DOM.PM.Verpakking.DoosLosseOnderdelen geen LO doos If (..HeeftFrontBevestiging() || ..HeeftGeleider()) { Set DoosLosseOnderdelen = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosLosseOnderdelen).%New() If ..IngegevenKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550() && $Data(^zStandaardHuls(..ProductID)) { Set DoosLosseOnderdelen.BreedteAndere = 40 Set DoosLosseOnderdelen.BreedteCorpusProfiel = 65 Set DoosLosseOnderdelen.Diepte = 550 Set DoosLosseOnderdelen.Hoogte = 80 } Else { Set DoosLosseOnderdelen.BreedteAndere = ..GeefBreedteAndereLosseOnderdelen() Set DoosLosseOnderdelen.BreedteCorpusProfiel = 10 Set DoosLosseOnderdelen.Diepte = ..IngegevenKenmerken.LadeDiepte Set DoosLosseOnderdelen.Hoogte = 50 If (..HeeftGeleider()) { #Dim Geleider as APPS.Halux.PPS.Verpakking.Volume = ..GeefVolumeGeleider() If ((..GeefFysiekeLadeHoogteMM() < 120) && (Geleider.Hoogte < Geleider.Breedte) && (Geleider.Breedte < ..GeefFysiekeLadeHoogteMM())) { Set DoosLosseOnderdelen.Hoogte = Geleider.Breedte Set DoosLosseOnderdelen.BreedteCorpusProfiel = Geleider.Hoogte } Else { Set DoosLosseOnderdelen.Hoogte = Geleider.Hoogte Set DoosLosseOnderdelen.BreedteCorpusProfiel = Geleider.Breedte } Set DoosLosseOnderdelen.Diepte=Geleider.Diepte } Do ..VergrootDoosLosseOnderdelenTotZijkantHoogte(DoosLosseOnderdelen) } } Quit DoosLosseOnderdelen ]]> 1 TECH.Numeric DoosLosseOnderdelen:DOM.PM.Verpakking.DoosLosseOnderdelen 1 DoosLade:APPS.Halux.PPS.TAORVerpakking.impl.DoosLade,DoosLosseOnderdelen:DOM.PM.Verpakking.DoosLosseOnderdelen 1 ladedoos verhogen If ((..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()) && (..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION())) { Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneHoogte() Set DoosLade.Hoogte = DoosLosseOnderdelen.GeefExterneBreedte() + 5 } Else { Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneBreedte() } } Else { Set DoosLade.Breedte = DoosLade.Breedte + DoosLosseOnderdelen.GeefExterneHoogte() } If DoosLade.Diepte < DoosLosseOnderdelen.GeefExterneDiepte() { Set DoosLade.Diepte = DoosLosseOnderdelen.GeefExterneDiepte() } ]]> 1 1 %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean 1 %Boolean 1 DOM.PM.Verpakking.Volume = 50) { Set Breedte = Breedte + 5 Set Hoogte = Hoogte + 5 } Quit ..GeefVolume(Diepte, Breedte, Hoogte) ]]> 1 DOM.PM.Verpakking.Volume