Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml =================================================================== diff -u -r38915 -r39497 --- vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml (.../TBXKenmerkenLegacy.cls.xml) (revision 38915) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml (.../TBXKenmerkenLegacy.cls.xml) (revision 39497) @@ -7,314 +7,294 @@ 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy + - Set Resultaat.ItemASM = "" - Set Resultaat.ItemBGRP = "X" - Set Resultaat.ItemBM = "I" - Set Resultaat.ItemBX = "ZR" - Set Resultaat.ItemCB = 600 - Set Resultaat.ItemDC = "A" - Set Resultaat.ItemDCOms = "" - Set Resultaat.ItemDK = 30 - Set Resultaat.ItemDS = "ZA" - Set Resultaat.ItemDSOms = "" - Set Resultaat.ItemDWV = "" - Set Resultaat.ItemFB = "I" - Set Resultaat.ItemFS = "A" - Set Resultaat.ItemKB = "BZ" - Set Resultaat.ItemKBOms = "" - Set Resultaat.ItemKL = "BZ" - Set Resultaat.ItemKLOms = "" - Set Resultaat.ItemKLROPVL = "" - Set Resultaat.ItemKV = "" - Set Resultaat.ItemKVOms = "" - Set Resultaat.ItemKX = "" - Set Resultaat.ItemKXOms = "" - Set Resultaat.ItemLD = 400 - Set Resultaat.ItemLT = "M" - Set Resultaat.ItemOLP = "" - Set Resultaat.ItemOPVL = "" - Set Resultaat.ItemRK = "BZ" - Set Resultaat.ItemRKOms = "" - Set Resultaat.ItemRSTL = "" - Set Resultaat.ItemSB = 0 - Set Resultaat.ItemSPZK = "" - Set Resultaat.ItemSTDL = "" - Set Resultaat.ItemVPK = "S" - Set Resultaat.ItemWD = "B" + +1 +APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy + Index: APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml =================================================================== diff -u -r38719 -r39497 --- APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml (.../TBXKenmerkenLegacy.cls.xml) (revision 38719) +++ APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml (.../TBXKenmerkenLegacy.cls.xml) (revision 39497) @@ -236,6 +236,19 @@ + + +%String + + + +NietMeeleveren:%String +%Status + + Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml =================================================================== diff -u -r39324 -r39497 --- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 39324) +++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 39497) @@ -28,9 +28,9 @@ Product:APPS.EDI.common.dto.v001.LadeTBX -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy +APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 1 APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy - Index: APPS/EDI/common/impl/LegacyConverter.cls.xml =================================================================== diff -u -r39341 -r39497 --- APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 39341) +++ APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 39497) @@ -22,21 +22,15 @@ Product:APPS.EDI.common.dto.v001.LadeTBX -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy -APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy + -Product:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy +Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy APPS.EDI.common.dto.v001.LadeTBX - Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml =================================================================== diff -u -r39353 -r39497 --- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 39353) +++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 39497) @@ -11,7 +11,7 @@ EconKenmerkenArray:%ArrayOfDataTypes -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken +APPS.PM.Maatwerk.dto.TBXKenmerken Index: WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml =================================================================== diff -u -r39353 -r39497 --- WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 39353) +++ WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 39497) @@ -29,14 +29,14 @@ EconKenmerkenArray:%ArrayOfDataTypes -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken +APPS.PM.Maatwerk.dto.TBXKenmerken Product:APPS.EDI.common.dto.v001.LadeTBX -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy +APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy -Product:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy +Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy APPS.EDI.common.dto.v001.LadeTBX Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml =================================================================== diff -u -r39339 -r39497 --- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml (.../Test.cls.xml) (revision 39339) +++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerEdiNaarLegacy/Test.cls.xml (.../Test.cls.xml) (revision 39497) @@ -10,22 +10,22 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemKB,"MG") - Do $$$AssertEquals(WebOrderLijn.ItemLD,"350") - Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2") - Do $$$AssertEquals(WebOrderLijn.ItemDK,"65") - Do $$$AssertTrue(WebOrderLijn.ItemSB) - Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P") - Do $$$AssertEquals(WebOrderLijn.ItemCB,"1000") - Do $$$AssertEquals(WebOrderLijn.ItemFB,"S") - Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF") - Do $$$AssertEquals(WebOrderLijn.ItemBM,"T") - Do $$$AssertEquals(WebOrderLijn.ItemKL,"MG") - Do $$$AssertEquals(WebOrderLijn.ItemRK,"MG") - Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P") - Do $$$AssertEquals(WebOrderLijn.ItemDC,"A") + Do $$$AssertEquals(GeconverteerdProduct.ItemKB,"MG") + Do $$$AssertEquals(GeconverteerdProduct.ItemLD,"350") + Do $$$AssertEquals(GeconverteerdProduct.ItemDWV,"2") + Do $$$AssertEquals(GeconverteerdProduct.ItemDK,"65") + Do $$$AssertTrue(GeconverteerdProduct.ItemSB) + Do $$$AssertEquals(GeconverteerdProduct.ItemVPK,"P") + Do $$$AssertEquals(GeconverteerdProduct.ItemCB,"1000") + Do $$$AssertEquals(GeconverteerdProduct.ItemFB,"S") + Do $$$AssertEquals(GeconverteerdProduct.ItemBX,"INSCHF") + Do $$$AssertEquals(GeconverteerdProduct.ItemBM,"T") + Do $$$AssertEquals(GeconverteerdProduct.ItemKL,"MG") + Do $$$AssertEquals(GeconverteerdProduct.ItemRK,"MG") + Do $$$AssertEquals(GeconverteerdProduct.ItemVPK,"P") + Do $$$AssertEquals(GeconverteerdProduct.ItemDC,"A") ]]> @@ -54,22 +54,22 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemKB,"BZ") - Do $$$AssertEquals(WebOrderLijn.ItemLD,"400") - Do $$$AssertEquals(WebOrderLijn.ItemDWV,"1") - Do $$$AssertEquals(WebOrderLijn.ItemDK,"50") - Do $$$AssertFalse(WebOrderLijn.ItemSB) - Do $$$AssertEquals(WebOrderLijn.ItemCB,"800") - Do $$$AssertEquals(WebOrderLijn.ItemFB,"D") - Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF") - Do $$$AssertEquals(WebOrderLijn.ItemBM,"TOB") - Do $$$AssertEquals(WebOrderLijn.ItemASM,"G") - Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ") - Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ") - Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S") - Do $$$AssertEquals(WebOrderLijn.ItemDC,"A") + Do $$$AssertEquals(GeconverteerdProduct.ItemKB,"BZ") + Do $$$AssertEquals(GeconverteerdProduct.ItemLD,"400") + Do $$$AssertEquals(GeconverteerdProduct.ItemDWV,"1") + Do $$$AssertEquals(GeconverteerdProduct.ItemDK,"50") + Do $$$AssertFalse(GeconverteerdProduct.ItemSB) + Do $$$AssertEquals(GeconverteerdProduct.ItemCB,"800") + Do $$$AssertEquals(GeconverteerdProduct.ItemFB,"D") + Do $$$AssertEquals(GeconverteerdProduct.ItemBX,"INSCHF") + Do $$$AssertEquals(GeconverteerdProduct.ItemBM,"TOB") + Do $$$AssertEquals(GeconverteerdProduct.ItemASM,"G") + Do $$$AssertEquals(GeconverteerdProduct.ItemKL,"BZ") + Do $$$AssertEquals(GeconverteerdProduct.ItemRK,"BZ") + Do $$$AssertEquals(GeconverteerdProduct.ItemVPK,"S") + Do $$$AssertEquals(GeconverteerdProduct.ItemDC,"A") ]]> @@ -82,9 +82,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemWD,"18") + Do $$$AssertEquals(GeconverteerdProduct.ItemWD,"18") ]]> @@ -96,9 +96,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemWD,"B") + Do $$$AssertEquals(GeconverteerdProduct.ItemWD,"B") ]]> @@ -111,9 +111,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L") + Do $$$AssertEquals(GeconverteerdProduct.ItemOPVL,"L") ]]> @@ -126,9 +126,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"R") + Do $$$AssertEquals(GeconverteerdProduct.ItemOPVL,"R") ]]> @@ -142,9 +142,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L+R") + Do $$$AssertEquals(GeconverteerdProduct.ItemOPVL,"L+R") ]]> @@ -156,9 +156,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemFS,"2") + Do $$$AssertEquals(GeconverteerdProduct.ItemFS,"2") ]]> @@ -171,9 +171,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemFS,"A") + Do $$$AssertEquals(GeconverteerdProduct.ItemFS,"A") ]]> @@ -186,9 +186,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemFS,"HS") + Do $$$AssertEquals(GeconverteerdProduct.ItemFS,"HS") ]]> @@ -202,9 +202,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"Z") + Do $$$AssertEquals(GeconverteerdProduct.ItemBGRP,"Z") ]]> @@ -218,9 +218,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"M") + Do $$$AssertEquals(GeconverteerdProduct.ItemBGRP,"M") ]]> @@ -233,9 +233,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R") + Do $$$AssertEquals(GeconverteerdProduct.ItemBGRP,"R") ]]> @@ -249,9 +249,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"G") + Do $$$AssertEquals(GeconverteerdProduct.ItemBGRP,"G") ]]> @@ -264,9 +264,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R") + Do $$$AssertEquals(GeconverteerdProduct.ItemBGRP,"R") ]]> @@ -279,9 +279,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X") + Do $$$AssertEquals(GeconverteerdProduct.ItemBGRP,"X") ]]> @@ -295,9 +295,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemKV,"FG8") + Do $$$AssertEquals(GeconverteerdProduct.ItemKV,"FG8") ]]> @@ -311,9 +311,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemKV,"FZ8") + Do $$$AssertEquals(GeconverteerdProduct.ItemKV,"FZ8") ]]> @@ -327,9 +327,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.MG") + Do $$$AssertEquals(GeconverteerdProduct.ItemKV,"ALU.MG") ]]> @@ -343,9 +343,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.SW") + Do $$$AssertEquals(GeconverteerdProduct.ItemKV,"ALU.SW") ]]> @@ -359,9 +359,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.BZ") + Do $$$AssertEquals(GeconverteerdProduct.ItemKV,"ALU.BZ") ]]> @@ -373,9 +373,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBM,"I") + Do $$$AssertEquals(GeconverteerdProduct.ItemBM,"I") ]]> @@ -387,9 +387,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF") + Do $$$AssertEquals(GeconverteerdProduct.ItemBX,"INSCHF") ]]> @@ -402,9 +402,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemASM,"Z") + Do $$$AssertEquals(GeconverteerdProduct.ItemASM,"Z") ]]> @@ -417,9 +417,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemASM,"") + Do $$$AssertEquals(GeconverteerdProduct.ItemASM,"") ]]> @@ -435,7 +435,7 @@ Do TBXLadeCodeBepalerStub.VerwachtMethodCall("BepaalLadeCode",TeConverterenProduct.Klasse, TeConverterenProduct.ZijkantHoogte, TeConverterenProduct.LadeHoogte, TeConverterenProduct.IsBinnenlade, "V", $$$ElkeWaarde).ExactAantalKeer(1) Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(TBXLadeCodeBepalerStub) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do TBXLadeCodeBepalerStub.Verifieer() ]]> @@ -450,9 +450,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemDWV,"") + Do $$$AssertEquals(GeconverteerdProduct.ItemDWV,"") ]]> @@ -465,9 +465,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemDWV,"2") + Do $$$AssertEquals(GeconverteerdProduct.ItemDWV,"2") ]]> @@ -479,9 +479,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemFB,"Z") + Do $$$AssertEquals(GeconverteerdProduct.ItemFB,"Z") ]]> @@ -494,9 +494,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"M") + Do $$$AssertEquals(GeconverteerdProduct.ItemRSTL,"M") ]]> @@ -509,9 +509,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemRSTL,"") + Do $$$AssertEquals(GeconverteerdProduct.ItemRSTL,"") ]]> @@ -527,9 +527,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"S;120;140;150") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"S;120;140;150") ]]> @@ -545,9 +545,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"B;120;140;250") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"B;120;140;250") ]]> @@ -563,9 +563,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"M.;120;140;42") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"M.;120;140;42") ]]> @@ -583,9 +583,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"SS;120;140;60;150;150") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"SS;120;140;60;150;150") ]]> @@ -603,9 +603,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"BB;120;140;60;250;250") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"BB;120;140;60;250;250") ]]> @@ -623,9 +623,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"SB;120;140;60;150;250") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"SB;120;140;60;150;250") ]]> @@ -643,9 +643,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"BS;120;140;60;250;150") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"BS;120;140;60;250;150") ]]> @@ -663,9 +663,9 @@ Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) - #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) + #dim GeconverteerdProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) - Do $$$AssertEquals(WebOrderLijn.ItemSPZK,"MM;120;140;60;42;42") + Do $$$AssertEquals(GeconverteerdProduct.ItemSPZK,"MM;120;140;60;42;42") ]]> Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r39402 -r39497 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39402) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39497) @@ -40,7 +40,7 @@ -Product:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy +Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy APPS.EDI.common.dto.v001.LadeTBX - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 - + 1 EconKenmerkenArray:%ArrayOfDataTypes -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken +APPS.PM.Maatwerk.dto.TBXKenmerken Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml =================================================================== diff -u -r39474 -r39497 --- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml (.../Test.cls.xml) (revision 39474) +++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml (.../Test.cls.xml) (revision 39497) @@ -10,7 +10,7 @@ Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set TbxKenmerken.LadeVariant = "TBX" - #dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade() + #dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade() Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() @@ -27,7 +27,7 @@ Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set TbxKenmerken.LadeVariant = "TBX" - #dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).DMZLade() + #dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).DMZLade() Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() @@ -44,7 +44,7 @@ Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set TbxKenmerken.LadeVariant = "TBX" - #dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LadeMetVeelExtras() + #dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).LadeMetVeelExtras() Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() @@ -61,7 +61,7 @@ Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set TbxKenmerken.LadeVariant = "TBX" - #dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren() + #dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren() Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() @@ -78,7 +78,7 @@ Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set TbxKenmerken.LadeVariant = "TBX" - #dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LadeMetVerlaagdeRug() + #dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).LadeMetVerlaagdeRug() Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() @@ -95,7 +95,7 @@ Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New() Set TbxKenmerken.LadeVariant = "TBX" - #dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade() + #dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade() Set LegacyKenmerken.ItemKB = "OnbestaandeKleur" Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken Index: vhTest/Mock/APPS/EDI/common/impl/LegacyConverter.cls.xml =================================================================== diff -u -r39341 -r39497 --- vhTest/Mock/APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 39341) +++ vhTest/Mock/APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 39497) @@ -11,13 +11,13 @@ Product:APPS.EDI.common.dto.v001.LadeTBX -DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy +APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy -Product:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy +Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy APPS.EDI.common.dto.v001.LadeTBX Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml =================================================================== diff -u -r39232 -r39497 --- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml (.../Test.cls.xml) (revision 39232) +++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml (.../Test.cls.xml) (revision 39497) @@ -5,7 +5,7 @@ @@ -17,7 +17,7 @@ #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).DMZLade() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New() - Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).DMZLade()) + Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).DMZLade()) ]]> @@ -26,7 +26,7 @@ #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).SpoelbakLade() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New() - Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).SpoelbakLade()) + Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).SpoelbakLade()) ]]> @@ -35,7 +35,7 @@ #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).SifonLadeMet1Uitsparing() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New() - Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).SifonLadeMet1Uitsparing()) + Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).SifonLadeMet1Uitsparing()) ]]> @@ -44,7 +44,7 @@ #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).SifonLadeMet2Uitsparingen() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New() - Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).SifonLadeMet2Uitsparingen()) + Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).SifonLadeMet2Uitsparingen()) ]]> @@ -53,7 +53,7 @@ #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).LadeMetVeelExtras() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New() - Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LadeMetVeelExtras()) + Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).LadeMetVeelExtras()) ]]> @@ -62,7 +62,7 @@ #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLadeMetNietMeeleveren() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New() - Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren()) + Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren()) ]]> @@ -71,13 +71,13 @@ #dim TeConverterenProduct As APPS.EDI.common.dto.v001.LadeTBX = ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).LadeMetVerlaagdeRug() Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New() - Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LadeMetVerlaagdeRug()) + Do $$$AssertObject(ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct),##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).LadeMetVerlaagdeRug()) ]]>