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
]]>