Página 1 de 1
mostrar erro de run time errorsys
Enviado: 16 Abr 2011 09:58
por Sami Laham
Olá pessoal, primeiro gostaria de agradecer a todos que colaboram p/este forum de exelente qualidade que tem me ajudado muito a conseguir resolver meus problemas e sanar minhas duvidas, mas vamos lá estou migrando meu sistema de xharbour 1.0 gtwvw p/harbour 2.1(gtwvg) (baixado do svn e gerado com msvc2008) e estou com a seguinte duvida no xharbour quando acontecia um erro de runtime ele gerava um arquivo erro.log onde eu consulva onde tinha ocorrido o erro, mas agora no harbour não está gerando este arquivo inclusive eu utilizava o comando
*SET ERRORLOG TO "TELEVDA.ERR" e fui obrigado a retirar esse comando porque dava erro de compilaçao. Alguem sabe como corrigir isso deve ser algo simples mas não achei o caminho.
Grato a todos
Sami
Re: mostrar erro de run time errorsys
Enviado: 16 Abr 2011 10:19
por Itamar M. Lins Jr.
Não tendo uma rotina particular que trate o erro, ele gera um arquivo de nome hb_out.log
Saudações,
Itamar M. Lins Jr.
Re: mostrar erro de run time errorsys
Enviado: 18 Abr 2011 13:33
por Sami Laham
Obrigado Itamar pela resposta, talves eu não tenha feito de forma correta a pergunta, no xharbour mesmo sem tratamento de erro especifico aparece um arquivo nome.err quando acontece um erro de run-time eu anexei um arquivo de erro que o xharbour gerou . eu gostaria que em harbour fosse gerado um arquivo semelhante , aqui comigo nem o hb_out.log foi gerado quando ocorreu um erro
Grato
Sami
Código: Selecionar todos
----------------------------- xHarbour Error Log ------------------------------
Date...............: 18/04/2011
Time...............: 11:14:14
Application name...: F:\LAHAM\SISFAT\TELEVDA.EXE
Workstation name...: DENISE
Available memory...: 18504
Current disk.......: F
Current directory..: LAHAM\SISFAT
Free disk space....: 3390963712
Operating system...: Windows 98 4.10.2222 A
xHarbour version...: xHarbour build 1.0.0 Intl. (SimpLex)
xHarbour built on..: Nov 8 2007 09:23:44
C/C++ compiler.....: Borland C++ 5.5.1
Multi Threading....: NO
VM Optimization....: 0
Current Area ......:8
-------------------------- Environmental Information --------------------------
SET ALTERNATE......: OFF
SET ALTFILE........:
SET AUTOPEN........: ON
SET AUTORDER.......: 0
SET AUTOSHARE......: 0
SET BACKGROUNDTASKS: ON
SET BACKGROUNDTICK.: 1000
SET BELL...........: OFF
SET BLINK..........: .T.
SET CANCEL.........: ON
SET CENTURY........: ON
SET COLOR..........: GR+/B,R/W,N/N,N/N,W+/B
SET CONFIRM........: OFF
SET CONSOLE........: OFF
SET COUNT..........: 0
SET CURSOR.........: 1
SET DATE FORMAT....: DD/MM/YYYY
SET DBFLOCKSCHEME..: 0
SET DEBUG..........: OFF
SET DECIMALS.......: 2
SET DEFAULT........: F:\LAHAM\DADOS\
SET DELETED........: ON
SET DELIMCHARS.....: ::
SET DELIMETERS.....: OFF
SET DEVICE.........: SCREEN
SET DIRCASE........: 0
SET DIRSEPARATOR...: \
SET EOL............: 13
SET EPOCH..........: 1900
SET ERRORLOG.......: TELEVDA.ERR,.F.
SET ERRORLOOP......: 8
SET ESCAPE.........: ON
SET EVENTMASK......: 159
SET EXACT..........: OFF
SET EXCLUSIVE......: OFF
SET EXIT...........: OFF
SET EXTRA..........: OFF
SET EXTRAFILE......:
SET FILECASE.......: 0
SET FIXED..........: OFF
SET FORCEOPT.......: OFF
SET GTMODE.........: 1
SET HARDCOMMIT.....: ON
SET IDLEREPEAT.....: ON
SET INSERT.........: OFF
SET INTENSITY......: ON
SET LANGUAGE.......: PT
SET MARGIN.........: 0
SET MBLOCKSIZE.....: 0
SET MCENTER........: ON
SET MESSAGE........: 24
SET MFILEEXT.......:
SET OPTIMIZE.......: ON
SET OUTPUTSAFETY...: ON
SET PATH...........:
SET PRINTER........: OFF
SET PRINTERJOB.....:
SET PRINTFILE......: PRN
SET SCOREBOARD.....: OFF
SET SCROLLBREAK....: ON
SET SOFTSEEK.......: OFF
SET STRICTREAD.....: OFF
SET TRACE..........: ON
SET TRACEFILE......: TRACE.LOG
SET TRACESTACK.....: 2
SET TRIMFILENAME...: .F.
SET TYPEAHEAD......: 50
SET UNIQUE.........: OFF
SET VIDEOMODE......: 0
SET WRAP...........: ON
---------------------------Detailed Work Area Items----------------------------
Work Area No ......: 1
Alias .............: ITVDA1
Current Recno .....: 1
Current Filter ....:
Relation Exp. .....:
Index Order .......: 0
Active Key ........:
Work Area No ......: 2
Alias .............: PEDDADO
Current Recno .....: 385
Current Filter ....:
Relation Exp. .....:
Index Order .......: 1
Active Key ........: DNROPED+DSEQPED
Work Area No ......: 3
Alias .............: PEDITEN
Current Recno .....: 1920
Current Filter ....:
Relation Exp. .....:
Index Order .......: 1
Active Key ........: INROPED+ISEQPED
Work Area No ......: 4
Alias .............: PROTMP1
Current Recno .....: 6274
Current Filter ....:
Relation Exp. .....:
Index Order .......: 1
Active Key ........: PCOD
Work Area No ......: 5
Alias .............: CADCLI
Current Recno .....: 2353
Current Filter ....:
Relation Exp. .....:
Index Order .......: 1
Active Key ........: CCOD
Work Area No ......: 6
Alias .............: CADPRO
Current Recno .....: 1
Current Filter ....:
Relation Exp. .....:
Index Order .......: 1
Active Key ........: PCOD
Work Area No ......: 7
Alias .............: CREDCLI
Current Recno .....: 923
Current Filter ....:
Relation Exp. .....:
Index Order .......: 1
Active Key ........: CODCLI
-------------------- Internal Error Handling Information ---------------------
Subsystem Call ....: DBCMD
System Code .......: 1011
Default Status ....: .T.
Description .......: Nome de alias duplicado
Operation .........: CREDCLI
Arguments .........:
Involved File .....:
Dos Error Code ....: 0
Trace Through:
----------------
DBUSEAREA : 0 in Module:
NETUSE : 88 in Module: PROCNET.PRG
O_CREDCLI : 120 in Module: ABREDBF.PRG
VER_CREDITO : 690 in Module: TELE02.PRG
FAT04A : 315 in Module: TELE02.PRG
TELE02 : 93 in Module: TELE02.PRG
MAIN : 704 in Module: TELEVDA.PRG
############################## Video Screen Dump ##############################
+--------------------------------------------------------------------------------+
|TRANSFERE I R M A O S L A H A M L T D A. 18/04/2011 18.51M |
|ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿|
|ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»|
|ºNro.Ped:48685 Seq:1ÛDTEms:Û18/04/2011ÛNat.Op:5102V.Transp:0ÛICM:18,00ÛVcto: 1º|
|ºCod.Cli: 2353ÛÛNome: ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛº|
|ºEnder..: ÛÛEstado: ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛº|
|ºMunic: ÛÛÛÛÛC.G.C: . . / - ÛVend: 0ÛÛÛComis: 0,00º|
|ºÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛº|
|ºÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛº|
|ºÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛº|
|ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
|ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ|
| Aguarde... Tentando Acesso aos Arquivos CREDCLI |
+--------------------------------------------------------------------------------+
Re: mostrar erro de run time errorsys
Enviado: 18 Abr 2011 14:30
por Itamar M. Lins Jr.
Voce deve ter alguma função de nome error.sys linkada no seu sitema.
Porque ele gera um arquivo de erro sim.
Added: Set( _SET_HBOUTLOG[, <cFileName>] ) -> <cOldFileName>
Default value: "hb_out.log"
Saudações,
Itamar M. Lins Jr.
Re: mostrar erro de run time errorsys
Enviado: 19 Abr 2011 15:15
por Sami Laham
Obrigado Itamar pela resposta, eu não consegui detectar o problema mas no fim eu linkei a xhb.lib e coloquei
xhb_ErrorSys() no inicio do programa e funcionou como eu precisava mesmo, ficou compativel com o xharbour e esta gerando o log de erro igual o xharbour, mais p/ frente eu tento descobrir onde está o problema. Eu compilei usando o hbmk2 agenda.hbp deste modo estou usando o gtwvg ads e está compativel com xharbour se falei alguma besteira me corrija por favor, vou colocar como eu fiz p/servir de exemplo a outros colegas.
segue o meu AGENDA.hbp
Código: Selecionar todos
-oagenda
AGENDA.PRG
ABREDBF.PRG
AGENDA01.PRG
AJUDA.PRG
CALCDATA.PRG
CALCULA.PRG
MOSTRBRW.PRG
PESQDBF.PRG
PROCGER.PRG
PROCNET.PRG
agenda.rc
-rebuildall
-m
-w0
-mt
-es2
-gui
-lgtwvg
-lrddads
-lace32
-lhbct
-lhbwin
-lxhb
#-lhbxpp
logo no inico do programa eu inclui o codigo abaixo e esta rodando legal no windows-xp com gtwvg
Código: Selecionar todos
#DEFINE CGTWVW CGTWVG
**********************
#IFDEF CGTWVG
REQUEST HB_GT_WVG_DEFAULT
REQUEST HB_GT_WVG
#INCLUDE "HBGTINFO.CH"
cls
SETMODE(25,80)
* hb_gtInfo( HB_GTI_ICONFILE, "agenda.ico" )
* hb_gtInfo( HB_GTI_WINTITLE, "Programm Title" )
Hb_GtInfo( HB_GTI_SELECTCOPY,.T.)
HB_GTINFO( HB_GTI_CLOSABLE, .T. )
HB_GTINFO( HB_GTI_RESIZABLE, .T. )
HB_GTINFO( HB_GTI_CODEPAGE, 255 )
Hb_GTInfo(HB_GTI_MOUSESTATUS, 1 )
* screenWidth = 800
* screenHeight=600
screenWidth:= HB_GTINFO( HB_GTI_SCREENWIDTH, HB_GTINFO( HB_GTI_DESKTOPWIDTH ) )
screenHeight:=HB_GTINFO( HB_GTI_SCREENHEIGHT, HB_GTINFO( HB_GTI_DESKTOPHEIGHT ) - 50)
SETMODE( 25,80)
HB_GTInfo(HB_GTI_FONTNAME, "Courier New")
HB_GTInfo(HB_GTI_FONTQUALITY,HB_GTI_FONTQ_HIGH )
if screenWidth >= 1920
Hb_GtInfo( HB_GTI_FONTWIDTH, 21 )
HB_GTInfo(HB_GTI_FONTSIZE, 40)
ELSEIF screenWidth >= 1600 // 1280 *960
Hb_GtInfo( HB_GTI_FONTWIDTH, 18 )
HB_GTInfo(HB_GTI_FONTSIZE, 32)
elseif screenWidth >= 1280 // 1280 *960
Hb_GtInfo( HB_GTI_FONTWIDTH, 13 )
HB_GTInfo(HB_GTI_FONTSIZE, 20) // 15*80=1200 36*25=900
elseif screenWidth >= 1024 // 1024*760
Hb_GtInfo( HB_GTI_FONTWIDTH, 12.5 )
HB_GTInfo(HB_GTI_FONTSIZE, 20)
elseif screenWidth >= 800
Hb_GtInfo( HB_GTI_FONTWIDTH, 10 )
HB_GTInfo(HB_GTI_FONTSIZE, 18)
ELSE
Hb_GtInfo( HB_GTI_FONTWIDTH, 14 )
HB_GTInfo(HB_GTI_FONTSIZE, 8)
ENDIF
SET EVENTMASK TO 159
REQUEST HB_LANG_PT
HB_LANGSelect("PT")
#ENDIF
Abraços
Sami