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
]]>