Index: AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml
===================================================================
diff -u -r49434 -r69259
--- AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml	(.../VergelijkOrder.cls.xml)	(revision 49434)
+++ AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml	(.../VergelijkOrder.cls.xml)	(revision 69259)
@@ -35,7 +35,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
-	Set SqlStatement="select Orderid from AXimpl_Controle_OrdDiff.ProductOrderLijn group by orderid having max(Diff_Product)=1 or max(Diff_Aantal)=1 or sum(Diff_GekendInAdmin)<>sum(Diff_GekendInAX)"
+	Set SqlStatement="select Orderid from AXimpl_Controle_OrdDiff.ProductOrderLijn group by orderid having max(Diff_Product)=1 or max(Diff_Aantal)=1 or max(Admin_HeeftGeenToelevering)=1 or sum(Diff_GekendInAdmin)<>sum(Diff_GekendInAX)"
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 	Set ..OrderLijnIterator=##class(TECH.ResultSetIterator).%New(..ResultSet)
 	Quit $$$OK
@@ -44,12 +44,15 @@
 
 <Method name="MarkeerOrdersMetVerschillen">
 <Implementation><![CDATA[
+	Set Cnt=0
 	While ..OrderLijnIterator.HasNext()
 	{
 		Set rs=..OrderLijnIterator.Next()
 		Set OrderId=rs.Data("OrderId")
 		Do ..UpdateOrder(OrderId)
+		Set Cnt=Cnt+1
 	}
+	Write "Aantal verschillende orders ",Cnt,!
 ]]></Implementation>
 </Method>