Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml =================================================================== diff -u -r1510 -r1511 --- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml (.../KostVoorbereidenv001.cls.xml) (revision 1510) +++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostVoorbereidenv001.cls.xml (.../KostVoorbereidenv001.cls.xml) (revision 1511) @@ -23,10 +23,8 @@ Set BodemAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Bodem()) Set FrontAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Front()) - // TODO: Correcte kostenplaats definiëren - Set KostenPlaats = "TBZAAG" - + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 1 Set ActiviteitNaam = "Werkplaatsvoorbereiding zagen" Set Variabele = MultiplierFixedNul @@ -38,6 +36,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 2 Set ActiviteitNaam = "Werkplaatsvoorbereiding monteren" Set Variabele = MultiplierFixedNul @@ -49,6 +48,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 3 Set ActiviteitNaam = "Zagen bodem + rug" Set Variabele = MultiplierFixedNul @@ -61,6 +61,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 4 Set ActiviteitNaam = "Aanbrengen identificatie" Set Variabele = MultiplierFixedNul @@ -72,6 +73,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 5 Set ActiviteitNaam = "Boren bodem" Set Variabele = MultiplierFixedNul @@ -84,6 +86,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 6 Set ActiviteitNaam = "Frezen + boren rug" Set Variabele = MultiplierFixedNul @@ -96,6 +99,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 20 Set ActiviteitNaam = "Werkplaatsvoorbereiding zagen (front)" Set Variabele = MultiplierFixedNul @@ -108,6 +112,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 21 Set ActiviteitNaam = "Werkplaatsvoorbereiding monteren (front)" Set Variabele = MultiplierFixedNul @@ -120,6 +125,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 22 Set ActiviteitNaam = "Zagen front" Set Variabele = MultiplierFixedNul @@ -132,6 +138,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 23 Set ActiviteitNaam = "Frezen en boren front" Set Variabele = MultiplierFixedNul Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml =================================================================== diff -u -r1494 -r1511 --- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml (.../IHalffabItemBuilder.cls.xml) (revision 1494) +++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml (.../IHalffabItemBuilder.cls.xml) (revision 1511) @@ -131,7 +131,7 @@ Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context) Do ..ValideerHalffabList(.HalffabList) Set HalffabItem = ..GenereerHalffabItem(.HalffabList, IngegevenKenmerken, Context) - Do ..PostProcessHalffabItem(HalffabItem, IngegevenKenmerken, Context) + Do ..PostProcessHalffabItem(.HalffabItem, IngegevenKenmerken, Context, .HalffabList) Set $ZTRAP = "" } Quit HalffabItem @@ -210,7 +210,7 @@ - + Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml =================================================================== diff -u -r1510 -r1511 --- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml (.../KostMontagev001.cls.xml) (revision 1510) +++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostMontagev001.cls.xml (.../KostMontagev001.cls.xml) (revision 1511) @@ -26,10 +26,9 @@ Set GlijderAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Glijder()) Set FrontAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Front()) - // TODO: Correcte kostenplaats definiëren - Set KostenPlaats = "TBZAAG" + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 7 Set ActiviteitNaam = "Zijkanten verlijmen" Set Variabele = MultiplierFixedNul @@ -42,6 +41,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 8 Set ActiviteitNaam = "Rug verlijmen" Set Variabele = MultiplierFixedNul @@ -54,6 +54,7 @@ + Set KostenPlaats = "TAOOMontage" Set ActiviteitNr = 9 Set ActiviteitNaam = "Rug vastschroeven aan bodem" Set Variabele = MultiplierFixedNul @@ -66,6 +67,7 @@ + Set KostenPlaats = "TAOOMontage" Set ActiviteitNr = 10 Set ActiviteitNaam = "Montage TANDEM koppeling" Set Variabele = MultiplierFixedNul @@ -78,6 +80,7 @@ + Set KostenPlaats = "TAOOMontage" Set ActiviteitNr = 11 Set ActiviteitNaam = "Uitpakken zijkanten" Set Variabele = MultiplierFixedNul @@ -90,6 +93,7 @@ + Set KostenPlaats = "TAOOMontage" Set ActiviteitNr = 12 Set ActiviteitNaam = "Uitpakken TANDEM" Set Variabele = MultiplierFixedNul @@ -102,6 +106,7 @@ + Set KostenPlaats = "TAOOMontage" Set ActiviteitNr = 13 Set ActiviteitNaam = "Wegleggen lege verpakkingen" Set Variabele = MultiplierFixedNul @@ -114,6 +119,7 @@ + Set KostenPlaats = "TAOOZaag" Set ActiviteitNr = 23 Set ActiviteitNaam = "Frontbevestiging monteren" Set Variabele = MultiplierFixedNul @@ -126,6 +132,7 @@ + Set KostenPlaats = "TAOOMontage" Set ActiviteitNr = 26 Set ActiviteitNaam = "Front monteren" Set Variabele = MultiplierFixedNul Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml =================================================================== diff -u -r1496 -r1511 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml (.../HFFrontv001.cls.xml) (revision 1496) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml (.../HFFrontv001.cls.xml) (revision 1511) @@ -34,8 +34,19 @@ - - + Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFEtiketv001.cls.xml =================================================================== diff -u --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFEtiketv001.cls.xml (revision 0) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFEtiketv001.cls.xml (revision 1511) @@ -0,0 +1,32 @@ + + + + +do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.Calc.HF.TAOO.HFEtiketv001") +1 +vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder +0 + + +HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT + + + + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml =================================================================== diff -u -r1496 -r1511 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 1496) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 1511) @@ -34,8 +34,19 @@ - - + Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml =================================================================== diff -u -r1496 -r1511 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml (.../BuilderHFv001.cls.xml) (revision 1496) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/BuilderHFv001.cls.xml (.../BuilderHFv001.cls.xml) (revision 1511) @@ -23,6 +23,7 @@ Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFFrontBevestigingv001).%New(##this) Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFSchroefv001).%New(##this) Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFLijmv001).%New(##this) + Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFEtiketv001).%New(##this) Quit ##super(SamengesteldHalffabItemBuilder) ]]> Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml =================================================================== diff -u -r1496 -r1511 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml (.../HFBodemv001.cls.xml) (revision 1496) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml (.../HFBodemv001.cls.xml) (revision 1511) @@ -34,8 +34,19 @@ - - + Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontBevestigingv001.cls.xml =================================================================== diff -u -r1506 -r1511 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontBevestigingv001.cls.xml (.../HFFrontBevestigingv001.cls.xml) (revision 1506) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontBevestigingv001.cls.xml (.../HFFrontBevestigingv001.cls.xml) (revision 1511) @@ -13,7 +13,7 @@ ]]> - + 0 -;LadeZijkant;Bodem;Rug;Front;Glijder;TANDEM koppeling;FrontBevestiging;Schroef;Lijm +;LadeZijkant;Bodem;Rug;Front;Glijder;TANDEM koppeling;FrontBevestiging;Schroef;Lijm;Etiket @@ -72,5 +72,12 @@ + + +1 +DOM.PM.Maatwerk.Calc.HF.enu.TAOORol + + Index: CSC TAOO.prj.xml =================================================================== diff -u -r1506 -r1511 --- CSC TAOO.prj.xml (.../CSC TAOO.prj.xml) (revision 1506) +++ CSC TAOO.prj.xml (.../CSC TAOO.prj.xml) (revision 1511) @@ -1,6 +1,6 @@ - + @@ -193,6 +193,7 @@ + Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFEtiketv001.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFEtiketv001.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFEtiketv001.cls.xml (revision 1511) @@ -0,0 +1,37 @@ + + + +persistent +1 +DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder +0 + + +SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder +1 +1 +%Status + + + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext +DOM.PM.Maatwerk.Calc.HF.IHalffabItem + + + + +%Library.CacheStorage + + + Index: DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml =================================================================== diff -u -r1510 -r1511 --- DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml (.../KostAfwerkenv001.cls.xml) (revision 1510) +++ DOM/PM/Maatwerk/Calc/Kost/impl/ATOO/KostAfwerkenv001.cls.xml (.../KostAfwerkenv001.cls.xml) (revision 1511) @@ -21,10 +21,7 @@ Set FrontAanwezigEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAOORol).Front()) - // TODO: Correcte kostenplaats definiëren - Set KostenPlaats = "TBZAAG" - - + Set KostenPlaats = "TAOOVerpak" Set ActiviteitNr = 14 Set ActiviteitNaam = "Opkuisen lade" Set Variabele = MultiplierFixedNul @@ -36,6 +33,7 @@ + Set KostenPlaats = "TAOOVerpak" Set ActiviteitNr = 15 Set ActiviteitNaam = "Verpakken losse onderdelen" Set Variabele = MultiplierFixedNul @@ -45,8 +43,9 @@ Set MinimumKost = 0 Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) - - + + + Set KostenPlaats = "TAOOKarton" Set ActiviteitNr = 16 Set ActiviteitNaam = "Snijden karton met PANOTE" Set Variabele = MultiplierFixedNul @@ -58,6 +57,7 @@ + Set KostenPlaats = "TAOOVerpak" Set ActiviteitNr = 17 Set ActiviteitNaam = "Vouwen doos" Set Variabele = MultiplierFixedNul @@ -69,6 +69,7 @@ + Set KostenPlaats = "TAOOVerpak" Set ActiviteitNr = 18 Set ActiviteitNaam = "Inpakken lade" Set Variabele = MultiplierFixedNul @@ -80,6 +81,7 @@ + Set KostenPlaats = "TAOOVerpak" Set ActiviteitNr = 19 Set ActiviteitNaam = "Controle, labelen en kuisen" Set Variabele = MultiplierFixedNul @@ -91,6 +93,7 @@ + Set KostenPlaats = "TAOOVerpak" Set ActiviteitNr = 24 Set ActiviteitNaam = "Opkuisen front" Set Variabele = MultiplierFixedNul @@ -103,6 +106,7 @@ + Set KostenPlaats = "TAOOVerpak" Set ActiviteitNr = 25 Set ActiviteitNaam = "Controleren front" Set Variabele = MultiplierFixedNul @@ -114,17 +118,11 @@ Do ControlerenFront.GebruikEvaluator(FrontAanwezigEvaluator) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItemBuilder).%New(##this,"Verpakking PANOTEC",5) - Set ActiviteitNr = 27 - Set ActiviteitNaam = "Receptie, stapeling en afhandeling" - Set Variabele = MultiplierFixedNul - Set Factor = MultiplierFixedEen - Set VariabeleKost = 0 - Set VasteKost = 60 - Set MinimumKost = 0 - Set ControlerenFront = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,ActiviteitNaam,KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) - Do ControlerenFront.GebruikEvaluator(FrontAanwezigEvaluator) + Do ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItemBuilder).%New(##this,"Receptie, stapeling en afhandeling",3) + Quit $$$OK ]]> Index: zTryout/CSC/TAOOLade.cls.xml =================================================================== diff -u -r1506 -r1511 --- zTryout/CSC/TAOOLade.cls.xml (.../TAOOLade.cls.xml) (revision 1506) +++ zTryout/CSC/TAOOLade.cls.xml (.../TAOOLade.cls.xml) (revision 1511) @@ -22,8 +22,9 @@ Set IngegevenKenmerken.LadeDiepte = 250 Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut() Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N() - Set IngegevenKenmerken.IsBinnenlade = 1 + Set IngegevenKenmerken.IsBinnenlade = 0 Set IngegevenKenmerken.Draagkracht = 30 + Set IngegevenKenmerken.InbouwBreedte = 650 Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,IngegevenKenmerken) Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New() Index: vhDeploy/Deploy20110624x0834.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20110624x0834.cls.xml (revision 0) +++ vhDeploy/Deploy20110624x0834.cls.xml (revision 1511) @@ -0,0 +1,86 @@ + + + +1 +svn.Deploy +0 + + +1 + + + +