Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r39620 -r39660 --- vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39620) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39660) @@ -79,7 +79,7 @@ Set TbxKenmerken.UitsparingData.Z1.Breedte = 306 Set TbxKenmerken.UitsparingData.Z1.Diepte = 0 Set TbxKenmerken.UitsparingData.Z1.Hoogte = "M" - Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout() + Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal() Set TbxKenmerken.UitsparingData.Z1.Vorm = "Recht" Quit TbxKenmerken @@ -103,7 +103,7 @@ Set TbxKenmerken.UitsparingData.Z1.Breedte = 150 Set TbxKenmerken.UitsparingData.Z1.Diepte = 0 Set TbxKenmerken.UitsparingData.Z1.Hoogte = "M" - Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout() + Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal() Set TbxKenmerken.UitsparingData.Z1.Vorm = "Recht" Quit TbxKenmerken @@ -131,12 +131,12 @@ Set TbxKenmerken.UitsparingData.Z1.Breedte = 150 Set TbxKenmerken.UitsparingData.Z1.Diepte = 0 Set TbxKenmerken.UitsparingData.Z1.Hoogte = "M" - Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout() + Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal() Set TbxKenmerken.UitsparingData.Z1.Vorm = "Recht" Set TbxKenmerken.UitsparingData.Z2.Breedte = 150 Set TbxKenmerken.UitsparingData.Z2.Diepte = 0 Set TbxKenmerken.UitsparingData.Z2.Hoogte = "M" - Set TbxKenmerken.UitsparingData.Z2.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout() + Set TbxKenmerken.UitsparingData.Z2.Materiaal = ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal() Set TbxKenmerken.UitsparingData.Z2.Vorm = "Recht" Quit TbxKenmerken Index: vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml =================================================================== diff -u -r39539 -r39660 --- vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 39539) +++ vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 39660) @@ -65,6 +65,7 @@ Set Kenmerken.UitsparingDataBreedteX = 147 Set Kenmerken.UitsparingDataBreedteY = 147 Set Kenmerken.UitsparingDataBreedteZ1 = 306 + Set Kenmerken.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() Quit Kenmerken ]]> @@ -81,6 +82,7 @@ Set Kenmerken.UitsparingDataBreedteX = 225 Set Kenmerken.UitsparingDataBreedteY = 225 Set Kenmerken.UitsparingDataBreedteZ1 = 150 + Set Kenmerken.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() Quit Kenmerken ]]> @@ -100,6 +102,7 @@ Set Kenmerken.UitsparingDataBreedteY = 180 Set Kenmerken.UitsparingDataBreedteZ1 = 150 Set Kenmerken.UitsparingDataBreedteZ2 = 150 + Set Kenmerken.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() Quit Kenmerken ]]> Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml =================================================================== diff -u -r39539 -r39660 --- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 39539) +++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 39660) @@ -70,6 +70,7 @@ Set Resultaat.UitsparingDataBreedteX = 147 Set Resultaat.UitsparingDataBreedteY = 147 Set Resultaat.UitsparingDataBreedteZ1 = 306 + Set Resultaat.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() Quit Resultaat ]]> @@ -86,6 +87,7 @@ Set Resultaat.UitsparingDataBreedteX = 225 Set Resultaat.UitsparingDataBreedteY = 225 Set Resultaat.UitsparingDataBreedteZ1 = 150 + Set Resultaat.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() Quit Resultaat ]]> @@ -105,6 +107,7 @@ Set Resultaat.UitsparingDataBreedteY = 180 Set Resultaat.UitsparingDataBreedteZ1 = 150 Set Resultaat.UitsparingDataBreedteZ2 = 150 + Set Resultaat.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() Quit Resultaat ]]> Index: ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml =================================================================== diff -u -r39620 -r39660 --- ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39620) +++ ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39660) @@ -113,8 +113,8 @@ Set Eigenschappen.UitsparingDataBreedteY = Product.UitsparingData.Y.Breedte Set Eigenschappen.UitsparingDataBreedteZ1 = Product.UitsparingData.Z1.Breedte Set Eigenschappen.UitsparingDataBreedteZ2 = Product.UitsparingData.Z2.Breedte - //Set Eigenschappen.TussenrugMateriaal = } + Set Eigenschappen.TussenrugMateriaal = Product.UitsparingData.Z1.Materiaal ]]> Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r39497 -r39660 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39497) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39660) @@ -247,6 +247,11 @@ Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,5) Set TBXProduct.UitsparingDataBreedteZ2 = $ListGet(UitsparingData,6) } + If $$$Not($Piece(Product.ItemSPZK,";",1)["M"){ + Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() + } Else { + Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() + } ]]>