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