GET de la info

# id_inicio = 1177206
# id_fin = id_inicio + 3078

# uri = sprintf('http://www.documentcloud.org/documents/%s/pages/dgc-1748-2013-p1.txt', id_inicio:id_fin)
# getURL(uri)

# library(httr)
# d <- lapply(uri, function(x){
#   content(GET(x), as="text")
# })
# save(d, 'declaraciones.RData')

Obtengo los adjudicatarios

Falla en algunos casos, queda como “REVISAR” Nota: En este caso y el de importe uso expresiones regulares para extraer la info relevante

setwd("/Users/mbtangotan/Desktop")
load("declaraciones.RData")

d = d[-c(2973,2958,2950,2715,2668,339,2022,2315)]

adj = lapply(d, function(x) {
  r = gsub('.*ad[ij][[:lower:]]+[[:punct:]]{0,}|.*adj[úu][[:lower:]]+[[:punct:]]{1,}\\n\\n|.*adj[úu][[:lower:]]+[[:punct:]]{1,}\\n\\n\\.\\n', '', x, ignore.case=TRUE)
  r = gsub('\\n.*', '', r)
  r = gsub('^ | $', '', r)
  r
})

df = data.frame(adj=unlist(adj))
inx_adj = which(nchar(unlist(adj)) < 5)
df[row.names(df) %in% inx_adj, ] <- "REVISAR"
## Warning: invalid factor level, NA generated

Obtengo el importe máximo que aparece en la declaración.

Funciona en la mayoría de los casos…

d1 = lapply(d, function(x){
  r = gsub('normado por.*', '', x, ignore.case=T)
  gsub('[[:digit:]]{1,}-[[:digit:]]{1,}', '', r, ignore.case=T)
})

# Busco este tipo de patron: 
# 1.800,00 o 54,00
# Me quedo con todos los matchs
importe = lapply(d1, function(x){
  pat = '[[:digit:]]{1,},[[:digit:]]{1,2}|[[:digit:]]{2}\\.[[:digit:]]{1,},[[:digit:]]{2}'
  r = unlist(ifelse(grepl(pat, x), regmatches(x, gregexpr(pat, x)), 'ERROR'))
  r
})

imp = lapply(importe, function(x){
  r = ifelse(grepl('.*,[[:digit:]]{2}', x) == FALSE, 0, x)
#  r = ifelse(grepl('.*, e', x), '0', x)
  r = gsub(',[[:digit:]]{2}|\\.|^ | $', '', r)
  r = gsub('[^[:digit:]]', '', r)
  r
})

# Me quedo con el máximo match de importe de cada vector (en la lista imp)
# Las declaraciones son inconsistentes (los numeros a veces son diferentes al texto...)
# ej: d[639]

imp = sapply(imp, function(x){
  max(as.numeric(as.character(x)))
})

df$imp = imp

Limpio los nombres de los adjudicatarios

### Cleansing de adjuducatarios para agregar importes por adjudicatario
adj = unlist(adj)
adj = tolower(as.character(adj))
adj = gsub('[[:punct:]]', '', adj)
adj = gsub('^ | $', '', adj)

# acentos y ñ
adj = gsub('á', 'a', adj)
adj = gsub('é', 'e', adj)
adj = gsub('í', 'i', adj)
adj = gsub('ó', 'o', adj)
adj = gsub('ú', 'u', adj)
adj = gsub('ñ', 'n', adj)

adj = gsub('honorable.*nac[ltij]on', 'senado', adj)
adj = gsub('.*comedor.*senado', 'comedor_senado', adj)
adj = gsub('s r l', 'srl', adj)
adj = gsub('s a', 'sa ', adj)
adj = gsub('gobiern.*buenosaires', 'gob_caba', adj)

adj = gsub('^ | $', '', adj)

adj[nchar(adj) < 2] <- 'REVISAR'
adj[nchar(gsub('[^[:digit:]]', '', adj)) > 5] <- 'REVISAR'

# tbl = data.frame(table(adj))[order(data.frame(table(adj))$Freq, decreasing=T),]
# head(tbl, 50)

df$adj = adj

resultados!?

library(data.table)
library(ggplot2)
library(plyr)

df[185, 2] <- 54
DT <- as.data.table(df)

