[novato_erick]

jajaja Chicos Disculpen la tardanza en contestar...

ecficsa

No tomes esto como una crítica, nada mas alejado de mi intención, es sólo un consejo. Noto que del modo en que describes la situación no hemos podido entenderla, fijate si puedes replantearla de otro modo para así poder ayudarte.

Tranquilo para nada me afecta las criticas en realidad aprendo de mis errores y procuraré ser más detallado en mis consulta...

Al González

...Y, por favor, usando puntos, comas y todo lo indispensable para que sea posible entender lo que escribes. ¡Por el amor de Chuck Norris!

Muy sinceramente Gracias Al González igual que a ecfisa procuraré ser mas detallado pero en realidad encontré unan solución ejemplo:

al cerrar mi formulario de consulta de compras pendientes en su respectivo evento

Código Delphi [-]
 TfrmConsultaComprasPendiente.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
with dmComprar.cdsComprasPendientesUser do
begin
   Params.ParamByName('IDUSCOMPRA').AsInteger := Variables.Id_usuario;
   open;
end;
if   dmComprar.cdsComprasPendientesUser.Active then //Aquí me quedé en duda con la interrogante que tenia AgustinOrtu asi que utilizé los parametros del ClientDataSet asociado con mi TSQLQuery de DBExpress y en realidad resulta igual.
  dmComprar.cdsComprasPendientesUser.Refresh;
  Variables.registroscompraspen := dmComprar.cdsComprasPendientesUser.
    RecordCount;
  dmComprar.cdsComprasPendientesUser.Active := False;
  dmComprar.cdsDetallesComprasPendientesUser.Active := False;
  if registroscompraspen >= 1 then
  begin
    frmPrincipal.LblAvisosMSG.Caption := 'Tienes ' +
      IntToStr(registroscompraspen) + ' Registros de Compras Pendientes';
    frmPrincipal.iAvisosInv.Picture.LoadFromFile
      ('C:\MIPROGRAMA\Imagenes\Package-warning-iconTxT.png');
    frmPrincipal.LblAvisosMSG.Font.Color := ClRed;
  end
  else
  begin
    frmPrincipal.LblAvisosMSG.Caption := 'No tienes Notificaciones';
    frmPrincipal.iAvisosInv.Picture.LoadFromFile
      ('C:\MIPROGRAMA\Imagenes\Package-Accept-iconTxT.png');
    frmPrincipal.LblAvisosMSG.Font.Color := clWindowText
  end;
end;

En fin al cerrar los ClientDataSet o Desactivarlos al volver abrirlo simplemente los DBGRID asociados al datasource y clienteDataSet no mostraban nada así que hice esto:

Código Delphi [-]
procedure TfrmConsultaComprasPendiente.btnBuscarPendientesClick(
  Sender: TObject);
begin
//DataSource1.DataSet := DataModule1.FindComponent('DatosCliente') as TDataSet
dbgComprasPendientes.Enabled := True;
dbgComprasPendientes.DataSource.DataSet :=
dmComprar.FindComponent('cdsComprasPendientesUser') as TDataSet;
with dmComprar.cdsComprasPendientesUser do
begin

   close;
   Params.ParamByName('IDUSCOMPRA').AsInteger := Variables.Id_usuario;
   open;
end;
  if  dmComprar.cdsComprasPendientesUser.Active then
   dmComprar.cdsComprasPendientesUser.Refresh;
end;

y Listo ya me trae los datos recientes que me costaba pero sinceramente estoy en duda porque el DBGRID Pierde su propiedad Enable poniendolo en falso.

De todas manera con esto ya corregí mi comportamiento extraño.

Chicos Realmente aprecio mucho su colaboración a mejorarme con ustedes he aprendido y me falta mucho más que aprender Cualquier cosa si se dan alguna vez una vuelta por Panamá avisen para tomar algo juntos.


Saludos

novato_erick

PD: en realidad voy a reducir más mi codigo porque al verlo me di cuenta que se puede hacer...