Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r1399 -r1464
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1399)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1464)
@@ -357,7 +357,9 @@
 	set Result = 0
 	set idxFabKey=""
 	for  { set idxFabKey=$order(^HADPR("F",idxFabKey)) quit:idxFabKey=""
-		continue:'$data(^HADPR("F",idxFabKey,"F"))  ; verder doen indien niet klaargezet
+		continue:'$data(^HADPR("F",idxFabKey,"K")) ; verder doen indien niet klaargezet
+		continue:$piece(^HADPR("F",idxFabKey,"K"),"\",3)'="A" ; indien geen A ooit wel eens klaargezet maar nu niet meer klaargezet
+
 		set LevbonNr = $piece(idxFabKey,";",1)
 		set LevbonUniekLijnNr = $piece(idxFabKey,";",2)
 		continue:'$data(^TO("IU",LevbonNr,LevbonUniekLijnNr)) ; skippen indien levbon niet meer bestaat