Fórum Caixa de diálogo no evento Beforepost do ClientDataset #27209
11/03/2010
0
Boa noite
Como posso fazer uma caixa de diálologo no evento BeforePost do ClientDataset, tipo fiz assim:
if (Dataset.FieldByName('DTPAGTO_CONTASAPAGAR').AsString <> '') and
(Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString = '') then raise Exception.Create('Favor informar o valor de pagamento') else if (Dataset.FieldByName('VLPAGAR_CONTASAPAGAR').AsString <> '') and
(Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString <> '') then begin
if Dataset.FieldByName('VLPAGAR_CONTASAPAGAR').AsString <>
Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString then
begin raise Exception.Create('Valores são diferentes');
end; end; Só que em vez de usar VALORES SÃO DIFERENTES, gostaria de colocar VALORES SÃO DIFERENTES, CONFIRMA ? Quando uso raise Exception.Create ele simplesmente aborta.... Estou usando Delphi 2010 Fico no aguardo Rogério
(Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString = '') then raise Exception.Create('Favor informar o valor de pagamento') else if (Dataset.FieldByName('VLPAGAR_CONTASAPAGAR').AsString <> '') and
(Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString <> '') then begin
if Dataset.FieldByName('VLPAGAR_CONTASAPAGAR').AsString <>
Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString then
begin raise Exception.Create('Valores são diferentes');
end; end; Só que em vez de usar VALORES SÃO DIFERENTES, gostaria de colocar VALORES SÃO DIFERENTES, CONFIRMA ? Quando uso raise Exception.Create ele simplesmente aborta.... Estou usando Delphi 2010 Fico no aguardo Rogério
Rogerio Santos
Curtir tópico
+ 0
Responder
Posts
11/03/2010
Marcos Iwazaki
Amigo.
Primeiramente um Exception é para abortar mesmo.
Evite usar isso. Não é uma boa pratica. Eu mesmo faço o uso do raise Exception.Create mas somente dentro de um try exception, mas esse é outro assunto.
Isto é se vc esta tratando o erro então por que esta criando um exception?
Voltando ao seu assunto.
Crie um metodo
Function ValidaRegistro:boolean;
begin
if (Dataset.FieldByName('DTPAGTO_CONTASAPAGAR').AsString '') and
(Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString = '')
then begin
showmessage('Favor informar o valor de pagamento');
exit;
Primeiramente um Exception é para abortar mesmo.
Evite usar isso. Não é uma boa pratica. Eu mesmo faço o uso do raise Exception.Create mas somente dentro de um try exception, mas esse é outro assunto.
Isto é se vc esta tratando o erro então por que esta criando um exception?
Voltando ao seu assunto.
Crie um metodo
Function ValidaRegistro:boolean;
begin
if (Dataset.FieldByName('DTPAGTO_CONTASAPAGAR').AsString '') and
(Dataset.FieldByName('VLPAGO_CONTASAPAGAR').AsString = '')
then begin
showmessage('Favor informar o valor de pagamento');
exit;
Responder
Gostei + 0
12/03/2010
Rogerio Santos
Ok, deu, certo
Obrigado
Rogério
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)