$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);
$xSoc->add("", "PUBLICO_GENERAL", "", "POR_REGISTRAR", "POR_REGISTRAR", $cajaLocalR, false, "DESCONOCIDO", 99, 99, 99, 99, 99, 1, DEFAULT_GRUPO, "", 1, "0", DEFAULT_SOCIO, getSucursal());
$messages .= $xSoc->getMessages(OUT_TXT);
}
if ($xSuc->existeCredito(DEFAULT_CREDITO) == false) {
$xCred = new cCredito(DEFAULT_CREDITO, DEFAULT_SOCIO);
$xCred->add(DEFAULT_TIPO_CONVENIO, DEFAULT_SOCIO, DEFAULT_CUENTA_CORRIENTE, 0, CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO, 1, 1, CREDITO_DEFAULT_DESTINO, DEFAULT_CREDITO, DEFAULT_GRUPO, "CREDITO POR DEFECTO");
$messages .= $xCred->getMessages(OUT_TXT);
}
if ($xSuc->existeCuenta(DEFAULT_CUENTA_CORRIENTE) == false) {
$xCta = new cCuentaALaVista(DEFAULT_CUENTA_CORRIENTE);
$xCta->setNuevaCuenta("99", "99", DEFAULT_SOCIO);
$messages .= $xCta->getMessages(OUT_TXT);
}
