on error DO ERR with error(),program(),program(),message(),message( 1 ),lineno()

do tttt
return 


procedure tttt

a= 1 
b= 2 

kk=c

return 


PROCEDURE ERR
lPARAMETERS er,prn,pr,mesag,mesag1,lin
lin=ALLTRIM(STR(lin, 15 ))
sod = "ОШИБКА!!! в программе " + prn + ", "+PR+", "+", "+mesag+", "+", "+lin
D=MESSAGEBOX(sod, 48 )

check_stack()



IF D= 1 
	RETURN TO pr
ENDIF 

ENDPROC 


procedure check_stack
local laStack[ 1 ], lcStack
astackinfo(laStack)
lcStack = ""
for lnRow = alen(laStack,  1 )- 2   to  1  Step - 1 
	lcStack = lcStack + "Исп.метод:   (" + transform(laStack[lnRow, 2 ]) + ")      " +  transform(laStack[lnRow, 3 ]) + chr( 13 )+ chr( 10 ) + ;
						"Строка:      " + transform(laStack[lnRow, 5 ]) + chr( 13 ) + chr( 10 ) + ;			
						"Команда:     " + alltrim(transform(laStack[lnRow, 6 ])) + chr( 13 )+ chr( 10 ) + ;
						chr( 13 )+ chr( 10 )
endfor
messagebox(lcStack)
return