DT[, qt90:=quantile(imp, probs=0.95), by="adj"]
##                                          adj   imp  qt90
##    1:                         comedor_senado  3850 32222
##    2:                         comedor_senado  8500 32222
##    3:                         comedor_senado 18628 32222
##    4:                           dcnstall srl  4835  4835
##    5:                         comedor_senado   731 32222
##   ---                                                   
## 3067:                                 senado  1850 40350
## 3068:                spessot osvaldo antonio  8080 26271
## 3069:                                 senado  2596 40350
## 3070: transportesa utomotores 20 de junio sa 20690 19192
## 3071:                  crucero del norte srl  6396 22985
DT[,importe2:=ifelse(imp < 10000 | imp < qt90, imp, NA)]
##                                          adj   imp  qt90 importe2
##    1:                         comedor_senado  3850 32222     3850
##    2:                         comedor_senado  8500 32222     8500
##    3:                         comedor_senado 18628 32222    18628
##    4:                           dcnstall srl  4835  4835     4835
##    5:                         comedor_senado   731 32222      731
##   ---                                                            
## 3067:                                 senado  1850 40350     1850
## 3068:                spessot osvaldo antonio  8080 26271     8080
## 3069:                                 senado  2596 40350     2596
## 3070: transportesa utomotores 20 de junio sa 20690 19192       NA
## 3071:                  crucero del norte srl  6396 22985     6396
summary <- 
  DT[i=!is.na(importe2), 
     j=list(
       total=sum(importe2),
       mean=mean(importe2),
       median=median(importe2),
       qt75 = quantile(importe2, probs=0.75),
       qt95 = quantile(importe2, probs=0.95),
       maximo=max(importe2),
       .N # Cantidad de contratos 
       ),
     by="adj"]

head(summary[order(-qt95)], 10)
##                                                  adj  total  mean median
##  1:                             mailcar srl traslada 252995 21083  19537
##  2:                      autotransportesa ndesmar sa 193883 21543  20948
##  3:                                    telecentro sa 319235 45605  45607
##  4:                                          REVISAR 179974 11998   5000
##  5: afarian juan  parada el molino diarios y revista 149016 37254  37489
##  6:                                 lan argentina sa  78971 26324  20091
##  7:                                   la bahiense sa 118738 23748  21780
##  8:                      empresa general urquiza srl  94540 31513  35694
##  9:                                 via bariloche sa 123279 24656  22669
## 10:                              nueva chevallier sa  80708 20177  22201
##      qt75  qt95 maximo  N
##  1: 33795 45938  47817 12
##  2: 37363 45780  45900  9
##  3: 45607 45607  45607  7
##  4: 19530 41089  41297 15
##  5: 37724 37852  37884  4
##  6: 29948 37834  39805  3
##  7: 31917 37023  38300  5
##  8: 36408 36980  37123  3
##  9: 25052 36106  38869  5
## 10: 28960 34837  36306  4
# hay errores todavía, creo. Pero importe2 debería andar bien para tener una idea de los datos
options(scipen=666)
# median(DT$importe2, na.rm=TRUE)

Importe Total asignado por adjudicatario (filtro minimos y maximos)

dt = summary[total > 100000 & total < 700000]
ggplot(dt, aes(adj, total, group=adj)) + theme_bw() +
  geom_bar(stat='identity', fill="#56B4E9") + 
  theme(axis.text.x = element_text(angle = 90, size = 12))

plot of chunk plot1

Cantidad de contratos por adjudicatario

ggplot(dt, aes(adj, N, group=adj)) + theme_bw() +
  geom_bar(stat='identity', fill="#56B4E9") + 
  theme(axis.text.x = element_text(angle = 90, size = 12))

plot of chunk plot2

Importe total promedio por contrato (por adjudicatario)

summary[,imp_prom_cont_adj:=total / N]
##                                                  adj    total  mean median
##   1:                                  comedor_senado  1328331  8856   6858
##   2:                                    dcnstall srl     4835  4835   4835
##   3:                                          senado 18855201  9557   6940
##   4:    maynar ag saconceslonario oficial volkswagen     9589  9589   9589
##   5:              imprenta del congreso de la nacion    34968  3179   3375
##  ---                                                                      
## 243:                   honorable senado de la nac on    28169 28169  28169
## 244:                                        senado n     7403  7403   7403
## 245:                                        senado 4     5552  5552   5552
## 246:                   honorable senado de la nac1on     5552  5552   5552
## 247: el rapido argentino compania de mlcroomnibus sa     6938  6938   6938
##       qt75  qt95 maximo    N imp_prom_cont_adj
##   1: 13133 23870  32013  150              8856
##   2:  4835  4835   4835    1              4835
##   3: 11000 29355  40331 1973              9557
##   4:  9589  9589   9589    1              9589
##   5:  3892  5972   7336   11              3179
##  ---                                          
## 243: 28169 28169  28169    1             28169
## 244:  7403  7403   7403    1              7403
## 245:  5552  5552   5552    1              5552
## 246:  5552  5552   5552    1              5552
## 247:  6938  6938   6938    1              6938
quantile(summary$imp_prom_cont_adj, probs=seq(0,1, 0.1))
##      0%     10%     20%     30%     40%     50%     60%     70%     80% 
##     0.0   256.3   842.8  1598.2  2955.2  4158.7  5299.3  6447.2  9131.2 
##     90%    100% 
## 15175.1 45605.0

