| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
rebotea
Aprendiz
Registrado: Sexta-Feira, 12 de Novembro de 2004
Mensagens: 196
|
 Enviada: Sex Fev 01, 2008 6:21 pm Assunto: mensagens de erros |
 |
|
Boas
como posso deixar de receber esta e outras mensagens de erro e so ouvir um Som..
Treparacoes_SUB: Dataset not in edit or insert mode
obrigado |
|
| Voltar ao Topo |
|
 |
AnOnImUs.Info
Colaborador
Registrado: Quinta-Feira, 23 de Agosto de 2007
Mensagens: 1119
Localização: Goiânia - GO
|
| Enviada: Sáb Fev 02, 2008 9:24 am Assunto: Re: mensagens de erros |
|
|
| Código: |
try
procedimento
excet
beep;
end;
|
_________________
Reter o conhecimento é promover a ignorância ! |
|
| Voltar ao Topo |
|
|
Borland_Linuxer
Moderador
Registrado: Terça-Feira, 11 de Outubro de 2005
Mensagens: 4252
Localização: Manaus - Am
|
| Enviada: Sáb Fev 02, 2008 10:50 am Assunto: Re: mensagens de erros |
|
|
| rebotea escreveu: | Boas
como posso deixar de receber esta e outras mensagens de erro e so ouvir um Som..
Treparacoes_SUB: Dataset not in edit or insert mode
obrigado |
amigo falando sinceramente essa nao e uma boa decisao a ser tomada nesses casos vc tem e que resolver esses problema para o seu sistema nao apresente esse erros no cliente.
mais o mais a se fazer e vc toda vez que o seu sistema de um erro mostrar uma mensagem contendo o erro e salva a mesma no banco de dados para que vc possa depois coletar esses erros e resolvelos.
| Código: | {*****************************************************************************
* Procedure Registra_Log_Erro
* Especificação: Inseri registro na tabela TBLOGERROS contendo informações sobre
* o erro ocorrido na aplicação.
*
* Parâmetros: Sender - tObject (Identifica o Objeto onde o erro ocorreu)
* E - Exception (Indentifica a messagem de erro apresentada ao usuário)
*
* Programador: Sergio
* Data Atualização:
*******************************************************************************}
Procedure Tfrmmenu.Register_Log_Error(Sender: TObject; E:Exception);
Begin
dmAcessoGeral.qryInsLogError.ParamByName('System').AsString :=NM_Aplicacao;
dmAcessoGeral.qryInsLogError.ParamByName('Date').AsDatetime :=Date;
dmAcessoGeral.qryInsLogError.ParamByName('Time').AsString :=timetoStr(Time);
dmAcessoGeral.qryInsLogError.ParamByName('Systemuser').AsString :=NM_Responsavel;
dmAcessoGeral.qryInsLogError.ParamByName('Form').AsString :=Screen.activeform.name;
dmAcessoGeral.qryInsLogError.ParamByName('Control').AsString :=Screen.activecontrol.name;
dmAcessoGeral.qryInsLogError.ParamByName('Message').AsString :=E.Message;
dmAcessoGeral.qryInsLogError.ExecSQL;
MessageDlg('ERRO DE APLICATIVO'+#13#10+
' '+#13#10+
'OCORREU O SEGUINTE DURANTE A TENTIVA DE REALIZAR ESTA OPERAÇÃO:'+#13#10+
'FORMULÁRIO: '+Screen.activeform.name+#13#10+
'CONTROLE : '+Screen.ActiveControl.name+#13#10+
'ERRO: '+E.Message,mtError,[mbOK],0);
End;
|
um exemplo
_________________
Abraços
Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Sex Fev 08, 2008 6:06 pm Assunto: |
|
|
tb faco uma rotina desse tipo, agora to implementando pra poder enviar esse erro automaticamente por email pra mim
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
