Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/AcceptatieTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/AcceptatieTest.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/AcceptatieTest.cls.xml	(revision 38157)
@@ -0,0 +1,234 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter.AcceptatieTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaard M lade">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X")
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"I")
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"ZR")
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,600)
+	Do $$$AssertEquals(WebOrderLijn.ItemDC,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemDCOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,30)
+	Do $$$AssertEquals(WebOrderLijn.ItemDS,"ZA")
+	Do $$$AssertEquals(WebOrderLijn.ItemDSOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"I")
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemKB,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKBOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLROPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKVOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKX,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKXOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,400)
+	Do $$$AssertEquals(WebOrderLijn.ItemLT,"M")
+	Do $$$AssertEquals(WebOrderLijn.ItemOLP,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemRKOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSB,0)
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSTDL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
+]]></Implementation>
+</Method>
+
+<Method name="Test: DM/Z lade">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).DMZLade()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"Z")
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"I")
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"ER")
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,600)
+	Do $$$AssertEquals(WebOrderLijn.ItemDC,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemDCOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,30)
+	Do $$$AssertEquals(WebOrderLijn.ItemDS,"ZA")
+	Do $$$AssertEquals(WebOrderLijn.ItemDSOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"Z")
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemKB,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKBOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLROPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKVOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKX,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKXOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,400)
+	Do $$$AssertEquals(WebOrderLijn.ItemLT,"DM/Z")
+	Do $$$AssertEquals(WebOrderLijn.ItemOLP,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemRKOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSB,0)
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSTDL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
+]]></Implementation>
+</Method>
+
+<Method name="Test: M-sifon lade (1 uitsparing)">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).LadeMet1Uitsparing()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X")
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"I")
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"ZR")
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,600)
+	Do $$$AssertEquals(WebOrderLijn.ItemDC,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemDCOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,30)
+	Do $$$AssertEquals(WebOrderLijn.ItemDS,"ZA")
+	Do $$$AssertEquals(WebOrderLijn.ItemDSOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"I")
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemKB,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKBOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLROPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKVOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKX,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKXOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,400)
+	Do $$$AssertEquals(WebOrderLijn.ItemLT,"MY2")
+	Do $$$AssertEquals(WebOrderLijn.ItemOLP,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemRKOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSB,0)
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"S;225;225;150")
+	Do $$$AssertEquals(WebOrderLijn.ItemSTDL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
+]]></Implementation>
+</Method>
+
+<Method name="Test: M-sifon lade (2 uitsparingen)">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).LadeMet2Uitsparingen()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X")
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"I")
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"ZR")
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,600)
+	Do $$$AssertEquals(WebOrderLijn.ItemDC,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemDCOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,30)
+	Do $$$AssertEquals(WebOrderLijn.ItemDS,"ZA")
+	Do $$$AssertEquals(WebOrderLijn.ItemDSOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"I")
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemKB,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKBOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLROPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKVOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKX,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKXOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,400)
+	Do $$$AssertEquals(WebOrderLijn.ItemLT,"MY2")
+	Do $$$AssertEquals(WebOrderLijn.ItemOLP,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemRKOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSB,0)
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"SS;120;120;60;150;150")
+	Do $$$AssertEquals(WebOrderLijn.ItemSTDL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,"B")
+]]></Implementation>
+</Method>
+
+<Method name="aTest: Master of All Schuifkes">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ..GeefTeConverterenProduct()
+	
+	#dim ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.Convert(TeConverterenProduct)
+	
+	Do $$$AssertEquals(WebOrderLijn.ItemASM,"WI.AF")
+	Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R")
+	Do $$$AssertEquals(WebOrderLijn.ItemBM,"TOB")
+	Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF")
+	Do $$$AssertEquals(WebOrderLijn.ItemCB,600)
+	Do $$$AssertEquals(WebOrderLijn.ItemDC,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemDCOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDK,30)
+	Do $$$AssertEquals(WebOrderLijn.ItemDS,"ZA")
+	Do $$$AssertEquals(WebOrderLijn.ItemDSOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemDWV,3)
+	Do $$$AssertEquals(WebOrderLijn.ItemFB,"Z")
+	Do $$$AssertEquals(WebOrderLijn.ItemFS,"A")
+	Do $$$AssertEquals(WebOrderLijn.ItemKB,"DG")
+	Do $$$AssertEquals(WebOrderLijn.ItemKBOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKLROPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemKVOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKX,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemKXOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemLD,450)
+	Do $$$AssertEquals(WebOrderLijn.ItemLT,"CM/Z")
+	Do $$$AssertEquals(WebOrderLijn.ItemOLP,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
+	Do $$$AssertEquals(WebOrderLijn.ItemRKOms,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSB,1)
+	Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemSTDL,"")
+	Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
+	Do $$$AssertEquals(WebOrderLijn.ItemWD,18)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<ReturnType>APPS.EDI.common.dto.v001.LadeTBX</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(revision 38157)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.EDI.common.dto.LadeTBX">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	
+	Set Resultaat.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).BZ()
+	Set Resultaat.LadeDiepte = 400
+	Set Resultaat.HeeftDwarsverdeling = $$$False
+	Set Resultaat.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()
+	Set Resultaat.HeeftZijstabilisering = $$$False
+	Set Resultaat.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1()
+	Set Resultaat.CorpusBreedte = 600
+	Set Resultaat.IsBinnenbreedte = $$$True
+	Set Resultaat.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta()
+	Set Resultaat.ZijwandVerhogingType = "NoGallery"
+	Set Resultaat.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).BLUMOTION()
+	Set Resultaat.RugHoogte = "M"
+	Set Resultaat.HeeftMat = $$$False
+	Set Resultaat.MatMateriaal = ""
+	Set Resultaat.MatKleur = ""
+	Set Resultaat.GreepEnMeenemer = "No"
+	Set Resultaat.IsBinnenlade = $$$False
+	Set Resultaat.LadeKleur = "TS"
+	Set Resultaat.LadeHoogte = "M"
+	Set Resultaat.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set Resultaat.Klasse = "L"
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="DMZLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
+	Set Resultaat.RugHoogte = "D"
+	Set Resultaat.IsBinnenlade = $$$True
+	Set Resultaat.ZijwandVerhogingType = "SimpleGallery"
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="LadeMet1Uitsparing">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
+	Set Resultaat.Klasse = "SY2"
+	Set Resultaat.UitsparingDataAantalUitsparingen = 1
+	Set Resultaat.UitsparingDataBreedteX = 225
+	Set Resultaat.UitsparingDataBreedteZ1 = 150
+	Set Resultaat.UitsparingDataBreedteY = 225
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="LadeMet2Uitsparingen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDI.common.dto.v001.LadeLBX</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As APPS.EDI.common.dto.v001.LadeLBX = ..StandaardLade()
+	Set Resultaat.Klasse = "SY2"
+	Set Resultaat.UitsparingDataAantalUitsparingen = 2
+	Set Resultaat.UitsparingDataBreedteX = 120
+	Set Resultaat.UitsparingDataBreedteZ1 = 150
+	Set Resultaat.UitsparingDataBreedteM = 60
+	Set Resultaat.UitsparingDataBreedteZ2 = 150
+	Set Resultaat.UitsparingDataBreedteY = 120
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>