Index: vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml (revision 0) +++ vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml (revision 68405) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.Verpakking.DoosAanvuller,Tools.Mock.MockClassBase +right + + + + + + + + + Index: APPS/Verpakking/V1HogeRug.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/V1HogeRug.cls.xml (.../V1HogeRug.cls.xml) (revision 68329) +++ APPS/Verpakking/V1HogeRug.cls.xml (.../V1HogeRug.cls.xml) (revision 68405) @@ -54,11 +54,10 @@ - + %Decimal 4.2 - - + Index: vhTest/Fake/APPS/Verpakking/Optimizer.cls.xml =================================================================== diff -u --- vhTest/Fake/APPS/Verpakking/Optimizer.cls.xml (revision 0) +++ vhTest/Fake/APPS/Verpakking/Optimizer.cls.xml (revision 68405) @@ -0,0 +1,18 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.Verpakking.Optimizer + + +BasisDoos:APPS.Verpakking.Doos,ProductGroep:%String + + + + + + Index: DS/Prod/OptiBox/sub/btCardboardRepository.cls.xml =================================================================== diff -u --- DS/Prod/OptiBox/sub/btCardboardRepository.cls.xml (revision 0) +++ DS/Prod/OptiBox/sub/btCardboardRepository.cls.xml (revision 68405) @@ -0,0 +1,46 @@ + + + +TECH.Persistentie.impl.Repository + + +%String +DS.Prod.OptiBox.sub.btCardboard + + + +Dikte:%Decimal,Breedte:%Decimal,LogoPrint:%String +%Boolean += ? AND LogoPrint = ? ORDER BY BREEDTE ASC", $LB(Dikte, Breedte, LogoPrint)) +]]> + + + +Dikte:%Decimal,Breedte:%Decimal,LogoPrint:%String +%Boolean += ? AND LogoPrint = ? ORDER BY BREEDTE ASC", $LB(Dikte, Breedte, LogoPrint)) +]]> + + + +Veld:%String,Filter:%String,Params:%List +1 +%String + + + + + + + Index: APPS/Verpakking/DoosService.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/DoosService.cls.xml (.../DoosService.cls.xml) (revision 68329) +++ APPS/Verpakking/DoosService.cls.xml (.../DoosService.cls.xml) (revision 68405) @@ -23,15 +23,23 @@ 1 + +WS.APPS.Verpakking.Service.MaakSnijRequest +1 + + +DoosFactory:APPS.Verpakking.DoosFactory="",DoosAanvuller:APPS.Verpakking.DoosAanvuller="",Optimizer:APPS.Verpakking.Optimizer="",SnijDoosService:WS.APPS.Verpakking.SnijDoosService="",SnijRequestMaker:WS.APPS.Verpakking.Service.MaakSnijRequest="" 1 1 %Status 1 @@ -41,20 +49,23 @@ @@ -66,24 +77,6 @@ ]]> - -OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer -1 -WS.APPS.Verpakking.SnijDoosRequest - - - MachineID:APPS.Verpakking.enu.MachineID 1 Index: APPS/Verpakking/V1Flatpack.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/V1Flatpack.cls.xml (.../V1Flatpack.cls.xml) (revision 68329) +++ APPS/Verpakking/V1Flatpack.cls.xml (.../V1Flatpack.cls.xml) (revision 68405) @@ -33,11 +33,10 @@ - + %Decimal 4.2 - - + Index: vhUnitTest/APPS/Verpakking/DoosFactory/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/Verpakking/DoosFactory/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/Verpakking/DoosFactory/Test.cls.xml (revision 68405) @@ -0,0 +1,54 @@ + + + +vhUnitTest.TestCase + + +APPS.Verpakking.DoosFactory +1 + + + + + + + + + + + +ProductGroep:%String,ReceptNaam:%String,VerwachteDoos:APPS.Verpakking.Doos +1 + + + + + + Index: vhTest/Fake/APPS/Verpakking/DoosAanvuller.cls.xml =================================================================== diff -u --- vhTest/Fake/APPS/Verpakking/DoosAanvuller.cls.xml (revision 0) +++ vhTest/Fake/APPS/Verpakking/DoosAanvuller.cls.xml (revision 68405) @@ -0,0 +1,18 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.Verpakking.DoosAanvuller + + + + + + + + + Index: APPS/Verpakking/DoosAanvuller.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/DoosAanvuller.cls.xml (.../DoosAanvuller.cls.xml) (revision 68329) +++ APPS/Verpakking/DoosAanvuller.cls.xml (.../DoosAanvuller.cls.xml) (revision 68405) @@ -1,25 +1,25 @@ -TECH.RegisteredObject +TECH.Mockable - + 1 - + %Decimal 4.2 - - + %Decimal -1 @@ -43,7 +41,6 @@ %Decimal -1 Index: vhTest/Fake/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml =================================================================== diff -u --- vhTest/Fake/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml (revision 0) +++ vhTest/Fake/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml (revision 68405) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WS.APPS.Verpakking.Service.MaakSnijRequest + + +OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer +WS.APPS.Verpakking.SnijDoosRequest + + + + + + Index: vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml (revision 68405) @@ -0,0 +1,53 @@ + + + +vhUnitTest.TestCase + + + + + + + + Index: WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml =================================================================== diff -u --- WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml (revision 0) +++ WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml (revision 68405) @@ -0,0 +1,25 @@ + + + +TECH.Mockable + + +OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer +WS.APPS.Verpakking.SnijDoosRequest + + + + + + Index: WS/APPS/Verpakking/SnijDoosService.cls.xml =================================================================== diff -u -r68329 -r68405 --- WS/APPS/Verpakking/SnijDoosService.cls.xml (.../SnijDoosService.cls.xml) (revision 68329) +++ WS/APPS/Verpakking/SnijDoosService.cls.xml (.../SnijDoosService.cls.xml) (revision 68405) @@ -2,7 +2,7 @@ 1 -%SOAP.WebClient +%SOAP.WebClient,TECH.Mockable @@ -17,8 +17,7 @@ -1 -SnijDoosRequest:WS.APPS.Verpakking.SnijDoosRequest,KlantNr:%String +SnijDoosRequest:WS.APPS.Verpakking.SnijDoosRequest 1 1 document Index: vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/Verpakking/Optimizer/Test.cls.xml (revision 68405) @@ -0,0 +1,294 @@ + + + +vhUnitTest.TestCase + + +APPS.Verpakking.Optimizer +1 + + + + + + + + + + + + + + + +Doos:APPS.Verpakking.Doos,ProductGroep:%String,VerwachteRecipeID:%String,VerwachteSwap:%String +1 + + + + + BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) { + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } +} + +Method OptmizeV1LageRug(ByRef BasisDoos As APPS.Verpakking.V1LageRug) [ Private ] +{ + #dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K + #dim DieptePlaneVoorSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Depth + (2 * BasisDoos.Height) + + #dim BreedtePlanoNaSwap As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + #dim DieptePlaneNaSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Width + (2 * BasisDoos.Height) + + #dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap) + #dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap) + + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap + + If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap) && (..InitieleDiepte > BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) { + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } +} + +Method OptmizeV1LosseOnderdelen(ByRef BasisDoos As APPS.Verpakking.V1LosseOnderdelen) [ Private ] +{ + #dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.K1 + BasisDoos.Depth + BasisDoos.Width + BasisDoos.Depth + BasisDoos.K1 + #dim DieptePlaneVoorSwap As %Decimal = BasisDoos.K2 + BasisDoos.Depth - BasisDoos.T + BasisDoos.Height + BasisDoos.T + (2 * BasisDoos.Height) + BasisDoos.Depth + BasisDoos.Height + + #dim BreedtePlanoNaSwap As %Decimal = BasisDoos.K1 + BasisDoos.Width + BasisDoos.Depth + BasisDoos.Width + BasisDoos.K1 + #dim DieptePlaneNaSwap As %Decimal = BasisDoos.K2 + BasisDoos.Width - BasisDoos.T + BasisDoos.Height + BasisDoos.T + (2 * BasisDoos.Height) + BasisDoos.Width + BasisDoos.Height + + #dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap) + #dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap) + + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap + + If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap)) { + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } +} + +Method OptmizeComplexeScheiding(ByRef BasisDoos As APPS.Verpakking.ComplexeScheiding) [ Private ] +{ + //SWAP is 0 en er zijn geen altrecipes dus geen optimalisatie nodig +} + +Method OptmizeV1Flatpack(ByRef BasisDoos As APPS.Verpakking.V1Flatpack) [ Private ] +{ + //SWAP is 0 en er zijn geen altrecipes dus geen optimalisatie nodig +} + +Method OptmizeVouwErrondDoos(ByRef BasisDoos As APPS.Verpakking.VouwErrondDoos, ProductGroep As %String) [ Private ] +{ + If (ProductGroep = "KAD") { + If (BasisDoos.Width + ..#MachineKant > 2400) { //Breedte grootste karton + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } + + #dim BreedtePlanoRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + #dim DieptePlaneRecept219 As %Decimal = BasisDoos.Depth + BasisDoos.Height +BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2 + + #dim BreedtePlanoRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + #dim DieptePlaneRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height +BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + + #dim NodigeKartonBreedteRecept219 = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoRecept219) + #dim NodigeKartonBreedteRecept209 = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, DieptePlaneRecept219) + + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenRecept219 As %Decimal = DieptePlaneRecept219 * NodigeKartonBreedteRecept219 + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenRecept209 As %Decimal = DieptePlaneRecept209 * NodigeKartonBreedteRecept209 + + If ((OppervlakteKartonOmVerpakkingUitTeSnijdenRecept209 < OppervlakteKartonOmVerpakkingUitTeSnijdenRecept219)) { + Set BasisDoos.RecipeID = 209 + } + } Else { + #dim SwapRecept219IsBeter, SwapRecept209IsBeter As %Boolean = $$$False + + #dim BreedtePlanoVoorSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K1 + #dim DieptePlaneVoorSwapRecept219 As %Decimal = BasisDoos.Depth + BasisDoos.Height +BasisDoos.Depth + BasisDoos.Height + BasisDoos.K2 + + #dim BreedtePlanoNaSwapRecept219 As %Decimal = BasisDoos.K1 + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + #dim DieptePlaneNaSwapRecept219 As %Decimal = BasisDoos.Width + BasisDoos.Height +BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + + #dim NodigeKartonBreedteVoorSwapRecept219 = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwapRecept219) + #dim NodigeKartonBreedteNaSwapRecept219 = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwapRecept219) + + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept219 As %Decimal = DieptePlaneVoorSwapRecept219 * NodigeKartonBreedteVoorSwapRecept219 + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept219 As %Decimal = DieptePlaneNaSwapRecept219 * NodigeKartonBreedteNaSwapRecept219 + + If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept219 < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept219)) { + Set SwapRecept219IsBeter = $$$True + } + + #dim BreedtePlanoVoorSwapRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + #dim DieptePlaneVoorSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height +BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + + #dim BreedtePlanoNaSwapRecept209 As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K2 + #dim DieptePlaneNaSwapRecept209 As %Decimal = BasisDoos.K1 + BasisDoos.Height +BasisDoos.Depth + BasisDoos.Height + BasisDoos.K1 + + #dim NodigeKartonBreedteVoorSwapRecept209 = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwapRecept209) + #dim NodigeKartonBreedteNaSwapRecept209 = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwapRecept209) + + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept209 As %Decimal = DieptePlaneVoorSwapRecept209 * NodigeKartonBreedteVoorSwapRecept209 + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept209 As %Decimal = DieptePlaneNaSwapRecept209 * NodigeKartonBreedteNaSwapRecept209 + + If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept209 < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept209)) { + Set SwapRecept209IsBeter = $$$True + } + + If (SwapRecept219IsBeter && SwapRecept209IsBeter) { + If (OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept209 < OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept219) { + Set BasisDoos.RecipeID = 209 + } + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } ElseIf (SwapRecept219IsBeter && $$$Not(SwapRecept209IsBeter)) { + If (OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept209 < OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept219) { + Set BasisDoos.RecipeID = 209 + } Else { + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } + } ElseIf ($$$Not(SwapRecept219IsBeter) && SwapRecept209IsBeter) { + If (OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwapRecept209 < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept219) { + Set BasisDoos.RecipeID = 209 + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } + } ElseIf ($$$Not(SwapRecept219IsBeter) && $$$Not(SwapRecept209IsBeter)) { + If (OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept209 < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwapRecept219) { + Set BasisDoos.RecipeID = 209 + } + } + } +} + +Method OptmizeV1DoosMetDeksel(ByRef BasisDoos As APPS.Verpakking.V1DoosMetDeksel) [ Private ] +{ + #dim BreedtePlanoVoorSwap As %Decimal = BasisDoos.Width + BasisDoos.Height + BasisDoos.Width + BasisDoos.Height + BasisDoos.K + #dim DieptePlaneVoorSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Depth + (2 * BasisDoos.Height) + + #dim BreedtePlanoNaSwap As %Decimal = BasisDoos.Depth + BasisDoos.Height + BasisDoos.Depth + BasisDoos.Height + BasisDoos.K + #dim DieptePlaneNaSwap As %Decimal = (2 * BasisDoos.Height) + BasisDoos.Width + (2 * BasisDoos.Height) + + #dim NodigeKartonBreedteVoorSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoVoorSwap) + #dim NodigeKartonBreedteNaSwap = ..GetCardboardProductBreedte(BasisDoos.Thickness, BasisDoos.LogoPrint, BreedtePlanoNaSwap) + + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap As %Decimal = DieptePlaneVoorSwap * NodigeKartonBreedteVoorSwap + #dim OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap As %Decimal = DieptePlaneNaSwap * NodigeKartonBreedteNaSwap + + If ((OppervlakteKartonOmVerpakkingUitTeSnijdenNaSwap < OppervlakteKartonOmVerpakkingUitTeSnijdenVoorSwap)) { + Set BasisDoos.Width = ..InitieleDiepte + Set BasisDoos.Depth = ..InitieleBreedte + } +} + +ClassMethod GetCardboardProductID(Dikte As %Decimal, LogoPrint As %String, PlanoBreedte As %Decimal) As %String [ Private ] +{ + Set Product="" + Set PlanoBreedte=PlanoBreedte+..#MachineKant + &sql(DECLARE GetProduct CURSOR FOR + Select Breedte, Product, CardBoardID + into :Breedte, :PRNr, :CardBoardID + from Prod.OptiBox_btCardboard + where Dikte=:Dikte and LogoPrint=:LogoPrint and Breedte>=:PlanoBreedte order by Breedte asc) + + &sql(OPEN GetProduct) + &sql(FETCH GetProduct) + &sql(CLOSE GetProduct) + + Quit CardBoardID +} + +ClassMethod GetCardboardProductBreedte(Dikte As %Decimal, LogoPrint As %String, PlanoBreedte As %Decimal) As %Decimal [ Private ] +{ + Set Product="" + Set PlanoBreedte=PlanoBreedte+..#MachineKant + &sql(DECLARE GetProductWidth CURSOR FOR + Select Breedte, Product, CardBoardID + into :Breedte, :PRNr, :CardBoardID + from Prod.OptiBox_btCardboard + where Dikte=:Dikte and LogoPrint=:LogoPrint and Breedte>=:PlanoBreedte order by Breedte asc) + + &sql(OPEN GetProductWidth) + &sql(FETCH GetProductWidth) + &sql(CLOSE GetProductWidth) + + Quit Breedte +} +*/ +]]> + + + + + Index: vhTest/Mock/APPS/Verpakking/DoosFactory.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/Verpakking/DoosFactory.cls.xml (revision 0) +++ vhTest/Mock/APPS/Verpakking/DoosFactory.cls.xml (revision 68405) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.Verpakking.DoosFactory,Tools.Mock.MockClassBase +right + + +ProductGroep:%String,ReceptNaam:%String +APPS.Verpakking.Doos + + + + + + Index: vhTest/Mock/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml =================================================================== diff -u --- vhTest/Mock/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml (revision 0) +++ vhTest/Mock/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml (revision 68405) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WS.APPS.Verpakking.Service.MaakSnijRequest,Tools.Mock.MockClassBase +right + + +OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer +WS.APPS.Verpakking.SnijDoosRequest + + + + + + Index: APPS/Verpakking/V1DoosMetDeksel.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/V1DoosMetDeksel.cls.xml (.../V1DoosMetDeksel.cls.xml) (revision 68329) +++ APPS/Verpakking/V1DoosMetDeksel.cls.xml (.../V1DoosMetDeksel.cls.xml) (revision 68405) @@ -48,11 +48,10 @@ - + %Decimal 4.2 - - + Index: vhDeploy/Deploy20220706xConfigSettingsMachineTechnologieKartonSnijMachine.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20220706xConfigSettingsMachineTechnologieKartonSnijMachine.cls.xml (revision 0) +++ vhDeploy/Deploy20220706xConfigSettingsMachineTechnologieKartonSnijMachine.cls.xml (revision 68405) @@ -0,0 +1,39 @@ + + + +vhDeploy.Deploy + + +%String +Deployen van configuratiesetting voor machinetechnologie van kartonsnijmachines + endpoint nodeRed voor cutrequest + + + +1 + + + + +1 +1 + + + + + + Index: vhTest/Mock/APPS/Verpakking/Optimizer.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/Verpakking/Optimizer.cls.xml (revision 0) +++ vhTest/Mock/APPS/Verpakking/Optimizer.cls.xml (revision 68405) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.Verpakking.Optimizer,Tools.Mock.MockClassBase +right + + + + + + + + + Index: APPS/Verpakking/ComplexeScheiding.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/ComplexeScheiding.cls.xml (.../ComplexeScheiding.cls.xml) (revision 68329) +++ APPS/Verpakking/ComplexeScheiding.cls.xml (.../ComplexeScheiding.cls.xml) (revision 68405) @@ -26,11 +26,10 @@ - + %Decimal 4.2 - - + Index: APPS/Verpakking/Doos.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/Doos.cls.xml (.../Doos.cls.xml) (revision 68329) +++ APPS/Verpakking/Doos.cls.xml (.../Doos.cls.xml) (revision 68405) @@ -56,9 +56,9 @@ - + %Decimal - + Index: APPS/Verpakking/DoosFactory.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/DoosFactory.cls.xml (.../DoosFactory.cls.xml) (revision 68329) +++ APPS/Verpakking/DoosFactory.cls.xml (.../DoosFactory.cls.xml) (revision 68405) @@ -1,9 +1,9 @@ -TECH.RegisteredObject +TECH.Mockable - + ProductGroep:%String,ReceptNaam:%String APPS.Verpakking.Doos + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.Verpakking.DoosFactory + + +ProductGroep:%String,ReceptNaam:%String +APPS.Verpakking.Doos + + + + + + Index: APPS/Verpakking/V1LageRug.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/V1LageRug.cls.xml (.../V1LageRug.cls.xml) (revision 68329) +++ APPS/Verpakking/V1LageRug.cls.xml (.../V1LageRug.cls.xml) (revision 68405) @@ -54,11 +54,10 @@ - + %Decimal 4.2 - - + Index: vhTest/Mock/WS/APPS/Verpakking/SnijDoosService.cls.xml =================================================================== diff -u --- vhTest/Mock/WS/APPS/Verpakking/SnijDoosService.cls.xml (revision 0) +++ vhTest/Mock/WS/APPS/Verpakking/SnijDoosService.cls.xml (revision 68405) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WS.APPS.Verpakking.SnijDoosService,Tools.Mock.MockClassBase +right + + +SnijDoosRequest:WS.APPS.Verpakking.SnijDoosRequest + + + + + + Index: vhTest/Fake/WS/APPS/Verpakking/SnijDoosService.cls.xml =================================================================== diff -u --- vhTest/Fake/WS/APPS/Verpakking/SnijDoosService.cls.xml (revision 0) +++ vhTest/Fake/WS/APPS/Verpakking/SnijDoosService.cls.xml (revision 68405) @@ -0,0 +1,18 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WS.APPS.Verpakking.SnijDoosService + + +SnijDoosRequest:WS.APPS.Verpakking.SnijDoosRequest + + + + + + Index: APPS/Verpakking/Optimizer.cls.xml =================================================================== diff -u -r68404 -r68405 --- APPS/Verpakking/Optimizer.cls.xml (.../Optimizer.cls.xml) (revision 68404) +++ APPS/Verpakking/Optimizer.cls.xml (.../Optimizer.cls.xml) (revision 68405) @@ -9,21 +9,16 @@ 50 - -%Decimal + +APPS.Verpakking.Doos 1 - + %Decimal 1 - -APPS.Verpakking.Doos -1 - - DS.Prod.OptiBox.sub.btCardboardRepository 1 @@ -33,9 +28,6 @@ 1 - BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) { - Set BasisDoos.Width = ..InitieleDiepte - Set BasisDoos.Depth = ..InitieleBreedte - } - */ + 1 - BasisDoos.MinWidth) && (..InitieleBreedte > BasisDoos.MinDepth)) { - Set BasisDoos.Width = ..InitieleDiepte - Set BasisDoos.Depth = ..InitieleBreedte - } - */ + 1 - 1 - 1 - @@ -186,7 +111,9 @@ #dim OppTotaleKartonRecept As %Decimal = DieptePlanoRecept * NodigeKartonBreedteRecept #dim OppTotaleKartonAltRecept As %Decimal = DieptePlanoAltRecept * NodigeKartonBreedteAltRecept + Set ..BreedtePlano = BreedtePlanoRecept If ((OppTotaleKartonAltRecept < OppTotaleKartonRecept)) { + Set ..BreedtePlano = BreedtePlanoAltRecept Set BasisDoos.RecipeID = BasisDoos.AltRecipeID Set BasisDoos.Swap = BasisDoos.AltSwap } @@ -226,23 +153,31 @@ } If (SwapRecept219IsBeter && SwapRecept209IsBeter) { + Set ..BreedtePlano = BreedtePlanoNaSwapRecept219 + Set BasisDoos.Swap = 1 If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonNaSwapRecept219) { + Set ..BreedtePlano = BreedtePlanoNaSwapRecept209 Set BasisDoos.RecipeID = 209 - } - Set BasisDoos.Swap = 1 + } } ElseIf (SwapRecept219IsBeter && $$$Not(SwapRecept209IsBeter)) { If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonNaSwapRecept219) { + Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209 Set BasisDoos.RecipeID = 209 } Else { Set BasisDoos.Swap = 1 + Set ..BreedtePlano = BreedtePlanoNaSwapRecept219 } } ElseIf ($$$Not(SwapRecept219IsBeter) && SwapRecept209IsBeter) { + Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219 If (OppTotaleKartonNaSwapRecept209 < OppTotaleKartonVoorSwapRecept219) { + Set ..BreedtePlano = BreedtePlanoNaSwapRecept209 Set BasisDoos.RecipeID = 209 Set BasisDoos.Swap = 1 } } ElseIf ($$$Not(SwapRecept219IsBeter) && $$$Not(SwapRecept209IsBeter)) { + Set ..BreedtePlano = BreedtePlanoVoorSwapRecept219 If (OppTotaleKartonVoorSwapRecept209 < OppTotaleKartonVoorSwapRecept219) { + Set ..BreedtePlano = BreedtePlanoVoorSwapRecept209 Set BasisDoos.RecipeID = 209 } } @@ -253,28 +188,7 @@ 1 - Index: APPS/Verpakking/V1LosseOnderdelen.cls.xml =================================================================== diff -u -r68329 -r68405 --- APPS/Verpakking/V1LosseOnderdelen.cls.xml (.../V1LosseOnderdelen.cls.xml) (revision 68329) +++ APPS/Verpakking/V1LosseOnderdelen.cls.xml (.../V1LosseOnderdelen.cls.xml) (revision 68405) @@ -20,11 +20,10 @@ - + %Decimal 4.2 - - +