# 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')
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
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
### 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
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)
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))
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))
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
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))
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
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'))
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'))
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
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"