Index: AXimpl/Admin/STAT/Invoice/LineIterator.cls.xml
===================================================================
diff -u -r49548 -r49549
--- AXimpl/Admin/STAT/Invoice/LineIterator.cls.xml	(.../LineIterator.cls.xml)	(revision 49548)
+++ AXimpl/Admin/STAT/Invoice/LineIterator.cls.xml	(.../LineIterator.cls.xml)	(revision 49549)
@@ -18,6 +18,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FirstDate">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LastDate">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="InvoiceDate">
 <Type>%String</Type>
 <Private>1</Private>
@@ -31,7 +41,9 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
-	Set ..InvoiceDate = InvoiceDate
+	#dim TimeUtils as TECH.DateTime.impl.DateTimeAPI=##class(TECH.DateTime.impl.DateTimeAPI).%New()
+	Set ..FirstDate = TimeUtils.HorologToTimeStamp(TimeUtils.EersteDagVanMaand(TimeUtils.TimeStampToHorolog(InvoiceDate)))
+	Set ..LastDate = TimeUtils.HorologToTimeStamp(TimeUtils.LaatsteDagVanMaand(TimeUtils.TimeStampToHorolog(InvoiceDate)))
 	Do ..VoerUitQuery()
 	Set ..ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
 	
@@ -45,13 +57,13 @@
 	#dim SqlStatement As %String = ""
 	Set SqlStatement = 
 		"SELECT CustInvoiceJour.InvoiceAccount,CustInvoiceJour.OrderAccount,CustInvoiceJour.InvoiceId,CustInvoiceTrans.ItemId,com.AdminProductNummer,"
-		_" CustInvoiceTrans.InventQty,CustInvoiceTrans.LineAmount,CustInvoiceTrans.TaxAmount, CustInvoiceJour.InvoiceDate, CustInvoiceJour.RecId, CustInvoiceJour.CurrencyCode"
+		_" CustInvoiceTrans.InventQty,CustInvoiceTrans.LineAmount,CustInvoiceTrans.TaxAmount, CustInvoiceJour.InvoiceDate, CustInvoiceJour.RecId, CustInvoiceTrans.CurrencyCode, CustInvoiceTrans.PriceUnit"
 		_" FROM CustInvoiceTrans"
 		_" JOIN InventDim ON InventDim.InventDimId = CustInvoiceTrans.InventDimId AND InventDim.DataAreaId = CustInvoiceTrans.DataAreaId"
 		_" JOIN CustInvoiceJour ON CustInvoiceJour.InvoiceId = CustInvoiceTrans.InvoiceId AND CustInvoiceJour.InvoiceDate = CustInvoiceTrans.InvoiceDate"
 		_" AND CustInvoiceJour.DataAreaId = CustInvoiceTrans.DataAreaId"
 		_" LEFT OUTER JOIN AduEcoresAttributeCombinatiON COM ON com.ItemId = CustInvoiceTrans.ItemId AND com.ConfigId = InventDim.ConfigId  AND InventDim.ConfigId <> ''"
-		_" WHERE CustInvoiceTrans.InvoiceDate >= '"_..InvoiceDate_"' AND CustInvoiceTrans.ItemId <> ''"
+		_" WHERE CustInvoiceTrans.InvoiceDate >= '"_..FirstDate_"' AND CustInvoiceTrans.InvoiceDate <= '"_..LastDate_"' AND CustInvoiceTrans.ItemId <> ''"
 		_" ORDER BY CustInvoiceJour.InvoiceAccount, CustInvoiceTrans.ItemId"
 	
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
@@ -80,6 +92,7 @@
 	Set InvoiceLine.InvoiceDate = ResultSet.GetDataByName("InvoiceDate")
 	Set InvoiceLine.RecId = ResultSet.GetDataByName("RecId")
 	Set InvoiceLine.Currency = ResultSet.GetDataByName("CurrencyCode")
+	Set InvoiceLine.PriceUnit = ResultSet.GetDataByName("PriceUnit")
 	Quit InvoiceLine
 ]]></Implementation>
 </Method>