Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000.cls.xml =================================================================== diff -u -r51017 -r51192 --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000.cls.xml (.../HFBevestigingBodemFrontv000.cls.xml) (revision 51017) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000.cls.xml (.../HFBevestigingBodemFrontv000.cls.xml) (revision 51192) @@ -40,30 +40,17 @@ Do HalffabItem.ZetOmschrijvingVoorDocs(ConcreetHalffabItem.GeefOmschrijvingVoorDocs() _ Omschrijving) Do HalffabItem.ZetOmschrijvingVoorPicking(ConcreetHalffabItem.GeefOmschrijvingVoorPicking() _ Omschrijving) - Set HalffabItem.Aantal = ..GeefAantalBevestigingBodemFronten(HalffabItem, IngegevenKenmerken) + Set HalffabItem.Aantal = ..GeefAantalBevestigingBodemFronten(IngegevenKenmerken, Context) ]]> -HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext 1 %Integer = 861) { - Set Aantal = 2 - } ElseIf $$$Not((IngegevenKenmerken.IsBinnenlade)) && IsExpandoT && (IngegevenKenmerken.InterneBreedte >= 561) { - Set Aantal = 1 - } ElseIf $$$Not((IngegevenKenmerken.IsBinnenlade)) && IsExpandoT { - Set Aantal = 0 // komt normaal gezien niet voor want dan werkt builder niet. - } Else { - Set Aantal = HalffabItem.Aantal - } - - Quit Aantal + Set AantalBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFBevestigingBodemFrontv000.AantalBepaler).%New() + Quit AantalBepaler.GeefAantalBevestigingBodemFronten(IngegevenKenmerken, Context) ]]> Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000/AantalBepaler.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000/AantalBepaler.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000/AantalBepaler.cls.xml (revision 51192) @@ -0,0 +1,48 @@ + + + +TECH.RegisteredObject + + +%Integer +861 + + + +%Integer +561 + + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext +%Integer += ..#ExpandoTAfmetingVoor2Stuks) { + Set Aantal = 2 + } ElseIf (IngegevenKenmerken.InterneBreedte >= ..#ExpandoTAfmetingVoor1Stuk) { + Set Aantal = 1 + } Else { + Set Aantal = 0 + } + } + } Else { + If (IngegevenKenmerken.InterneBreedte > Context.GeefKlantOrderInstellingen().GeefMinimaleBreedteVoorBevestigingBodemFront()) { + Set Aantal = 1 + } Else { + Set Aantal = 0 + } + } + + Quit Aantal +]]> + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001.cls.xml =================================================================== diff -u -r51017 -r51192 --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001.cls.xml (.../HFBevestigingBodemFrontv001.cls.xml) (revision 51017) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001.cls.xml (.../HFBevestigingBodemFrontv001.cls.xml) (revision 51192) @@ -45,23 +45,9 @@ IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext 1 %Boolean - 0)) ]]> - - -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext -1 -%Boolean - MinimaleBreedte) -]]> -