Esta prte del codigo es la que ejecuta cuando le doy click al grid me di cuanta que tampoco tenia el ADODSFact.open se lo puese pero esta vez el error sigue siendo el mismo
procedure TFFacturacionDirecta.actBusqEvenExecute(Sender: TObject);
begin
Application.CreateForm(TFRBusquedaEventos,FRBusquedaEventos);
if FRBusquedaEventos.ShowModal = mrOk then
begin
ADODSFact.Edit;
ADODSFactNUM_EVENTO.Value:=FRBusquedaEventos.intEvento;
end;
FRBusquedaEventos.Free;
end;
|