//2011-01-26 ; manejar fechas
$xF = new cFecha(0, $fechaop);
$xSuc = new cSucursal();
$ql = new MQL();
$xLi = new cSQLListas();
$xSuc->init();
$aliasFil = getSucursal() . "-eventos-al-cierre-de-sistema-del-dia-{$fechaop}";
$xLog = new cFileLog($aliasFil);
$idrecibo = DEFAULT_RECIBO;
$xRec = new cReciboDeOperacion(12);
$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fechaop, 1, 12, "CIERRE_DE_SISTEMA_{$fechaop}", "NA", "ninguno", "NA", DEFAULT_GRUPO);
$xRec->setNumeroDeRecibo($idrecibo);
//======================= cancelar todas las cajas a 0
$sqlCa = $xLi->getListadoDeCajasConUsuario(TESORERIA_CAJA_ABIERTA);
$rs = $ql->getDataRecord($sqlCa);
foreach ($rs as $rw) {
$xCaja = new cCaja();
$xCaja->init($rw["codigo"]);
if ($xCaja->setActualizaFondosCobrados() > TOLERANCIA_SALDOS) {
$messages .= "ERROR\t Caja No cerrada por tener fondos pendientes \r\n";
} else {
$xCaja->setCloseBox(getUsuarioActual(), 0);
}
$messages .= $xCaja->getMessages(OUT_TXT);
}
//Verificar lo Valores por defecto
if ($xSuc->existeSocio(DEFAULT_SOCIO) == false) {
$cajaLocalR = $xSuc->getCajaLocalResidente();
$xSoc = new cSocio(DEFAULT_SOCIO);
function getListaDeCajasAbiertas($id = "", $tipo = "")
{
$id = $id == "" ? "idcaja" : $id;
$this->mLIDs[] = $id;
$xli = new cSQLListas();
$sqlSc = $xli->getListadoDeCajasConUsuario(TESORERIA_CAJA_ABIERTA);
//TODO : Probar con cSQListas
//$sqlSc .= ($tipo == "") ? "" : " WHERE subclasificacion=$tipo ";
$xS = new cSelect($id, $id, $sqlSc);
$xS->setLabel("TR.Caja");
$xS->setNoMayus();
$xS->setEsSql();
return $xS;
}
