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 begin
dbgConsultaArticulo.Columns[9].Visible := True; 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; end;
eBusquedArticulo.SelectAll;
if dmlogicaArticulos.cdsConsultaArticuloCodigo.RecordCount = 0 then
begin
SHOWMESSAGE('No se Encuentra Artículo');
eBusquedArticulo.Clear;
end;
end;
Saludos