diff --git a/R/colunas_constants.R b/R/colunas_constants.R
index 05b574c..7458a7c 100644
--- a/R/colunas_constants.R
+++ b/R/colunas_constants.R
@@ -108,6 +108,64 @@
                             "ementa"="character"
                             ## "siglaTipo"="character","codTipo"="integer","numero"="numeric","ano"="numeric",
                             )
+.COLNAMES_VOT_SEN <-
+  c(
+    "descricao_identificacao_materia"="character",
+    "indicador_votacao_secreta"="character",
+    "descricao_votacao"="character",
+    "descricao_resultado"="character",
+    "codigo_sessao"="character",
+    "sigla_casa_sessao"="character",
+    "nome_casa_sessao"="character",
+    "codigo_sessao_legislativa"="character",
+    "sigla_tipo_sessao"="character",
+    "numero_sessao"="character",
+    "data_sessao"="character",
+    "hora_inicio_sessao"="character",
+    "codigo_tramitacao"="character",
+    "numero_autuacao"="character",
+    "data_tramitacao"="character",
+    "numero_ordem_tramitacao"="character",
+    "texto_tramitacao"="character",
+    "indicador_recebimento"="character",
+    "data_recebimento"="character",
+    "origem_tramitacao_local_codigo_local"="character",
+    "origem_tramitacao_local_tipo_local"="character",
+    "origem_tramitacao_local_sigla_casa_local"="character",
+    "origem_tramitacao_local_nome_casa_local"="character",
+    "origem_tramitacao_local_sigla_local"="character",
+    "origem_tramitacao_local_nome_local"="character",
+    "destino_tramitacao_local_codigo_local"="character",
+    "destino_tramitacao_local_tipo_local"="character",
+    "destino_tramitacao_local_sigla_casa_local"="character",
+    "destino_tramitacao_local_nome_casa_local"="character",
+    "destino_tramitacao_local_sigla_local"="character",
+    "destino_tramitacao_local_nome_local"="character",
+    "situacao_codigo_situacao"="character",
+    "situacao_sigla_situacao"="character",
+    "situacao_descricao_situacao"="character",
+    "descricao_voto"="character",
+    "codigo_parlamentar"="character",
+    "nome_parlamentar"="character",
+    "nome_completo_parlamentar"="character",
+    "sexo_parlamentar"="character",
+    "forma_tratamento"="character",
+    "url_foto_parlamentar"="character",
+    "url_pagina_parlamentar"="character",
+    "email_parlamentar"="character",
+    "sigla_partido_parlamentar"="character",
+    "uf_parlamentar"="character",
+    "codigo_materia"="character",
+    "sigla_casa_identificacao_materia"="character",
+    "nome_casa_identificacao_materia"="character",
+    "sigla_subtipo_materia"="character",
+    "descricao_subtipo_materia"="character",
+    "descricao_identificacao_materia"="character",
+    "numero_materia"="character",
+    "ano_materia"="character",
+    "indicador_tramitando"="character",
+    "descricao_objetivo_processo"="character"
+  )
 
 # Partidos
 .COLNAMES_PARTIDOS <- c("id"="integer","sigla"="character","nome"="character","uri"="character")
diff --git a/R/constants.R b/R/constants.R
index 4d6b6de..a570913 100644
--- a/R/constants.R
+++ b/R/constants.R
@@ -38,6 +38,7 @@
 .DEFERIMENTO_SENADO_PATH <- "/dadosabertos/materia/movimentacoes/"
 .AGENDA_SENADO_PATH <- "/dadosabertos/plenario/agenda/mes/"
 .AGENDA_SENADO_COMISSOES <- "/dadosabertos/agenda/"
+.SENADO_VOTACOES_PATH <- "/dadosabertos/materia/votacoes/"
 
 # Link do repositório do rcongresso
 .RCONGRESSO_LINK <- "https://github.com/analytics-ufcg/rcongresso"
diff --git a/R/utils.R b/R/utils.R
index 702e53c..b577101 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -430,6 +430,26 @@ rename_table_to_underscore <- function(df) {
   tramitacao_df
 }
 
+#' @title Renames the cols of the bill's voting on Senate
+#' @description Renames each item from vector with the pattern: split by underscore and lowercase
+#' @param df Dataframe
+#' @return Dataframe containing the renamed strings.
+#' @export
+#' @rdname fetch_votacoes_senado
+#' @export
+.rename_votacoes_df <- function(df) {
+  new_names = names(df) %>%
+    .to_underscore() %>%
+    stringr::str_replace(
+      "sessao_plenaria_|tramitacao_identificacao_tramitacao_|identificacao_parlamentar_",
+      ""
+    )
+  
+  names(df) <- new_names
+  
+  df
+}
+
 #' @title Get the author on Chamber
 #' @description Return a dataframe with the link, name, code, type and house
 #' @param prop_id Proposition ID
diff --git a/R/votacoes.R b/R/votacoes.R
index b380717..02d0486 100644
--- a/R/votacoes.R
+++ b/R/votacoes.R
@@ -1,5 +1,5 @@
-#' @title Fetches details about a voting
-#' @description Fetches details about a voting.
+#' @title Fetches details about a voting on Chamber
+#' @description Fetches details about a voting on Chamber.
 #' @param id_votacao Voting's ID
 #' @return Dataframe containing details about a voting, including tittle,
 #'  start voting time, finish voting time, result and approval
