Fórum Traduzir mensagem do Banco clientdataset e firebird #325228

Pouco interresse dos amigos nesse tópico :cry: :cry: :cry: :cry:

Desde ontem so quatro visitas :evil: :evil: :evil:

E mesmo assim estas quatro visitas acho que forma minhas , vendo e relendo o tópico. :lol: :lol: :lol: :lol:

Olá Marco Salles, bom dia.

Não tenho a resposta para este assunto, mas tenho interesse pelo mesmo.


Você ja tentou tratar o evento usando a variavel [b:cd4b68b69c]UpdateKind[/b:cd4b68b69c]?
E a mensagem?

a messagem vem do Banco e a principio ela não é propagada pelo ClienteDataset..

o Evento OnReconcileError nen é disparado.... É isto que esta me deixando encucado... Na hora que dou um ApllyUpdated(0) , porque este evento não esta sendo Disparado :?: :?: :?: :?: :?:

Marcos,

Sou iniciante ainda nesse tipo de acesso, mas pelo que sei o evento OnReconcileError é disparado qdo ha divergencias entre as informações do registro que vc está vendo com o q está no banco. Tipo: duas pessoas alteram o preço de um mesmo produto, na hora que o ultimo gravar ocorrerá o erro. Para o que vc está tentando fazer recomendaria o evento
OnPostError do clientedataset: exmplo:

procedure TdmMProvider.CDSPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if (Pos(´Field value required´, e.Message) > 0) or (Pos(´must have a value´,
e.Message) > 0) then
begin
MessageBox(Application.Handle, PChar(dmDBEXMaster.sUsuario +
´, verifique os campos em vermelho. São de preenchimento obrigatório!´),
´Validação´, mb_ok + MB_ICONERROR);
Action := daAbort;
end;
end;

ainda para fazer outras validações vc pode usar o evento OnUpdateError
do DataSetProvider. exemplo:

