Index: ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml =================================================================== diff -u -r39740 -r39925 --- ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39740) +++ ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39925) @@ -119,7 +119,7 @@ If $$$HasLength(Product.RugHoogte) { Set Eigenschappen.RugHoogte = Product.RugHoogte } Else { - Set Eigenschappen.RugHoogte = Product.LadeHoogte + Set Eigenschappen.RugHoogte = Product.ZijwandHoogte } ]]> @@ -212,6 +212,8 @@ Continue:PropertyName="MatKleur" Continue:PropertyName="MatMateriaal" Continue:PropertyName="FrontBevestiging" + Continue:PropertyName="LadeHoogte" + Continue:PropertyName="ZijwandHoogte" Do ..ConverterData.Add(PropertyName,PropertyName) } @@ -222,6 +224,7 @@ Do ..ConverterData.Add("IsBinnenlade","IsBinnenlade","Set Output = $Select(Input=""true"": ""1"", 1:""0"")") Do ..ConverterData.Add("ZijwandVerhogingRelingKleur","ZijwandVerhogingKleur") Do ..ConverterData.Add("FrontBevestiging","FrontBevestiging","Set Output = $Select(Input="""": ""Z"", 1:Input)") + Do ..ConverterData.Add("ZijwandHoogte","LadeHoogte") Quit ..ConverterData ]]> Index: ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml =================================================================== diff -u -r39920 -r39925 --- ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 39920) +++ ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 39925) @@ -276,6 +276,7 @@ Continue:PropertyName="MatVinylFiberglassKleur" Continue:PropertyName="MatWolviltKleur" Continue:PropertyName="FrontBevestiging" + Continue:PropertyName="ZijwandHoogte" Do ..ConverterData.Add(PropertyName,PropertyName) } @@ -285,6 +286,7 @@ Do ..ConverterData.Add("IsBinnenbreedte","IsBinnenbreedte","Set Output = $Select(Input=1: ""true"", 1:""false"")") Do ..ConverterData.Add("IsBinnenlade","IsBinnenlade","Set Output = $Select(Input=1: ""true"", 1:""false"")") Do ..ConverterData.Add("FrontBevestiging","FrontBevestiging","Set Output = $Select(Input=""Z"": """", 1:Input)") + Do ..ConverterData.Add("LadeHoogte","ZijwandHoogte") Quit ..ConverterData ]]> Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r39920 -r39925 --- vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39920) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39925) @@ -39,6 +39,7 @@ Set TbxKenmerken.VerpakkingType = ##class(ECON.PM.Maatwerk.enu.TBXVerpakkingType).V1() Set TbxKenmerken.ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M() Set TbxKenmerken.ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder() + Set TbxKenmerken.ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M() Quit TbxKenmerken ]]> @@ -53,8 +54,8 @@ Set TbxKenmerken.InbouwHoogte = "DM" Set TbxKenmerken.IsBinnenlade = "true" Set TbxKenmerken.FrontBevestiging = "" - Set TbxKenmerken.LadeHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D() Set TbxKenmerken.ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M() + Set TbxKenmerken.ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D() Set TbxKenmerken.ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling() Quit TbxKenmerken @@ -160,10 +161,10 @@ Set TbxKenmerken.InterneBreedte = 514 Set TbxKenmerken.IsBinnenbreedte = "false" Set TbxKenmerken.IsBinnenlade = "false" - Set TbxKenmerken.LadeHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C() Set TbxKenmerken.MatAntislipFiberKleur = ##class(ECON.PM.Maatwerk.enu.TBXMatAntislipFiberKleur).AntiSlipFiberWit() Set TbxKenmerken.OpvullijstKleur = ##class(ECON.PM.Maatwerk.enu.TBXOpvullijstKleur).Wit() Set TbxKenmerken.ZijkantHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M() + Set TbxKenmerken.ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C() Set TbxKenmerken.ZijwandVerhogingMateriaal = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Aluminium() Set TbxKenmerken.ZijwandVerhogingInschuifelementKleur = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).AluZijdeWit() Set TbxKenmerken.ZijwandVerhogingType = ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).InschuifElement() @@ -201,8 +202,8 @@ #dim TbxKenmerken As ECON.PM.Maatwerk.dto.TbxKenmerken = ..StandaardLade() Set TbxKenmerken.InbouwHoogte = "CM" - Set TbxKenmerken.LadeHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C() Set TbxKenmerken.RugHoogte = ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M() + Set TbxKenmerken.ZijwandHoogte = ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C() Quit TbxKenmerken ]]>