$ide_observacion = "Retencion Generada por un Deposito de {$monto}, Recibo {$recibo}, saldo de {$saldo}";
         //Si el Saldo de la Cuenta es Mayor al IDE
         if ($saldo > $ide) {
             $reciboIDE = $xCta->setRetenerIDE($Fecha, false, $ide, $ide_observacion);
         } else {
             //Si no el IDE es igual al Saldo
             $ide = $saldo;
             $reciboIDE = $xCta->setRetenerIDE($Fecha, false, $ide, $ide_observacion);
         }
     }
     //Imprime la Ficha del socio
     $xRec = new cReciboDeOperacion();
     $xRec->setNumeroDeRecibo($recibo, true);
     $xFRM->addHTML($xRec->getFichaSocio());
     $xFRM->addHTML($xRec->getFicha(true));
     $xFRM->addHTML($xRec->getJsPrint(true));
     if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) {
         if ($ReciboIDE != 0) {
             $xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de impuestos", "jsPrintIDE()", "imprimir", "idrec-ide", false));
         }
     }
     if (MODO_DEBUG == true) {
         $msg .= $xCta->getMessages();
         $msg .= $xRec->getMessages();
         $xFL = new cFileLog(false, true);
         $xFL->setWrite($msg);
         $xFL->setClose();
         $xFRM->addToolbar($xFL->getLinkDownload("TR.Archivo de sucesos", ""));
     }
     $xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de deposito", "jsImprimirRecibo()", "imprimir", "idrec-dep", false));
 } else {
        }
        if ($com3 > 0) {
            $xRec->setNuevoMvto($fecha, $com3, OPERACION_CLAVE_PAGO_COM_VARIAS, 1, $ob3, 1, TM_ABONO, $persona);
        }
        if ($iva > 0) {
            $xRec->setNuevoMvto($fecha, $iva, OPERACION_CLAVE_PAGO_IVA_OTROS, 1, $detalles, 1, TM_ABONO, $persona);
        }
        $xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
        if ($xRec->setFinalizarRecibo(true) == true) {
            $xFRM->setAction("");
            $xFRM->addHElem($xRec->getFichaSocio());
            $xFRM->addHElem($xRec->getFicha(true));
            $xFRM->OButton("TR.Imprimir Recibo", "jsImprimirRecibo()", "imprimir");
            $xFRM->addAvisoRegistroOK();
            $xFRM->addCerrar();
            echo $xRec->getJsPrint(true);
        }
    } else {
        $xFRM->addAviso($xRec->getMessages());
    }
} else {
    $xFRM->addJsBasico();
    $xFRM->addCreditBasico();
    $xFRM->addSubmit();
    $xSel = new cHSelect();
    $xTxt = new cHText();
    $xTxt2 = new cHText();
    $xTxt3 = new cHText();
    $xTCob = new cHCobros();
    //"idtipodepago", "idtipodepago"
    $xFRM->ODate("idfechacomision", "", "TR.Fecha de Cobro");
</form>
</fieldset>
<?php 
$socio = $_POST["idsocio"];
$documento = $_POST["idsolicitud"];
$tipo = $_POST["tipodescuento"];
$monto = $_POST["monto"];
$parcialidad = $_POST["idparcialidad"];
$observaciones = $_POST["observaciones"];
$fecha_operacion = fechasys();
if (isset($socio) and $monto > 0) {
    $xBtn = new cHButton("id-cmdImprimir");
    $xRec = new cReciboDeOperacion(96, false);
    $recibo = $xRec->setNuevoRecibo($socio, $documento, $fecha_operacion, $parcialidad, 96, $observaciones);
    $xRec->setNuevoMvto($fecha_operacion, $monto, $tipo, $parcialidad, $observaciones, -1, TM_ABONO);
    $xRec->setFinalizarRecibo();
    echo $xRec->getFichaSocio();
    echo $xRec->getFicha(true, "<tr><th colspan='4'>" . $xBtn->getImprimirRecibo() . "</th></tr>");
}
// end if
?>
</body>
<script  >
<?php 
if (isset($socio) and $monto > 0) {
    echo $xRec->getJsPrint();
}
?>
</script>
</html>
    $interes = $_POST["interes"];
    $idministrado = $_POST["idministrado"];
    $idpago = $_POST["idpago"];
    $montooriginal = $_POST["montooriginal"];
    $aportsocial = $montoaport * EACP_TASA_RESERVA;
    $aportvol = $montoaport - $aportsocial;
    $cheque = $_POST["cheque"];
    $comopago = $_POST["ctipo_pago"];
    $foliofiscal = $_POST["foliofiscal"];
    $fecha = fechasys();
    $cRec = new cReciboDeOperacion(5, false);
    //$cRec->setGenerarBancos();
    $cRec->setGenerarPoliza();
    $cRec->setGenerarTesoreria();
    $idrecibo = $cRec->setNuevoRecibo($idsocio, DEFAULT_CREDITO, $fecha, 1, 5, $observaciones, $cheque, $comopago, $foliofiscal, $idgrupo);
    $cRec->setNuevoMvto($fecha, $aportvol, 702, 1, $observaciones, 1, TM_ABONO, $idsocio);
    $cRec->setNuevoMvto($fecha, $aportsocial, 710, 1, $observaciones, 1, TM_ABONO, $idsocio);
    $cRec->addMvtoContableByTipoDePago($totalcuotas, TM_CARGO);
    $cRec->setFinalizarRecibo(true);
    //PolizaPorRecibo($idrecibo);
    $cFicha = new cFicha(iDE_SOCIO, $idsocio);
    $cFicha->setTableWidth();
    $cFicha->show();
    echo $cRec->getFicha(true);
    echo $msg_rec_end;
    echo $cRec->getJsPrint(true);
}
?>
</body>

</html>
    $xFL = new cFileLog(false, true);
    $xFL->setWrite($msg);
    $xFL->setClose();
    if ($procesado != SYS_AUTOMATICO) {
        $xFRM->addToolbar($xFL->getLinkDownload("TR.Archivo de sucesos", ""));
    }
}
if ($procesado != SYS_AUTOMATICO) {
    $xFRM->addHElem($oRec->getFicha(true));
    $total_letras = convertirletras($total_recibo);
    $xBtn = new cHButton("");
    $xFRM->addToolbar($xBtn->getRegresar("./frmcobrosdecreditos.php", true));
    $xFRM->addToolbar($xBtn->getBasic("TR.Imprimir Recibo", "printrec()", "imprimir", "cmdPrint", false));
    $xFRM->addHTML("<table><tbody>{$tds}</tbody><tfoot><tr><th></th><th>TOTAL</th><th class='mny'>" . getFMoney($total_recibo) . "</th></tr><tr><th colspan=\"3\" class='warn'>{$total_letras}</th></tr></tfoot></table>");
    echo $xFRM->get();
    echo $oRec->getJsPrint(true);
    ?>
</body>
<script>
var Wo	= new Gen();
function jsCloseRecibo(){ window.close(); }
function getEdoCtaCredito(){ Wo.w({url: "../rpt_edos_cuenta/rptestadocuentacredito.php?pb=" + mCredito}); }
</script>
</html>
<?php 
} else {
    $xho = new cHObject();
    header("Content-type: text/xml");
    //PRINT XML
    $msg = $xho->Out($msg, OUT_TXT);
    echo "<?xml version =\"1.0\" ?>\n<resultados>{$msg}</resultados>";