procedure TdmMProvider.DSPUpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
var Response: TResolverResponse);
begin
//registro já cadastrado - Duplicar chave primária
if (UpdateKind = ukInsert) and (Pos(´PRIMARY or UNIQUE KEY´, e.Message) > 0)
then
MessageBox(Application.Handle, (PChar(e.Message + #13 + 13 +
dmDBEXMaster.sUsuario + ´, você está tentando gravar uma informação que´
+ ´ já existe no banco de dados!´)), ´Validação´, mb_ok +
MB_ICONERROR)
else if (UpdateKind = ukInsert) and (Pos(´insert/write´, e.Message) > 0) then
begin
MessageBox(Application.Handle, PChar(dmDBEXMaster.sUsuario +
´, você não possui permissão para incluir neste módulo!´), ´Validação´,
mb_ok + MB_ICONERROR);
(DataSet as TClientDataSet).CancelUpdates;
end
else if (UpdateKind = ukDelete) and (Pos(´delete/write´, e.Message) > 0) then
begin
MessageBox(Application.Handle, PChar(dmDBEXMaster.sUsuario +
´, você não possui permissão para excluir neste módulo!´), ´Validação´,
mb_ok + MB_ICONERROR);
(DataSet as TClientDataSet).CancelUpdates;
end
else if (UpdateKind = ukDelete) and (Pos(´empty´, e.Message) > 0) then
begin
MessageBox(Application.Handle, PChar(dmDBEXMaster.sUsuario +
´, o arquivo está vazio. Impossível exluir!´), ´Validação´,
mb_ok + MB_ICONERROR);
(DataSet as TClientDataSet).CancelUpdates;
end
//integridade referencial
else if (UpdateKind = ukDelete) and (Pos(´FOREIGN´, e.Message) > 0) or
(Pos(´Chave Estrangeira´, e.Message) > 0) then
MessageBox(Application.Handle, PChar(dmDBEXMaster.sUsuario +
´, houve violação da integridade referencial!´ + #13 + 13 +
´Você está tentando excluir um registro que está fazendo referência´
+ #13 + ´a outra tabela do banco de dados. A operação será cancelada!´),
´Integridade´, mb_ok + MB_ICONERROR)
//privilégios
else if (UpdateKind = ukModify) and (Pos(´update/write´, e.Message) > 0) then
begin
MessageBox(Application.Handle, PChar(dmDBEXMaster.sUsuario +
´, você não possui permissão para alterar neste módulo!´), ´Validação´,
mb_ok + MB_ICONERROR);
(DataSet as TClientDataSet).CancelUpdates;
end
else if (Pos(´Filed value required´, e.Message) > 0) then
begin
MessageBox(Application.Handle, PChar(dmDBEXMaster.sUsuario +
´, verifique os campos em vermelho, são de preenchimento obrigatório!´),
´Validação´, mb_ok + MB_ICONERROR);
(DataSet as TClientDataSet).CancelUpdates;
end;
Response := rrAbort;
end;


esse são alguns trechos do cod. que uso.

[b:053fbc84ae]Lindomar.des [/b:053fbc84ae]Obrigado pela gentileza de suas colocaçoes . Gostaria de questiona-las para que possamos aprofundar nossas duvidas e trocar nossos conhecimentos

nesse tipo de erro , usando [b:053fbc84ae]Cds , firibirid e DbExpress [/b:053fbc84ae], ate agora em nenhum desses eventos :arrow: :arrow: consegui evitar a mensagem que [b:053fbc84ae]vem do Banco[/b:053fbc84ae]

:idea: :idea:
[b:053fbc84ae]Não apresenta nada no OnReconcileError nada no .CDSPostError nada no .DSPUpdateError...Estes eventos simplesmente não são disparados[/b:053fbc84ae]


[URL=http://imageshack.us][img:053fbc84ae]http://img204.imageshack.us/img204/315/imagemlindomar1hj7.png[/img:053fbc84ae][/URL]




:lol: :lol: :lol:
Mas isto não é o que a gente quer é o que a gente precisa


[b:053fbc84ae]Lendo vários tópicos , estou inclinado a tomar duas decisoes.[/b:053fbc84ae]

Mas vou tentar com a primeira , qua deixarei aqui a idéia para que alguem possa contribuir

:idea: :idea: :idea: :idea:
[b:053fbc84ae]é a criação de uma exceção no Proprio Banco..[/b:053fbc84ae]
Isto é fácil de fazer usando O [b:053fbc84ae]IBExpert[/b:053fbc84ae]


:cry: :cry: :cry: :cry:
[b:053fbc84ae][color=darkred:053fbc84ae]o que eu não estou conseguindo é usando uma trigger , disparar esta exceção[/color:053fbc84ae][/b:053fbc84ae]

[b:053fbc84ae]A idéia seria esta .. Se ja existe um Produto com esta descrição , entaõ levanto a exceção <que fora criada por mim>[/b:053fbc84ae]

:cry: :cry: :cry:
[b:053fbc84ae]não estou conseguindo a sintase para esta trigger[/b:053fbc84ae]

Feito isto a mensagem que sera apresentada para o usuário é a mensagem definida e ela com certeza pode ser tratada no evento OnReconcileError

[b:053fbc84ae]Mas ta faltando esta Trigger...[/b:053fbc84ae] :cry: :cry: :cry:

[b:c6c87eab7e]Ainda sem solução . No Aguardo e acreditando na possibilidade de solução[/b:c6c87eab7e]

Pesquisando aui no forum , cheguei a esta conclusão :



A ideia é gerar uma exceção , para que possa trata-la no evento OnReconcileError do ClientDataSet. É claro que por se tratar de uma chave primária , por se so o banco lança uma exceção , na hora que se tenta lançar dois produtos com a mesma descrição.. Mas a mensagem que o banco lança não é muito amigável

Porem , não sei porque , não consigo captutar este Erro para que trasmita uma mensagem mais amigável

Ainda não desisti...

Bom dia,

Marcos Salles, eu faco o seguinte no evento do OnReconcileError do ClientDataSet, eu testo como no exemplo abaixo:

Msg:= ´Descricao nao disponivel.´;

if (Pos(´violation of PRIMARY or UNIQUE KEY´, E.Message) > 0) or
(Pos(´attempt to store duplicate value´, E.Message) > 0) then
Begin
Msg:= ´A tentativa de insercao/edicao iria resultar em duplicidade ´ +
´de registros nesta tabela.´;
End;
if (Pos(´violation of FOREIGN KEY´, E.Message) > 0) then
Begin
Msg:= ´A tentativa de atualizacao iria causar falhas de relacionamento, ´ +
´por existirem dependentes entre as tabelas envolvidas.´;
End;

ShowMessage(E.Message + #13 + ´Descricao do erro: ´ + 13 + Msg);

Espero ter ajudado.

Evaldo.

Valeu emrinfo



[b:6e728fab2a]O problema é que nesta situação , o evento onReconcileError não é disparado.. Então nada que tiver escrito nele , é executado...[/b:6e728fab2a]

marcos... eu tenho uma rotina de funções e procedures que traduz as mensagens ...

segue abaixo :

Primeiro a Function Grava



a Função F_query



a procedure Message_Error



Essa Função : F_grava, deve ser usada sempre que desejar startar uma transaction no Banco..

a procedure P_Message_Error, pode ser acrescentada as mensagens que vem do banco.. desta forma funciiona perfeitamente..

espero ter ajudado..

Bem eu faço assim:

criei uma procedure:




e depois uso o evento onposterror do CDS:

[/code]

Vou testar as duas e depois eu Posto.... Mas lembre-se que estou usando Cds e meu maior problema é que nenhum evento esta sendo disparado , para que eu possa tratar a mesnagem. Mas certamente deve ter um jeito e se ainda não deu é porque nao chegou a hora .

Muito obrigado.

Marco...

no meu exemplo... não importa qual é o componente que vc está usando... pois a gravação será feita através de um SQL...

embora deixe a aplicação um pouco mais complexa, sendo que vc precise tratar todas as rotinas manualmente, fica perfeitamente portável para qualquer banco... independente dos componentes que vc usa...

estas rotina interceptam as excessões do sistema...

INDEPENDENTEMENTE do componente usado..

um abraço..