Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml =================================================================== diff -u -r66238 -r66596 --- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 66238) +++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 66596) @@ -58,9 +58,7 @@ Do ..ConvertVerpakkingZonderOnderdelen(Product,TBXProduct) Do ..ConverteerProductieWijze(Product,TBXProduct) - If Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Lade() { - Set TBXProduct.ItemRugwandMateriaal = Product.RugwandMateriaal - } + Set TBXProduct.ItemRugwandMateriaal = Product.RugwandMateriaal Quit TBXProduct ]]> Index: ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml =================================================================== diff -u -r66158 -r66596 --- ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 66158) +++ ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 66596) @@ -39,12 +39,7 @@ Set EconKenmerken.GreepEnMeenemer = $Case(EdiKenmerken.GreepEnMeenemer,"No":"Zonder","Handle":"Greep","HandleAndLatch":"Meenemer",:"Zonder") Set EconKenmerken.HangmapBoringAantal = "0" Set EconKenmerken.HeeftAfwijkendeRughoogte = "false" - If EdiKenmerken.Klasse = ##class(DOM.PM.enu.TBXToepassing).Lade() { - Set EconKenmerken.RugwandMateriaal = EdiKenmerken.RugwandMateriaal - } - Else { - Set EconKenmerken.RugwandMateriaal = "" - } + Set EconKenmerken.RugwandMateriaal = EdiKenmerken.RugwandMateriaal Set EconKenmerken.Toepassing = EdiKenmerken.Klasse Set EconKenmerken.Variant = "TBX" Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r65917 -r66596 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 65917) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 66596) @@ -71,9 +71,7 @@ Do ..ConvertDraagKracht(Product,TBXProduct) Do ..ConverteerProductieWijze(Product,TBXProduct) - If TBXProduct.Klasse = ##class(DOM.PM.enu.TBXToepassing).Lade() { - Set TBXProduct.RugwandMateriaal = Product.ItemRugwandMateriaal - } + Set TBXProduct.RugwandMateriaal = Product.ItemRugwandMateriaal Quit TBXProduct ]]> Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml =================================================================== diff -u -r66268 -r66596 --- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml (.../Tbx.cls.xml) (revision 66268) +++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml (.../Tbx.cls.xml) (revision 66596) @@ -44,7 +44,7 @@ Set EconKenmerken.HeeftAfwijkendeRughoogte = "false" Set EconKenmerken.Variant = "TBX" Set EconKenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig() - Set EconKenmerken.RugwandMateriaal = $$$If(+AppsKenmerken.UitsparingBreedte1=0, ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), "") + Set EconKenmerken.RugwandMateriaal = AppsKenmerken.RugwandMateriaal Set EconKenmerken.ZijwandHoogte = AppsKenmerken.LadeHoogte Set EconKenmerken.NietMeeleveren = ..GeefNietMeeleveren(AppsKenmerken) Set EconKenmerken.PlaatMateriaal = ""