Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml =================================================================== diff -u -r42217 -r42236 --- vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 42217) +++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 42236) @@ -307,7 +307,7 @@ #dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging) - Do $$$AssertEquals(AankoopOrderRegel.LinePercent,"1,5") + Do $$$AssertEquals(AankoopOrderRegel.LinePercent,"150") ]]> @@ -555,7 +555,7 @@ Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub) Set ..AankoopApi = AankoopApiStub - #dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierTaxGroup",Vestiging,..LeverancierStub).DanReturn("ABC") @@ -611,7 +611,7 @@ Do ..LevNrConverterStub.VerwachtMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000") - #dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv() + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() @@ -632,7 +632,7 @@ Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") - #dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() #dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter() @@ -648,7 +648,7 @@ Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub) Set ..AankoopApi = AankoopApiStub - #dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() + #dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX") Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierVendGroup",Vestiging,..LeverancierStub).DanReturn("EU") Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml =================================================================== diff -u -r42217 -r42236 --- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml (.../AankoopOrderRegelDixfConverter.cls.xml) (revision 42217) +++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml (.../AankoopOrderRegelDixfConverter.cls.xml) (revision 42236) @@ -242,7 +242,8 @@ If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn") { - Set LinePercent = ToeleveringLijn.GeefKorting() + #dim Korting As %Decimal = ToeleveringLijn.GeefKorting() * 100 + Set LinePercent = Korting Set $Extract(LinePercent,$Find(LinePercent,".")-1) = "," } ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp") {