Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml =================================================================== diff -u -r35903 -r35905 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35903) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35905) @@ -56,8 +56,6 @@ 1 @@ -188,6 +186,7 @@ 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)") Quit ConvertData ]]> Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml =================================================================== diff -u -r35885 -r35905 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 35885) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 35905) @@ -59,6 +59,7 @@ Do $$$AssertEquals(WebOrderLijn.ItemFB,"S") Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF") Do $$$AssertEquals(WebOrderLijn.ItemBM,"T") + Do $$$AssertEquals(WebOrderLijn.ItemKL,"MG") ]]> @@ -80,6 +81,7 @@ Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).TIPONBLUMOTION() Set TeConverterenProduct.HeeftMat = $$$True Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Zwart() + Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXZijkantKleur).BZ() #dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New() #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct) @@ -95,6 +97,7 @@ Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF") Do $$$AssertEquals(WebOrderLijn.ItemBM,"TOB") Do $$$AssertEquals(WebOrderLijn.ItemASM,"Z") + Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ") ]]> @@ -403,6 +406,7 @@ Set TeConverterenProduct.HeeftGreep = $$$True Set TeConverterenProduct.HeeftGreepEnMeenemer = $$$False Set TeConverterenProduct.IsBinnenlade = $$$False + Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG() Quit TeConverterenProduct ]]>