Firemonkey Edit.onexit ocorre antes de salvar os dados na tabela
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
Curtidas 0