Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml =================================================================== diff -u -r29196 -r29197 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml (.../HFVerpakkingv001.cls.xml) (revision 29196) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml (.../HFVerpakkingv001.cls.xml) (revision 29197) @@ -93,26 +93,26 @@ if $IsObject(Bodem) { ; ; Bodem - BodemDoos Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Bodem) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Bodem) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput)) ; Bodem - Deksel Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(##this, BuilderInput)) ; Bodem - Horizontaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput)) ; Bodem - Verticaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Bodem,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput)) } @@ -132,14 +132,14 @@ ; Rug - Horizontaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput)) ; Rug - Verticaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Rug,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Rug,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput)) } @@ -159,14 +159,14 @@ ; Zijkant - Horizontaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Zijkant,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Zijkant,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Zijkant,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput)) ; Zijkant - Verticaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Zijkant,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Zijkant,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Zijkant,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput)) } @@ -184,14 +184,14 @@ ; Front - Horizontaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Front,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot).%New(##this, BuilderInput)) ; Front - Verticaal tussenschot Set BuilderInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(Front,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid()) - Set DoosBerekenaarBodemInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) - Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarBodemInput)) + Set DoosBerekenaarInput = ##class(zTryout.PBO.TAXBOG.impl.DoosBerekenaarInput).%New(Front,..Context.GeefBerekeningsSpecificatie().GeefHoeveelheid(),..BenamingVerpakkingen.Deksel) + Do BuilderInput.ZetVerpakkingen(DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput)) Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdVerticaalTussenschot).%New(##this, BuilderInput)) } ]]>