Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r38155 -r38167
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 38155)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 38167)
@@ -511,6 +511,38 @@
]]>
+
+
+
+
+
+
+
+
@@ -229,6 +230,16 @@
]]>
+
+
+1
+
+
+
1
TECH.ObjectUtils.ObjectConvertData
@@ -240,7 +251,6 @@
Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""NoGallery"":""ZR"", ""SimpleGallery"":""ER"", ""DesignElement"":""INSCHF"", ""InschuifElement"":""INSCHF"", :Input)")
Do ConvertData.Add("Draagkracht","ItemDK")
Do ConvertData.Add("HeeftZijstabilisering","ItemSB")
- Do ConvertData.Add("RugHoogte","ItemRSTL")
Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"", ""Probox"":""X"", ""V1"":""S"", :""S"")")
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)")
Index: EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml
===================================================================
diff -u -r37331 -r38167
--- EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 37331)
+++ EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 38167)
@@ -197,6 +197,11 @@
+
+%String
+
+
+
EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappen.NietMeeleverenTBX
@@ -321,6 +326,12 @@
NietMeeleveren
+
+Rughoogte
+
+
+RugHoogte
+
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/AcceptatieTest.cls.xml
===================================================================
diff -u -r38161 -r38167
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/AcceptatieTest.cls.xml (.../AcceptatieTest.cls.xml) (revision 38161)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/AcceptatieTest.cls.xml (.../AcceptatieTest.cls.xml) (revision 38167)
@@ -82,7 +82,7 @@
Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"")
Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
Do $$$AssertEquals(WebOrderLijn.ItemRKOms,"")
- Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+ Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"D")
Do $$$AssertEquals(WebOrderLijn.ItemSB,0)
Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"")
Do $$$AssertEquals(WebOrderLijn.ItemSTDL,"")
@@ -229,7 +229,7 @@
Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"")
Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
Do $$$AssertEquals(WebOrderLijn.ItemRKOms,"")
- Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+ Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"C")
Do $$$AssertEquals(WebOrderLijn.ItemSB,1)
Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"")
Do $$$AssertEquals(WebOrderLijn.ItemSTDL,"")
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r38155 -r38167
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38155)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38167)
@@ -174,7 +174,6 @@
While PropertyIterator.HasNext() {
#dim PropertyName As %String = PropertyIterator.Next()
Continue:PropertyName="NietMeeleveren"
- Continue:PropertyName="RugHoogte"
Continue:PropertyName="TussenrugMateriaal"
Do ..ConverterData.Add(PropertyName,PropertyName)