function jsaEliminarRecibo($numero)
{
    if (setNoMenorQueCero($numero) > 0) {
        $oficial = elusuario($_SESSION["log_id"]);
        $cRec = new cReciboDeOperacion(false, false, $numero);
        $cRec->setNumeroDeRecibo($numero);
        $cRec->setRevertir();
        return $cRec->getMessages(OUT_HTML);
    }
}
 function setEliminar()
 {
     $xRec = new cReciboDeOperacion(false, true, $this->mNumeroDePlan);
     $xRec->init();
     $xRec->setRevertir(true);
     $this->mMessages .= $xRec->getMessages(OUT_TXT);
 }
$permiso = getSIPAKALPermissions($theFile);
if ($permiso === false) {
    header("location:../404.php?i=999");
}
$_SESSION["current_file"] = addslashes($theFile);
//<=====	FIN_H
$iduser = $_SESSION["log_id"];
//=====================================================================================================
include_once "../core/entidad.datos.php";
include_once "../core/core.deprecated.inc.php";
include_once "../core/core.fechas.inc.php";
include_once "../libs/sql.inc.php";
include_once "../core/core.config.inc.php";
include_once "../core/core.operaciones.inc.php";
$oficial = elusuario($iduser);
$idrec = $_POST["idrecibo"];
//$frn 		= $_GET["u"];
if (!$idrec) {
    echo JS_CLOSE;
}
$cRec = new cReciboDeOperacion(false, false, $idrec);
$cRec->setNumeroDeRecibo($idrec);
$cRec->setRevertir();
//echo $cRec->getMessages("html");
saveError(10, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "EL Usuario {$oficial} Elimino el Recibo {$idrec} y sus Operaciones");
if ($u == "exn") {
    header("location: frmeditarrecibos.php");
} else {
    header("location: frmeliminarrecibos.php");
}
//*/
    $tds .= "<tr><th></th>\n                <td>Recalculo de I.V.A. por Intereses</td>\n                <td class='mny'>" . getFMoney($ivaintereses) . "</td></tr>";
    //setPolizaProforma($recibo_pago, 1203, $ivaintereses, $socio, $solicitud, TM_ABONO);
}
if ($ivaotros != 0) {
    $tds .= "<tr><th></th>\n                <td>Recalculo de I.V.A. por Otros Conceptos</td>\n                <td class='mny'>" . getFMoney($ivaotros) . "</td></tr>";
    //setPolizaProforma($recibo_pago, 1204, $ivaotros, $socio, $solicitud, TM_ABONO);
}
if ($capital != 0) {
    $tds .= "<tr><th></th>\n                <td>Capital Directo Pagado</td>\n                <td class='mny'>" . getFMoney($capital) . "</td></tr>";
    //setPolizaProforma($recibo_pago, OPERACION_CLAVE_PAGO_CAPITAL, $capital, $socio, $solicitud, TM_ABONO);
}
//-------------------------------- ELIMINAR EL RECIBO DE PENDIENTES ------------------------
//Si los Pendientes son CERO y el Numero de Recibo es diferente al dePendientes
if ($total_pendientes <= TOLERANCIA_SALDOS and $recibo_pendientes != $xPlan) {
    $cRP = new cReciboDeOperacion(22, true, $recibo_pendientes);
    $cRP->setRevertir();
    $msg .= "========\tEliminando Recibo de Pendientes\t==========\r\n";
    $msg .= $cRP->getMessages(OUT_TXT);
}
$xCred->init();
if ($xCred->getSaldoActual() <= TOLERANCIA_SALDOS) {
    $xCred->setCreditoPagado($fecha_operacion);
}
//------------------------------------------------------------------------------------------
$oRec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_CREDITO, true);
$oRec->setNumeroDeRecibo($recibo_pago);
//Agrega un abono a la ultima letra
if ($procesado == SYS_AUTOMATICO) {
    //$eqvalor			= round(($monto_a_operar - $totalAutomatico),2);
    $abonar_al_final = setNoMenorQueCero($monto_a_operar - $totalAutomatico, 2);
    if ($abonar_al_final > TOLERANCIA_SALDOS) {