Index: vhTest/Fake/AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml (revision 0)
+++ vhTest/Fake/AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml (revision 48985)
@@ -0,0 +1,98 @@
+
+
+
+
+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
+AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository
+
+
+ID:%String
+%Boolean
+
+
+
+
+ProductNr:%String,AxConfigId:%String
+%Boolean
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+Data:TECH.Persistent,Deep:%Boolean=0
+TECH.Persistent
+
+
+
+
+ProductNr:%String
+%String
+
+
+
+
+ProductNr:%String
+TECH.Iterator
+
+
+
+
+ProductNr:%String
+%String
+
+
+
+
+ProductNr:%String,AxConfigId:%String
+%String
+
+
+
+
+ID:%String
+TECH.Persistent
+
+
+
+
+TECH.Persistent
+
+
+
+
+ID:%String
+
+
+
+
+ProductNr:%String,AxConfigId:%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+
+
Index: AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml
===================================================================
diff -u -r48963 -r48985
--- AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml (.../PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml) (revision 48963)
+++ AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml (.../PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml) (revision 48985)
@@ -1,7 +1,7 @@
-TECH.Persistentie.impl.Repository
+TECH.Persistentie.impl.Repository,TECH.Mockable
%String
@@ -35,17 +35,15 @@
ProductNr:%String,AxConfigId:%String
-TECH.Iterator
+%String
@@ -57,11 +55,9 @@
#dim SqlStatement As TECH.String = "SELECT SUM(QtyVH) AS QtyVH FROM " _SqlTableName _" WHERE ProductNr = '"_ProductNr_"' GROUP BY ProductNr"
#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
- #dim Opener As TECH.Persistentie.Repository.ResultSetItemOpener = ##class(TECH.Persistentie.Repository.ResultSetItemOpener).%New($this)
#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
- #dim Result As TECH.Iterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator, Opener)
-
- Quit Result
+
+ Quit ResultSetIterator.Next().QtyVH
]]>
@@ -73,27 +69,23 @@
#dim SqlStatement As TECH.String = "SELECT COUNT(AxConfigId) AS AxConfigId FROM " _SqlTableName _" WHERE ProductNr = '"_ProductNr_"'"
#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
- #dim Opener As TECH.Persistentie.Repository.ResultSetItemOpener = ##class(TECH.Persistentie.Repository.ResultSetItemOpener).%New($this)
#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
- #dim Result As TECH.Iterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator, Opener)
-
- Quit Result
+
+ Quit ResultSetIterator.Next().AxConfigId
]]>
ProductNr:%String
-%String
+TECH.Iterator
Index: AXimpl/Dynamics/InventoryOut/SyncAll.cls.xml
===================================================================
diff -u -r44516 -r48985
--- AXimpl/Dynamics/InventoryOut/SyncAll.cls.xml (.../SyncAll.cls.xml) (revision 44516)
+++ AXimpl/Dynamics/InventoryOut/SyncAll.cls.xml (.../SyncAll.cls.xml) (revision 48985)
@@ -18,15 +18,33 @@
1
+
+AXimpl.Dynamics.InventoryOut.MaatwerkIterator
+1
+
+
+
+AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository
+1
+
+
+
+DOM.PM.ProductAPI
+1
+
+
-Generator:AXimpl.Generator,ProductIterator:AXimpl.Admin.DOM.PM.ProductIterator,BundelGrootte:%Integer=90
+Generator:AXimpl.Generator,ProductIterator:AXimpl.Admin.DOM.PM.ProductIterator,BundelGrootte:%Integer=90,MaatwerkIterator:AXimpl.Dynamics.InventoryOut.MaatwerkIterator
1
1
%Status
1
+
+
+0,..ProductApi.GeefProduct(GenerischProductID).GeefIdentNr(),"")
+ Set SyncObject.AxConfigId = AxConfigId
+ Set SyncObject.QtyVH = $$$If(ObjectCount>0,##class(TECH.Math).Floor(QtyVHPerProductNr/AantalAxConfigIdsPerProductNr),QtyVHPerProductNr-(##class(TECH.Math).Floor(QtyVHPerProductNr/AantalAxConfigIdsPerProductNr)*(AantalAxConfigIdsPerProductNr-1)))
+ Do Message.Insert(SyncObject)
+ }
+
+ If ((BundelTeller = ..BundelGrootte) || ($$$Not(..MaatwerkIterator.HasNext()))) {
+ Do ..Generator.Generate(##class(AXimpl.Request).%New(Command,$ListToString(SubjectLijst),Message))
+ Set SubjectLijst = ""
+ Set BundelTeller = 0
+ }
+ }
+
+ Quit
+]]>
+
Index: vhTest/Mock/AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml (revision 0)
+++ vhTest/Mock/AXimpl/Dynamics/InventoryOut/PRNrAxConfigIdVoorraadHistoriekRepository.cls.xml (revision 48985)
@@ -0,0 +1,99 @@
+
+
+
+
+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
+AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository,Tools.Mock.MockClassBase
+right
+
+
+ID:%String
+%Boolean
+
+
+
+
+ProductNr:%String,AxConfigId:%String
+%Boolean
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+Data:TECH.Persistent,Deep:%Boolean=0
+TECH.Persistent
+
+
+
+
+ProductNr:%String
+%String
+
+
+
+
+ProductNr:%String
+TECH.Iterator
+
+
+
+
+ProductNr:%String
+%String
+
+
+
+
+ProductNr:%String,AxConfigId:%String
+%String
+
+
+
+
+ID:%String
+TECH.Persistent
+
+
+
+
+TECH.Persistent
+
+
+
+
+ID:%String
+
+
+
+
+ProductNr:%String,AxConfigId:%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+
+