|
ActiveDelphi .: O site do programador Delphi! :.
|
Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
rafaelmart Membro Junior
Registrado: Terça-Feira, 6 de Julho de 2004 Mensagens: 372
|
Enviada: Seg Mai 02, 2005 10:23 am Assunto: traduzir mensagem "must have a value" |
|
|
E aí pessoal
na minha aplicação faço a conexao da seguinte forma sqlconnection>sqldataset>datasetprovider>clientdataset, aplico as atualizações no on afterpost do clientdataset dessa forma:
if clientdataset.ApplyUpdates(0) <> 0 then begin
Case MessageBox (Application.Handle, Pchar (\'Os dados nao puderam ser gravados\' + #13 +
\'Verifique se todos os campos estão preenchidos corretamente!\'), \'Salvar registro\', MB_ok+MB_ICONEXCLAMATION) of
idOK: ClientDataSet.CancelUpdates;
end;
end;
quando campos q nao foram preechidos e sao de preechimento obrigatório ele me retorna a msg "field \'taltal" must have a value". Estou usando a seguinte formula pra traduzir essa mensagem:
if pos(uppercase(\'must have a value\'),uppercase(E.Message)) > 0
then
begin
P1 := pos(\'\'\'\',E.Message);
mensagemerro := E.Message;
delete(mensagemerro,P1,1);
P2 := pos(\'\'\'\',mensagemerro);
mensagemerro := copy(E.Message,P1+1,P2-P1);
showmessage(\'O campo [\'+ mensagemerro + \'] é de preenchimento obrigatório.\');
end;
Estou colocando ela no onPostError do clientdataset. Funciona perfeitamente so que logo apos aparecer a mensagem da rotina assima ele emite tb a mensagem \"fied \'taltal\' must have a value\".
Oq quero é sumir com a mensagem \"field \'taltal\' must have a value\" _________________ Rafael Martins de Oliveira
Analista de Sistemas |
|
Voltar ao Topo |
|
|
Freedom Novato
Registrado: Segunda-Feira, 14 de Junho de 2004 Mensagens: 14
|
Enviada: Seg Mai 02, 2005 11:32 am Assunto: traduzir mensagem "must have a value" |
|
|
Olha esse problema, deve ser algum campo que é INTEGER NOT NULL ou CHAVE PRIMARIA, e quando você tá gravando ele está sem valor. _________________ Douglas Brucieri |
|
Voltar ao Topo |
|
|
marmax Novato
Registrado: Sexta-Feira, 22 de Outubro de 2004 Mensagens: 71
|
Enviada: Seg Mai 02, 2005 12:00 pm Assunto: traduzir mensagem "must have a value" |
|
|
[quote]E aí pessoal
na minha aplicação faço a conexao da seguinte forma sqlconnection>sqldataset>datasetprovider>clientdataset, aplico as atualizações no on afterpost do clientdataset dessa forma:
if clientdataset.ApplyUpdates(0) <> 0 then begin
Case MessageBox (Application.Handle, Pchar (\'Os dados nao puderam ser gravados\' + #13 +
\'Verifique se todos os campos estão preenchidos corretamente!\'), \'Salvar registro\', MB_ok+MB_ICONEXCLAMATION) of
idOK: ClientDataSet.CancelUpdates;
end;
end;
quando campos q nao foram preechidos e sao de preechimento obrigatório ele me retorna a msg "field \'taltal" must have a value". Estou usando a seguinte formula pra traduzir essa mensagem:
if pos(uppercase(\'must have a value\'),uppercase(E.Message)) > 0
then
begin
P1 := pos(\'\'\'\',E.Message);
mensagemerro := E.Message;
delete(mensagemerro,P1,1);
P2 := pos(\'\'\'\',mensagemerro);
mensagemerro := copy(E.Message,P1+1,P2-P1);
showmessage(\'O campo [\'+ mensagemerro + \'] é de preenchimento obrigatório.\');
end;
Estou colocando ela no onPostError do clientdataset. Funciona perfeitamente so que logo apos aparecer a mensagem da rotina assima ele emite tb a mensagem \"fied \'taltal\' must have a value\".
Oq quero é sumir com a mensagem \"field \'taltal\' must have a value\" [/quote]
Para isso utilizo o componente ApplicationEvents , no evento on exception voce coloca a formula q vc usa para exibir a mensagem de erro personalizada.
Um abraco! |
|
Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|