Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG =================================================================== diff -u -r73897 -r73935 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG (.../0001-LI7K-Recht-MVX.MRG) (revision 73897) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG (.../0001-LI7K-Recht-MVX.MRG) (revision 73935) @@ -20,7 +20,7 @@ VarName1=KapZ1 VarWert1=1 VarName2=Positie1 -VarWert2=211 +VarWert2=171 VarName3=b VarWert3=474 VarName4=l Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeDubbeleUitsparingMetMat/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG =================================================================== diff -u -r73897 -r73935 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeDubbeleUitsparingMetMat/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG (.../0001-LI7K-Recht-MVX.MRG) (revision 73897) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeDubbeleUitsparingMetMat/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG (.../0001-LI7K-Recht-MVX.MRG) (revision 73935) @@ -22,9 +22,9 @@ VarName2=KapZ2 VarWert2=1 VarName3=Positie1 -VarWert3=121 +VarWert3=382 VarName4=Positie2 -VarWert4=221 +VarWert4=121 VarName5=b VarWert5=474 VarName6=l Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0003-LI7K-Recht-MVX.MRG =================================================================== diff -u -r73897 -r73935 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0003-LI7K-Recht-MVX.MRG (.../0003-LI7K-Recht-MVX.MRG) (revision 73897) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0003-LI7K-Recht-MVX.MRG (.../0003-LI7K-Recht-MVX.MRG) (revision 73935) @@ -20,7 +20,7 @@ VarName1=KapZ1 VarWert1=1 VarName2=Positie1 -VarWert2=211 +VarWert2=171 VarName3=b VarWert3=474 VarName4=l Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSpoelbaklade/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG =================================================================== diff -u -r73897 -r73935 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSpoelbaklade/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG (.../0001-LI7K-Recht-MVX.MRG) (revision 73897) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSpoelbaklade/StartBatch/FreesMain/MRG/15000/0001-LI7K-Recht-MVX.MRG (.../0001-LI7K-Recht-MVX.MRG) (revision 73935) @@ -22,7 +22,7 @@ VarName2=SDiep VarWert2=326 VarName3=SifonX -VarWert3=16 +VarWert3=26 VarName4=b VarWert4=474 VarName5=l Index: APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml =================================================================== diff -u -r73896 -r73935 --- APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml (.../DataVoorFreesMachine.cls.xml) (revision 73896) +++ APPS/Halux/PPS/Activiteit/impl/MVX/DataVoorFreesMachine.cls.xml (.../DataVoorFreesMachine.cls.xml) (revision 73935) @@ -53,9 +53,8 @@ #dim BevatBodem As %Boolean = ##class(TECH.StringUtils).Equals(IngegevenKenmerken.ProductieWijze, ##class(DOM.PM.enu.MVXProductieWijze).Volledig(), ##class(DOM.PM.enu.MVXProductieWijze).Bodem(), ##class(DOM.PM.enu.MVXProductieWijze).BodemEnRug()) #dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI() #dim IsLadeMetUitsparing As %Boolean = (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) - Do ##class(Tools.Wlip).%New(110).String("pass") + If (IsLadeMetUitsparing && BevatBodem) { - Do ##class(Tools.Wlip).%New(110).String("in") #dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem()) Do ..GenerateFile(Item.BatchID, ProductId, SequenceNr, DossierCode, IngegevenKenmerken, BodemItem) } @@ -65,14 +64,8 @@ BatchID:%String,PRNr:%String,SequenceNr:%String,DossierNr:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,BodemItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem @@ -91,28 +84,20 @@ #dim FileSuffix As %String = "" Set FileSuffix = FileSuffix_"-Recht-MVX" - /* - Quit "SP_Recht_M_D300_B470" - Quit "SP_Recht_M_D300_B570" - Quit "SP_Recht_M_D300_B770" - Quit "SP_Recht_M_D350_B470" - Quit "SP_Recht_M_D350_B570" - Quit "SP_Recht_M_D350_B770" - Quit "SP_Recht_M_D400_B470" - Quit "SP_Recht_M_D400_B570" - Quit "SP_Recht_M_D400_B770" - Quit "SP_Recht_M_D450_B470" - Quit "SP_Recht_M_D450_B570" - Quit "SP_Recht_M_D450_B770" - Quit "SY_Recht_E_D240_B350" - */ Set LadeUitsparingHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New() #dim BreedteZ1 As %Integer #dim BreedteZ2 As %Integer #dim BreedteM As %Integer #dim DiepteZ1 As %Integer #dim BreedteY As %Integer + #dim BreedteX As %Integer + #dim BreedteRugY As %Integer + #dim BreedteRugX As %Integer + #dim BreedteRugM As %Integer + #dim AftrekRugVerbindingMetSpoelbakzijkanten As %Integer = 44 + #dim AftrekRugVerbindingMetSifonkap As %Integer = 9 + #dim AftrekRugVerbindingMetZijkant As %Decimal = 51/2 #dim FreesPositieCorrectie As %Integer If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Spoelbak()) { @@ -122,32 +107,29 @@ Set BreedteZ1 = LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) Set FreesPositieCorrectie = 44 Set DiepteZ1 = LadeUitsparingHelper.GeefDiepteUitsparingZ1(IngegevenKenmerken.UitsparingData) - 24 + Set BreedteX = LadeUitsparingHelper.GeefBreedteRugX(IngegevenKenmerken.UitsparingData) ;Set Variabelen("d") = 16 - Set Variabelen("SifonX") = BreedteY - FreesPositieCorrectie + Set Variabelen("SifonX") = BreedteX - FreesPositieCorrectie Set Variabelen("SDiep") = DiepteZ1 Set Variabelen("SBreed") = BreedteZ1 + 37 - ;Set Variabelen("Radius") = 1 - ;Set Variabelen("IsSpoel") = 1 - ;Set Variabelen("DiepTol") = 1 //KM="Hoeveel dieper de uitsparing wordt, in mm" - ;Set Variabelen("Boordiep") = 1 //KM="Diepte van voorboren voor spoelbak in mm" - ;Set Variabelen("AantalBo") = 1 } Else { Set FreesPositieCorrectie = 29 If (IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()) { Set BreedteZ1 = LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) Set BreedteY = LadeUitsparingHelper.GeefBreedteRugY(IngegevenKenmerken.UitsparingData) + Set BreedteRugX = LadeUitsparingHelper.GeefBreedteRugX(IngegevenKenmerken.UitsparingData) - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap) If (LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) = 350) { Set TemplateNameMpr = "TNO\MBX\MBX_SIFON_E.mpr" - Set Variabelen("SifonX") = BreedteY - FreesPositieCorrectie + Set Variabelen("SifonX") = BreedteRugX + 5.5 } Else { Set TemplateNameMpr = "Merivobox\MbxEnkeleSifon.mpr" - Set Variabelen("Positie1") = BreedteY - FreesPositieCorrectie + Set Variabelen("Positie1") = BreedteRugX + 5.5 Set Variabelen("KapZ1") = $Select(BreedteZ1=160:1, 1:2) } } @@ -158,6 +140,9 @@ Set BreedteZ2 = LadeUitsparingHelper.GeefBreedteUitsparingZ2(IngegevenKenmerken.UitsparingData) Set BreedteM = LadeUitsparingHelper.GeefBreedteRugM(IngegevenKenmerken.UitsparingData) Set BreedteY = LadeUitsparingHelper.GeefBreedteRugY(IngegevenKenmerken.UitsparingData) + Set BreedteRugX = LadeUitsparingHelper.GeefBreedteRugX(IngegevenKenmerken.UitsparingData) - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap) + Set BreedteRugM = LadeUitsparingHelper.GeefBreedteRugM(IngegevenKenmerken.UitsparingData) - (2 * AftrekRugVerbindingMetSifonkap) + Set BreedteRugY = LadeUitsparingHelper.GeefBreedteRugY(IngegevenKenmerken.UitsparingData) - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap) If ((LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) = 350) || (LadeUitsparingHelper.GeefBreedteUitsparingZ2(IngegevenKenmerken.UitsparingData) = 350)) { //ERROR @@ -166,9 +151,9 @@ } Else { Set TemplateNameMpr = "Merivobox\MbxDubbeleSifon.mpr" - Set Variabelen("Positie1") = BreedteY - FreesPositieCorrectie + Set Variabelen("Positie1") = BreedteRugX + 5.5 + BreedteZ1 - 10 + BreedteRugM + FreesPositieCorrectie //10 is correctie sifonkap (de sifonkap is onderaan smaller) Set Variabelen("KapZ1") = $Select(BreedteZ1=160:1, 1:2) - Set Variabelen("Positie2") = BreedteY - FreesPositieCorrectie + BreedteM + Set Variabelen("Positie2") = BreedteRugX + 5.5 Set Variabelen("KapZ2") = $Select(BreedteZ2=160:1, 1:2) } } Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeDubbeleUitsparingMetMat/StartBatch/FreesMain/MRG/15000/0002-LI7K-Recht-MVX.MRG =================================================================== diff -u -r73897 -r73935 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeDubbeleUitsparingMetMat/StartBatch/FreesMain/MRG/15000/0002-LI7K-Recht-MVX.MRG (.../0002-LI7K-Recht-MVX.MRG) (revision 73897) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeDubbeleUitsparingMetMat/StartBatch/FreesMain/MRG/15000/0002-LI7K-Recht-MVX.MRG (.../0002-LI7K-Recht-MVX.MRG) (revision 73935) @@ -22,9 +22,9 @@ VarName2=KapZ2 VarWert2=1 VarName3=Positie1 -VarWert3=121 +VarWert3=382 VarName4=Positie2 -VarWert4=221 +VarWert4=121 VarName5=b VarWert5=474 VarName6=l Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0002-LI7K-Recht-MVX.MRG =================================================================== diff -u -r73897 -r73935 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0002-LI7K-Recht-MVX.MRG (.../0002-LI7K-Recht-MVX.MRG) (revision 73897) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Merivobox.Aansturing/TestSifonladeEnkeleUitsparing/StartBatch/FreesMain/MRG/15000/0002-LI7K-Recht-MVX.MRG (.../0002-LI7K-Recht-MVX.MRG) (revision 73935) @@ -20,7 +20,7 @@ VarName1=KapZ1 VarWert1=1 VarName2=Positie1 -VarWert2=211 +VarWert2=171 VarName3=b VarWert3=474 VarName4=l