Turbio 1

Contrato promedio mayor a 20K pesitos

turbio1 = summary[imp_prom_cont_adj > 20000]
ggplot(turbio1, aes(adj, imp_prom_cont_adj, size=N)) + theme_bw() +
  geom_point(stat='identity', color="#56B4E9") + 
  theme(axis.text.x = element_text(angle = 90, size = 12))

plot of chunk plot3

Importe maximo por adjudicatario (desde el percentil 90)

quantile(summary$maximo, probs=seq(0,1, 0.1))
##      0%     10%     20%     30%     40%     50%     60%     70%     80% 
##     0.0   279.2   947.2  1926.0  3200.0  4700.0  6078.8  8377.2 10057.4 
##     90%    100% 
## 27498.2 47817.0

Turbio 2

Contrato máximo mayor a 27K pesitos

turbio2 = summary[maximo > 27610 & total > 50000 & total < 700000]
ggplot(turbio2, aes(adj, maximo, size=total)) + theme_bw() +
  geom_point(stat='identity', color="#56B4E9") + 
  theme(axis.text.x = element_text(angle = 90, size = 12)) +
  labs(list(title="Contrato máximo por adjudicatario", 
            x="Adjudicatario", y='monto contratos máximos'))

plot of chunk plot4

Relacion entre cantidad de contratos y la mediana del importe adjudicado

summary[,fl_outlier:=ifelse(N > 100, "Contratos cada 5 min", "Q_contrato_normal")]
##                                                  adj    total  mean median
##   1:                                  comedor_senado  1328331  8856   6858
##   2:                                    dcnstall srl     4835  4835   4835
##   3:                                          senado 18855201  9557   6940
##   4:    maynar ag saconceslonario oficial volkswagen     9589  9589   9589
##   5:              imprenta del congreso de la nacion    34968  3179   3375
##  ---                                                                      
## 243:                   honorable senado de la nac on    28169 28169  28169
## 244:                                        senado n     7403  7403   7403
## 245:                                        senado 4     5552  5552   5552
## 246:                   honorable senado de la nac1on     5552  5552   5552
## 247: el rapido argentino compania de mlcroomnibus sa     6938  6938   6938
##       qt75  qt95 maximo    N imp_prom_cont_adj           fl_outlier
##   1: 13133 23870  32013  150              8856 Contratos cada 5 min
##   2:  4835  4835   4835    1              4835    Q_contrato_normal
##   3: 11000 29355  40331 1973              9557 Contratos cada 5 min
##   4:  9589  9589   9589    1              9589    Q_contrato_normal
##   5:  3892  5972   7336   11              3179    Q_contrato_normal
##  ---                                                               
## 243: 28169 28169  28169    1             28169    Q_contrato_normal
## 244:  7403  7403   7403    1              7403    Q_contrato_normal
## 245:  5552  5552   5552    1              5552    Q_contrato_normal
## 246:  5552  5552   5552    1              5552    Q_contrato_normal
## 247:  6938  6938   6938    1              6938    Q_contrato_normal
ggplot(summary, aes(median,N)) +
  geom_point(aes(size=maximo,color=maximo)) +
  facet_grid(fl_outlier~., scales="free") +
  labs(list(title="Relacion entre cantidad de contratos y la mediana del importe adjudicado", 
            x="mediana importe adjudicado", y='Cantidad de Contratos'))

plot of chunk plot5

Dado que hay 2308 declaraciones adonde el adjudicatario es el “honorable” senado o el comedor

Tiene sentido analizar los contratos por separado

DT[,id:=1:nrow(DT)]
##                                          adj   imp  qt90 importe2   id
##    1:                         comedor_senado  3850 32222     3850    1
##    2:                         comedor_senado  8500 32222     8500    2
##    3:                         comedor_senado 18628 32222    18628    3
##    4:                           dcnstall srl  4835  4835     4835    4
##    5:                         comedor_senado   731 32222      731    5
##   ---                                                                 
## 3067:                                 senado  1850 40350     1850 3067
## 3068:                spessot osvaldo antonio  8080 26271     8080 3068
## 3069:                                 senado  2596 40350     2596 3069
## 3070: transportesa utomotores 20 de junio sa 20690 19192       NA 3070
## 3071:                  crucero del norte srl  6396 22985     6396 3071
s <- DT[grep("senado", adj)]

