Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u -r35242 -r35467
--- APPS/EDI/common/impl/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35242)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35467)
@@ -94,6 +94,8 @@
#dim IngegevenKenmerkenLBX As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
Do ..ObjectConverter.Convert(Product,IngegevenKenmerkenLBX,..ConvertDataLBX)
Set IngegevenKenmerkenLBX.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+ Set IngegevenKenmerkenLBX.UitsparingDataCodeZ1 = ..GeefUitsparingCode(Product.UitsparingDataBreedteZ1)
+ Set IngegevenKenmerkenLBX.UitsparingDataCodeZ2 = ..GeefUitsparingCode(Product.UitsparingDataBreedteZ2)
Set IngegevenKenmerken = IngegevenKenmerkenLBX
}
@@ -113,6 +115,17 @@
]]>
+
+UitsparingBreedte:%Numeric,Product:APPS.EDI.common.dto.v001.LadeLBX
+1
+DOM.PM.enu.UitsparingCode
+
+
+
Exception:APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Product:APPS.EDI.common.dto.Product
1
@@ -192,8 +205,12 @@
Do ConvertData.Add("VoorwandTypeVanMBinnenlade","VoorWandTypeVanMBinnenlade")
Do ConvertData.Add("HeeftDwarsverdeling",)
;Do ConvertData.Add("AantalDwarsverdelingen",)
- Do ConvertData.Add("UitsparingDataAantalUitsparingen",)
-
+ Do ConvertData.Add("UitsparingDataAantalUitsparingen","UitsparingDataAantalUitsparingen","Set Output = $Case(Input, 1:""Enkel"", 2:""Dubbel"", 0:"""", :Input)") ; DOM.PM.enu.AantalUitsparingen
+ Do ConvertData.Add("UitsparingDataBreedteX",)
+ Do ConvertData.Add("UitsparingDataBreedteZ1",)
+ Do ConvertData.Add("UitsparingDataBreedteM",)
+ Do ConvertData.Add("UitsparingDataBreedteZ2",)
+ Do ConvertData.Add("UitsparingDataBreedteY",)
Quit ConvertData
]]>