function jsaCerrarCaja($oficial, $pwd, $caja) { $xBtn = new cHButton(); $xCaja = new cCaja($caja); $cUsr = new cSystemUser($oficial, false); $sucess = $cUsr->getCompareData("contrasenna", $pwd); $msg = ""; if ($sucess == true) { $IOficial = $cUsr->getID(); $xCaja->init($caja); if ($xCaja->setCloseBox($IOficial, 0) == true) { $url = $xCaja->getLinkDeCorte(); $msg = $xBtn->getBasic("TR.Imprimir Corte", "var xG = new Gen(); xG.w({url:'{$url}'});", "imprimir", "printcorte", false); } else { //TODO: Checar el problema con esto if (MODO_DEBUG == true) { setLog($xCaja->getMessages(OUT_TXT)); } $msg = "<p class='warn'>CLAVE DE ERROR " . $err . "</p>"; } } else { $msg = "<p class='warn'>ERROR</p>"; } return $msg; }
$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); $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); }