Fórum Firemonkey Edit.onexit ocorre antes de salvar os dados na tabela #459558
26/10/2013
0
Estou usando Firemonkey e tenho a seguinte rotina no evento Edit.onexit
procedure TFormVenda.Edit4Exit(Sender: TObject);
begin
if dm.CDSVenda.State in [dsEdit,dsInsert] then
begin
if dm.CDSVendaCOD_VENDEDOR.Value=0 then
ShowMessage(''Informe o vendedor'')
else
dm.CDSVendaCOMISSAO.AsFloat:= (dm.CDSVendaVALOR.AsFloat)*(dm.CDSVendedorPERCENTUAL.AsFloat/100);
end;
end;
dm.CDSVendaVALOR esta sendo preenchidos na mesma form,
porem quando o evento Edit.onexit é chamado este campo ainda esta vazio.
procedure TFormVenda.Edit4Exit(Sender: TObject);
begin
if dm.CDSVenda.State in [dsEdit,dsInsert] then
begin
if dm.CDSVendaCOD_VENDEDOR.Value=0 then
ShowMessage(''Informe o vendedor'')
else
dm.CDSVendaCOMISSAO.AsFloat:= (dm.CDSVendaVALOR.AsFloat)*(dm.CDSVendedorPERCENTUAL.AsFloat/100);
end;
end;
dm.CDSVendaVALOR esta sendo preenchidos na mesma form,
porem quando o evento Edit.onexit é chamado este campo ainda esta vazio.
Lucas Isoppo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)