Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r39739 -r39950 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39739) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39950) @@ -61,11 +61,28 @@ Do ..ConvertUitsparingen(Product,TBXProduct) Do ..ConvertNietMeeleveren(Product,TBXProduct) Do ..ConvertVerpakkingZonderOnderdelen(Product,TBXProduct) + Do ..ConvertDraagKracht(Product,TBXProduct) Quit TBXProduct ]]> + + +1 += +##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte450()) { + Set TBXProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65() + } Else { + Set TBXProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30() + } + } Else { + Set TBXProduct.Draagkracht = Product.ItemDK + } +]]> + + 1 @@ -306,7 +323,6 @@ Do ConvertData.Add("ItemLD","LadeDiepte") Do ConvertData.Add("ItemKB","BodemKleur") Do ConvertData.Add("ItemCB","CorpusBreedte") - Do ConvertData.Add("ItemDK","Draagkracht") Do ConvertData.Add("ItemSB","HeeftZijstabilisering") Do ConvertData.Add("ItemFB","FrontBevestiging") Do ConvertData.Add("ItemBM","GeleiderTechnologie", "Set Output = $Select(Input = ""I"" : ""B"", 1:Input)")