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