У меня всё получилось:

Приложение:
$PBExportHeader$tst.sra
forward
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global type tst from application
end type
global tst tst

on tst.create
appname = "tst"
message = create message
sqlca = create transaction
sqlda = create dynamicdescriptionarea
sqlsa = create dynamicstagingarea
error = create error
end on

on tst.destroy
destroy( sqlca )
destroy( sqlda )
destroy( sqlsa )
destroy( error )
destroy( message )
end on

event open;nuo_tim my_uo
my_uo = Create nuo_tim
my_uo.Start(1)
DO WHILE true
Yield()
If my_uo.ii_count > 10 Then
Halt Close
End If
LOOP


end event




И сам объект: $PBExportHeader$nuo_tim.sru
forward
global type nuo_tim from timing
end type
end forward

global type nuo_tim from timing
end type
global nuo_tim nuo_tim

type variables
int ii_count

end variables
event timer;integer li_FileNum

li_FileNum = FileOpen("C:\EMPLOYEE.TXT", LineMode!, Write!, LockWrite!, Append!)
If li_FileNum <= 0 Then Return
FileWrite(li_FileNum, String(Today(), "dd.mm.yyyy hh:mm:ss:fff") + "~r~n")
FileClose(li_FileNum)
ii_count++
Return
end event
on nuo_tim.create
call timing::create
TriggerEvent( this, "constructor" )
end on

on nuo_tim.destroy
call timing::destroy
TriggerEvent( this, "destructor" )
end on

event constructor;ii_count = 0
end event