FiveTech Software tech support forums

... := "LOADPROJECT" M->__ValToPrg_Object:SUBSYSTEM := "xBuild" M->__ValToPrg_Object:PROCNAME := "LOADPROJECT" M->__ValToPrg_Object:PROCLINE := 2796 M->__ValToPrg_Object:MODULENAME := "tproject.prg" M->__ValToPrg_Object:AASTACK := Array(2) M->__ValToPrg_Object:AASTACK[1] ...

... easy , from 07/07 As i said : this program was originally from rochinha , i think from a routine from dos , were help.dbf was using procname(1) , Procline(1) and the name from the inputvariable. The user has also to press F2 to see the tooltip. For this purpose we have in windows tooltips , but ...

Mr Antonio

The expression Str( ProcLine( 1 ), 3 ) ) at line 79 may be changed as Str( ProcLine( 1 ), 4 ) ) because many program modules can have lines exceeding 999.

FWHISHOW Yo lo hago asi: Esto esta en la linea 80 a 85 ERRORBLOCK( {|e| MsgStop( ErrorMessage(e) + " desde ErrorSys, linea: " + ; STR( PROCLINE( 1 ), 3 ) ), Reg_Activ("SALIDA ANORMAL DEL SISTEMA"),Online(.F.) , __quit() } ) cErrorLog += "Descripción de la Applicación:" + CRLF cErrorLog += ...

... cstack:="FIVEWIN ERROR:"+CRLF cstack+=dtoc(date())+" "+time()+" error: "+oErro:description+": "+oErro:Operation+CRLF cstack+=" Line: "+Str( ProcLine(), 4 )+" Arquivo: "+procfile()+ CRLF cstack+=" Line: "+Str( ProcLine(1), 4 )+ CRLF cstack+=" Line: "+Str( ProcLine(2), 4 )+ CRLF cstack+=" ...

... SW_SHOWNA) oWnd:End() __QUIT() endif ErrorBlock( {|e| ( MsgStop( OemToAnsi( ErrorMessage(e) ), "Mensagem de Erro" )+; " Linha do Erro: " + ; Str( ProcLine( 1 ), 3 ) ), __Quit() } ) cErrorLog += "Aplica‡Æo: " + CRLF cErrorLog += "===========" + CRLF cErrorLog += " Caminho(Path): " + GetModuleFileName( ...

... these multiple accesses in an ordered and fully controlled way, and implements services to access these multiple execution levels (ProcName(), ProcLine(), debugging, and stack variables access). The VM subsystems are continuously used by the main execution loop. Let's review these VM subsystems: ...

... nKey = Asc( Upper( Chr( nKey ) ) ) endif if bKeyAction != nil .and. lAnd( nFlags, 16777216 ) // function Key Eval( bKeyAction, ProcName( 4 ), ProcLine( 4 ), Self ) return 0 // Already processed, API do nothing endif if ::lReadOnly if nKey == VK_ESCAPE ::oWnd:End() endif return 0 endif do case ...

Enrico,

But that may be something specific to Harbour/xHarbour ProcLine() function.