$messages .= "=========================\t\t" . EACP_NAME . " \r\n";
$messages .= "=========================\t\t" . getSucursal() . " \r\n";
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\tINICIANDO EL CIERRE DE SISTEMA     ====================\r\n";
$messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t   ====================\r\n";
//2011-01-26 : Agrega un recibo estadistico de control diario
$xNRec = new cReciboDeOperacion(10);
$diaSig = $xF->setSumarDias(1);
$xIdNRec = $xNRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $diaSig, 1, 10, "MOVIMIENTOS_ESTADISTICOS_DEL_DIA", "NA", "ninguno", "NA", DEFAULT_GRUPO);
//actualiza la configuracion del sistema
$xCx = new cConfiguration();
$xUtil = new cUtileriasParaOperaciones();
$xCx->set("numero_de_recibo_por_defecto", $xIdNRec);
$messages .= date("Y-m-d") . "\tSe Agrego el Recibo {$xIdNRec}  para ESTADISTICOS del proximo dia( {$diaSig} )\n";
//=================================
$messages .= $xUtil->setEliminarRecibosDuplicados();
$x20 = setFoliosAlMaximo();
$messages .= date("Y-m-d") . "\tSe llevaron Folios al Maximo, los recibos quedaron en " . $x20["recibos"] . "  \n";
$messages .= date("Y-m-d") . "\tSe llevaron la Cuenta de Polizas Contables al Maximo \n";
setSociosAlMaximo();
clearCacheSessions();
$messages .= date("Y-m-d") . "\tSe limpio la Cache de sessiones\n";
$messages .= date("Y-m-d") . "\tSe llevaron los socios al Maximo \n";
if ($xF->getDiaFinal() == $xF->get()) {
    $messages .= CongelarSaldos($idrecibo);
} else {
    $messages .= date("Y-m-d") . "\tNO SE CONGELAN SALDOS, NO ES FIN DE MES\r\n";
}
/**
 * Actualiza Recibos de Operaciones
 **/
     //Ultimo Folio de Recibo
     $msg .= date("H:i:s") . "\tLa Fecha de Corte es {$FechaDeCorte}\r\n";
     //$msg				.= "\tLa Fecha de Corte es $FechaDeCorte";
     //step one: Socios a sus sucursales
     $xSuc = new cSucursal(getSucursal());
     $msg .= $xSuc->setValidar();
     $xCL = new cCajaLocal(getCajaLocal());
     $msg .= $xCL->setValidar();
     //step two: Folios al Maximo
     $msg .= setFoliosAlMaximo();
     //Step_tree: Elimina los archivos en el tmp Backups
     $xop = new cUtileriasParaOperaciones();
     //Genera un Recibo por los Mvtos Huerfanos de Recibo en Operaciones
     $msg .= $xop->setGenerarRecibosGlobales();
     //Elimina Recibos Duplicados
     $msg .= $xop->setEliminarRecibosDuplicados();
     $sql_ttmp = "DELETE FROM general_tmp";
     my_query($sql_ttmp);
     $msg .= "\tSe eliminan Registros Temporales\r\n";
     echo "\n\t\t\t\t<ol>\n\t\t\t\t\t<li>Se Actualizaron los Folios</li>\n\t\t\t\t\t<li>Se Actualizo el DEFAULT Socio para Operaciones que no tienen socio</li>\n\t\t\t\t\t<li>Se Actualizaron los Socios a su sucursal</li>\n\t\t\t\t\t<li>Se Actualizo el usuario ROOT para Operaciones que no tienen propietario</li>\n\t\t\t\t\t<li>Se Agrego el Recibo x para Mvtos Huerfanos</li>\n\t\t\t\t\t<li>Se Purgaron Recibos Duplicados</li>\n\t\t\t\t<li>Se Actualizo la sucursal de Creditos por usuario propietario</li>\n\t\t\t\t<li>Se Actualizo la sucursal de las Cuentas de Captacion por Usuario Propietario</li>\n\t\t\t\t<li>Se Actualizo la Sucursal de las Operaciones y recibos por Usuario Propietario</li>\n\t\t\t\t<li>La fecha de purga es a partir de {$FechaDeCorte}</li>\t\t\t\t\t\n\t\t\t\t</lo>\n\t\t\t\t<br />\n\t\t\t\t<a href=\"./sucursal.backup_offline.frm.php?a=1&s=2&f={$FechaDeCorte}&n={$LstFolio}\" target=\"_self\">Siguiente</a>\n\t\t\t";
     //$x145 = "UPDATE socios_general SET sucursal = '" . $sucursal . "' WHERE codigo = " . DEFAULT_SOCIO;
     //$xQ		= my_query($x145);
     $msg .= date("H:i:s") . "\tSe Marca el recibo {$LstFolio} como ultimo\r\n";
     $msg .= date("H:i:s") . "\tSe Actualiza el Socio PUBLICO_GENERAL a la sucursal de corte para Operaciones sin Socio\r\n";
     $msg .= date("H:i:s") . "\tSe Agrego el Recibo x para Mvtos Huerfanos\r\n";
     @fwrite($URIFil, $msg);
     break;
 case 2:
     $FechaDeCorte = $_GET["f"];
     //Fecha Inicial de Corte
     $LstFolio = $_GET["n"];
/**
 * @deprecated 2012.03
 */
function setPurgeFromDuplicatedRecibos()
{
    $xop = new cUtileriasParaOperaciones();
    $msg = $xop->setEliminarRecibosDuplicados();
    return $msg;
}