Index: DOM/PM/Maatwerk/Calc/Common/impl/MatUitsparingHelper.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Common/impl/MatUitsparingHelper.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Common/impl/MatUitsparingHelper.cls.xml (revision 64611) @@ -0,0 +1,50 @@ + + + +1 +TECH.RegisteredObject + + +UitsparingData:DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingDataVoorMatten +%Boolean + + + + +UitsparingData:DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingDataVoorMatten +%Decimal + + + + +UitsparingData:DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingDataVoorMatten +%Decimal + + + + +Code:DOM.PM.enu.UitsparingCode +1 +%Decimal + + + + +Code:DOM.PM.enu.UitsparingCode +1 +%Decimal + + + + + + Index: DCPROD.mac.rou =================================================================== diff -u -r29059 -r64611 --- DCPROD.mac.rou (.../DCPROD.mac.rou) (revision 29059) +++ DCPROD.mac.rou (.../DCPROD.mac.rou) (revision 64611) @@ -182,8 +182,8 @@ ; Toelevering bouwstenen Halux PRODTOEBS(R) New PRNr,KortText,IdentNr,Omschr1,Omschr2,Omschr3,Omschr4,Omschr5,Omschr6,IsStock,Afmeting - New Aantal,BSKey,KPRNr,Sort,SortKey,BSAantal,WVStock - Set PRNr=$P(R,D,2),Aantal=$P(R,D,3) + New Aantal,BSKey,KPRNr,Sort,SortKey,BSAantal,WVStock,Korting + Set PRNr=$P(R,D,2),Aantal=$P(R,D,3),Korting=$P(R,D,7) Do FETCHPR(PRNr) Set R=IdentNr_"`3``B"_D_"*`15``B"_D_KortText_$S($L(KortText)<24:$J("",25-$L(KortText)),1:"")_"``41`B"_D_$$FN(Aantal,0)_"``78`B" Do BLOCK(R),PASTEB^DCTOE(L("D","B")) @@ -200,7 +200,7 @@ . Kill Omschr . Set Omschr(1)=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(KPRNr,,", ",1) . Do GETWRAP^vhBIGEDIT("Omschr",28,.Omschr,"G","~","") - . Set Omschr=$P($G(Omschr(1)),"`",5) + . Set Omschr=$P($G(Omschr(1)),"`",5) . Set R=$G(^PRSTOCK("D",KPRNr)),WVStock=$P(R,D,5),WVStock=$$CV2MAG^MRP(KPRNr,WVStock) . Set R=IdentNr_"`4``"_D_KortText_$J("",25-$L(KortText))_"`16``"_D_Omschr_$J("",27-$L(Omschr))_"`42``" . Set R=R_D_$$FN(Aantal*BSAantal,0)_"``78" @@ -212,6 +212,7 @@ . . Set R=R_Omschr_$J("",27-$L(Omschr))_"`42``" . . Do BLOCK(R) . . Set Afmeting="" + If (##class(DOM.PM.impl.ProductTypeAPIimpl).%New().IsAntislipmatProduct(PRNr)) Do ##class(BL.Legacy.DCALG).ZetOmschrijvingVanProductInB(PRNr,"BR",Korting) Quit ; ; Offerte type detail Index: vhTest/Mock/APPS/Halux/PPS/Document/ProductieDetailDocument/MatUitsparingSnijPositieBepaler.cls.xml =================================================================== diff -u -r56480 -r64611 --- vhTest/Mock/APPS/Halux/PPS/Document/ProductieDetailDocument/MatUitsparingSnijPositieBepaler.cls.xml (.../MatUitsparingSnijPositieBepaler.cls.xml) (revision 56480) +++ vhTest/Mock/APPS/Halux/PPS/Document/ProductieDetailDocument/MatUitsparingSnijPositieBepaler.cls.xml (.../MatUitsparingSnijPositieBepaler.cls.xml) (revision 64611) @@ -15,13 +15,20 @@ ]]> - + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Decimal - + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +%Decimal + + + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Decimal Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/BladInhoudBuilder.cls.xml =================================================================== diff -u -r62734 -r64611 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 62734) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 64611) @@ -85,9 +85,13 @@ Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q1", MatVooraanQ1_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - #dim MatMiddenM As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatMiddenM(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M", MatMiddenM_"mm", "","") + #dim MatMiddenM1 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M1", MatMiddenM1_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + #dim MatMiddenM2 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M2", MatMiddenM2_"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) #dim MatVooraanQ2 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(IngegevenKenmerken) Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q2", MatVooraanQ2_"mm", "","") Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r59614 -r64611 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 59614) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 64611) @@ -1085,7 +1085,8 @@ Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatLinksX(TbxKenmerken) , "LinksX" ) Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(TbxKenmerken) , "VooraanQ" ) Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(TbxKenmerken), "VooraanQ1") - Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatMiddenM(TbxKenmerken) , "MiddenM" ) + Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(TbxKenmerken) , "MiddenM1" ) + Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(TbxKenmerken) , "MiddenM2" ) Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(TbxKenmerken), "VooraanQ2") Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatRechtsY(TbxKenmerken) , "RechtsY" ) } Index: vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/Test.cls.xml =================================================================== diff -u -r57262 -r64611 --- vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/Test.cls.xml (.../Test.cls.xml) (revision 57262) +++ vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/Test.cls.xml (.../Test.cls.xml) (revision 64611) @@ -19,7 +19,7 @@ #dim SnijPosities As %ArrayOfDataTypes = ##class(BL.PR.GA.TandemBox).CalcMatUitsparingSnijPosities(GADataProduct) - Do $$$AssertEquals(SnijPosities.GetAt("LinksX"), 149) + Do $$$AssertEquals(SnijPosities.GetAt("LinksX"), 473) Do $$$AssertEquals(SnijPosities.GetAt("VooraanQ"), 242.5) Do $$$AssertEquals(SnijPosities.GetAt("RechtsY"), 295) ]]> @@ -43,9 +43,10 @@ #dim SnijPosities As %ArrayOfDataTypes = ##class(BL.PR.GA.TandemBox).CalcMatUitsparingSnijPosities(GADataProduct) - Do $$$AssertEquals(SnijPosities.GetAt("LinksX"), 149) + Do $$$AssertEquals(SnijPosities.GetAt("LinksX"), 767) Do $$$AssertEquals(SnijPosities.GetAt("VooraanQ1"), 242.5) - Do $$$AssertEquals(SnijPosities.GetAt("MiddenM"), 262) + Do $$$AssertEquals(SnijPosities.GetAt("MiddenM1"), 589) + Do $$$AssertEquals(SnijPosities.GetAt("MiddenM2"), 327) Do $$$AssertEquals(SnijPosities.GetAt("VooraanQ2"), 242.5) Do $$$AssertEquals(SnijPosities.GetAt("RechtsY"), 149) ]]> Index: APPS/Halux/PPS/Document/ProductieDetailDocument/MatUitsparingSnijPositieBepaler.cls.xml =================================================================== diff -u -r56478 -r64611 --- APPS/Halux/PPS/Document/ProductieDetailDocument/MatUitsparingSnijPositieBepaler.cls.xml (.../MatUitsparingSnijPositieBepaler.cls.xml) (revision 56478) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/MatUitsparingSnijPositieBepaler.cls.xml (.../MatUitsparingSnijPositieBepaler.cls.xml) (revision 64611) @@ -21,12 +21,18 @@ %Decimal - + 1 IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Decimal + +1 +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +%Decimal + + 1 IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken Index: DOM/PM/Maatwerk/Calc/Common/impl/LadeUitsparingDataVoorMatten.cls.xml =================================================================== diff -u -r64272 -r64611 --- DOM/PM/Maatwerk/Calc/Common/impl/LadeUitsparingDataVoorMatten.cls.xml (.../LadeUitsparingDataVoorMatten.cls.xml) (revision 64272) +++ DOM/PM/Maatwerk/Calc/Common/impl/LadeUitsparingDataVoorMatten.cls.xml (.../LadeUitsparingDataVoorMatten.cls.xml) (revision 64611) @@ -26,11 +26,11 @@ -DOM.PM.enu.UitsparingCode +DOM.PM.enu.UitsparingCodeMatten -DOM.PM.enu.UitsparingCode +DOM.PM.enu.UitsparingCodeMatten @@ -46,8 +46,6 @@ LadeUitsparingDataVoorMattenState ^DOM.PM.Maa8730.LadeUitsparD763S -listnode - RugDeelBreedteX