top = head(s[order(-importe2) & importe2 > 35000], 20)
top
##        adj   imp  qt90 importe2   id
##  1: senado 37403 40350    37403  115
##  2: senado 40000 40350    40000  137
##  3: senado 35187 40350    35187  232
##  4: senado 40331 40350    40331  257
##  5: senado 37763 40350    37763  397
##  6: senado 35552 40350    35552  547
##  7: senado 37018 40350    37018  562
##  8: senado 36340 40350    36340  610
##  9: senado 39039 40350    39039  701
## 10: senado 35428 40350    35428  904
## 11: senado 37072 40350    37072  907
## 12: senado 35635 40350    35635  961
## 13: senado 35219 40350    35219  973
## 14: senado 37314 40350    37314 1185
## 15: senado 35395 40350    35395 1494
## 16: senado 40000 40350    40000 1534
## 17: senado 38860 40350    38860 1611
## 18: senado 39883 40350    39883 1748
## 19: senado 39291 40350    39291 1814
## 20: senado 37148 40350    37148 1838

Chequear a mano

d[top$id]
## [[1]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nBUENOS AIRES, Z Z MAR. N13\n\nDiSPOSICiÓNN° ....  ..... ..\n\nLiqcidación: 573-2013\nExpediente: 5423-2012\nAnexo:\n\nConcepto:\nSegún detalle Anexo.\n\nAdjudicatario: HONORABLE SENADO DE LA NACiÓN\n\n \n\nimporte: Pesos siete mil cuatrocientos tres Con 60 centavos (S 7.403,60).\n\nimputación Presupuestaria y\n\nPartida Importe\n11.16.3.7.2.0000 - VIATICOS 37.403,60\n\nDe acuerdo a lo normado por DP. 209¡2010, el suscripto es competente para el dictado de la\npresente.\n\nAprobada Ia liquidación y la imputación presupuestaria, se autoriza su inclusión en Orden de\nPago.\n\nRegistrese, comuniquese, publíquese y archívese.\n\n \n\n3\n\nDOMINGUEZ ABRiEL\nDirector de Contaduria\n\n"
## 
## [[2]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nBUENOS AIRESÉ 7 W- Z013\n\nDISPOSICIÓN N“\n\nLiquidación: 5344013\n\n5267-2012\nExpediente:\nANEXO:\n\nCONCEPTO: Rendición de Gastos Protocolares.»\nMemo —— 11672/2013 i S 40.000,00\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos cuarenta mil Con 00 centavos (840.000,00)\n\nimputación Presupuestaria\nPartida\n\n11.16.3.9.1.0000 — SERV. CEREMONIAL\n\nimporte\n\n540.000,00\n\nDe acuerdo a Io normado por DP-209/2010, el suscripto es competente para el dictado de la presente.\n\nAPROBADO lo actuado hasta el momento\n\nRegístrese, Comuníquese, Publíquese y Archívese-\n\n \n\n \n\nDOMINGUEZ, SERGIO GABRIEL\nDirector de Contaduría\n\n"
## 
## [[3]]
## [1] "HONORABLE SENADO DE LA NACÍÓN\nDJRECCIÓN DE CONTADURIA\n\nBUENOS AIRES, t 7 Hítïfi ‘¿Hi3\n\nDISPOSICIÓN N°\n\nLiquidacion: 1468-2013\nExpediente: 995-2013\nAnexo:\n\nConcepto:\nSegún detalle Anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nimporte: Pesos treinta y cinco mi! ciento ochenta y siete Con 35 centavos (S 35.187,35).\nimputación Presupuestaria\n\nPartida Importe\n11.16.3.7.2.0000 - VIATICOS S 35.187,35\n\nDe acuerdo a ¡o normado por DP. 209I2010, el suscripto es competente para el dictado de la\npresente.\n\nAprobada la liquidación y ¡a imputación presupuestaria, se autoriza su inclusión en Orden de\nPago.\n\nRegístrese, comuníquese, pubiíquese y archívese.\n\nï _.\n \noommeaezfsenoso GABRIEL\nDirector de Contaduría\n\n"
## 
## [[4]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURIA\n\nBUENOS AIRES, 2 a  \n\nDISPOSlC!ÓN N° \n\nLiquidación: 1452-2013\nExpediente: 259-2013\nAnexo:\n\nConcepto:\nSegún detalie Anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\n \n\nImporte: Pesos cuarenta mi! trescientos treinta y uno Con 00 centavos (8 40.331,00).\nlmputación Presupuestaria\n\nPartida lmporïe\n11.16.3.7.2.0000 - VIATICOS S 40.331,00\n\nDe acuerdo a io normado por DP 209¡2010, el suscripto es competente para el dictado de ia\npresente.\n\nAprobada ¡a liquidación y ¡a imputación presupuestaria, se autoriza su inctusión en Orden de\nPago.\n\nRegístrese, comuníquese. publíquese y archívese.\n\nogajeLz, seecuo GABRIEL\n\nDirector de Contaduria\n\n"
## 
## [[5]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nBUENOS AlRES, i}   1313\n\nDISPOSICIÓN N°  ......... ..\n\nLiquidación: 1640-2013\nExpediente: 2164-2013\nAnexo:\n\nConcepto:\nSegún detalle anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nimporte: Pesos treinta y siete mil setecientos sesenta y tres COn 50 Centavos (S\n37.763,50).\n\nimputación Presupuestaria\n\nPartida ¡TÑPOTÏG\n\n1‘l.16.3.?.2.0000 — VIATICOS S 37.763,50\n\nDe acuerdo a IO normado por DP. 209/2010, el suscripto es competente para el dictado de la\npresente.\n\nAprobada la liquidación y la imputación presupuestaria, se autoriza su inclusión en Orden de\nPago.\nRegístrese, comuníquese, publíquese y archívese.\n\nÍQÏÏD\n\ní’\n\nDOMIN Z, S IO GABRIEL\nDirector de Contaduría\n\n"
## 
## [[6]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nomsccrón DE CONTADURÍA\n\nBuenos panes, 1 ÜJGN. 2313\n\nO\n\n001232\n\nDISPOSICIÓN N° A A ....................................... ..\n\nLiquidación: 18514013\nExpediente:  1594-2013\nANEXO:\n\nCONCEPTO: Según ¿detalle Anexo .-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos: cinco mi! quinientos cincuenta y dos con 70 centavos (5555270)\n\nImputación Presupuestaria\n\nPartida _ ' Imgorte \n11.16.3.7.2.0000—VIATICOS A 35.552,70 A\n\nDe acuerdo a Io normado por DP-209/2010, el suscripto es competente para el dictado de la presente. _\nAPROBADA la liquidación y la imputación presupuestaria, se autoriza su inclusión en Orden de Pago.\n\n¡»x Regístrese, Comuníquese, Publíquese y AfChÍVCSCr\n\n \n\nDOMlNG G¡0 GABRIEL\n\nDirector de Contaduría\n\n"
## 
## [[7]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CON TADURÍA\n\nBUENOS AJRES. 2 7ÉJUN. Z813\n\nonsPosaclow N° ....................................... ..\n\nLiquidación: 1911-2013\nExpediente: 2445-2013\nAnexo:\n\nConcepto:\nSegún detaiie Anexo.-\n\nAdjudícatario: HONORABLE SENADO DE LA NACIÓN\n\n¡mpofie! Pesos treinta y siete mi! dieciocho Con O0 Centavoe (S 37.018,00).\n\n\"Impútación Presupuestaria \nPartida - importe\n11.16.3.7.2.00Ü0 - VIATICOS S 37.018,00\n\nDe acuerdo a io normado por DP. 209!2010, el suscripto es comïpetente para el dictadoïnde la\npresente. = ‘\n\nAprobada la liquidacion y la imputación presupuestaria, se autoriza su inclusion en Orden de\n\n  \n \n   \n\nPago.\nRegístrese, comuniquese, pubiiquese y archívese.\n\nDOM  SERGIO GABRÍEL \nDirector de Contaduría '\n\n \n\n"
## 
## [[8]]
## [1] "¿U\n\nHONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURIA\n\nBUENOS AIRESÜ z JUL \n\n001294\n\nDISPOSICIÓN ¡»o\n\nLiquidación: 13494013\nExpediente: 1264-2013\nANEXO:\n\nCONCEPTO: Según detalle Anexo .-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nimporte: Pesos treinta tres mil trescientos dieciséis Con 20 centavos (8333133))\n\nimputación Presupuestaria\n\nlrri Orte\n\nPartida\n11.16.3.7.2.0000 — VIATICOS 36.340,80\n11.16.3.7.2.00Ü0 — 'v'IATiCOS\n\ns26.ïï375,4o\n\nDe acuerdo a iO nominado pOr DP-209/20lO, el suscripto es competente para el dictado de la preéente.\nAPROBADA ia Eiquídación y la imputación presupuestaria, se autoriza su inclusión en Orden  Pago.\nRegístrese, Comuníquese, Publíquese y Archívese: n\n\n \n\nDOMÍNGUEZ, SER  GABRIEL\nDirector de Contaduría\n\n"
## 
## [[9]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nBUENOS AIRES, 7 7 ¡”L 3513\n\nDISPOSICIÓN N°  ...... \n\nLiquidación: 2070-2013\nExpediente: 1 778-2013\nAnexo:\n\nConceptoí\nRendición de gastos de Caja Chica N° 63/2013.-\nExpediente - 1778/2013   S 29.039,20\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos veintinueve mil treinta y nueve Con 20 Centavos (S 239.039,20).\n\nlmputación Presupuestaria\n\nPartida\n\n11.16.3.4.5.0000 - SERV. DE CAPACITAC.\n11.16.3.3.2.0000 - MIR VEHICULOS\n11.16.2.9.6.0000 - REPUESTOS/ACCESORIOS\n11.16.2.9.3.0000 - MAT. ELECTRICOS\n11.16.2.9.2.0000 - UTILES _\n11.16.2.7.5.0000 - HERRAMIENTAS MENORES\n11.16.2.5.6.0000 - COMBUSTIBLES\n11.16.2.5.5.0000 - TINTAS/TINTURAS\n11.16.3.5.3.0000 - IMPRENTA\n\n11.16.3.5.1.0000 - TRANSPORTE\n11.16.3.'4.9.0000 - OTROS N.E.P.\n\nDe acuerdo a Io normado por DP.“ 209/2010, el suscripto es competente\n\npresente.\n\nPago.\nRegístrese, comuníquese, publíquese y archívese.\n\n \n\nDOMINGUEZ,  GABRIEL\nDirector de Contaduría\n\n¡msm\n\ns 3.170,00\ns 240,00\n\ns 1.660,54\nS 7213,00\n\nS 113,00\n\nS 2715,00\n\ns 19.765,74\ns 210,00\n\ns 20235,00\n\ns 2.567,92\nS 190,00\n\nÉpara el dictado  la\n\nAprobada ¡a liquidación y la imputación presupuestaria, se autoriza su inclusión en OrdenÏ de\n\n"
## 
## [[10]]
## [1] "HONORABLE SENADO DE LA NAClÓN\nDIRECCIÓN DE CONTADURIA\n\nBUENOS AIRES, Ü   \n\nG01585\n\nDISPOSICIÓN N° .................................... \n\nLiquidación: 2655-2013\nExpediente: 1395-2013\nAnexo:\n\nConcepto:\nSegún detalle Anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos treinta y cinco mil cuatrocientos veintiocho Con 50 Centavos (8 35.428,50).\nimputación Presupuestaria\n\nPartida ¡mpoiïe\n11.16.3.?.1.0000 - PASAJES S 21.228,50\n11.16.3.7.2.0000 - VIATICOS S 14.202,00\n\nDe acuerdo a io normado por DP. 20912010, ei suscripto es competente para e! dictado de la\npresente.\nAprobada ¡a Iiquidación y la imputación presupuestaria, se autoriza su inclusion en Orden de\n\nPago.\n\nRegístrese, comuníquese. publíquese y archivese.\n’ >\\\n\nDOMINGUELGQRGIO GABRtEL\nDirector de Contaduría\n\nq-'-«.__ ____________,.\n\n"
## 
## [[11]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nBUENOS AIRES, Ü 8 ÁEÜ. 2013\n\nDISPOSICIÓN N° \n\nLiquidación: 2654-2013\nExpediente: 2890-2013\nAnexo:\n\nConcepto:\n\nSegún detalie Anexo.-\n\nAdjudicatarío: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos treinta y siete mii setenta y dos Con 00 Centavos (S 37.072,00).\n\nimputación Presupuestaria\n\nPartida ¡mpmïe\n11.16.3.7.1.Ü00O - PASAJES 3 29.339,20\n11.16.3.7.2.000Ü — VIATICOS 5 7.732,80\n\nDe acuerdo a lo normado por DP. 209/2010, el suscripto es competente para el dictado de la\npresente.\n\nAprobada la fíquidación y la imputación presupuestaria, se autoriza su inclusión en Orden de\nPago.\n\nRegístrese, comuníquese, publíquese y archívese.\n\nDOMIN , GABRIEL\nDirector de Contaduría\n\n"
## 
## [[12]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURIA\n\nBUENOS AIRES, 1 g ¡’g-¿{L 23'13\n\nDFSPOSICIÓN N° \n\nLiquidación: 2681-2013\nExpediente: 3196-2013\nAnexo:\n\nConcepto:\nRendición de Gastos Protocolares -\nCarpeta Contenedora — 5197/2013   S 35.635,43\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos treinta y cinco mil seiscientos treinta y cinco Con 43 centavos (S\nH 35.635,43);\nlmputacion Presupuestaria\nPartida ÍmPOFÍG\n11.16.3.9.1.0000 - SERV. CEREMONIAL S 35535.43\n\nDe acuerdo a lo normado por DP. 20912010, e! suscripto es competente para el dictado de ía\npresente.\n\nAprobada Ja liquidación y la imputación presupuestaria, se autoriza su inclusion en Orden de\nPago.\n\nRegístrese, comuníquese, pubiíquese y archivese.\n\n \n     \n\n \n\n, IO GABRIEL\nDirector de Contaduría\n\n"
## 
## [[13]]
## [1] "HONORABLE SENADO DE LA NACiÓN —\nDIRECCIÓN DE CONTADURÍA\n\nBUENOS AIRES, 1   \n\n001654\n\nDISPOSICIÓN N° ....................................... ..\n\nLiquidación: 2718-2013\nExpediente: 2912-2013\nAnexo:\n\nConcepto:\nSegún detalle anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos seis mii doscientos diecinueve Con 00 Centavos (S 6.219,00).\n\nimputación Presupuestaria\nPartida  _. _Q._   -\n11_16.3.7.2.0000-VIAT_ICOS  _ .¿ m. ¿t 35.219,00\n\nDe acuerdo a lo normado por DP. 209/2010, ei suscripto es competente para el dictado de la\npresente.\n\nAprobada la Iiquidación y la imputación presupuestaria, se autoriza su inclusión en Orden de\nPago.\n\nRegístrese, comuníquese, publíquese y archivese.\n\nDOMINGUEZ, SERGIO GABRIEL\nDirector de Contaduría\n\nImporte\n\n"
## 
## [[14]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURIA\n\nBUENOS AIRES,\n\nDISPOSIClÓNN° .....  ...... _.\n\nLiquidación: 2377-2013\nExpediente: 2905-2013\nAnexo:\n\nConcepto:\n\nSegún detalle Anexo.-\n\nAdjudícatario: HONORABLE SENADO DE LA NACIÓN¿\n\nImporte: Pesos treinta y siete mil trescientos catorce C\n\nlmputación Presupuestaria\nPartida\n11.16.3.7.2.0000 - VIATICOS\n\n1 Z SEÏ. 2813\n\non 00 Centavos (S 37.314,00).\n\nImporte\nS 37.314,00\n\n \n\nDe acuerdo a lo normado por DP. 209/2010, el suscripto es competente para el dictado de la\n\npresente.\n\nAprobada la liquidación y la imputación presupuestaria, se\nPago.\n\nRegístrese, comuníquese, publíquese y archívese.\n\nz\n\nDOMI\n\nautoriza su inclusión en Orden de\n\nNGUEZ, sERoio GABRIEL\nDirector de Contaduría\n\n"
## 
## [[15]]
## [1] "g)\n\nHONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CON TADURÍA\n\nBUENOS AIRES, Ü F  \n\nDISPOSICIÓN N° \n\nLiquidación: 3794-2013\nExpediente: 3299-2013\nAnexo:\n\nConcepto:\nSegún detalle Anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\n¡mpofïeï Pesos treinta y cinco mil trescientos noventa y cinco Con 50 Centavos (S\n35.395,50).\n\nimputación Presupuestaria _\n\nPartida Importe\n11.16.3.7.2.0000 - VIATICOS S 15.083,00\n11.16.3.7.1.0000 - PASAJES S 20.312,50\n\nDe acuerdo a io normado por DP. 209/2010, el suscripto es competente para e! dictado de ia\npresente.\n\nAprobada la liquidación y la imputación presupuestaria, se autoriza su inclusión en Orden de\nPago-\n\nRegístrese, comuníquese, publíquese y archívese.\n\nDOMINGUEZ, S O GABRIEL\nDirector e Contaduria\n\n"
## 
## [[16]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURIA\n\nBUENOS AIRESJ 3 NEW. Z813\n\nonsposacaom  .... ..\n\nLiquidación: 3814-2013\nExpediente: 3266-2013\nAnexo:\n\nConcepto:\n\nRendición de gastos.\nCarpeta Contenedora - 528212013 J S 40.000,00\n\nAdjudicatarío: HONORABLE SENADO DE LA NACIÓN\n\nimporte: Pesos cuarenta mu Con 00 centavos (S 40.000,00).\n\nimputación Presupuestaria\n\nPartida Importe\n\n \n\n11.16.3.4.9.0000 — OTROS N.E.P. 3 40.000,00\n\nDe acuerdo a Ionormado por DP. 209/2010, el suscripto es competente para el dictado de la\npresente-\n\nAprobada ¡a iiquidación y ¡a imputación oresupuestaria, se autoriza su inclusion en Orden de\nPago.\nRegístrese, comuníquese, publíquese y archí\n\nÍ  \nDOMIÑÉUEZ, SERG GABRIEL\nDirector de ontaduría\n\n"
## 
## [[17]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nsuenos AIRES, Z  NEW. Z313\n\nDISPOSiCIÓN N° \n\nLiquidación: 4140-2013\nExpediente: 2558-2013\nAnexo:\n\nConcepto:\nSegún detalie Anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nimporte: Pesos treinta y ocho mil ochocientos sesenta Con 20 centavos (S 38.860,20).\nimputación Presupuestaria\n\nPartida ¡mDOTÍG\n15.16.3.7.1.0000 — PASAJES S 25.894,80\n15.16.3.7.2.0000 - VHATICOS 8 12.965,40\n\nDe acuerdo a lo normado por DP. 20912010, e! suscripto es competente para el dictado de ¡a\npresente.\n\nAprobada la iiquidacíon y ¡a imputación presupuestaria, se autoriza su inclusión en Orden de\nPago.\n\nRegístrese, comuniquese, publíquese y archívese.\n\n \n \n\n@INGUEZ, SERGdO GABRIEL\n\"Director de Contaduría\n\n"
## 
## [[18]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nBUENOS AIREELE‘ K3 ‘*\" ¿\"53\n\nDÍSPOSICIÓN N° \n\nLiquidación: 3960-2013\nExpediente: 4038-2013\nAnexo:\nConcepto:\nSegún detatte ANEXO.“\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\nimporte; Pesos treinta y nueve mi! ochocientos ochenta y tres Con O0 centavos (S\n39.883,00}.\nimputación Presupuestaria\nPartida Importe\n15.16.3.?.1.0000 —— PASAJES S 27.080,80\n15.16.3.7.2.0000 - VIATiCOS S 12.802,20\n\nDe acuerdo a ¡o normado por DP. 20912010, ei suscripto es competente para el dictado de la\npresente.\n\nAprobada la iiquidación y 1a imputación presupuestaria, se autoriza su inclusion en Orden de\nPago.\n\nRegistrese, comuníquese, publíquese y archívese.\n\n  \n\nDoMwGtdísERGIo GABRIEL\nDirector de Contaduría\n\n"
## 
## [[19]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTADURÍA\n\nBUENOSAIRES,   \n\nDISPOSICIÓN N° \n\nLiquidación: 4137-2013\nExpediente: 5295-2013\nAnexo:\n\nConcepto:\n\nSegún detalle Anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos treinta y nueve mil doscientos noventa y uno Con 18 Centavos (S\n39.291,18).\n\nImputación Presupuestaria\n\nPartida importe\n\n11.16.3.7.2.Ü000 — VIATICOS S 39.291,18\n\nDe acuerdo a Io normado por DP. 209/2010, el suscripto es competente para el dictado de la\npresente.\n\nAprobada la liquidación y la imputación presupuestaria, se autoriza su inclusión en Orden de\nPago.\n\nRegistrese. comuníquese, publíquese y archívese.\n\nDONHFUEZ, SERGIO GABRIEL\nDirector de Contaduría\n\n"
## 
## [[20]]
## [1] "HONORABLE SENADO DE LA NACIÓN\nDIRECCIÓN DE CONTAD URÍA\n\n' BUENOS AIRES, 1  ÜÉC. Z013\n\nDISPOSICIÓN N° \n\nLiquidación: 4169-2013\nExpediente: 3760-2013\nAnexo:\n\nConcepto:\n\nSegún detalle Anexo.-\n\nAdjudicatario: HONORABLE SENADO DE LA NACIÓN\n\nImporte: Pesos treinta y siete mil ciento cuarenta y ocho Con 80 Centavos (S 37.148,80).\n\nimputación Presupuestaria\nPartida\n15.16.3.7.2.0000 - VÍATICOS\n\n3 31148.80\n\nDe acuerdo a to normado por DP. 209/2010, el suscripto es competente para el dictado de la\npresente.\n\nAprobada la liquidación y ia imputación presupuestaria, se autoriza su inclusión en Orden de\nPago. '\n\nRegístrese, comuníquese, publíquese y archívese.\n\n¡LM-vr\nDO  SERGlO GABRIEL\nDirector de Contaduría\n\nImporte\n\n"