IBClientDataSet1.Close;
IBClientDataSet1.CommandText:= 'SELECT * FROM PRC_INVENTARIO_GETCATEGORIAS (:INI, :FIN)';
IBClientDataSet1.prepare;IBClientDataSet1.Params.ParamByName('INI').Value := Ini.DateTime;
IBClientDataSet1.Params.ParamByName('FIN').Value := fIn.DateTime;
IBClientDataSet1.Open;