Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml	(revision 35761)
@@ -0,0 +1,189 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter.ConverteerProduct.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Aantal">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	
+	#dim Aantal = 42	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct, Aantal)
+	
+	Do $$$AssertEquals(WebOrderLijn.Qty,42)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - Bodemkleur -&gt; ItemKB">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).MG()
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKB,"MG")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - LadeDiepte -&gt; ItemLD">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.LadeDiepte = "350"
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,"350")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - CorpusBreedte -&gt; ItemCB">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.CorpusBreedte = "1000"
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,"1000")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - CorpusWandDikte -&gt; ItemWD">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.CorpusWandDikte = "10"
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"10")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - FrontBevestiging -&gt; ItemFB">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"S")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - HeeftOpvullijstLinks -&gt; ItemOPVL">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertTrue(WebOrderLijn.ItemOPVL)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - Dwarsverdeling -&gt; ItemDWV">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.Dwarsverdeling = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - ZijwandverhogingType -&gt; ItemBX">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"Laag")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - KleurInschuifElement -&gt; ItemKV">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.KleurInschuifElement = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd()
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"FZ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - DraagKracht -&gt; ItemDK">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,"65")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - HeeftZijStabilisering -&gt; ItemSB">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.HeeftZijstabilisering = $$$True
+		
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertTrue(WebOrderLijn.ItemSB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - AntislipMat -&gt; ItemASM">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.AntislipMat = ##class(DOM.PM.enu.TBXAntislipmat).Grijs()
+		
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"G")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductFeatures - VerpakkingType -&gt; ItemVPK">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet()
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set WebOrderLijn = ProductConverter.ConverteerProduct(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 35761 refers to a dead (removed) revision in file `vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?