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
+
+
+
+
+
+