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