procedure TfrmModificarArticulo.btnBuscarProcedimientoClick(Sender: TObject);
begin
if (length(trim(ebusquedArticulo.Text)) > 0) then
with dmLogicaArticulos.cdsProcedimientoConsultaArtDescrip do
begin
CommandText := 'select * from dmStoreProcedure.spConsultaArticuloDescrip (ESCRIPCIONAR)';
Params.ParamByName('DESCRIPCIONAR').AsString := trim(ebusquedArticulo.Text);
Execute;
end;