>I already commented the line but the error continues

Make sure to run

ON ERROR

and re-test again.

Also, which line of code generates the error?

>>You can not do on error this.CatchError
>>
>>You better put call to CatchError into Error method of this class instead.
>>
>>>Hello All:
>>>I have this VFP OLE class
>>>

>>>Define Class bIRexGenerador As Session OlePublic
>>>
>>>DataSession = 2 && Private Session
>>>
>>>PROCEDURE Generar
>>>
>>>PARAMETERS formatfile, outputfile,lclosefile,lsaveConfig,lAllowUserInteraction
>>>	SET DELETED ON
>>>	*!*	CLEAR ALL
>>>	*!*	RELEASE ALL
>>>	SET safety off
>>>	*SET EXCLUSIVE ON
>>>	SET EXCLUSIVE OFF
>>>	CLOSE ALL
>>>
>>>	lcOldError = ON("ERROR")
>>>	runId=SYS(2015)
>>>	logId=0
>>>	ON ERROR this.catchError()
>>>	#include EXCEL.H
>>>	[code]
>>>	
>>>ENDPROC
>>>		
>>>FUNCTION logs
>>>	LPARAMETERS x
>>>		IF ! ISNULL(oErr) AND TYPE("oErr") = "O" 
>>>		  IF !hayError
>>>		      ErrorEncontrado = "Error"+STR(oErr.ErrorNo)+[  LineNo: ] + STR(oErr.LineNo) +[  Message: ] + oErr.Message +[  Procedure: ] + oErr.Procedure +[  Details: ] + oErr.Details +[  StackLevel: ] + STR(oErr.StackLevel) +[  LineContents: ] + oErr.LineContents +[  UserValue: ] + oErr.UserValue 
>>>		  ENDIF
>>>	    ELSE
>>>		  IF !hayError    
>>>	    	  ErrorEncontrado =""
>>>	      ENDIF
>>>	      
>>>	    ENDIF
>>>	     
>>>		**INSERT INTO log VALUES (x, DATETIME(), linea,user, formatfile, outputfile, ErrorEncontrado)
>>>		INSERT INTO log VALUES (x, DATETIME(), fcRow,"Demo", formatfile, outputfile, ErrorEncontrado,RunId,LogId)
>>>		logId=LogId+1
>>>		hayError=.F.
>>>		**? x 
>>>	RETURN .t.
>>>
>>>ENDfunc 
>>>
>>>
>>>FUNCTION GetSheet
>>>	LPARAMETERS wbName,oXcel
>>>	Encontrado=.f.
>>>	FOR i=1 TO oXCEL.worksheets.Count
>>>		IF UPPER(oXcel.worksheets(i).Name) = UPPER(wbName)
>>>			Encontrado=.T.
>>>			RETURN oXcel.worksheets(i)
>>>		ENDIF
>>>	ENDFOR
>>>	oXcel.worksheets.ADD
>>>	xlSheet = oXcel.activesheet
>>>	xlSheet.NAME = wbName
>>>
>>>	RETURN xlSheet 
>>>ENDfunc
>>>
>>>FUNCTION valor
>>>	LPARAMETERS x
>>>	retval=""
>>>	IF !ISNULL(x)
>>>		DO case
>>>			CASE TYPE("x")="C"
>>>				retval=x
>>>			CASE TYPE("x")="N"
>>>				retval=STR(x)
>>>		ENDCASE
>>>	ENDIF
>>>	RETURN retval
>>>ENDfunc
>>>
>>>PROCEDURE CatchError
>>>	hayError=.t.
>>>	ErrorEncontrado =  'error #' + transform( error() ) + ': "' + message() + '"' + 'program:  ' + Program( Program(-1)-1) + 'line #' + transform( lineno() ) + ":  " + message(1)
>>>	=this.logs(errorencontrado)
>>>	RETURN
>>>ENDPROC
>>>
>>>ENDDEFINE
>>>
>>>

>>>
>>>It compiles and instantiates without error
>>>When I use it the generar proc get this error:
>>>"This can only be used in a method"
>>>
>>>Any help?
>>>
>>>Thanks in advance