@@ -21,6 +21,43 @@ fetch_votacao <- function(id_votacao = NULL){
     .coerce_types(.COLNAMES_VOTACAO)
 }
 
+#' @title Fetches details about a voting on Senate
+#' @description Fetches details about a voting on Senate.
+#' Ao fim, a função retira todos as colunas que tenham tipo lista para uniformizar o dataframe.
+#' @param proposicao_id Proposition Id
+#' @return Dataframe containing details about a voting on Senate
+#' @examples
+#' fetch_votacoes_senado(91341)
+#' @rdname fetch_votacoes_senado
+#' @export
+fetch_votacoes_senado <- function(proposicao_id) {
+
+  json_votacoes <- .senado_api(paste0(.SENADO_VOTACOES_PATH, proposicao_id), asList = TRUE)
+  votacoes_data <-
+    json_votacoes %>%
+    magrittr::extract2("VotacaoMateria") %>%
+    magrittr::extract2("Materia")
+  votacoes_ids <-
+    votacoes_data %>%
+    magrittr::extract2("IdentificacaoMateria") %>%
+    tibble::as_tibble() %>%
+    unique()
+  votacoes_df <-
+    votacoes_data %>%
+    magrittr::extract2("Votacoes") %>%
+    purrr::map_df( ~ .) %>%
+    tidyr::unnest()
+  
+  votacoes_df <-
+    votacoes_df %>%
+    tibble::add_column(!!!votacoes_ids)
+  
+  votacoes_df <- votacoes_df[,!sapply(votacoes_df, is.list)]
+  
+  .rename_votacoes_df(votacoes_df) 
+  votacoes_df 
+}
+
 #' @title Fetches the positions of a group on a voting
 #' @description Fetch how the groups in the chamber of deputies
 #' instructed their members to vote on a given voting.
diff --git a/man/fetch_votacao.Rd b/man/fetch_votacao.Rd
index 5bc0495..2a3044f 100644
--- a/man/fetch_votacao.Rd
+++ b/man/fetch_votacao.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/votacoes.R
 \name{fetch_votacao}
 \alias{fetch_votacao}
-\title{Fetches details about a voting}
+\title{Fetches details about a voting on Chamber}
 \usage{
 fetch_votacao(id_votacao = NULL)
 }
@@ -14,7 +14,7 @@ Dataframe containing details about a voting, including tittle,
  start voting time, finish voting time, result and approval
 }
 \description{
-Fetches details about a voting.
+Fetches details about a voting on Chamber.
 }
 \examples{
 segundoturno_pec241 <- fetch_votacao(7252)
diff --git a/man/fetch_votacoes_senado.Rd b/man/fetch_votacoes_senado.Rd
new file mode 100644
index 0000000..58764c4
--- /dev/null
+++ b/man/fetch_votacoes_senado.Rd
@@ -0,0 +1,30 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R, R/votacoes.R
+\name{.rename_votacoes_df}
+\alias{.rename_votacoes_df}
+\alias{fetch_votacoes_senado}
+\title{Renames the cols of the bill's voting on Senate}
+\usage{
+.rename_votacoes_df(df)
+
+fetch_votacoes_senado(proposicao_id)
+}
+\arguments{
+\item{df}{Dataframe}
+
+\item{proposicao_id}{Proposition Id}
+}
+\value{
+Dataframe containing the renamed strings.
+
+Dataframe containing details about a voting on Senate
+}
+\description{
+Renames each item from vector with the pattern: split by underscore and lowercase
+
+Fetches details about a voting on Senate.
+Ao fim, a função retira todos as colunas que tenham tipo lista para uniformizar o dataframe.
+}
+\examples{
+fetch_votacoes_senado(91341)
+}
diff --git a/tests/testthat/test_votacoes.R b/tests/testthat/test_votacoes.R
index ea1d3bc..78103b2 100644
--- a/tests/testthat/test_votacoes.R
+++ b/tests/testthat/test_votacoes.R
@@ -7,6 +7,7 @@ orientacoes_pec241 <<- fetch_orientacoes(7252)
 ultima_votacao_pec241 <<- fetch_votacoes(2088351) %>% ultima_votacao()
 votos_partidos_pec241 <<- get_votos_partidos(7252)
 proposicao_votacao7252 <<- fetch_proposicao_from_votacao(7252)
+proposicao_votacao_senado <<- fetch_votacoes_senado(91341)
 
 
 # Testa erros
@@ -22,6 +23,7 @@ test_that("Is dataframe", {
   expect_true(is.data.frame(ultima_votacao_pec241))
   expect_true(is.data.frame(votos_partidos_pec241))
   expect_true(is.data.frame(proposicao_votacao7252))
+  expect_true(is.data.frame(proposicao_votacao_senado))
 })
 
 test_that("Not Empty", {
@@ -31,6 +33,11 @@ test_that("Not Empty", {
   expect_true(nrow(ultima_votacao_pec241) != 0)
   expect_true(nrow(votos_partidos_pec241) != 0)
   expect_true(nrow(proposicao_votacao7252) != 0)
+  expect_true(nrow(proposicao_votacao_senado) != 0)
+})
+
+test_that("fetch_votos()", {
+  expect_true(all(sapply(proposicao_votacao_senado, class) %in% .COLNAMES_VOT_SEN))
 })
 
 test_that("fetch_votos()", {