Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r49547 -r49548
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49547)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49548)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductApi">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
@@ -26,7 +31,7 @@
 </UDLText>
 
 <Method name="%OnNew">
-<FormalSpec>InvoiceLineIterator:AXimpl.Admin.STAT.Invoice.LineIterator,ProductApi:DOM.PM.ProductAPI,DateTimeApi:TECH.DateTime.DateTimeAPI</FormalSpec>
+<FormalSpec>InvoiceLineIterator:AXimpl.Admin.STAT.Invoice.LineIterator,Logger:vhLib.Logger,ProductApi:DOM.PM.ProductAPI,DateTimeApi:TECH.DateTime.DateTimeAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -37,6 +42,7 @@
 	Set ..InvoiceLineIterator = $$$Inject(InvoiceLineIterator, ##class(AXimpl.Admin.STAT.Invoice.LineIterator).%New(,InvoiceDate))
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	Set ..DateTimeApi = $$$Inject(DateTimeApi, ##class(TECH.Context).Instance().GeefDateTimeAPI())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,6 +60,9 @@
 		#dim Line As AXimpl.Admin.STAT.Invoice.Line = ..InvoiceLineIterator.Next()
 		#dim KlantNr As %Integer = +Line.InvoiceAccount
 		#dim ProductId As %Integer = ..GetAdminProductId(Line)
+		If $$$Not(Line.Currency = "EUR") {
+			Do ..LogCurrencyError(Line, KlantNr, ProductId)
+		}
 		#dim ProductBestaatNiet As %Boolean = (ProductId = 0)
 		#dim Maand As %String = $Piece(..GeefDag1LopendeMaand(),"-",1)_"."_$Piece(..GeefDag1LopendeMaand(),"-",2)_" "
 		If $$$Not(..IsNietMeeTeNemenKlant(KlantNr)) {
@@ -352,6 +361,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LogCurrencyError">
+<FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%Integer,ProductId:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Omschrijving As %String = "Voor InvoiceId '"_Line.InvoiceId_"' voor KlantId '"_KlantNr_"' voor ProductId '"_ProductId_"' is een Currency anders dan 'EUR' gevonden, nml: '"_Line.Currency_"'."
+	Do ..Logger.Error("StatInvoiceProcessor",Omschrijving)
+]]></Implementation>
+</Method>
+
 <Method name="IsNietMeeTeNemenKlant">
 <FormalSpec>KlantNr:%String</FormalSpec>
 <Private>1</Private>