Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml
===================================================================
diff -u -r67754 -r67957
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 67754)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 67957)
@@ -59,13 +59,7 @@
MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken
@@ -179,8 +173,14 @@
1
DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken
Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u -r67872 -r67957
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 67872)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 67957)
@@ -26,7 +26,7 @@
Set DotNetKenmerken.VersieNr = TbxKenmerken.GeefVersieNr()
Set DotNetKenmerken.GekoppeldeIngegevenKenmerken = TbxKenmerken.GekoppeldeIngegevenKenmerken
- Set DotNetKenmerken.BodemKleur = $Extract(TbxKenmerken.BodemKleur,0,2)
+ Set DotNetKenmerken.BodemKleur = $$$If($E(TbxKenmerken.BodemKleur,3)="S", $Extract(TbxKenmerken.BodemKleur,0,2), TbxKenmerken.BodemKleur)
Set DotNetKenmerken.Draagkracht = TbxKenmerken.Draagkracht
Set DotNetKenmerken.DwarsverdelingAantal = $Select(TbxKenmerken.DwarsverdelingAantal = "":0, 1:TbxKenmerken.DwarsverdelingAantal)
Set DotNetKenmerken.FrontBevestiging = TbxKenmerken.FrontBevestiging
@@ -42,26 +42,26 @@
Set DotNetKenmerken.HeeftOpvullijstRechts = TbxKenmerken.HeeftOpvullijstRechts
Set DotNetKenmerken.HeeftZijstabilisering = TbxKenmerken.HeeftZijstabilisering
Set DotNetKenmerken.IsBinnenlade = TbxKenmerken.IsBinnenlade
- Set DotNetKenmerken.InterneBreedte = $Select(TbxKenmerken.InterneBreedte = "":..GeefInterneBreedte(), TbxKenmerken.InterneBreedte = 0:..GeefInterneBreedte(), 1:TbxKenmerken.InterneBreedte) //TbxKenmerken.InterneBreedte
+ Set DotNetKenmerken.InterneBreedte = $Select(TbxKenmerken.InterneBreedte = "":..GeefInterneBreedte(), TbxKenmerken.InterneBreedte = 0:..GeefInterneBreedte(), 1:TbxKenmerken.InterneBreedte)
Set DotNetKenmerken.LadeDesignCode = ..GeefLadeDesignCode()
//Set DotNetKenmerken.LadeDesign = ..GeefLadeDesign()
Set DotNetKenmerken.LadeDiepte = TbxKenmerken.LadeDiepte
Set DotNetKenmerken.LadeHoogte = TbxKenmerken.LadeHoogte
Set DotNetKenmerken.LadeKleur = TbxKenmerken.LadeKleur
- Set DotNetKenmerken.MinTolerantieOpIB = ..LegacyKenmerken.ItemMinTolerantieOpIB
+ Set DotNetKenmerken.MinTolerantieOpIB = ..GeefMinTolerantieOpIB()
Set DotNetKenmerken.OpvullijstKleur = TbxKenmerken.OpvullijstKleur
- Set DotNetKenmerken.Plaatmateriaal = $Select(TbxKenmerken.PlaatMateriaal = "":"HS", 1:TbxKenmerken.PlaatMateriaal) //TbxKenmerken.PlaatMateriaal // Deze komt nog niet correct door in de kenmerken wanneer PlaatMateriaal <> 'HS'
+ Set DotNetKenmerken.Plaatmateriaal = $Select(TbxKenmerken.PlaatMateriaal = "":"HS", 1:TbxKenmerken.PlaatMateriaal)
Set DotNetKenmerken.ProductieWijze = $Select(TbxKenmerken.ProductieWijze = "":"V",1:TbxKenmerken.ProductieWijze)
- Set DotNetKenmerken.RugHoogte = ..GeefGeldigeRugHoogte(TbxKenmerken.RugHoogte) //TbxKenmerken.RugHoogte
- Set DotNetKenmerken.RugwandMateriaal = $Select(TbxKenmerken.RugwandMateriaal = "":"Hout",1:TbxKenmerken.RugwandMateriaal) //TbxKenmerken.RugwandMateriaal
+ Set DotNetKenmerken.RugHoogte = ..GeefGeldigeRugHoogte(TbxKenmerken.RugHoogte)
+ Set DotNetKenmerken.RugwandMateriaal = $Select(TbxKenmerken.RugwandMateriaal = "":"Hout",1:TbxKenmerken.RugwandMateriaal)
Set DotNetKenmerken.SpoelbakBinnenzijwandHoogte = ..GeefSpoelbakBinnenzijwandHoogte()
Set DotNetKenmerken.Toepassing = TbxKenmerken.Toepassing
Set DotNetKenmerken.VerpakkingType = ..GeefVerpakkingType()
- Set DotNetKenmerken.VoorwandVerhogingType = ..GeefVoorwandVerhogingType() //TbxKenmerken.VoorwandVerhogingType
+ Set DotNetKenmerken.VoorwandVerhogingType = ..GeefVoorwandVerhogingType()
Set DotNetKenmerken.ZijkantHoogte = TbxKenmerken.ZijkantHoogte
Set DotNetKenmerken.ZijwandVerhogingInschuifElementKleur = ..GeefZijwandVerhogingInschuifElementKleur()
Set DotNetKenmerken.ZijwandVerhogingMateriaal = TbxKenmerken.ZijwandVerhogingMateriaal
- Set DotNetKenmerken.ZijwandVerhogingRelingKleur = $Select(..LegacyKenmerken.ItemRK = "": TbxKenmerken.LadeKleur, 1:..LegacyKenmerken.ItemRK) //..LegacyKenmerken.ItemRK
+ Set DotNetKenmerken.ZijwandVerhogingRelingKleur = $Select(..LegacyKenmerken.ItemRK = "": TbxKenmerken.LadeKleur, 1:..LegacyKenmerken.ItemRK)
Set DotNetKenmerken.ZijwandVerhogingType = TbxKenmerken.ZijwandVerhogingType
Set DotNetKenmerken.UitsparingData = ..GeefUitsparingData()
@@ -144,7 +144,7 @@
Set:..TbxKenmerken.HeeftOpvullijstLinks AantalOpvullijsten = AantalOpvullijsten + 1
Set:..TbxKenmerken.HeeftOpvullijstRechts AantalOpvullijsten = AantalOpvullijsten + 1
- Set InterneBreedte = ..TbxKenmerken.GUIKenmerken.CorpusBreedte - (2 * ..TbxKenmerken.GUIKenmerken.CorpusWandDikte) - (AantalOpvullijsten * 25) - ..GeefMinTolerantieTBX()
+ Set InterneBreedte = ..TbxKenmerken.GUIKenmerken.CorpusBreedte - (2 * ..TbxKenmerken.GUIKenmerken.CorpusWandDikte) - (AantalOpvullijsten * 25) - ..GeefMinTolerantieOpIB()
If (InterneBreedte < 1) {
Set InterneBreedte = ..TbxKenmerken.CorpusBinnenbreedte
@@ -154,37 +154,19 @@
]]>
-
+
1
%Numeric
0), 1, 0)
}
- */
- Quit $$$If( $$$Not(..TbxKenmerken.GUIKenmerken.IsBinnenbreedte) && (..TbxKenmerken.GUIKenmerken.CorpusWandDikte>0), 1, 0)
+
+ Quit MinTolerantieOpIB
]]>
-
-
-
-
1
%String
Index: ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml
===================================================================
diff -u -r67097 -r67957
--- ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 67097)
+++ ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 67957)
@@ -43,7 +43,7 @@
Set EconKenmerken.Toepassing = EdiKenmerken.Klasse
Set EconKenmerken.Variant = "TBX"
- Set EconKenmerken.ProductieWijze = ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig()
+ Set EconKenmerken.ProductieWijze = $Select((EdiKenmerken.ProductieWijze = ""): ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), 1: EdiKenmerken.ProductieWijze)
Set EconKenmerken.NietMeeleveren = ..GeefNietMeeleveren(EdiKenmerken)
Do ..ConverteerFrontOndersteuning(EdiKenmerken, .EconKenmerken)
Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml
===================================================================
diff -u -r67773 -r67957
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml (.../Tbx.cls.xml) (revision 67773)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml (.../Tbx.cls.xml) (revision 67957)
@@ -72,7 +72,7 @@
}
Set TbxKenmerken.LegacyKenmerken = ..LegacyKenmerken
- Set TbxKenmerken.LadeVariant = "TBX_Antaro" //Later wordt Variant T design ook nog mogelijk, zal moeten aangepast worden
+ Set TbxKenmerken.LadeVariant = "TBX_Antaro"
Set TbxKenmerken.VerpakkingType = Kenmerken.VerpakkingType
If $$$Not(..IsMinTolerantieOpIBvolgensDefaulting(Kenmerken)) {
Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml
===================================================================
diff -u -r67101 -r67957
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml (.../Tbx.cls.xml) (revision 67101)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Tbx.cls.xml (.../Tbx.cls.xml) (revision 67957)
@@ -28,7 +28,7 @@
-AppsKenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken
+AppsKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken
ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken