Index: vhPowerTools/APPS/VKP/TapiLoggingOpkuiser.cls.xml =================================================================== diff -u -r52215 -r52865 --- vhPowerTools/APPS/VKP/TapiLoggingOpkuiser.cls.xml (.../TapiLoggingOpkuiser.cls.xml) (revision 52215) +++ vhPowerTools/APPS/VKP/TapiLoggingOpkuiser.cls.xml (.../TapiLoggingOpkuiser.cls.xml) (revision 52865) @@ -19,7 +19,10 @@ Set LogVolgnummer = $order(^TAPILOG(Dag, LogVolgnummer)) quit:(""=LogVolgnummer) #dim LogItem As %List = ^TAPILOG(Dag,LogVolgnummer) - Write:($ListGet(LogItem, 3)[TelefoonNummer) $ListGet(LogItem, 3), ! + If ($ListGet(LogItem, 3)[TelefoonNummer) { + Write "Wordt verwijderd: " _ $ListGet(LogItem, 3), ! + Kill ^TAPILOG(Dag,LogVolgnummer) + } } } ]]>