Index: APPS/StockBeheer/dto/StockHistorieken.cls.xml
===================================================================
diff -u
--- APPS/StockBeheer/dto/StockHistorieken.cls.xml	(revision 0)
+++ APPS/StockBeheer/dto/StockHistorieken.cls.xml	(revision 3225)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.StockBeheer.dto.StockHistorieken">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%ListOfObjects</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="ELEMENTTYPE">
+<Default>APPS.StockBeheer.dto.StockHistoriek</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: APPS/StockBeheer/StockBeheerService.cls.xml
===================================================================
diff -u
--- APPS/StockBeheer/StockBeheerService.cls.xml	(revision 0)
+++ APPS/StockBeheer/StockBeheerService.cls.xml	(revision 3225)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.StockBeheer.StockBeheerService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ServiceImpl">
+<Type>APPS.StockBeheer.impl.StockBeheerServiceImpl</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefStockHistorieken">
+<FormalSpec>ProductIDs:%ListOfDataTypes,TimeStamps:%ListOfDataTypes</FormalSpec>
+<ReturnType>APPS.StockBeheer.dto.StockHistorieken</ReturnType>
+<Implementation><![CDATA[	Quit ..ServiceImpl.GeefStockHistorieken(ProductIDs, TimeStamps)
+]]></Implementation>
+</Method>
+
+<Method name="GeefStockHistoriek">
+<FormalSpec>ProductID:%String,TimeStamps:%ListOfDataTypes</FormalSpec>
+<ReturnType>APPS.StockBeheer.dto.StockHistoriek</ReturnType>
+<Implementation><![CDATA[	Quit ..ServiceImpl.GeefStockHistoriek(ProductID, TimeStamps)
+]]></Implementation>
+</Method>
+
+<Method name="GeefStockHistoriekPunt">
+<FormalSpec>ProductID:%String,TimeStamp:%TimeStamp</FormalSpec>
+<ReturnType>APPS.StockBeheer.dto.StockHistoriekPunt</ReturnType>
+<Implementation><![CDATA[	Quit ..ServiceImpl.GeefStockHistoriekPunt(ProductID, TimeStamp)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ServiceImpl = ##class(APPS.StockBeheer.impl.StockBeheerServiceImpl).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/StockBeheer/dto/StockHistoriekPunt.cls.xml
===================================================================
diff -u
--- APPS/StockBeheer/dto/StockHistoriekPunt.cls.xml	(revision 0)
+++ APPS/StockBeheer/dto/StockHistoriekPunt.cls.xml	(revision 3225)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.StockBeheer.dto.StockHistoriekPunt">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/StockBeheer/impl/StockBeheerServiceImpl.cls.xml
===================================================================
diff -u
--- APPS/StockBeheer/impl/StockBeheerServiceImpl.cls.xml	(revision 0)
+++ APPS/StockBeheer/impl/StockBeheerServiceImpl.cls.xml	(revision 3225)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.StockBeheer.impl.StockBeheerServiceImpl">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefStockHistorieken">
+<FormalSpec>ProductIDs:%ListOfDataTypes,TimeStamps:%ListOfDataTypes</FormalSpec>
+<ReturnType>APPS.StockBeheer.dto.StockHistorieken</ReturnType>
+<Implementation><![CDATA[
+	Set StockHistorieken = ##class(APPS.StockBeheer.dto.StockHistorieken).%New()
+	
+	Set ProductIDIterator = ##class(TECH.ListIterator).%New(ProductIDs)
+	While (ProductIDIterator.HasNext())
+	{
+		Set StockHistoriek = ..GeefStockHistoriek(ProductIDIterator.Next(), TimeStamps)
+		Do StockHistorieken.Insert(StockHistoriek)
+	}
+	
+	Quit StockHistorieken
+]]></Implementation>
+</Method>
+
+<Method name="GeefStockHistoriek">
+<FormalSpec>ProductID:%String,TimeStamps:%ListOfDataTypes</FormalSpec>
+<ReturnType>APPS.StockBeheer.dto.StockHistoriek</ReturnType>
+<Implementation><![CDATA[
+	Set StockHistoriek = ##class(APPS.StockBeheer.dto.StockHistoriek).%New()
+	Set StockHistoriek.ProductID = ProductID
+	
+	Set TimeStampIterator = ##class(TECH.ListIterator).%New(TimeStamps)
+	While (TimeStampIterator.HasNext())
+	{
+		Set TimeStamp = TimeStampIterator.Next()
+		Do StockHistoriek.Punten.Insert(..GeefStockHistoriekPunt(ProductID, TimeStamp))
+	}
+	
+	Quit StockHistoriek
+]]></Implementation>
+</Method>
+
+<Method name="GeefStockHistoriekPunt">
+<FormalSpec>ProductID:%String,TimeStamp:%TimeStamp</FormalSpec>
+<ReturnType>APPS.StockBeheer.dto.StockHistoriekPunt</ReturnType>
+<Implementation><![CDATA[
+	Set StockHistoriekPunt = ##class(APPS.StockBeheer.dto.StockHistoriekPunt).%New()
+	Set StockHistoriekPunt.Tijdstip = TimeStamp
+	Set StockHistoriekPunt.Aantal = 0
+	Set ID = $Order(^PRHIST(ProductID,""))
+	While (ID '= "" && (TimeStamp ] ##class(TECH.DateTime).HorologToTimeStamp($Piece(^PRHIST(ProductID,ID),"\",1))))
+	{
+		Set StockHistoriekPunt.Aantal = $Piece(^PRHIST(ProductID,ID),"\",3)
+		Set ID = $Order(^PRHIST(ProductID,ID))
+	}
+	Quit StockHistoriekPunt
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/StockBeheer/StockRapportService.cls.xml
===================================================================
diff -u
--- APPS/StockBeheer/StockRapportService.cls.xml	(revision 0)
+++ APPS/StockBeheer/StockRapportService.cls.xml	(revision 3225)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.StockBeheer.StockRapportService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MailDocuStockRapport">
+<Implementation><![CDATA[
+	// Opzoeken producten
+	Set ProductZoekService = ##class(APPS.common.ProductCriteria.ProductZoekService).%New()
+	Set Criterium = ##class(APPS.common.ProductCriteria.dto.OfCriterium).%New()
+	Set ClassificatieCriterium = ##class(APPS.common.ProductCriteria.dto.ClassificatieCriterium).%New()
+	Set ClassificatieCriterium.ClassificatieID = 542
+	Do Criterium.Criteria.Insert(ClassificatieCriterium)
+	Set ClassificatieCriterium = ##class(APPS.common.ProductCriteria.dto.ClassificatieCriterium).%New()
+	Set ClassificatieCriterium.ClassificatieID = 543
+	Do Criterium.Criteria.Insert(ClassificatieCriterium)
+	Set ClassificatieCriterium = ##class(APPS.common.ProductCriteria.dto.ClassificatieCriterium).%New()
+	Set ClassificatieCriterium.ClassificatieID = 863
+	Do Criterium.Criteria.Insert(ClassificatieCriterium)
+	Set ClassificatieCriterium = ##class(APPS.common.ProductCriteria.dto.ClassificatieCriterium).%New()
+	Set ClassificatieCriterium.ClassificatieID = 629
+	Do Criterium.Criteria.Insert(ClassificatieCriterium)
+	Set Producten = ProductZoekService.ZoekProducten(Criterium)
+	
+	// Bepalen van de 6 laatste maanden, telkens op de eerste van de maand
+	Set CurrentTimeStamp = ##class(TECH.DateTime).CurrentTimeStamp()
+	Set HuidigeMaand = ##class(TECH.DateTime).Maand(CurrentTimeStamp)
+	Set HuidigJaar = ##class(TECH.DateTime).Jaar(CurrentTimeStamp)
+	
+	Set TimeStamps = ##class(%ListOfDataTypes).%New()
+	Set TimeStamp = HuidigJaar_"-"_HuidigeMaand_"-1"_" 00:00:00"
+	Set TimeStamp = ##class(TECH.DateTime).TimeStampBereken(TimeStamp,-6,##class(TECH.enu.DatePart).Maand())
+	For i=1:1:6
+	{
+		Set TimeStamp = ##class(TECH.DateTime).TimeStampBereken(TimeStamp,1,##class(TECH.enu.DatePart).Maand())
+		Do TimeStamps.Insert(TimeStamp)
+	}
+	
+	// Stockhistorieken opvragen voor de producten en de bepaalde datums
+	Set StockBeheerService = ##class(APPS.StockBeheer.StockBeheerService).%New()
+	Set StockHistorieken = StockBeheerService.GeefStockHistorieken(Producten, TimeStamps)
+	
+	// Opbouwen van de output
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Body = ";"
+	Set TimeStampIterator = ##class(TECH.ListIterator).%New(TimeStamps)
+	While (TimeStampIterator.HasNext())
+	{
+		Set Body = Body_";"_$Piece(TimeStampIterator.Next()," ")
+	}
+	Set Body = Body_$c(13,10)
+	
+	Set StockHistoriekIterator = ##class(TECH.ListIterator).%New(StockHistorieken)
+	While (StockHistoriekIterator.HasNext())
+	{
+		Set StockHistoriek = StockHistoriekIterator.Next()
+		Set Product = ProductAPI.GeefProduct(StockHistoriek.ProductID)
+		Set Body = Body_Product.GeefKorttekst()_";"_Product.GeefOmschrijving()
+		Set StockHistoriekPuntIterator = ##class(TECH.ListIterator).%New(StockHistoriek.Punten)
+		While (StockHistoriekPuntIterator.HasNext())
+		{
+			Set StockHistoriekPunt = StockHistoriekPuntIterator.Next()
+			Set Body = Body_";"_StockHistoriekPunt.Aantal
+		}
+		Set Body = Body_$c(13,10)
+	}
+	
+	// Mailen document
+	Set Stream = ##class(%FileCharacterStream).%New()
+	Set Stream.Filename = "C:\temp\DocumentatieStockNiveaus.csv"
+	Do Stream.Write(Body)
+	Do Stream.SaveStream()
+
+	Do SendMiniMail^vhLib("Stockbeheerder<reports@vanhoecke.be>",$LB("isi@vanhoecke.be"),"Stockniveaus documentatieproducten","",,,,,$LB($LB(Stream.Filename)))
+	
+	Do ##class(%File).Delete(Stream.Filename)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/StockBeheer/TestStockBeheerService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/StockBeheer/TestStockBeheerService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/StockBeheer/TestStockBeheerService.cls.xml	(revision 3225)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.StockBeheer.TestStockBeheerService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.StockBeheer.TestStockBeheerService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestStockHistoriekPunt">
+<Implementation><![CDATA[
+	Set StockBeheerService = ##class(APPS.StockBeheer.StockBeheerService).%New()
+	Set StockHistoriekPunt = StockBeheerService.GeefStockHistoriekPunt(999,"2011-1-18 12:00:00")
+	Do $$$AssertEquals(StockHistoriekPunt.Aantal,0)
+	Set StockHistoriekPunt = StockBeheerService.GeefStockHistoriekPunt(999,"2011-11-18 12:00:00")
+	Do $$$AssertEquals(StockHistoriekPunt.Aantal,993)
+	Set StockHistoriekPunt = StockBeheerService.GeefStockHistoriekPunt(999,"2011-11-19 12:00:00")
+	Do $$$AssertEquals(StockHistoriekPunt.Aantal,1000)
+	Set StockHistoriekPunt = StockBeheerService.GeefStockHistoriekPunt(999,"2011-11-25 12:00:00")
+	Do $$$AssertEquals(StockHistoriekPunt.Aantal,991)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^PRHIST(999,1)="62410,25000\12\993\M\M\\\\62403\\unittesten\-90.00\\1111\\\"
+	Set ^PRHIST(999,2)="62414,43100\7\1000\M\M\\\\62403\\unittesten\-90.00\\1111\\\"
+	Set ^PRHIST(999,3)="62414,48146\-9\991\M\M\\\\62403\\unittesten\-90.00\\1111\\\"
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^PRHIST(999)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/StockBeheer/dto/StockHistoriek.cls.xml
===================================================================
diff -u
--- APPS/StockBeheer/dto/StockHistoriek.cls.xml	(revision 0)
+++ APPS/StockBeheer/dto/StockHistoriek.cls.xml	(revision 3225)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.StockBeheer.dto.StockHistoriek">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Punten">
+<Type>APPS.StockBeheer.dto.StockHistoriekPunt</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>