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 ]]>