LOCAL cSafety ,cOnError ,ThisView
cSafety = SET("Safety") 
cOnError = ON('error') 
CLEAR 
ON ERROR DO myError with LINENO(),MESSAGE(),MESSAGE(1) 
SET SAFETY OFF 

CLOSE DATABASES ALL 
OPEN DATABASE data.001\rifis_pek EXCLUSIVE 
cPath = ADDBS(JUSTPATH(DBC())) 

USE pkv_nrmSeznam EXCLUSIVE 
ALTER TABLE pkv_nrmSeznam ;
	ADD COLUMN nutDodat Memo 
ALTER TABLE pkv_nrmSeznam ;
	ADD COLUMN nutDodHtml Logical DEFAULT .f. 



*----------------------------------
ON ERROR &cOnError 
SET SAFETY &cSafety
*
PROCEDURE myError
LPARAMETERS tnLine,tcMessage,tcSource
? tnLine,tcMessage 
IF !EMPTY(tcSource) 
	? tcSource 
ENDIF 
RETURN