assim... tenho o evento OnDataChange de um datasource
nele, deve ser executada uma rotina se tal botão for clicado..
mas como eu faço isso??
eu fiz assim...
procedure Tdm.dtsCadProDataChange(Sender: TObject; Field: TField);
begin
if frmCadPro.btnGravarClick(Sender) = True then
begin
if Field <> nil then
begin
if AnsiSameText(Field.FieldName, 'PRODES') then
begin
ShowMessage(' Gravou lá no ESTAPROA!!!');
dm.ESTAPROA.Edit;
dm.ESTAPROAPROCOD.Value := frmCadPro.txtCadPro_CodPro.Text;
dm.ESTAPROAPRODES.Value := frmCadPro.txtCadPro_Desc.Text;
dm.ESTAPROAPROUND.Value := frmCadPro.txtCadPro_UndVen.Text;
dm.ESTAPROAPROPRE.Value := StrToFloatDef(frmCadPro.txtCadPro_PreVen.Text,0);
dm.ESTAPROAPROPOF.Value := StrToFloatDef(frmCadPro.txtCadPro_PreOfe.Text,0);
dm.ESTAPROAPROIOF.Value := StrToDateTimeDef(frmCadPro.txtCadPro_DataIniOfe.Text,0);
dm.ESTAPROAPRODOF.Value := StrToDateTimeDef(frmCadPro.txtCadPro_DataFinOfe.Text,0);
dm.ESTAPROA.Post;
end;
end;
end;
end;
Mas deu o erro: [DCC Error] U_dm.pas(452): E2008 Incompatible types na linha do If
Pergunta
Gabriel Cabral
Oi gente...
assim... tenho o evento OnDataChange de um datasource
nele, deve ser executada uma rotina se tal botão for clicado..
mas como eu faço isso??
eu fiz assim...
Mas deu o erro: [DCC Error] U_dm.pas(452): E2008 Incompatible types na linha do If
Como posso fazer???
Obrigado
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.