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