Index: APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml
===================================================================
diff -u -r58113 -r58214
--- APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 58113)
+++ APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 58214)
@@ -18,24 +18,31 @@
1
+
+APPS.Halux.common.ToeleveringSplitser
+1
+
+
-ProductTypeApi:DOM.PM.ProductTypeAPI="",ProductieOpstartfaseBepaler:APPS.Halux.common.impl.ProductieGroepBepaler.ProductieOpstartfaseBepalerLBX="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""
+ProductTypeApi:DOM.PM.ProductTypeAPI="",ProductieOpstartfaseBepaler:APPS.Halux.common.impl.ProductieGroepBepaler.ProductieOpstartfaseBepalerLBX="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser=""
1
1
%Status
1
-KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String,HeeftGrootAantalInToelevering:%Boolean=0
+KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String
APPS.Halux.common.enu.ProductieGroep
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
+1
+%Boolean
+
+
+
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
+1
+%Boolean
+
+
+
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
+1
+%Boolean
+
+
+
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
+1
+%Boolean
+
+
+
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
+1
+%Boolean
+
+
+
+
+Key:%String
+1
+%Boolean
+
+
+
KlantId:DOM.VKP.VanHoeckeKlantID
1
Index: APPS/Halux/common/impl/ProductieGroepBepalerKAD.cls.xml
===================================================================
diff -u -r58122 -r58214
--- APPS/Halux/common/impl/ProductieGroepBepalerKAD.cls.xml (.../ProductieGroepBepalerKAD.cls.xml) (revision 58122)
+++ APPS/Halux/common/impl/ProductieGroepBepalerKAD.cls.xml (.../ProductieGroepBepalerKAD.cls.xml) (revision 58214)
@@ -4,7 +4,7 @@
APPS.Halux.common.impl.ProductieGroepBepaler
-KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String,HeeftGrootAantalInToelevering:%Boolean=0
+KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String
APPS.Halux.common.enu.ProductieGroep
-
+
-
+
+
+
+
+
-
+
+
+
+
+
-IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteProductieGroep:APPS.Halux.common.enu.ProductieGroep,FakeKlantID:DOM.VKP.VanHoeckeKlantID="",IsInOpstartFase:%Boolean=0,HeeftGrootAantalInToelevering:%Boolean=0
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteProductieGroep:APPS.Halux.common.enu.ProductieGroep,FakeKlantID:DOM.VKP.VanHoeckeKlantID="",IsInOpstartFase:%Boolean=0,ToeleveringSplitser:APPS.Halux.common.impl.ToeleveringSplitser=""
Index: APPS/Halux/common/impl/ProductieGroepBepaler.cls.xml
===================================================================
diff -u -r58122 -r58214
--- APPS/Halux/common/impl/ProductieGroepBepaler.cls.xml (.../ProductieGroepBepaler.cls.xml) (revision 58122)
+++ APPS/Halux/common/impl/ProductieGroepBepaler.cls.xml (.../ProductieGroepBepaler.cls.xml) (revision 58214)
@@ -22,7 +22,7 @@
-KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String,HeeftGrootAantalInToelevering:%Boolean=0
+KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String
APPS.Halux.common.enu.ProductieGroep
Index: vhTest/Mock/APPS/Halux/common/ProductieService.cls.xml
===================================================================
diff -u -r58122 -r58214
--- vhTest/Mock/APPS/Halux/common/ProductieService.cls.xml (.../ProductieService.cls.xml) (revision 58122)
+++ vhTest/Mock/APPS/Halux/common/ProductieService.cls.xml (.../ProductieService.cls.xml) (revision 58214)
@@ -50,9 +50,9 @@
-KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String,HeeftGrootAantalInToelevering:%Boolean=0
+KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser=""
APPS.Halux.common.enu.ProductieGroep
-
Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r58193 -r58214
--- FLOWTOE3.mac.rou (.../FLOWTOE3.mac.rou) (revision 58193)
+++ FLOWTOE3.mac.rou (.../FLOWTOE3.mac.rou) (revision 58214)
@@ -578,15 +578,23 @@
SplitHaluxProd(TOENr,NTLNr)
New R,LEVNr,TLNr,NTOENr,LCount, TLUNr,PRNr,OrderLijnVolgnummer
New arSplit,SortKey,LastSortKey,Leverdag
- new Toelevering, KlantID,Product,ProductAPI,AantalLadesBepaler,HeeftGrootAantalInToelevering
-
+ new Toelevering, KlantID,Product,ProductAPI
+ New AantallenInToeleveringTeller,ProductieService,ToeleveringSplitser
+
new ProductieService set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
- Set AantalLadesBepaler = ##class(APPS.Halux.common.impl.AantalLadesBepaler).%New()
- Set HeeftGrootAantalInToelevering = AantalLadesBepaler.HeeftGrootAantalInToelevering(TOENr)
-
+
+ Set AantallenInToeleveringTeller = ##class(APPS.Halux.common.impl.AantallenInToeleveringTeller).%New()
+
set KlantID = Toelevering.GeefKlantID()
+
+ For Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr="" Do
+ . Set R=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3)
+ . Do AantallenInToeleveringTeller.VoegToe(Aantal, PRNr, KlantID)
+
+ Set ToeleveringSplitser = ##class(APPS.Halux.common.impl.ToeleveringSplitser).%New(AantallenInToeleveringTeller)
+
#dim Product As DOM.PM.Product
Set LEVNr=$P(^KTO1(TOENr),D),TLNr=100
// SortKey dient niet voor sortering, maar voor het aanduiden welke lijnen samen mogen blijven, en welke niet.
@@ -602,7 +610,7 @@
. . Else Do
. . . If LEVNr=$$$LevHalux Do
. . . . Set Leverdag = ##class(BL.Legacy.FLOWTOE).GeefLeverdag(Toelevering,TLNr)
- . . . . Set:($Length(Leverdag)) SortKey = ProductieService.GeefCategorie(Product.GeefID())_" "_ProductieService.GeefProductieGroep(KlantID,Product.GeefID(),HeeftGrootAantalInToelevering)_" "_Leverdag
+ . . . . Set:($Length(Leverdag)) SortKey = ProductieService.GeefCategorie(Product.GeefID())_" "_ProductieService.GeefProductieGroep(KlantID,Product.GeefID(),ToeleveringSplitser)_" "_Leverdag
. .
. . If ##class(BL.Legacy.FLOWTOE).IsToeleveringLijnVoorSpaceTowerProduct(Toelevering,TLNr) Set SortKey = OrderLijnVolgnummer
. .
Index: APPS/Halux/common/ProductieService.cls.xml
===================================================================
diff -u -r58122 -r58214
--- APPS/Halux/common/ProductieService.cls.xml (.../ProductieService.cls.xml) (revision 58122)
+++ APPS/Halux/common/ProductieService.cls.xml (.../ProductieService.cls.xml) (revision 58214)
@@ -6,17 +6,17 @@
TECH.Mockable
-KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String,HeeftGrootAantalInToelevering:%Boolean=0
+KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser=""
APPS.Halux.common.enu.ProductieGroep
-ProductID:%String
+ProductID:%String,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser
1
APPS.Halux.common.impl.ProductieGroepBepaler
-KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String,HeeftGrootAantalInToelevering:%Boolean=0
+KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String
APPS.Halux.common.enu.ProductieGroep
-KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String
+KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String,ToeleveringSplitser:APPS.Halux.common.impl.ToeleveringSplitser
APPS.Halux.common.enu.ProductieGroep
Index: APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml
===================================================================
diff -u -r58175 -r58214
--- APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml (.../AantallenInToeleveringTeller.cls.xml) (revision 58175)
+++ APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml (.../AantallenInToeleveringTeller.cls.xml) (revision 58214)
@@ -8,28 +8,45 @@
1
+
+APPS.Halux.common.ProductieService
+1
+
+
1
1
%Status
1
-Aantal:%Numeric,ProductieGroep:%String
-Aantal:%Numeric,ProductId:%String,KlantId:%String
+
-ProductieGroep:%String
+Key:%String
%Numeric
-
Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml
===================================================================
diff -u -r58122 -r58214
--- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 58122)
+++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 58214)
@@ -22,7 +22,7 @@
-KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String,HeeftGrootAantalInToelevering:%Boolean=0
+KlantId:DOM.VKP.VanHoeckeKlantID,ProductId:%String
APPS.Halux.common.enu.ProductieGroep