mostrar erro de run time errorsys

Sami Laham · Mensagem por **Sami Laham** » 16 Abr 2011 09:58

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

Mensagem por **Itamar M. Lins Jr.** » 16 Abr 2011 10:19

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.

Sami Laham · Mensagem por **Sami Laham** » 18 Abr 2011 13:33

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                 |
+--------------------------------------------------------------------------------+

Mensagem por **Itamar M. Lins Jr.** » 18 Abr 2011 14:30

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.

Sami Laham · Mensagem por **Sami Laham** » 19 Abr 2011 15:15

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

PC Toledo

mostrar erro de run time errorsys

mostrar erro de run time errorsys

Re: mostrar erro de run time errorsys

Re: mostrar erro de run time errorsys

Re: mostrar erro de run time errorsys

Re: mostrar erro de run time errorsys