Index: DOM/PM/Maatwerk/Calc/HF/enu/SSTRol/AutoComplete.cls.xml =================================================================== diff -u -r61635 -r61772 --- DOM/PM/Maatwerk/Calc/HF/enu/SSTRol/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 61635) +++ DOM/PM/Maatwerk/Calc/HF/enu/SSTRol/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 61772) @@ -170,16 +170,16 @@ 1 - + %String -"VerpakkingKartonSokkel" +"Verpakking" 1 1 - + %String -"VerpakkingKartonTablet" +"VerpakkingDekseldoos" 1 1 Index: vhDeploy/Maatwerk/SST/SSTxBEWxLengte.cls.xml =================================================================== diff -u --- vhDeploy/Maatwerk/SST/SSTxBEWxLengte.cls.xml (revision 0) +++ vhDeploy/Maatwerk/SST/SSTxBEWxLengte.cls.xml (revision 61772) @@ -0,0 +1,157 @@ + + + +vhDeploy.Deploy + + +1 + + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/SST/Builder/HFVerpakkingv001.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/SST/Builder/HFVerpakkingv001.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/SST/Builder/HFVerpakkingv001.cls.xml (revision 61772) @@ -0,0 +1,56 @@ + + + +1 +DOM.PM.Maatwerk.Calc.HF.IDynamischSamengesteldHalffabItemBuilder + + +SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder +1 +1 +%Status + + + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext +1 +TECH.Iterator + + + + +SSTKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext +1 +TECH.Iterator + + + + + + Index: vhDeploy/Maatwerk/SST/SSTxSELxVerpakking.cls.xml =================================================================== diff -u --- vhDeploy/Maatwerk/SST/SSTxSELxVerpakking.cls.xml (revision 0) +++ vhDeploy/Maatwerk/SST/SSTxSELxVerpakking.cls.xml (revision 61772) @@ -0,0 +1,113 @@ + + + +%RegisteredObject + + +1 + + + + + + Index: DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r36644 -r61772 --- DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36644) +++ DOM/PM/Verpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 61772) @@ -58,7 +58,7 @@ If ($ISOBJECT(DoosLosseOnderdelen)) { Do ..VergrootDoosLadeMetLosseOnderdelenDoos(DoosLade, DoosLosseOnderdelen) } Else { - Set:(..IngegevenKenmerken.IsBinnenlade) DoosLade.Diepte = DoosLade.Diepte + ..GeefExtraDiepteVoorDikteFront() + Set:( $$$Not(..IngegevenKenmerken.GeefFamilie() = ##class(DOM.PM.enu.Familie).SpaceStep()) && ..IngegevenKenmerken.IsBinnenlade) DoosLade.Diepte = DoosLade.Diepte + ..GeefExtraDiepteVoorDikteFront() } } Index: DOM/PM/Maatwerk/Calc/HF/impl/SST/Halffab/HalffabVerpakking.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/SST/Halffab/HalffabVerpakking.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/SST/Halffab/HalffabVerpakking.cls.xml (revision 61772) @@ -0,0 +1,53 @@ + + + + +Gegenereerde klasse via APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils +persistent +1 +DOM.PM.Maatwerk.Calc.HF.Halffab + + +DOM.PM.Verpakking.enu.KartonSamenstelling + + + +bitmap +Samenstelling + + + +%Integer + + + +bitmap +Kartonbreedte + + + +%String + + + + +%Library.CacheStorage +HalffabVerpakkingDefaultData + +listnode +"HalffabVerpakking" + +Samenstelling + + +Kartonbreedte + + + + + + + Index: DOM/PM/Maatwerk/Calc/HF/enu/SSTRol/Verwerker.cls.xml =================================================================== diff -u -r61635 -r61772 --- DOM/PM/Maatwerk/Calc/HF/enu/SSTRol/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 61635) +++ DOM/PM/Maatwerk/Calc/HF/enu/SSTRol/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 61772) @@ -58,10 +58,10 @@ Do ..VerwerkStelpoot() } ElseIf SSTRol = "Veerdemper" { Do ..VerwerkVeerdemper() - } ElseIf SSTRol = "VerpakkingKartonSokkel" { - Do ..VerwerkVerpakkingKartonSokkel() - } ElseIf SSTRol = "VerpakkingKartonTablet" { - Do ..VerwerkVerpakkingKartonTablet() + } ElseIf SSTRol = "Verpakking" { + Do ..VerwerkVerpakking() + } ElseIf SSTRol = "VerpakkingDekseldoos" { + Do ..VerwerkVerpakkingDekseldoos() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(SSTRol,"DOM.PM.Maatwerk.Calc.HF.enu.SSTRol",$classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -207,13 +207,13 @@ - + 1 1 - + 1 1 Index: DOM/PM/Maatwerk/Calc/HF/impl/SST/BuilderHFv001.cls.xml =================================================================== diff -u -r61698 -r61772 --- DOM/PM/Maatwerk/Calc/HF/impl/SST/BuilderHFv001.cls.xml (.../BuilderHFv001.cls.xml) (revision 61698) +++ DOM/PM/Maatwerk/Calc/HF/impl/SST/BuilderHFv001.cls.xml (.../BuilderHFv001.cls.xml) (revision 61772) @@ -18,20 +18,17 @@ 1 @@ -191,19 +182,17 @@ ]]> - + 1 + 1 - - -1 - Index: DOM/PM/Maatwerk/Calc/HF/enu/SSTRol.cls.xml =================================================================== diff -u -r61635 -r61772 --- DOM/PM/Maatwerk/Calc/HF/enu/SSTRol.cls.xml (.../SSTRol.cls.xml) (revision 61635) +++ DOM/PM/Maatwerk/Calc/HF/enu/SSTRol.cls.xml (.../SSTRol.cls.xml) (revision 61772) @@ -8,11 +8,11 @@ DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol -SpaceStepSet;SpaceStepOpvullijst;Stelpoot;Drevel;Sokkelschroef;Bevestigingschroef;SchroefOpvullijst;SetSysteemschroeven;Veerdemper;HorizontaalDraagprofiel;OpnameLinksHorDraagprofiel;OpnameRechtsHorDraagprofiel;AdapterUitwerperHorizontaalProfiel;ServodriveUitwerper;Eindkap;KabelKoppelstukINSERTA;ElektroKabel;StekkerType;Dwarsprofiel;PlaatmateriaalZijkantSokkel;PlaatmateriaalRugSokkel;AluminiumLat;VerpakkingKartonSokkel;PlaatmateriaalTablet;VerpakkingKartonTablet +SpaceStepSet;SpaceStepOpvullijst;Stelpoot;Drevel;Sokkelschroef;Bevestigingschroef;SchroefOpvullijst;SetSysteemschroeven;Veerdemper;HorizontaalDraagprofiel;OpnameLinksHorDraagprofiel;OpnameRechtsHorDraagprofiel;AdapterUitwerperHorizontaalProfiel;ServodriveUitwerper;Eindkap;KabelKoppelstukINSERTA;ElektroKabel;StekkerType;Dwarsprofiel;PlaatmateriaalZijkantSokkel;PlaatmateriaalRugSokkel;AluminiumLat;Verpakking;PlaatmateriaalTablet;VerpakkingDekseldoos -SpaceStepSet;SpaceStepOpvullijst;Stelpoot;Drevel;Sokkelschroef;Bevestigingschroef;SchroefOpvullijst;SetSysteemschroeven;Veerdemper;HorizontaalDraagprofiel;OpnameLinksHorDraagprofiel;OpnameRechtsHorDraagprofiel;AdapterUitwerperHorizontaalProfiel;ServodriveUitwerper;Eindkap;KabelKoppelstukINSERTA;ElektroKabel;StekkerType;Dwarsprofiel;PlaatmateriaalZijkantSokkel;PlaatmateriaalRugSokkel;AluminiumLat;VerpakkingKartonSokkel;PlaatmateriaalTablet;VerpakkingKartonTablet +SpaceStepSet;SpaceStepOpvullijst;Stelpoot;Drevel;Sokkelschroef;Bevestigingschroef;SchroefOpvullijst;SetSysteemschroeven;Veerdemper;HorizontaalDraagprofiel;OpnameLinksHorDraagprofiel;OpnameRechtsHorDraagprofiel;AdapterUitwerperHorizontaalProfiel;ServodriveUitwerper;Eindkap;KabelKoppelstukINSERTA;ElektroKabel;StekkerType;Dwarsprofiel;PlaatmateriaalZijkantSokkel;PlaatmateriaalRugSokkel;AluminiumLat;Verpakking;PlaatmateriaalTablet;VerpakkingDekseldoos @@ -169,10 +169,10 @@ ]]> - + 1 DOM.PM.Maatwerk.Calc.HF.enu.SSTRol - @@ -183,10 +183,10 @@ ]]> - + 1 DOM.PM.Maatwerk.Calc.HF.enu.SSTRol - Index: APPS/Halux/PPS/SSTVerpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u --- APPS/Halux/PPS/SSTVerpakking/impl/DoosBerekenaar.cls.xml (revision 0) +++ APPS/Halux/PPS/SSTVerpakking/impl/DoosBerekenaar.cls.xml (revision 61772) @@ -0,0 +1,121 @@ + + + + +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.SSTKenmerken +1 + + + +APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler +1 + + + +HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SSTKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken,BreedteBepaler:APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler,ProductID:DOM.common.ProductID="ProductID" +%Status + + + + + + + + +%Boolean + + + + +1 +TECH.Integer + + + + +1 +DOM.PM.Verpakking.impl.Doos + + + + + FysiekeLadeHoogteMM set FysiekeLadeHoogteMM = TmpFysiekeLadeHoogteMM + } + Quit FysiekeLadeHoogteMM +} +*/ +]]> + + + +1 +DOM.PM.Verpakking.DoosLosseOnderdelen + + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/SST/HalffabClassNameFactory.cls.xml =================================================================== diff -u -r61635 -r61772 --- DOM/PM/Maatwerk/Calc/HF/impl/SST/HalffabClassNameFactory.cls.xml (.../HalffabClassNameFactory.cls.xml) (revision 61635) +++ DOM/PM/Maatwerk/Calc/HF/impl/SST/HalffabClassNameFactory.cls.xml (.../HalffabClassNameFactory.cls.xml) (revision 61772) @@ -35,16 +35,8 @@ Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.HalffabPlaatmateriaalZijkantSokkel", ..Rol.PlaatmateriaalZijkantSokkel) Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.HalffabPlaatmateriaalRugSokkel", ..Rol.PlaatmateriaalRugSokkel) Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.HalffabAluminiumLat", ..Rol.AluminiumLat) - Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.HalffabVerpakkingKartonSokkel", ..Rol.VerpakkingKartonSokkel) - Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.HalffabPlaatmateriaalTablet", ..Rol.PlaatmateriaalTablet) - Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.HalffabVerpakkingKartonTablet", ..Rol.VerpakkingKartonTablet) + Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.HalffabVerpakking", ..Rol.Verpakking) - - /* - Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.Halffab", ..Rol.) - Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.SST.Halffab.Halffab", ..Rol.) - */ - Quit $$$OK ]]>