Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml =================================================================== diff -u -r65336 -r65469 --- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml (.../Tbx.cls.xml) (revision 65336) +++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml (.../Tbx.cls.xml) (revision 65469) @@ -64,10 +64,11 @@ Set TbxKenmerken.FrontOndersteuningAantal = Kenmerken.FrontStabilisatorAantal Set TbxKenmerken.LadeHoogte = Kenmerken.ZijwandHoogte Set TbxKenmerken.ProductieWijze = ..GeefProductieWijze(Kenmerken) + Set TbxKenmerken.VoorwandVerhogingType = ..GeefVoorwandVerhogingType(Kenmerken) Set TbxKenmerken.NietMeeleveren = ..GeefNietMeeleveren(Kenmerken) - Do ..ConverteerMatKenmerken(Kenmerken, TbxKenmerken) // MatVervollediger nog aanvullen + Do ..ConverteerMatKenmerken(Kenmerken, TbxKenmerken) } Set TbxKenmerken.LegacyKenmerken = ..LegacyKenmerken @@ -201,6 +202,28 @@ + + +Kenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken +1 +%String + + Index: DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r65322 -r65469 --- DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65322) +++ DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65469) @@ -3,51 +3,45 @@ TECH.RegisteredObject - + TECH.String - -TECH.String + +%Integer - -%Boolean + +%Decimal - -TECH.String + +%String - + TECH.String - + TECH.String - + TECH.String - -TECH.String + +DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +array - - - - - -%Boolean + +TECH.String - -DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData + +TECH.String @@ -58,114 +52,113 @@ %Boolean - -%Integer + +%Boolean - -TECH.String + +%Decimal - -TECH.String + +%Boolean - + TECH.String - + TECH.String - + TECH.String - + TECH.String - + TECH.String - -TECH.String + +%Boolean - -%Boolean + +DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol +list - + TECH.String - + TECH.String - + TECH.String - + TECH.String - + TECH.String - -%Decimal + +%String - + TECH.String - -TECH.String + +DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData - -TECH.String + +%String - + TECH.String - -%Decimal + +%Integer - -%String + +TECH.String - -DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol -list + +TECH.String - -DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken -array + +TECH.String - -%Integer + +TECH.String - -%String + +TECH.String - -%String + +TECH.String Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml =================================================================== diff -u -r65353 -r65469 --- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65353) +++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65469) @@ -13,21 +13,6 @@ DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy - -%String -1 - - - -%String -1 - - - -%Decimal -1 - - TbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken DOTNET.PM.Maatwerk.dto.TbxKenmerken @@ -36,59 +21,47 @@ Set ..LegacyKenmerken = TbxKenmerken.LegacyKenmerken 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.GekoppeldeIngegevenKenmerken = TbxKenmerken.GekoppeldeIngegevenKenmerken - Set DotNetKenmerken.LadeDesign = ..GeefLadeDesign() - Set DotNetKenmerken.Toepassing = TbxKenmerken.Toepassing - Set ..Toepassing = TbxKenmerken.Toepassing - Set DotNetKenmerken.IsBinnenlade = TbxKenmerken.IsBinnenlade - - Set DotNetKenmerken.ZijkantHoogte = TbxKenmerken.ZijkantHoogte - Set DotNetKenmerken.LadeHoogte = TbxKenmerken.LadeHoogte - Set DotNetKenmerken.RugHoogte = TbxKenmerken.RugHoogte - Set ..RugHoogte = TbxKenmerken.RugHoogte - + Set DotNetKenmerken.BodemKleur = TbxKenmerken.BodemKleur + Set DotNetKenmerken.Draagkracht = TbxKenmerken.Draagkracht + Set DotNetKenmerken.DwarsverdelingAantal = TbxKenmerken.DwarsverdelingAantal Set DotNetKenmerken.FrontBevestiging = TbxKenmerken.FrontBevestiging - 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.FrontOndersteuningAantal= $Select(TbxKenmerken.FrontOndersteuningAantal = "":0, 1:TbxKenmerken.FrontOndersteuningAantal) + Set DotNetKenmerken.FrontOndersteuningType = TbxKenmerken.FrontOndersteuningType + Set DotNetKenmerken.GeleiderTechnologie = TbxKenmerken.GeleiderTechnologie + Set DotNetKenmerken.GreepEnMeenemer = ..GeefGreepEnMeenemer() Set DotNetKenmerken.HeeftOpvullijstLinks = TbxKenmerken.HeeftOpvullijstLinks Set DotNetKenmerken.HeeftOpvullijstRechts = TbxKenmerken.HeeftOpvullijstRechts - Set DotNetKenmerken.Draagkracht = TbxKenmerken.Draagkracht - - Set DotNetKenmerken.ZijwandVerhogingInschuifElementKleur = ..LegacyKenmerken.ItemKV - Set DotNetKenmerken.ZijwandVerhogingMateriaal = TbxKenmerken.ZijwandVerhogingMateriaal - Set DotNetKenmerken.ZijwandVerhogingRelingKleur = ..LegacyKenmerken.ItemRK - Set DotNetKenmerken.ZijwandVerhogingType = TbxKenmerken.ZijwandVerhogingType - - Set DotNetKenmerken.BodemKleur = TbxKenmerken.BodemKleur + Set DotNetKenmerken.HeeftZijstabilisering = TbxKenmerken.HeeftZijstabilisering + Set DotNetKenmerken.IsBinnenlade = TbxKenmerken.IsBinnenlade + Set DotNetKenmerken.InterneBreedte = TbxKenmerken.InterneBreedte + Set DotNetKenmerken.LadeDesign = ..GeefLadeDesign() + Set DotNetKenmerken.LadeDesignCode = ..GeefLadeDesignCode() + Set DotNetKenmerken.LadeDiepte = TbxKenmerken.LadeDiepte + Set DotNetKenmerken.LadeHoogte = TbxKenmerken.LadeHoogte Set DotNetKenmerken.LadeKleur = TbxKenmerken.LadeKleur Set DotNetKenmerken.OpvullijstKleur = TbxKenmerken.OpvullijstKleur - Set DotNetKenmerken.GeleiderTechnologie = TbxKenmerken.GeleiderTechnologie - Set DotNetKenmerken.HeeftZijstabilisering = TbxKenmerken.HeeftZijstabilisering - Set DotNetKenmerken.FrontOndersteuningAantal= $Select(TbxKenmerken.FrontOndersteuningAantal = "":0, 1:TbxKenmerken.FrontOndersteuningAantal) - Set DotNetKenmerken.FrontOndersteuningType = TbxKenmerken.FrontOndersteuningType - Set DotNetKenmerken.RugwandMateriaal = TbxKenmerken.RugwandMateriaal - Set DotNetKenmerken.GekoppeldeIngegevenKenmerken = TbxKenmerken.GekoppeldeIngegevenKenmerken - Set DotNetKenmerken.HangmapBoringAantal = TbxKenmerken.HangmapBoringAantal - Set DotNetKenmerken.GreepEnMeenemer = ..GeefGreepEnMeenemer() //Moet deze wel in convertor? Zie notities @@@@@@@@@@@@@@ - Set DotNetKenmerken.DwarsverdelingAantal = TbxKenmerken.DwarsverdelingAantal - Set DotNetKenmerken.Plaatmateriaal = TbxKenmerken.PlaatMateriaal + Set DotNetKenmerken.Plaatmateriaal = TbxKenmerken.PlaatMateriaal //Deze komt nog niet correct door in de kenmerken Set DotNetKenmerken.Productiewijze = $Select(TbxKenmerken.ProductieWijze = "":"V",1:TbxKenmerken.ProductieWijze) + Set DotNetKenmerken.RugHoogte = TbxKenmerken.RugHoogte + Set DotNetKenmerken.RugwandMateriaal = TbxKenmerken.RugwandMateriaal + Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte() + Set DotNetKenmerken.Toepassing = TbxKenmerken.Toepassing Set DotNetKenmerken.VerpakkingType = TbxKenmerken.VerpakkingType - Set DotNetKenmerken.LadeDesignCode = ..GeefLadeDesignCode() - Set DotNetKenmerken.InterneBreedte = TbxKenmerken.InterneBreedte - Set ..InterneBreedte = TbxKenmerken.InterneBreedte + Set DotNetKenmerken.VoorwandVerhogingType = TbxKenmerken.VoorwandVerhogingType + Set DotNetKenmerken.ZijkantHoogte = TbxKenmerken.ZijkantHoogte + Set DotNetKenmerken.ZijwandVerhogingInschuifElementKleur = ..LegacyKenmerken.ItemKV //Punt uit kleur halen want punt komt niet door vanuit econ????? + Set DotNetKenmerken.ZijwandVerhogingMateriaal = TbxKenmerken.ZijwandVerhogingMateriaal + Set DotNetKenmerken.ZijwandVerhogingRelingKleur = ..LegacyKenmerken.ItemRK + Set DotNetKenmerken.ZijwandVerhogingType = TbxKenmerken.ZijwandVerhogingType + + Set DotNetKenmerken.UitsparingData = ..GeefUitsparingData() Set DotNetKenmerken.NietMeeleveren = ..GeefNietMeeleveren() - Set DotNetKenmerken.UitsparingData = ..GeefUitsparingData() - Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte() - Quit DotNetKenmerken ]]> @@ -138,7 +111,7 @@ -1 +DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData