Code: Select all
/*
hi to all
my request is to go through the test code of 47 lines
attached below & guide me how to eliminate the error
listed below instead of taking pain of going through
2500 lines of code
*/
#include <hmg.ch>
REQUEST HB_GT_WIN_DEFAULT
function main
set date american
define window m0 at 0,0 height 400 width 400 main on init (my())
end window
activate window m0
retu nil
function my
if my_hi()
test()
endif
retu nil
function test
define window m1 at 50,50 height 300 width 300
end window
activate window m1
retu nil
function my_hi
local rl
rl=.f.
if !file("c:\windows\system32\mymem.mem")
rl=.f.
else
restore from "c:\windows\system32\mymem.mem"
mdt1=ctod(enc_str(substr(z4,1,10)))
mdt2=ctod(enc_str(substr(z4,14,10)))
if date()>mdt2
rl=.f.
else
rl=.t.
endif
endif
retu rl
function enc_chr(s)
local rs
rs=chr(255-asc(s))
retu rs
function enc_str(s)
local rs,l
l=len(s)
rs=""
for i=1 to l
ks=substr(s,i,1)
rs=rs+enc_chr(ks)
next
retu rs
/*
Application Internal Error - E:\sai\err_test.exe
Terminated at: 2015-12-16 17:03:52
Unrecoverable error 9003: Too many recursive error handler calls
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from DEFERROR(73) in source\ErrorSys.prg
Called from (b)ERRORSYS(55) in source\ErrorSys.prg
Called from _DEFINEWINDOW(4072) in source\h_windows.prg
Called from TEST(15) in err_test.prg
Called from MY(11) in err_test.prg
Called from (b)MAIN(5) in err_test.prg
Called from _PROCESSINITPROCEDURE(5855) in source\h_windows.prg
Called from _ACTIVATEWINDOW(5606) in source\h_windows.prg
Called from MAIN(7) in err_test.prg
*/