Index: vhTestFiles/IntegratieTests/Productie.HoffmannZaag.GeefZaagLijst/Test/ZaagLijst.txt
===================================================================
diff -u -r73859 -r74211
--- vhTestFiles/IntegratieTests/Productie.HoffmannZaag.GeefZaagLijst/Test/ZaagLijst.txt (.../ZaagLijst.txt) (revision 73859)
+++ vhTestFiles/IntegratieTests/Productie.HoffmannZaag.GeefZaagLijst/Test/ZaagLijst.txt (.../ZaagLijst.txt) (revision 74211)
@@ -101,7 +101,7 @@
true
CS
DG
- 5228422
+ 3279569
\\Notes01\Images\GENERIEK\TBX\spaanplaat_DG.JPG
@@ -537,7 +537,7 @@
true
CS
DG
- 5228422
+ 3279569
\\Notes01\Images\GENERIEK\TBX\spaanplaat_DG.JPG
@@ -623,7 +623,7 @@
true
CS
DG
- 5228422
+ 3279569
\\Notes01\Images\GENERIEK\TBX\spaanplaat_DG.JPG
@@ -1059,7 +1059,7 @@
true
CS
DG
- 5228422
+ 3279569
\\Notes01\Images\GENERIEK\TBX\spaanplaat_DG.JPG
Index: vhTest/Integratie/Productie/HoffmannZaag/GeefZaagLijst/Test.cls.xml
===================================================================
diff -u -r74210 -r74211
--- vhTest/Integratie/Productie/HoffmannZaag/GeefZaagLijst/Test.cls.xml (.../Test.cls.xml) (revision 74210)
+++ vhTest/Integratie/Productie/HoffmannZaag/GeefZaagLijst/Test.cls.xml (.../Test.cls.xml) (revision 74211)
@@ -18,16 +18,16 @@
set LegraboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
set LegraboxenToelevering1 = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
- do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxStandaardladeMetMat(), LegraBoxProductID1, "TB6W"), 1))
- do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(), LegraBoxProductID2, "AKZR"), 10))
- do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLadeMetMat(), LegraBoxProductID3, "AKZQ"), 1))
- do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLadeDiepte350(), LegraBoxProductID4, "ALBX"), 1))
+ do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxStandaardladeMetMat(), LegraBoxProductID1, "TB6W", "DummyCIDGeefZaagLijst_1"), 1))
+ do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(), LegraBoxProductID2, "AKZR", "DummyCIDGeefZaagLijst_2"), 10))
+ do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLadeMetMat(), LegraBoxProductID3, "AKZQ", "DummyCIDGeefZaagLijst_3"), 1))
+ do LegraboxenToelevering1.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLadeDiepte350(), LegraBoxProductID4, "ALBX", "DummyCIDGeefZaagLijst_4"), 1))
do LegraboxenPerToeleveringArray.SetAt(LegraboxenToelevering1,$$$ToeleveringID1)
set LegraboxenToelevering2 = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
- do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLadeDiepte350(), LegraBoxProductID4, "ALBX"), 1))
- do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxStandaardladeMetMat(), LegraBoxProductID5, "ALBY"), 1))
+ do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLadeDiepte350(), LegraBoxProductID4, "ALBX", "DummyCIDGeefZaagLijst_5"), 1))
+ do LegraboxenToelevering2.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxStandaardladeMetMat(), LegraBoxProductID5, "ALBY", "DummyCIDGeefZaagLijst_6"), 1))
do LegraboxenPerToeleveringArray.SetAt(LegraboxenToelevering1,$$$ToeleveringID2)
quit LegraboxenPerToeleveringArray
@@ -108,6 +108,7 @@
Set LBXKenmerken.ZijWandType = Enum.ZijwandType.Pure
Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(..GeefMatKenmerken(),"MatX")
Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$True
+ Set LBXKenmerken.GUIKenmerken.WandDikte = 18
Quit LBXKenmerken
]]>
@@ -147,6 +148,8 @@
Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte450()
Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).K()
+ Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$True
+ Set LBXKenmerken.GUIKenmerken.WandDikte = 18
Quit LBXKenmerken
]]>
@@ -163,6 +166,8 @@
Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte450()
Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+ Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$True
+ Set LBXKenmerken.GUIKenmerken.WandDikte = 18
#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
@@ -192,6 +197,8 @@
Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte350()
Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).K()
+ Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$True
+ Set LBXKenmerken.GUIKenmerken.WandDikte = 18
Quit LBXKenmerken
]]>
@@ -201,14 +208,14 @@
1
DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken