Index: vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml =================================================================== diff -u -r45413 -r45425 --- vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 45413) +++ vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 45425) @@ -55,8 +55,10 @@ Set ..Utils = UtilsStub - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(..GeefTeConverterenProductBehoefte(),##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()) + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(..GeefTeConverterenProductBehoefte(),Vestiging) + Do $$$AssertEquals(ConvertedProductBehoefte.InventLocationId,"") ]]> @@ -70,11 +72,9 @@ Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() - #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.InventSiteId,"HLXEPN1") ]]> @@ -88,12 +88,10 @@ #dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte() Set ..Utils = UtilsStub - - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.InventSiteId,"VHEPN1") ]]> @@ -108,12 +106,10 @@ Set AxProductBehoefte.Basis.IdentNummer = "1.234.567.8" Set ..Utils = UtilsStub - - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.ItemId,"1.234.567.8") ]]> @@ -134,11 +130,9 @@ Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() - #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,5) ]]> @@ -160,11 +154,9 @@ Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() - #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,7) ]]> @@ -186,11 +178,9 @@ Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() - #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,"") ]]> @@ -216,11 +206,9 @@ Set ..Utils = UtilsStub Set ..Console = ConsoleMock - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() - #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do ConsoleMock.Verifieer() ]]> @@ -242,11 +230,9 @@ Set ..Utils = UtilsStub - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() - #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.MaxInventOnhand,9) ]]> @@ -260,12 +246,10 @@ #dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte() Set ..Utils = UtilsMock - - #dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter() #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging) + #dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefConverter().Convert(AxProductBehoefte,Vestiging) Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"ReqGroupId") Do UtilsMock.Verifieer()