Página 1 de 1
Podem me enviar o ErrorSys.prg vs 99.70?
Enviado: 06 Set 2007 08:49
por janio
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
Enviado: 06 Set 2007 11:03
por sygecom
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
Enviado: 06 Set 2007 11:21
por janio
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
Enviado: 06 Set 2007 11:48
por sygecom
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
Enviado: 06 Set 2007 12:01
por janio
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
Enviado: 06 Set 2007 12:17
por sygecom
Não tenho....da 0.99.70 ....só tenho o original da CVS 0.99.71 e o meu modificado !!!
Enviado: 10 Set 2007 23:24
por Stanis Luksys
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.
Enviado: 11 Set 2007 12:05
por momente
Grande Stanis,
Manda pra mim, fico agradecido desde já,
é uma ótima idéia esta!
Valeu!
rogerio.momentec@gmail.com
Enviado: 11 Set 2007 15:42
por sygecom
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