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 ]]>