Podem me enviar o ErrorSys.prg vs 99.70?

Mensagem por **janio** » 06 Set 2007 08:49

Pessoal,

Preciso do errorsys.prg da vs 99.70. Quero acrescentar no Error.log o nome da maquina onde aconteceu o erro. Tenho aqui o da vs 99.71, porém parece que foi suprimida a cláusula Additive nessa vs.

Podem enviar para janioaguiar@yahoo.com.br

Jânio

Mensagem por **sygecom** » 06 Set 2007 11:03

Janio, eu tenho aqui da CVS ou seja 99.71 e na mesma jah tem a opção de NETNAME() ...agora se quiser tem uma que fiz pra min....que até me envia por email usando a TIP.LIB...se quiser posso postar aqui !!!

Abraços
Leonardo Machado

Mensagem por **janio** » 06 Set 2007 11:21

Leonardo,

Percebi que a vs. 99.71 já tem a opção NETNAME() e era EXATAMENTE o que queria. O Problema é que preciso da cláusula Additive, pois concentro TODOS os erros em uma única máquina.

Preciso:

ou

acrescentar o NETNAME() na vs 99.70

ou

acrescentar a cláusula additive na vs 99.71 (essa não sei fazer).

Jânio

Mensagem por **sygecom** » 06 Set 2007 11:48

Janio, se vc tem o ERROSYS.PRG do 0.99.70 e quer colcoar o Nome do micro,basta incluir a linha abaixo:

Código: Selecionar todos

FWriteLine( nHandle, 'Nome do Micro......: ' + netname() )

Agora se vc não tem e quer usar o additive, olha como funciona abaixo:
Olha esse exemplo do Help:

Código: Selecionar todos

PROCEDURE Main

      ? OpenDatabases()

   RETURN

   FUNCTION OpenDatabases()
      LOCAL aErrLog := Set( _SET_ERRORLOG )
      LOCAL oError
      LOCAL lSuccess := .T.

      SET ERRORLOG TO DbOpenError.log ADDITIVE

      USE Customer
      SET INDEX TO Cust01, Cust02

      SET ERRORLOG TO ( aErrLog[1] )
   RETURN lSuccess

Abraços
Leonardo Machado

Mensagem por **janio** » 06 Set 2007 12:01

Eu NÃO tenho o errorsys.prg da vs 99.70. Tenho somente da vs 99.71.

Vc tem o da vs 99.70??? Pode me enviar??

Jânio

Mensagem por **sygecom** » 06 Set 2007 12:17

Não tenho....da 0.99.70 ....só tenho o original da CVS 0.99.71 e o meu modificado !!!

Mensagem por **Stanis Luksys** » 10 Set 2007 23:24

Opa,

Para quem usa MiniGUI e tiver interesse, algum tempo atrás eu alterei o errorsys também para enviar e-mail quando acontecerem erros. Criei um tela idêntica aquela de "enviar relatóriio de erros" no padrão Windows.

Quem quiser dá um alô que envio. Ou senão coloco no meu site para download.

momente · Mensagem por **momente** » 11 Set 2007 12:05

Grande Stanis,

Manda pra mim, fico agradecido desde já,

é uma ótima idéia esta!

Valeu!

rogerio.momentec@gmail.com

Mensagem por **sygecom** » 11 Set 2007 15:42

Para quem quiser, tenho para usar no xharbour puro com uso da TIP.LIB envia por emial o erro...e o errosys.prg alterado apartir da 0.99.71 !!!

Abraços
Leonardo Machado