La base datos está conformada por los registros de todas las entidades financieras reguladas por la Superfinanciera bajo COLGAAP desde enero de 2001 hasta dicembre de 2014, bajo NIIF desde enero de 2015, hasta diciembre de 2017, con una frecuencia mensual.

VECTOR_CUENTAS_COLGAAP =c("210000","211500","212010","212700","213000")
FECHA_INICIAL_SERIE_COLGAAP = "2001/1/1"
FECHA_FINAL_SERIE_COLGAAP = "2014/12/1"


VECTOR_CUENTAS_NIIF=c("210000","210700","210815","210800","211000")
FECHA_INICIAL_SERIE_NIIF = "2015/1/1"
FECHA_FINAL_SERIE_NIIF = "2017/12/1"

Conformación de saldos de instrumentos con flujos no contractuales para bancos.

COLGAAP desde 2001 hasta 2014

Calcular la diferencia entre el saldo de la cuenta PUC 21- Depósitos y Exigibilidades y el saldo total de CDTs, CDATs y Cuentas de Ahorro Especial (cuentas PUC 2115, 212010, 2127 y 2130).

NOMB_BANCOS=c("BOGOTA","POPULAR","BANCAFE","SANTANDER","BANCOLOMBIA","ABN","CITIBANK","LLOYDS","SUDAMERIS","GANADERO","CREDITO","BANESTADO","UNION","OCCIDENTE","CHARTERED","TEQUENDAMA","SOCIAL","SUPERBANCO","INTERBANCO","BANKBOSTON","DAVIVIENDA","MULTIBANCA","AGRARIO","MEGABANCO","GRANAHORRAR","COLMENA","26","total","TEQUENDAMA","BANCOOP","32","CONAVI","ALIADAS","VILLAS")


 
PROCES_BANCOS[[17]]=(PROCES_BANCOS[[17]][-13])
PROCES_BANCOS[[8]][6]=PROCES_BANCOS[[8]][5]


BANCOS=Conformar_Series(LISTA_HOJAS = PROCES_BANCOS,VECTOR_CUENTAS =VECTOR_CUENTAS_COLGAAP,FECHA_INICIAL_SERIE = FECHA_INICIAL_SERIE_COLGAAP,FECHA_FINAL_SERIE =FECHA_FINAL_SERIE_COLGAAP ,NOMBRES_ENTIDADES  = NOMB_BANCOS) # esta es una validacion de la función.
## Warning in strptime(xx, f <- "%Y-%m-%d", tz = "GMT"): unknown timezone
## 'zone/tz/2018g.1.0/zoneinfo/America/Bogota'
CUENTAS_PUC_SELECCIONADAS_COLGAAP=BANCOS

#series_Saldos_NC=function(CUENTAS_PUC_SELECCIONADAS_COLGAAP){

Saldo_No_cotractuales_COLGAAP=list()



for (i in 1:length(CUENTAS_PUC_SELECCIONADAS_COLGAAP)) {

   
QQ=as.data.frame(CUENTAS_PUC_SELECCIONADAS_COLGAAP[[i]]) #extrae la serie de datos del banco en la posicion i



RR=as.numeric(QQ[,"210000"])-as.numeric(QQ[,"211500"])-as.numeric(QQ[,"212010"])-as.numeric(QQ[,"212700"])-as.numeric(QQ[,"213000"])

RR=as.data.frame(RR)
row.names(RR)=row.names(QQ)
colnames(RR)=names(BANCOS[i])
  
Saldo_No_cotractuales_COLGAAP[[i]]=RR
names(Saldo_No_cotractuales_COLGAAP)[i]=names(CUENTAS_PUC_SELECCIONADAS_COLGAAP[i])

}

Saldo_No_cotractuales_COLGAAP=(as.data.frame(Saldo_No_cotractuales_COLGAAP))

Saldo_No_cotractuales_COLGAAP[Saldo_No_cotractuales_COLGAAP < 0] <- NA

matplot(Saldo_No_cotractuales_COLGAAP,type = "l")

FECHA=as.character(seq(as.Date(FECHA_INICIAL_SERIE_COLGAAP), as.Date(FECHA_FINAL_SERIE_COLGAAP), "month"))

Saldo_No_cotractuales_COLGAAP[Saldo_No_cotractuales_COLGAAP < 0] <- NA

FECHA=(seq(as.Date(FECHA_INICIAL_SERIE_COLGAAP), as.Date(FECHA_FINAL_SERIE_COLGAAP), "month"))


for (g in 1:length(colnames(Saldo_No_cotractuales_COLGAAP))) {
plot(FECHA,Saldo_No_cotractuales_COLGAAP[,g],type = "l",main = colnames(Saldo_No_cotractuales_COLGAAP[g]))
}

NIIF desde enero de 2015 a dicembre de 2017

Base de datos de compañias de financiamiento.