$msg .= date("H:i:s") . "\tActualizar a la Sucursal el USUARIO POR DEFECTO\r\n";
//Elimina el Registro de Temporal
$sqlDTmp = "DELETE FROM general_tmp";
$msg .= date("H:i:s") . "\tEliminar la Tabla de Registros Temporales\r\n";
my_query($sqlDTmp);
//PURGA LAS OPERACIONES DE OTRAS SUCURSALES
$chri = STD_LITERAL_DIVISOR;
$sucursal = getSucursal();
$bkpath = PATH_BACKUPS;
//step one: Socios a sus sucursales
$xCL = new cCajaLocal(getCajaLocal());
$msg = $xCL->setValidar();
//step two: Folios al Maximo
$msg .= setFoliosAlMaximo();
/** @since 2010-11-30 */
$cDB = new cSAFEData();
$msg .= $cDB->setLowerSucursal();
//====================================PURGAR DATOS DE A SUCURSAL ===================================================
$msg .= $cDB->setDeleteSucursal($sucursal);
//=====================================================================================================================
$inFiles = array();
$inQuerys = array();
$inSQL = array();
$inPath = "{$bkpath}/{$LoadSucursal}-{$FechaCorte}";
//step one: Socios a sus sucursales
$msg = $xCL->setValidar();
//step two: Folios al Maximo
$msg .= setFoliosAlMaximo();
//Tablas
$xTabla = new cSAFETabla();
//==================================================================================================================
} else {
$messages .= date("Y-m-d") . "\tNO SE CONGELAN SALDOS, NO ES FIN DE MES\r\n";
}
/**
* Actualiza Recibos de Operaciones
**/
$sqlS = "UPDATE operaciones_recibos SET tipo_pago = \"ninguno\" WHERE tipo_pago = \"\" OR IsNULL(tipo_pago) ";
my_query($sqlS);
/**
* Actualiza los Periodos a Formatos Validos en el Caso que el sistema les haya asigando otro valor
*/
$sqlPeriodosCorrectos = "UPDATE operaciones_mvtos\r\n\t\t\t\t\t\t\t\tSET periodo_mensual = DATE_FORMAT(fecha_afectacion, '%c'),\r\n\t\t\t\t\t\t\t\tperiodo_anual = DATE_FORMAT(fecha_afectacion, '%Y'),\r\n\t\t\t\t\t\t\t\tperiodo_semanal = DATE_FORMAT(fecha_afectacion, '%w')\r\n\t\t\t\t\t\t\t\t";
$x1 = my_query($sqlPeriodosCorrectos);
$messages .= $x1[SYS_INFO];
$xSys = new cSystemTask();
$xDB = new cSAFEData();
//crear backup //
if ($xF->getDiaFinal() == $xF->get() or date("N", $xF->getInt()) == 5) {
$messages .= "BACKUP\tRespaldo a la fecha " . $xF->getFechaDDMM() . "\r\n";
$xDB->setCheckDatabase();
$messages .= $xSys->setBackupDB_WithMail();
}
//cerrar el log
$xLog->setWrite($messages);
$xLog->setClose();
if (ENVIAR_MAIL_LOGS == true) {
$xLog->setSendToMail("TR.Eventos del Cierre del Sistema");
}
//Stored procedures
$ql->setRawQuery("CALL `proc_listado_de_ingresos` ");
//$ql->setRawQuery("CALL `proc_historial_de_pagos` ");
$mora = round($arrPagos[$isKey . "-141"], 2);
$abonos += $capital;
$intereses += $interes;
$moratorios += $mora;
$saldo = $monto_ministrado - $abonos;
$estatus = 10;
$sqlIEvent = "INSERT INTO creditos_datos_dinamicos\n\t\t\t\t\t\t\t\t\t\t\t\t(numero_de_credito, numero_de_socio, fecha_de_corte, saldo,\n\t\t\t\t\t\t\t\t\t\t\t\tnumero_de_parcialidad, estatus_del_credito, estatus_de_la_parcialidad,\n\t\t\t\t\t\t\t\t\t\t\t\tfecha_de_mora, fecha_de_vencimiento,\n\n\t\t\t\t\t\t\t\t\t\t\t\tabono_interes_normal,\n\t\t\t\t\t\t\t\t\t\t\t\tabono_interes_moratorio,\n\t\t\t\t\t\t\t\t\t\t\t\tinteres_normal_devengado,\n\t\t\t\t\t\t\t\t\t\t\t\tinteres_moratorio_devengado,\n\n\t\t\t\t\t\t\t\t\t\t\t\tsuma_interes_normal_devengado,\n\t\t\t\t\t\t\t\t\t\t\t\tsuma_interes_normal_pagado,\n\t\t\t\t\t\t\t\t\t\t\t\tsuma_interes_moratorio_devengado,\n\t\t\t\t\t\t\t\t\t\t\t\tsuma_interes_moratorio_pagado\n\t\t\t\t\t\t\t\t\t\t\t\t)\n\t\t\t\t\t\t\t\t\t\t\t\tVALUES\n\t\t\t\t\t\t\t\t\t\t\t\t({$credito}, {$socio}, '{$fecha_de_corte}',\n\t\t\t\t\t\t\t\t\t\t\t\t{$saldo}, 1, {$estatus}, 10,\n\t\t\t\t\t\t\t\t\t\t\t\t'2009-3-7', '2009-3-7',\n\t\t\t\t\t\t\t\t\t\t\t\t{$interes}, {$mora}, 0, 0,\n\t\t\t\t\t\t\t\t\t\t\t\t0, 0, 0, 0) ";
}
}
//Iniciar dia uno, sumar cada caso
//Determinar el Estatus
break;
//Actualiza las Sucursal a
//Actualiza las Sucursal a
case 867:
$cDB = new cSAFEData();
$xCL = new cCajaLocal();
$msg .= $cDB->setLowerSucursal();
$msg .= $xCL->setValidar();
break;
//crear cuentas de ahorros no existentes en sisbancs
//crear cuentas de ahorros no existentes en sisbancs
case 868:
$xMig = new cMigracionSIBANCS();
$msg .= $xMig->setCrearCaptacionNoExistente();
break;
//Eliminar cuentas no existentesn en SISBANCS
//Eliminar cuentas no existentesn en SISBANCS
case 869:
$xMig = new cMigracionSIBANCS();
$msg .= $xMig->setEliminarCuentasNoExistentes();
function setFoliosAlMaximo()
{
$xD = new cSAFEData();
return $xD->setFoliosAlMaximo();
}
