$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(); }