Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml =================================================================== diff -u -r43097 -r43102 --- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 43097) +++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 43102) @@ -8,6 +8,11 @@ 1000 + +DOM.AKP.BestelImpuls.impl.BestelImpulsRepository +1 + + BL.Prod.Kenmerk.DataDefinitieService 1 @@ -37,6 +42,8 @@ set ..DataDefinitieService = ##class(vhTest.Fake.BL.Prod.Kenmerk.DataDefinitieService).%New() set ..VoorraadBewegingService = ##class(vhTest.Fake.BL.Prod.VoorraadBewegingService).%New() set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..BestelImpulsRepositoryMock = ##class(vhTest.Mock.DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New() + Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$True) ]]> @@ -1185,11 +1192,30 @@ ]]> + + + + 1 AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter - Index: vhTest/Fake/DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml =================================================================== diff -u --- vhTest/Fake/DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml (revision 0) +++ vhTest/Fake/DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml (revision 43102) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +DOM.AKP.BestelImpuls.impl.BestelImpulsRepository + + +ProductId:%String +%Boolean + + + + + + Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r43097 -r43102 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 43097) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 43102) @@ -48,6 +48,11 @@ 1 + +DOM.AKP.BestelImpuls.impl.BestelImpulsRepository +1 + + BL.Prod.Kenmerk.DataDefinitieService 1 @@ -74,7 +79,7 @@ -DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadBewegingService:BL.Prod.VoorraadBewegingService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,Utils:AXimpl.Utils +DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadBewegingService:BL.Prod.VoorraadBewegingService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,Utils:AXimpl.Utils,BestelImpulsRepository:DOM.AKP.BestelImpuls.impl.BestelImpulsRepository 1 1 %Status @@ -84,6 +89,7 @@ Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New()) Set ..VoorraadBewegingService = $$$Inject(VoorraadBewegingService,##class(BL.Prod.VoorraadBewegingService).%New()) Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()) + Set ..BestelImpulsRepository = $$$Inject(BestelImpulsRepository,##class(DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New()) Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI() Quit $$$OK ]]> @@ -830,7 +836,7 @@ #dim StockNietStock As %String = Product.Basis.StockNietStock #dim Leverancier As %String = Product.Basis.LeverancierNummer - If ($D(^KPBI("IP",PRNr))){ + If (..BestelImpulsRepository.BestaatViaProduct(PRNr)){ Set ItemBuyerGroupId = "Contract" } ElseIf (ScanType = "L") { Set ItemBuyerGroupId = "Logsteuer" Index: DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml =================================================================== diff -u --- DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml (revision 0) +++ DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml (revision 43102) @@ -0,0 +1,15 @@ + + + +TECH.RegisteredObject,TECH.Mockable + + +ProductId:%String +%Boolean + + + + + + Index: vhTest/Mock/DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml =================================================================== diff -u --- vhTest/Mock/DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml (revision 0) +++ vhTest/Mock/DOM/AKP/BestelImpuls/impl/BestelImpulsRepository.cls.xml (revision 43102) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +DOM.AKP.BestelImpuls.impl.BestelImpulsRepository,Tools.Mock.MockClassBase +right + + +ProductId:%String +%Boolean + + + + + +