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)")