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