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