Ver Mensaje Individual
  #3  
Antiguo 23-01-2014
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Reputación: 16
novato_erick Va por buen camino
Hola creo que me voy a responder a mi pregunta jejejej bueno la respuesta estaba en simplemente la propiedad del la culumna del dbgrid poniendo visible si el valor del campo del ClientDataSet tiene 0 o no lo tiene..

y aquí apliqué el código:

Código Delphi [-]
 if (tipoConsulta in ['0' .. '9']) and
      (length(trim(eBusquedArticulo.Text)) > 0) then
    begin
      dmlogicaArticulos.cdsConsultaArticuloCodigo.Active := False;
      dsConsultaArticulo.DataSet := dmlogicaArticulos.FindComponent
        ('cdsConsultaArticuloCodigo') as TDataSet;
      dsConsultaArticulo.DataSet.Close;
      with dmlogicaArticulos.qConsultaArticuloCodigo do
      begin
        Close;
        Params.ParamByName('CodigoBarra').AsString :=
          trim(eBusquedArticulo.Text);
      end;
      dsConsultaArticulo.DataSet.Open;
      dmlogicaArticulos.cdsConsultaArticuloCodigo.Active := True;
      if dmlogicaarticulos.cdsConsultaArticuloCodigoPRECIO_CIV.AsFloat = 0 then// aquí realize esto
      begin
        dbgConsultaArticulo.Columns[9].Visible := True;// se muestra
        dbgConsultaArticulo.Columns[9].Width := 150; puse aquí el ancho porque si lo dejo por defecto al mostrarse pierde el tamaño así que para asegurarme que no lo hago lo establezco en program...
        dbgConsultaArticulo.Columns[8].Visible := False;// se oculta el campo
      end;
       eBusquedArticulo.SelectAll;
      if dmlogicaArticulos.cdsConsultaArticuloCodigo.RecordCount = 0 then
      begin
        SHOWMESSAGE('No se Encuentra Artículo');
        eBusquedArticulo.Clear;
      end;
    end;
Saludos
Responder Con Cita