Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml =================================================================== diff -u -r45400 -r45414 --- vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 45400) +++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 45414) @@ -106,12 +106,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.CurrencyCode,"EUR") Do $$$AssertEquals(AankoopOrderRegel.InventLocationId,"CACHE") @@ -128,12 +126,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.InventSiteId,"VHEPN1") ]]> @@ -147,12 +143,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.InventSiteId,"HLXEPN1") ]]> @@ -165,12 +159,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.ConfirmedDlv,"23/11/1977") ]]> @@ -183,12 +175,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.DeliveryDate,"23/11/1977") ]]> @@ -205,12 +195,10 @@ #dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance() Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub) Set ..AankoopApi = AankoopApiStub - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.ExternalItemId ,"L.123.451.0") ]]> @@ -226,12 +214,10 @@ #dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance() Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub) Set ..AankoopApi = AankoopApiStub - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.ExternalItemId ,"L1234510") ]]> @@ -244,12 +230,10 @@ Set ..BlOrdRspStub.VolledigeLijn = """22258655.01 0663417000000026.23 017021323V 0000000.00 """ Set ..BlOrdRspStub.ToeleveringNr = "258655" - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..BlOrdRspStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.ExternalItemId ,"6634170") ]]> @@ -262,12 +246,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.ItemId ,"0.123.451.0") ]]> @@ -280,12 +262,10 @@ Set ..BlOrdRspStub.VolledigeLijn = """22258655.01 0663417000000026.23 017021323V 0000000.00 """ Set ..BlOrdRspStub.ToeleveringNr = "258655" - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..BlOrdRspStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.ItemId ,"0.663.417.0") ]]> @@ -298,12 +278,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.LineAmount,"50,15") ]]> @@ -316,12 +294,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.LineNumber,"2") ]]> @@ -334,12 +310,10 @@ Set ..BlOrdRspStub.VolledigeLijn = """22258655.01 0663417000000026.23 017021323V 0000000.00 """ Set ..BlOrdRspStub.ToeleveringNr = "258655" - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..BlOrdRspStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.LineNumber,"01") ]]> @@ -352,12 +326,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.LinePercent,"150") ]]> @@ -370,12 +342,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.OverDeliveryPct,"50") ]]> @@ -388,14 +358,12 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() Do ..ProductToeleveringLijnStub.IndienMethodCall("GeefGrootteOrde").DanReturn("E") - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PriceUnit,"1") ]]> @@ -408,14 +376,12 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() Do ..ProductToeleveringLijnStub.IndienMethodCall("GeefGrootteOrde").DanReturn("H") - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PriceUnit,"100") ]]> @@ -428,14 +394,12 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() Do ..ProductToeleveringLijnStub.IndienMethodCall("GeefGrootteOrde").DanReturn("M") - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PriceUnit,"1000") ]]> @@ -448,14 +412,12 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() Do ..ProductToeleveringLijnStub.IndienMethodCall("GeefGrootteOrde").DanReturn("") - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PriceUnit,"") ]]> @@ -468,17 +430,15 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() Do ..ProductToeleveringLijnStub.IndienMethodCall("GeefGrootteOrde").DanReturn("A") #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Waarde in GrootteOrde is niet voorzien (E/H/M wèl)") Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalArgumentException",Substrings)) - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) ]]> @@ -489,12 +449,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PurchId,"5005||200000") ]]> @@ -507,12 +465,10 @@ Set ..BlOrdRspStub.VolledigeLijn = """22258655.01 0663417000000026.23 017021323V 0000000.00 """ Set ..BlOrdRspStub.ToeleveringNr = "258655" - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..BlOrdRspStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PurchId,"258655") ]]> @@ -525,12 +481,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PurchPrice,"500,05") ]]> @@ -543,12 +497,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PurchQty,"3") ]]> @@ -561,12 +513,10 @@ Set ..BlOrdRspStub.VolledigeLijn = """22258655.01 0663417000000026.23 017021323V 0000000.00 """ Set ..BlOrdRspStub.ToeleveringNr = "258655" - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..BlOrdRspStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.PurchQty,"0") ]]> @@ -585,11 +535,9 @@ Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierTaxGroup",Vestiging,..LeverancierStub).DanReturn("ABC") + + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) - Do $$$AssertEquals(AankoopOrderRegel.TaxGroup,"ABC") Do ..UtilsStub.Verifieer() @@ -603,12 +551,10 @@ Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002") Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002") - - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) Do $$$AssertEquals(AankoopOrderRegel.UnderDeliveryPct,"50") ]]> @@ -629,11 +575,9 @@ Do ..LevNrConverterStub.VerwachtMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000") #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() + + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) - Do $$$AssertEquals(AankoopOrderRegel.DefaultDimension,"05000") Do ..LevNrConverterStub.Verifieer() @@ -653,11 +597,9 @@ Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() + + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) - Do $$$AssertEquals(AankoopOrderRegel.DefaultDimension,"05002") ]]> @@ -677,11 +619,9 @@ Do ..LevNrConverterStub.VerwachtMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000") #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() + + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) - Do $$$AssertEquals(AankoopOrderRegel.VendAccount,"05000") Do ..LevNrConverterStub.Verifieer() @@ -701,11 +641,9 @@ Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() + + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) - Do $$$AssertEquals(AankoopOrderRegel.VendAccount,"05002") ]]> @@ -723,11 +661,9 @@ Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierVendGroup",Vestiging,..LeverancierStub).DanReturn("EU") + + #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..GeefConverter().Convert(..ProductToeleveringLijnStub,Vestiging) - #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() - - #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) - Do $$$AssertEquals(AankoopOrderRegel.VendGroup,"EU") Do ..UtilsStub.Verifieer()