Index: DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml
===================================================================
diff -u -r29059 -r36043
--- DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml (.../VerwachteUitvoerImpl.cls.xml) (revision 29059)
+++ DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml (.../VerwachteUitvoerImpl.cls.xml) (revision 36043)
@@ -185,7 +185,8 @@
While (VerwachteInvoerIterator.HasNext())
{
#dim VerwachteInvoer As DOM.ProdRes.VerwachteInvoer = VerwachteInvoerIterator.Next()
- If (VerwachteInvoer.GeefStatus() = ##class(DOM.ProdRes.enu.VerwachteInvoerStatus).Ingeboekt()) Do TeVerwijderenVerwachteInvoeren.Insert(VerwachteInvoer)
+ // De VerwachteInvoerIterator kan soms lege listitems bevatten. Probleem eigenlijk bij de iterator oplossen. Voorlopig via If $IsObject(...)
+ If ($IsObject(VerwachteInvoer)) && (VerwachteInvoer.GeefStatus() = ##class(DOM.ProdRes.enu.VerwachteInvoerStatus).Ingeboekt()) Do TeVerwijderenVerwachteInvoeren.Insert(VerwachteInvoer)
}
#dim TeVerwijderenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(TeVerwijderenVerwachteInvoeren)
@@ -202,7 +203,6 @@
%Library.CacheStorage
VerwachteUitvoerImplDefaultData
-listnode
"VerwachteUitvoerImpl"
Reservatie