if you have not a own Errorsys HMG will use c:\hmg.3.4.4\SOURCE\ErrorSys.prg
Code: Select all
// add either filename or operation
DO CASE
CASE !Empty( oError:filename )
cMessage += ": " + oError:filename
CASE !Empty( oError:operation )
cMessage += ": " + oError:operation
ENDCASE
so i have change it to
Code: Select all
IF !Empty( oError:filename )
cMessage += ": " + oError:filename
ENDIF
IF !Empty( oError:operation )
cMessage += ": " + oError:operation
ENDIF
but what i´m looking for are oError:Args
Xbase++
Code: Select all
IF VALTYPE( oError::Args ) == "A"
AEVAL( oError:Args, ;
{ | x, y | QOUT( SPACE( 9 ), "-> VALTYPE:", y := VALTYPE( x ) ), ;
IIF( y == "O", QQOUT( " CLASS:", x:className() ), ;
QQOUT( " VALUE:", Var2Char( x ) ) ) } )
ENDIF
Code: Select all
if ValType( e:Args ) == "A"
cErrorLog += " Parameter :" + CRLF
for n = 1 to Len( e:Args )
cErrorLog += " [" + Str( n, 4 ) + "] = " + ValType( e:Args[ n ] ) + ;
" " + cValToChar( e:Args[ n ] ) + CRLF
next
endif