erro de try pq?

Delphi

11/01/2007

Gostaria de saber pq essa minha condicao que fiz entre Try e Except esta dando errado. ele traz a mensagem 2 vezes quando da certo e quando da errado , gostaria de trazer apenas quando estive na condicacao de errado obviamente.

valew gente mais uma vez

var vtotal,vmedia : Currency;
begin
try
vtotal:= StrToCurr(Edit1.Text);
vmedia := StrToCurr(Edit2.text);
ClientDataSet1.Edit;
ClientDataSet1.FieldByName(´TOTAL_VENDA_TOTAL´).AsCurrency := vmedia;
ClientDataSet1.FieldByName(´MEDIA_VENDA_TOTAL´).AsCurrency := vtotal;
ClientDataSet1.FieldByName(´DATA_PESQUISA´).AsDateTime := DateTimePicker1.Date;
ClientDataSet1.Append;
ShowMessage(´Registro gravado com sucesso´);
Except
ShowMessage(´Erro de gravaçao!!´);
end;
end;


Ciotti

Ciotti

Curtidas 0

Respostas

Massuda

Massuda

11/01/2007

ele traz a mensagem 2 vezes quando da certo e quando da errado...
Não entendi o ´2 vezes´... explique melhor isso.


GOSTEI 0
Ciotti

Ciotti

11/01/2007

ENTAO AMIGO CASO MEUS 2 CAMPOS NAO FOREM PREENCHIDOS GOSTARIA QUE O TRY TRATASE ESSE ERRO EM VEZ DE USAR O TERMO
ELSE.

ENTAO USEI O TRY E EXCEPT MAS NAO FUNCIONOU PQ ELE NAO ESTA TRATANDO ESSE ERRO.

VALEW CARA.


GOSTEI 0
Ciotti

Ciotti

11/01/2007

Gostaria de saber pq essa minha condicao que fiz entre Try e Except esta dando errado. ele traz a mensagem 2 vezes quando da certo e quando da errado , gostaria de trazer apenas quando estive na condicacao de errado obviamente.

valew gente mais uma vez

var vtotal,vmedia : Currency;
begin
try
vtotal:= StrToCurr(Edit1.Text);
vmedia := StrToCurr(Edit2.text);
ClientDataSet1.Edit;
ClientDataSet1.FieldByName(´TOTAL_VENDA_TOTAL´).AsCurrency := vmedia;
ClientDataSet1.FieldByName(´MEDIA_VENDA_TOTAL´).AsCurrency := vtotal;
ClientDataSet1.FieldByName(´DATA_PESQUISA´).AsDateTime := DateTimePicker1.Date;
ClientDataSet1.Append;
ShowMessage(´Registro gravado com sucesso´);
Except
ShowMessage(´Erro de gravaçao!!´);
end;
end;


GOSTEI 0
Truck1n

Truck1n

11/01/2007

cara,
O try só vai tratar o erro se o clientdataset reclamar como ele nao reclama ele faz todo o procedimento.

var
  vtotal,vmedia : Currency;
begin
  try
    vtotal:= StrToCurr(Edit1.Text);
    vmedia := StrToCurr(Edit2.text);
    ClientDataSet1.Edit;
    ClientDataSet1.FieldByName(´TOTAL_VENDA_TOTAL´).AsCurrency := vmedia;
    ClientDataSet1.FieldByName(´MEDIA_VENDA_TOTAL´).AsCurrency := vtotal;
    ClientDataSet1.FieldByName(´DATA_PESQUISA´).AsDateTime := DateTimePicker1.Date;
    ClientDataSet1.Append;
    ShowMessage(´Registro gravado com sucesso´);
  Except
    ShowMessage(´Erro de gravaçao!!´);
  end;


Tratamento de Erros:
  try

  except

  end;


espero ter ajudado!


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

11/01/2007

.Edit e .Append ???
não deveria ser .Edit e .Post ?!?!?

de qualquer forma, é melhor você fazer o tratamento do erro no evento OnReconcileError do clientedataset.


GOSTEI 0
Truck1n

Truck1n

11/01/2007

.Edit e .Append ??? não deveria ser .Edit e .Post ?!?!? de qualquer forma, é melhor você fazer o tratamento do erro no evento OnReconcileError do clientedataset.


eu tbm vi isso ae!

UAHehEAiuuEAhuEIA mas blz!! vamos ver se ele responde!

flw Emerson!


GOSTEI 0
POSTAR