FiveTech Software tech support forums

... <?prg return cContent ?> error: Variable does not exist CCONTENT called from: GETERRORINFO, line: 103 called from: DOBREAK, line: 114 function Controller( cRequest ) cContent = If( Empty( cRequest ), "home",; If( cRequest $ "wishlist,login,cart,checkout", ...

... "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" ) if ! Empty( oHrb ) BEGIN SEQUENCE bOldError = ErrorBlock( { | o | DoBreak( o ) } ) hb_HrbRun( oHrb ) END SEQUENCE ErrorBlock( bOldError ) endif */ return nil //----------------------------------------------------------------------------// ...

... parameter than when specified as .T. it generates RTE (run time errors) that we can easily catch: ErrorBlock( { | o | MsgInfo( o:Description ), DoBreak() } ) oHrb = HB_CompileFromBuf( cCode, .T. , "-n" ) // The .T. does the magic :-) better later than never ;-)

... "-n", "-I" + cFWheaders, "-I" + cHBheaders ) if ! Empty( oHrb ) BEGIN SEQUENCE bOldError = ErrorBlock( { | o | DoBreak( o ) } ) uRet = hb_HrbDo( hb_HrbLoad( oHrb ), ... ) END SEQUENCE ErrorBlock( bOldError ) endif return uRet Gracias por los aportes

Ha quedado OK, añadiendo la funcion DoBreak() que he encontrado en el foro

Code: Select all  Expand view  RUN

static function DoBreak()
BREAK
return nil
 

Gracias

... http://www.harbour-project.org/ errsysw.prg(377) Warning W0028 Unreachable code 0 error here the piece of code 363 static function DoBreak() 364 365 BREAK 366 377 return nil I compile with these parameters SET HARBOURCMD=/a /es2 /gc0 /m /n /q /w2 /wb- I modified errorsysw.prg with ...

... PUBLIC cErrorFile := "myerror.log" modify errsysw.prg // Generates a file with an Error Log BEGIN SEQUENCE oOldError = ErrorBlock( { || DoBreak() } ) // MemoWrit( "error.log", cErrorLog ) MemoWrit( M->cErrorFile, cErrorLog ) END SEQUENCE ErrorBlock( oOldError ) In a multi ...

... bStaticOnError:=bAction return nil y en la función static function ErrorDialog( e ) : : BEGIN SEQUENCE oOldError = ErrorBlock( { || DoBreak() } ) MemoWrit( "Error.log", cErrorLog ) //Si la carpeta es read-only no habrá error.log // Agregado IF ValType(bStaticOnError)="B" ...

... " + ; LTrim( Str( nSymNames() * 16 ) ) + " bytes" */ // Generates a file with an Error Log BEGIN SEQUENCE oOldError = ErrorBlock( { || DoBreak() } ) MemoWrit( "Error.Log", cErrorLog ) END SEQUENCE ErrorBlock( oOldError ) /* PANTALLA DE CONTROL DEL ERROR */ DEFINE FONT oFont NAME "Ms ...

... 0005:FB5E 0018DH _MESFECHA_ CODE 0005:FCEC 0003FH ERRORSYS CODE 0005:FD2C 00023H ERRORLINK CODE 0006:0000 01366H ERRORDIALO CODE 0006:1366 0002AH DOBREAK CODE 0006:1390 00162H ERRORMESSA CODE 0006:14F2 000C8H CGETINFO CODE 0006:15BA 001C0H VERANCHO CODE 0006:177A 00097H OSCOPE CODE 0006:1812 00247H ...

... 0005:F8FA 0018DH _MESFECHA_ CODE 0005:FA88 0003FH ERRORSYS CODE 0005:FAC8 00023H ERRORLINK CODE 0006:0000 01366H ERRORDIALO CODE 0006:1366 0002AH DOBREAK CODE 0006:1390 00162H ERRORMESSA CODE 0006:14F2 000C8H CGETINFO CODE 0006:15BA 001C0H VERANCHO CODE 0006:177A 00097H OSCOPE CODE 0006:1812 00463H ...

... CODE 0007:09EA 0003CH CREATE CODE 0007:0A26 00322H CREATE CODE 0007:0D48 00322H CREATE CODE 0007:106A 00312H CREATE CODE 0007:137C 0001EH DOBREAK CODE 0007:139A 0009EH ADD CODE 0007:1438 000D5H ADD CODE 0007:150E 0006AH ADD CODE 0007:1578 000C0H ADD CODE 0007:1638 0032CH ADD CODE 0007:1964 ...