4  Documentos emitidos

library(readxl)
library(tidyverse)
library(leaflet)
library(janitor)
library(lubridate)
library(tidyverse)
library(purrr)
library(knitr)
library(kableExtra)
library(DescTools)
library(zoo)
library(stringr)
library(data.table)
library(DT)
library(readr)

`%notin%` <- Negate(`%in%`)

# formato dos numeros
myNumFmt <- as.fmt(digits=0, big.mark=".")

options(scipen = 999)

lista_ugs_gestor <-
  read_excel("lista_ugs_gestor.xlsx") |>
  clean_names()

# ug_selecionada <-  "070015"

ug_selecionada <- read_csv("ug_selecionada.csv") $ug_selecionada

docs_ug <-
  read_excel(paste0("docs_ug_",ug_selecionada,".xlsx")) |>
  clean_names()

4.1 Quantitativo por tipo de documento

docs_ug |>
  group_by(doc_tipo_nome) |>
  count() |>
  arrange(desc(n)) |>
  kable(
    col.names = c("Tipo de documento","Quantidade"),
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ",")
    )

Tipo de documento	Quantidade
NOTA DE LANCAMENTO SISTEMA	2.757
REGISTRO ORCAMENTARIO	1.962
ORDEM BANCARIA	1.298
DARF - DOCUMENTO DE ARRECADACAO DE RECEITAS FEDERAIS	984
NOTA PROGRAMACAO FINANCEIRA	272
DAR - DOCUMENTO DE ARRECADACAO FINANCEIRA MUNICIPAL	109
NOTA DE DOTACAO	35
REGISTRO DE ARRECADACAO	12
GUIA DE RECOLHIMENTO	5
MOVIMENTACAO DE CREDITO	1

4.2 Qual operador emitiu o documento

docs_ug |>
  group_by(doc_lancado_por_nome ) |>
  mutate(doc_lancado_por_nome = str_extract(doc_lancado_por_nome, regex("[A-Z]*"))) |>
  count() |>
  arrange(desc(n)) |>
  kable(
    col.names = c("Operador","Quantidade"),
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ",")
    )

Operador	Quantidade
ADRIANA	2.693
BIANCA	1.947
MARCELO	1.790
RONALDO	596
HELENA	203
NIVIA	70
CARLA	68
COORDENACAO	40
DENIZE	23
JOSE	3
JADER	1
MARCONI	1

docs_ug |>
  group_by(doc_tipo_codigo,doc_lancado_por_nome  ) |>
  mutate(doc_lancado_por_nome = str_extract(doc_lancado_por_nome, regex("[A-Z]*"))) |>
  count() |>
  kable(
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ",")
    )

4.3 Tipo de favorecido: quantitativo

docs_ug |>
  group_by(favorecido_tipo_nome ) |>
  count() |>
  arrange(desc(n)) |>
  head(20) |>
  kable(
    col.names = c("Tipo de favorecido","Quantidade"),
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ",")
    )

Tipo de favorecido	Quantidade
PESSOA JURIDICA	5.784
NAO SE APLICA	1.105
UNIDADE GESTORA	309
SEM INFORMACAO	178
PESSOA FISICA	59

4.4 Principais UGs favorecidas

docs_ug |>
  filter(favorecido_tipo_nome == "UNIDADE GESTORA") |>
  group_by(favorecido_doc_nome ) |>
  count() |>
  arrange(desc(n)) |>
  head(10)|>
  kable(
    col.names = c("Favorecido","Quantidade"),
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ",")
    )

Favorecido	Quantidade
SETORIAL ORCAMENTARIA E FINANCEIRA/MGI	227
EMPRESA BRASIL DE COMUNICACAO S.A	17
SUPERINT. REG. ADM. DO MGI - SANTA CATARINA	17
SETORIAL ORCAMENTARIA E FINANCEIRA-MF	14
PROCURADORIA GERAL DA FAZENDA NACIONAL	7
DIRETORIA DE GESTAO CORPORATIVA DA CGU	6
SECRETARIA DO PATRIMONIO DA UNIAO	6
SUPERINTENDENCIA REGIONAL DO TRABALHO/SC	6
AGENCIA BRASILEIRA DE INTELIGENCIA	2
FOLHA DE PAGAMENTO - MGI	2

4.5 Favorecidos e tipos de documentos

docs_ug |>
  filter(doc_tipo_codigo != "NS") |>
  group_by( favorecido_doc_nome, doc_tipo_codigo ) |>
  count() |>
  arrange(desc(n)) |>
  head() |>
  kable(
    col.names = c("Favorecido", "Tipo de documento","Quantidade"),
    digits = 0,format.args = list(big.mark = ".", decimal.mark = ",")
    )

Favorecido	Tipo de documento	Quantidade
NAO SE APLICA	DF	984
BANCO DO BRASIL SA	OB	785
CELESC DISTRIBUICAO S.A	RO	231
SETORIAL ORCAMENTARIA E FINANCEIRA/MGI	PF	227
PLANSUL PLANEJAMENTO E CONSULTORIA EIRELI	RO	133
MULTSERVICE PRESTADORA DE SERVICOS LTDA	RO	114

4.6 Sistema de origem

docs_ug |>
  group_by(doc_sistema_origem ) |>
  count() |>
  arrange(desc(n)) |>
  kable(
    col.names = c("Sistema de origem","Quantidade"),
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ",")
    )

Sistema de origem	Quantidade
GESTAOCOMP	3.715
COMPRASNET	1.418
DOCHABIL	1.343
SIAFI	544
MODULOPF	272
CONCILIA	54
'-8	48
BAIXASALDO	38
BAIXADIF	2
OBCARTAO	1

4.7 Data de lançamento do documento

docs_ug |>
  group_by(doc_lancado_por_data_acesso ) |>
  count() |>
  arrange(desc(n)) |>
  head(10)|>
  kable(
    col.names = c("Data de lançamento","Quantidade"),
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ","))

Data de lançamento	Quantidade
26/12/2023	141
22/12/2023	120
04/05/2023	112
13/12/2023	98
13/04/2023	97
20/12/2023	89
01/12/2023	82
19/12/2023	75
12/12/2023	73
13/07/2023	73

4.8 Documentos emitidos no dia 26/12/2023

docs_ug |>
  filter(
    doc_lancado_por_data_acesso %in% c((
    docs_ug |> group_by(doc_lancado_por_data_acesso ) |>
      count() |>
      arrange(desc(n)))[1,1])
    ) |>
  group_by(doc_tipo_nome)|>
  count() |>
  arrange(desc(n)) |>
  head(10)|>
  kable(
    col.names = c("Tipo de documento","Quantidade"),
    digits = 0,
    format.args = list(big.mark = ".", decimal.mark = ",")
    )

Tipo de documento	Quantidade
NOTA DE LANCAMENTO SISTEMA	47
ORDEM BANCARIA	44
DARF - DOCUMENTO DE ARRECADACAO DE RECEITAS FEDERAIS	27
REGISTRO ORCAMENTARIO	12
DAR - DOCUMENTO DE ARRECADACAO FINANCEIRA MUNICIPAL	10
NOTA PROGRAMACAO FINANCEIRA	1