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