Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml =================================================================== diff -u -r35905 -r35912 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 35905) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 35912) @@ -80,8 +80,9 @@ Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TIPONBLUMOTION() Set TeConverterenProduct.HeeftMat = $$$True - Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Zwart() + Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).Antraciet() Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXZijkantKleur).BZ() + Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M() #dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New() #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct) @@ -96,7 +97,7 @@ Do $$$AssertEquals(WebOrderLijn.ItemFB,"D") Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF") Do $$$AssertEquals(WebOrderLijn.ItemBM,"TOB") - Do $$$AssertEquals(WebOrderLijn.ItemASM,"Z") + Do $$$AssertEquals(WebOrderLijn.ItemASM,"G") Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ") ]]> @@ -358,12 +359,12 @@ @@ -407,6 +408,7 @@ Set TeConverterenProduct.HeeftGreepEnMeenemer = $$$False Set TeConverterenProduct.IsBinnenlade = $$$False Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG() + Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K() Quit TeConverterenProduct ]]> Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml =================================================================== diff -u -r35905 -r35912 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35905) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35912) @@ -156,7 +156,12 @@ 1 - @@ -186,8 +191,9 @@ Do ConvertData.Add("HeeftZijstabilisering","ItemSB") Do ConvertData.Add("VerpakkingType","ItemVPK") Do ConvertData.Add("GeleiderTechnologie","ItemBM", "Set Output = $Select(Input = ""B"" : ""I"", 1:Input)") - Do ConvertData.Add("LadeKleur","ItemKL", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)") + Do ConvertData.Add("LadeKleur","ItemKL", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)") + Quit ConvertData ]]>