FiveTech Software tech support forums

... it rarely happens but when it happens a visual dialog opens even if the program is a console type and there is no way for me to understand procname() procline and table For this reason, how can I simulate with an ad hoc program a corruption of an index that sends the program into that error? ...

... #xcommand FWDBG <vars,...> => ; XBrowse( ArrTranspose( \{ \{ <"vars"> \}, Eval( \{ || \{ <vars> \} \} ) \} ), ; ProcName(0) + " : Line : " + LTrim( Str( ProcLine(0) ) ),, ; { |o| o:cHeaders := { "Variable", "Value" } } ) ahora que ...

... of the classes: c:\fwh\source\classes\combobox.prg You can link in the class and insert msginfo() to see where you are. I always use: msginfo( procname() + " " + str(procline()) ) Thank you for your hard work. I am glad you joined our group. Best regards, Otto

... it's contained in, the scope, and some comments? Or should I put it in a dbf table, like Calendar_vars.dbf, with fields like VARTYPE, SOURCEFIL, PROCNAME, SCOPE, DESC? Or should this be approached differently? If you wanted to document your variables, so that a future developer (including yourself) ...

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

... tried this on IIS. ?"*****" for n=1 to 10 ?Str(n) + ", " + Str( Procline(n)) + ", " + ProcFile(n) + ", " + ProcName(n) next ?"*****" And got this. MY Function is Rpt_003(), I was hoping it would show up somewhere. ***** 1, 0, , HB_HRBDO 2, 70, ..\source\exec.prg, ...

Hola sigo con el problema de recursos con harbour y me tira el .log esto : Called from PROCNAME(0) Called from FWADDRESOURCE(17) in .\source\function\CHECKRES.PRG Called from MSGPAINT3L(0) Application Internal Error - C:\sistema\villacredGestion\GESTION2018.exe Terminated ...

He instalado MinGW para 63 bits, versión: \mingw-w64\x86_64-8.1.0-posix-sjlj-rt_v6-rev0 Y utilizo para compilar el siguiente BAT: cls@set HB_INSTALL=C:\harbour64%HB_INSTALL%\bin\harbour %1.prg -n -i%HB_INSTALL%\include -iC:\MinGW-64\mingw32\i686-w64-mingw32\include  gcc -Wall -o%1.exe %1.c -I%H...

... __objAddData( oObject, cSymbol ) LOCAL nSeq, hClass IF ! HB_ISOBJECT( oObject ) .OR. ! HB_ISSTRING( cSymbol ) __errRT_BASE( EG_ARG, 3101, , ProcName( 0 ) ) ELSEIF ! __objHasMsg( oObject, cSymbol ) .AND. ! __objHasMsg( oObject, "_" + cSymbol ) hClass := oObject:ClassH nSeq := __cls_IncData( ...

... PrintStat([<nLPT>])->nPrinterStatus ProcFile([<nCallStack>])->cPrgFilename ProcLine(<nActivation>)->nSourceLine ProcName(<nActivation>)->cProcedureName PRow()->nRow Pv(<nInvestment>,<nInterestRate>,<nPeriods>)->nPresentValue PValue(<nParamPos>)->xParamValue ...

... PrintStat([<nLPT>])->nPrinterStatus ProcFile([<nCallStack>])->cPrgFilename ProcLine(<nActivation>)->nSourceLine ProcName(<nActivation>)->cProcedureName PRow()->nRow Pv(<nInvestment>,<nInterestRate>,<nPeriods>)->nPresentValue PValue(<nParamPos>)->xParamValue ...

... PosLower PosRange PosRepl PosUpper Prgexptoval PrinterExists PrinterPortToName PrintFileRaw PrintReady PrintSend PrintStat ProcFile ProcLine ProcName PRow Pv PValue QOut QQOut Quarter QueryRegistry RangeRem RangeRepl RAscan RAt Rate RddInfo RddName RddRegister RddSetDefault ReadExit ReadInsert ...

... The CVM organizes these multiple accesses in a ordered and full controlled way and implements services to access these multiple execution levels (ProcName(), ProcLine(), debugging, and stack variables access). The CVM subsystems are continuously used by the main execution loop. Lets review these ...

Gunther,

Here it always gets called!

I don't have any exit procedure.

Placing msginfo("ADO_EXIT "+PROCNAME(1) +" "+ PROCNAME(2)+" "+ PROCNAME(3)+" "+ PROCNAME(4)) in ado_exit It shows that gets called from _QUIT.

... oBtnCancel, oBtnalb, oBtncli, oBtnrep, oNegre, nfac LOCAL fich := Dbf(), nind := IndexOrd(), cTitle := 'F A C T U R A C I O N' lacces = validapl( ProcName(), ' ' ) IF lacces = 'N' .OR. blo_quea RETURN( .T. ) ENDIF IF ValType( nAlb ) = 'C' nAlb = Val( nAlb ) ENDIF dbSelectArea( 'albara' ) dbSeek( ...