Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test002/StartBatch/15000_0001.xml
===================================================================
diff -u -r73814 -r74039
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test002/StartBatch/15000_0001.xml (.../15000_0001.xml) (revision 73814)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test002/StartBatch/15000_0001.xml (.../15000_0001.xml) (revision 74039)
@@ -398,7 +398,7 @@
LADE 001
001-Dwarsverdelingtype
- null
+ Enkel
LADE 001
@@ -473,7 +473,7 @@
LADE 001
001-Opvullijstkleur
- LG
+ null
LADE 001
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002.cls.xml
===================================================================
diff -u -r64805 -r74039
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002.cls.xml (.../Test002.cls.xml) (revision 64805)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002.cls.xml (.../Test002.cls.xml) (revision 74039)
@@ -21,10 +21,10 @@
set Legraboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLade(),$$$Legrabox1,"ASR"),$$$Aantal) )
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxCLade(),$$$Legrabox2,"ASP"),$$$Aantal) )
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(),$$$Legrabox3,"ASJ"),$$$Aantal) )
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxFLade(),$$$Legrabox4,"ASC"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLade(),$$$Legrabox1,"ASR", "Dummy2_1"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxCLade(),$$$Legrabox2,"ASP", "Dummy2_2"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(),$$$Legrabox3,"ASJ", "Dummy2_3"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxFLade(),$$$Legrabox4,"ASC", "Dummy2_4"),$$$Aantal) )
do LegraboxenPerToeleveringArray.SetAt(Legraboxen,$$$ToeleveringID)
@@ -105,9 +105,9 @@
Set LBXKenmerken.InterneBreedte = 562
Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).F()
Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
- Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
+ Set LBXKenmerken.DwarsverdelingType = ##class(DOM.PM.enu.LBXDwarsverdelingType).Enkel()
Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).F()
- Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+ Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False
Set LBXKenmerken.GUIKenmerken.WandDikte = 19
Set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002Lijn3.cls.xml
===================================================================
diff -u -r73867 -r74039
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002Lijn3.cls.xml (.../Test002Lijn3.cls.xml) (revision 73867)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test002Lijn3.cls.xml (.../Test002Lijn3.cls.xml) (revision 74039)
@@ -21,12 +21,12 @@
set Legraboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLade(),$$$Legrabox1,"ASR"),$$$Aantal) )
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxCLade(),$$$Legrabox2,"ASP"),$$$Aantal) )
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(),$$$Legrabox3,"ASJ"),$$$Aantal) )
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxFLade(),$$$Legrabox4,"ASC"),$$$Aantal) )
- do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefEnkeleSifonLade()),$$$Aantal) )
-
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxMLade(),$$$Legrabox1,"ASR", "Dummy2L3_1"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxCLade(),$$$Legrabox2,"ASP", "Dummy2L3_2"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxKLade(),$$$Legrabox3,"ASJ", "Dummy2L3_3"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefLbxFLade(),$$$Legrabox4,"ASC", "Dummy2L3_4"),$$$Aantal) )
+ do Legraboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(..GeefEnkeleSifonLade(), "", "", "Dummy2L3_5"),$$$Aantal) )
+
do LegraboxenPerToeleveringArray.SetAt(Legraboxen,$$$ToeleveringID)
quit LegraboxenPerToeleveringArray
@@ -135,6 +135,7 @@
Set LBXKenmerken.UitsparingData.RugDeelY = 193
Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
Set LBXKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal160()
+ Set LBXKenmerken.UitsparingData.UitsparingZ2 = ##class(DOM.PM.enu.UitsparingCode).Smal160()
Quit LBXKenmerken
]]>