Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml =================================================================== diff -u -r65322 -r65328 --- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65322) +++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65328) @@ -37,6 +37,9 @@ Set DotNetKenmerken = ##class(DOTNET.PM.Maatwerk.dto.TbxKenmerken).%New() //Do ..HaalInformatieUitLadeCode() + Set DotNetKenmerken.Familie = TbxKenmerken.GeefFamilie() + Set DotNetKenmerken.Variant = TbxKenmerken.GeefVariant() + Set DotNetKenmerken.VersieNr = TbxKenmerken.GeefVersieNr() Set DotNetKenmerken.LadeDesign = ..GeefLadeDesign() Set DotNetKenmerken.Toepassing = TbxKenmerken.Toepassing @@ -52,10 +55,8 @@ Set DotNetKenmerken.LadeDiepte = TbxKenmerken.LadeDiepte //Set DotNetKenmerken.CorpuswandDikte = ..GeefCorpuswandDikte() // Property nog niet in gebruik //Set DotNetKenmerken.CorpusBreedte = ....GeefCorpusBreedte() // Property nog niet in gebruik - //Set DotNetKenmerken.HeeftMTIB = ..LegacyKenmerken. //Property moet nog gemaakt worden in econ + //Set DotNetKenmerken.HeeftMTIB = ..LegacyKenmerken. //Property moet nog gemaakt worden in econ - - Set DotNetKenmerken.HeeftOpvullijstLinks = TbxKenmerken.HeeftOpvullijstLinks Set DotNetKenmerken.HeeftOpvullijstRechts = TbxKenmerken.HeeftOpvullijstRechts Set DotNetKenmerken.Draagkracht = TbxKenmerken.Draagkracht @@ -79,12 +80,12 @@ Set DotNetKenmerken.GreepEnMeenemer = ..GeefGreepEnMeenemer() //Moet deze wel in convertor? Zie notities @@@@@@@@@@@@@@ Set DotNetKenmerken.DwarsverdelingAantal = TbxKenmerken.DwarsverdelingAantal Set DotNetKenmerken.Plaatmateriaal = TbxKenmerken.PlaatMateriaal - Set DotNetKenmerken.Productiewijze = TbxKenmerken.ProductieWijze + Set DotNetKenmerken.Productiewijze = $Select(TbxKenmerken.ProductieWijze = "":"V",1:TbxKenmerken.ProductieWijze) Set DotNetKenmerken.VerpakkingType = TbxKenmerken.VerpakkingType Set DotNetKenmerken.LadeDesignCode = ..GeefLadeDesignCode() Set DotNetKenmerken.InterneBreedte = TbxKenmerken.InterneBreedte Set ..InterneBreedte = TbxKenmerken.InterneBreedte - //Set DotNetKenmerken.NietMeeleveren = .. + Set DotNetKenmerken.NietMeeleveren = ..GeefNietMeeleveren() Set DotNetKenmerken.UitsparingData = ..GeefUitsparingData() Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte() @@ -172,10 +173,17 @@ Set UitsparingDataObject = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New() Set LadeUitsparingHelper = ##class(ECONimpl.PM.Maatwerk.LadeUitsparingHelper).%New() + Set UitsparingDataObject.RugDeelX = 0 + Set UitsparingDataObject.RugDeelY = 0 + Set UitsparingDataObject.RugDeelM = 0 + Set UitsparingDataObject.UitsparingZ1 = "" + Set UitsparingDataObject.UitsparingZ2 = "" + Set UitsparingDataObject.AantalUitsparingen = "" + If $$$Not(..LegacyKenmerken.ItemSPZK = "") { #dim UitsparingData As %List = $ListFromString(..LegacyKenmerken.ItemSPZK, ";") - Set UitsparingDataObject.AantalUitsparingen = $$$If($ListLength(UitsparingData)=6,2,1) + Set UitsparingDataObject.AantalUitsparingen = $$$If($ListLength(UitsparingData)= 6, 2, 1) If ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3() { If (UitsparingDataObject.AantalUitsparingen = 1) { @@ -246,6 +254,21 @@ Quit GreepEnMeenemer ]]> + + +1 +%ListOfDataTypes + +