Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml =================================================================== diff -u -r64588 -r65361 --- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 64588) +++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 65361) @@ -34,6 +34,7 @@ Set Resultaat.MatMateriaal = "" Set Resultaat.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig() Set Resultaat.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).M() + Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() Set Resultaat.Type = "TBX" Set Resultaat.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1() Set Resultaat.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M() @@ -83,7 +84,7 @@ Set Resultaat.UitsparingDataBreedteX = 147 Set Resultaat.UitsparingDataBreedteY = 147 Set Resultaat.UitsparingDataBreedteZ1 = 306 - Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() + Set Resultaat.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() Quit Resultaat ]]> Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r56326 -r65361 --- vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 56326) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65361) @@ -88,10 +88,10 @@ Set TbxKenmerken.UitsparingData.UitsparingAantal = ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel() Set TbxKenmerken.UitsparingData.X.Breedte = 147 Set TbxKenmerken.UitsparingData.X.Hoogte = "M" - Set TbxKenmerken.UitsparingData.X.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal() + Set TbxKenmerken.UitsparingData.X.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout() Set TbxKenmerken.UitsparingData.Y.Breedte = 147 Set TbxKenmerken.UitsparingData.Y.Hoogte = "M" - Set TbxKenmerken.UitsparingData.Y.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal() + Set TbxKenmerken.UitsparingData.Y.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout() Set TbxKenmerken.UitsparingData.Z1.Breedte = 306 Set TbxKenmerken.UitsparingData.Z1.Diepte = 0 Set TbxKenmerken.UitsparingData.Z1.Hoogte = "M" Index: vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml =================================================================== diff -u -r65317 -r65361 --- vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65317) +++ vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65361) @@ -86,10 +86,10 @@ Do ..VoegToeKenmerk("Uitsparingdata.Uitsparingaantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken) Do ..VoegToeKenmerk("Uitsparingdata.X.Breedte", "147", TbxKenmerken) Do ..VoegToeKenmerk("Uitsparingdata.X.Hoogte", "M", TbxKenmerken) - Do ..VoegToeKenmerk("Uitsparingdata.X.Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) + Do ..VoegToeKenmerk("Uitsparingdata.X.Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) Do ..VoegToeKenmerk("Uitsparingdata.Y.Breedte", "147", TbxKenmerken) Do ..VoegToeKenmerk("Uitsparingdata.Y.Hoogte", "M", TbxKenmerken) - Do ..VoegToeKenmerk("Uitsparingdata.Y.Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) + Do ..VoegToeKenmerk("Uitsparingdata.Y.Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) Do ..VoegToeKenmerk("Uitsparingdata.Z1.Breedte", "306", TbxKenmerken) Do ..VoegToeKenmerk("Uitsparingdata.Z1.Diepte", "0", TbxKenmerken) Do ..VoegToeKenmerk("Uitsparingdata.Z1.Hoogte", "M", TbxKenmerken) Index: vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml =================================================================== diff -u -r56383 -r65361 --- vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 56383) +++ vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 65361) @@ -28,6 +28,7 @@ Set Kenmerken.MatKleur = "" Set Kenmerken.MatMateriaal = "" Set Kenmerken.RugHoogte = "M" + Set Kenmerken.RugwandMateriaal = "H" Set Kenmerken.Type = "TBX" Set Kenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1() Set Kenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M() @@ -76,7 +77,7 @@ Set Kenmerken.UitsparingDataBreedteX = 147 Set Kenmerken.UitsparingDataBreedteY = 147 Set Kenmerken.UitsparingDataBreedteZ1 = 306 - Set Kenmerken.RugwandMateriaal = "S" + Set Kenmerken.RugwandMateriaal = "H" Quit Kenmerken ]]>