if ($monto != false and $banco != false) {
        $xRec = new cReciboDeOperacion(201, true);
        $xRec->setGenerarBancos(false);
        $xRec->setGenerarPoliza();
        $xRec->setForceUpdateSaldos();
        $xRec->setCuentaBancaria($banco);
        $idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, 1, $fecha, 1, 201, $observaciones, "NA", "efectivo", "NA", DEFAULT_GRUPO, $banco);
        $xRec->setNumeroDeRecibo($idrecibo);
        $xRec->setNuevoMvto($fecha, $monto, 9301, 1, $observaciones, 1, TM_ABONO, DEFAULT_SOCIO);
        $xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
        $xRec->setFinalizarRecibo(true);
        //Agregar la Operacion Bancaria
        $xB = new cCuentaBancaria($banco);
        $xB->setNewRetiro($numOperacion, $idrecibo, "PAGO DEL IDE", $monto, $fecha);
        //
        echo $xRec->getFicha();
        //
        echo "<input type='button' onclick='jsPrintIDE()' value='Imprimir Recibo' />";
    }
}
?>
</body>
<script  >
	function jsPrintIDE() {
		var elUrl			= "../rpt_formatos/recibo.rpt.php?recibo=<?php 
echo $idrecibo;
?>
";
		jsGenericWindow(elUrl);
	}
</script>
     $saldo = $xCta->getNuevoSaldo();
     $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));
            $xRec->setNuevoMvto($fecha, $com1, OPERACION_CLAVE_COMISION_APERTURA, 1, $ob1, 1, TM_ABONO, $persona);
        }
        if ($com2 > 0) {
            $xRec->setNuevoMvto($fecha, $com2, OPERACION_CLAVE_PAGO_CBZA, 1, $ob2, 1, TM_ABONO, $persona);
        }
        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();
    $comopago = isset($_POST["ctipo_pago"]) ? $xT->cChar($_POST["ctipo_pago"]) : DEFAULT_TIPO_PAGO;
    $foliofiscal = isset($_POST["foliofiscal"]) ? $xT->cChar($_POST["foliofiscal"]) : DEFAULT_RECIBO_FISCAL;
    if (setNoMenorQueCero($idsocio) <= 0) {
        //header("location: frmcobrodemultas.php?msg=FALTAN_DATOS");
        $xFRM->addAvisoRegistroError();
    } else {
        if (setNoMenorQueCero($monto) <= 0) {
            $xFRM->addAvisoRegistroError();
        } else {
            $iddocto = DEFAULT_CREDITO;
            $xRec = new cReciboDeOperacion(RECIBOS_TIPO_TERCEROS, false, false);
            $xRec->setGenerarBancos();
            $xRec->setGenerarPoliza();
            $xRec->setGenerarTesoreria();
            $idrecibo = $xRec->setNuevoRecibo($idsocio, $iddocto, $fecha, 1, RECIBOS_TIPO_TERCEROS, $observaciones, $cheque, $comopago, $foliofiscal);
            $xRec->setNuevoMvto($fecha, $monto, OPERACION_CLAVE_MULTAS, 1, $observaciones, 1, TM_ABONO, $idsocio);
            $xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
            $xRec->setFinalizarRecibo(true);
            $xFRM->addHTML($xRec->getFichaSocio());
            $xFRM->addHTML($xRec->getFicha());
            $xFRM->addPrintRecibo();
            $xFRM->addHTML($xRec->getJsPrint(true));
            $xFRM->addAvisoRegistroOK();
            if (MODO_DEBUG == true) {
                $xFRM->addAviso($xRec->getMessages());
            }
        }
    }
}
echo $xFRM->get();
$xHP->fin();
    $iddocto = $idsolicitud;
    //===================================================================================================
    $cRec = new cReciboDeOperacion(15, true, false);
    $cRec->setGenerarBancos();
    $cRec->setGenerarPoliza();
    $cRec->setGenerarTesoreria();
    $idrecibo = $cRec->setNuevoRecibo($idsocio, $iddocto, $fecha, 1, 15, $observaciones, $cheque, $comopago, $foliofiscal);
    $cRec->setNuevoMvto($fecha, $monto, 351, 1, $observaciones, 1, TM_ABONO, $idsocio);
    //IVA
    $cRec->setNuevoMvto($fecha, $iva, 151, 1, $observaciones, 1, TM_ABONO, $idsocio);
    $cRec->addMvtoContableByTipoDePago($montooperacion, TM_CARGO);
    $cRec->setFinalizarRecibo(true);
    $cfSocio = new cFicha(iDE_SOCIO, $idsocio);
    $cfSocio->setTableWidth();
    $cfSocio->show();
    echo $cRec->getFicha();
    echo $msg_rec_end;
    // actualiza el interes Anticipado del Credito
    $sqlica = "UPDATE creditos_solicitud\n\t\tSET sdo_int_ant=(sdo_int_ant + ({$monto}))\n\t\tWHERE numero_solicitud={$idsolicitud}";
    my_query($sqlica);
    //
}
?>
</body>
<script  >
var wFrm = document.frminteresant;
	function printrec() {
		var elUrl= "../frmextras/frmrecibodepago.php?recibo=<?php 
echo $idrecibo;
?>
";
    $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>
	</tr>
	<tr>
		<th colspan='2'><input type='button' name='btnEnviar' value='CONSULTAR MOVIMIENTOS DEL RECIBO' onClick='frmdelrecibos.submit();'></th>
	</tr>
</table>
</fieldset>
</form>
<hr />
<?php 
$idrecibo = $_POST["idrecibo"];
if (!$idrecibo) {
    exit($msg_rec_warn . $fhtm);
}
$xRec = new cReciboDeOperacion(false, false, $idrecibo);
$xRec->init();
echo $xRec->getFicha(true, "", true);
$uri = $xRec->getURI_Formato();
/* ----------------- DATOS --------------- */
//	$numeroops = "SELECT COUNT(idoperaciones_mvtos) AS 'obtener' FROM operaciones_mvtos WHERE recibo_afectado=$idrecibo";
//	$nopers = mifila($numeroops, "obtener");
$sqlmvto = "SELECT\n\t\t`operaciones_mvtos`.`idoperaciones_mvtos`   AS `codigo`,\n\t\t`operaciones_mvtos`.`socio_afectado`       AS `socio`,\n\t\t`operaciones_mvtos`.`docto_afectado`       AS `documento`,\n\t\t`operaciones_mvtos`.`fecha_operacion`       AS `operado`,\n\t\t`operaciones_mvtos`.`fecha_afectacion`      AS `afectado`,\n\n\t\t`operaciones_mvtos`.`tipo_operacion`        AS `operacion`,\n\t\t`operaciones_tipos`.`descripcion_operacion` AS `descripcion`,\n\t\t`operaciones_mvtos`.`afectacion_real`       AS `monto`\n\tFROM\n\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\tINNER JOIN `operaciones_tipos` `operaciones_tipos`\n\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.\n\t\t\t`idoperaciones_tipos`\n\tWHERE\n\t\t(`operaciones_mvtos`.`recibo_afectado` ={$idrecibo})\n\tORDER BY\n\t\t`operaciones_mvtos`.`fecha_operacion`,\n\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t`operaciones_mvtos`.`docto_afectado`\n\t";
$cEdit = new cTabla($sqlmvto);
$cEdit->addTool(1);
$cEdit->addTool(2);
$cEdit->setKeyField("idoperaciones_mvtos");
$nopers = $cEdit->getRowCount();
$cEdit->Show("", false);
echo "<form name='frmgoelim' action='clseliminarrecibos.php' method='POST'>\n\t<hr />\n\t<input type='hidden' name='idrecibo' value='{$idrecibo}'>\n\t<table border='0'>\n\n\t\t<tr>\n\t\t<th><input type='button' name='btsend' value='EDITAR RECIBO' onClick='actualizaRec({$idrecibo});'></th>\n\t\t<th><input type='button' name='btsend' value='ELIMINAR RECIBO Y OPERACIONES' onClick='frmgoelim.submit();'></th>\n\t\t<th><a class=\"button\" onclick=\"ImprimirRecibo();\" >&nbsp;&nbsp;&nbsp;Reimprimir Recibo&nbsp;&nbsp;&nbsp;</a></th>\n\t\t</tr>\n\t</table>\n\t<hr />\n\t</form>\n\t<p class='aviso'>Numero de Operaciones: {$nopers}</p>\n\t</fieldset>";
?>

</body>
</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>
 function show($return = false)
 {
     $exoFicha = "";
     $iNumTools = sizeof($this->mTool);
     $trTool = "";
     $wTable = $this->mTableWidth;
     if ($iNumTools > 0) {
         $iTools = "";
         foreach ($this->mTool as $key => $value) {
             $TParts = explode("@", $value);
             $iImg = $TParts[0];
             $iTitle = $TParts[1];
             $srcImg = vIMG_PATH . "/common/{$iImg}";
             $iTools = $iTools . "<td><img src=\"{$srcImg}\" onclick=\"{$key}(" . $this->mKey . ")\" />{$iTitle}</td>";
         }
         $trTool = "<tr>\r\n\t\t\t<td colspan=\"4\">\r\n\t\t\t<table width=\"100%\">\r\n\t\t\t\t<tbody>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t{$iTools}\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t</tbody>\r\n\t\t\t</table>\r\n\t\t\t</td>\r\n\t\t\t</tr>";
     }
     // end iNumTools
     $cTyp = new cTipos();
     switch ($this->mType) {
         case iDE_SOCIO:
             //INFO del Socio
             $cSoc = new cSocio($this->mKey, true);
             $exoFicha = $cSoc->getFicha($this->mSocioWithDomExt, false, $trTool);
             unset($cSoc);
             break;
         case iDE_CREDITO:
             // Creditos iDE_CREDITO
             $cF = new cCredito($this->mKey);
             $cF->initCredito();
             $exoFicha = $cF->getFicha(false, $trTool);
             unset($cF);
             break;
         case 101:
             //Grupos iDE_GRUPO
             $cG = new cGrupo($this->mKey);
             $exoFicha = $cG->getFicha(false, $trTool);
             unset($cG);
             break;
         case iDE_GARANTIA:
             $sql = "SELECT creditos_garantias.idcreditos_garantias,\r\n\t\t\t\tcreditos_tgarantias.descripcion_tgarantias AS 'Tipo_de_Garantia',\r\n\t\t\t\t creditos_tvaluacion.descripcion_tvaluacion AS 'Tipo_de_Valuacion',\r\n\t\t\t\t creditos_garantias.fecha_recibo AS 'Fecha_de_Recibo',\r\n\t\t\t\t FORMAT(creditos_garantias.monto_valuado, 2) AS 'Monto_valuado',\r\n\t\t\t\t creditos_garantias.fecha_adquisicion AS 'Fecha_de_Adquisicion',\r\n\t\t\t\t creditos_garantias.documento_presentado AS 'Documento_Presentado',\r\n\t\t\t\t creditos_garantias.descripcion AS 'Descripcion',\r\n\t\t\t\t creditos_garantias.propietario AS 'Propietario'\r\n\t\t\t\t FROM creditos_tvaluacion, creditos_garantias, creditos_tgarantias\r\n\t\t\t\t WHERE creditos_tgarantias.idcreditos_tgarantias=creditos_garantias.tipo_garantia\r\n\t\t\t\t AND creditos_tvaluacion.idcreditos_tvaluacion=creditos_garantias.tipo_valuacion\r\n\t\t AND creditos_garantias.idcreditos_garantias=" . $this->mKey;
             $tool = $trTool;
             $rwt = obten_filas($sql);
             $exoFicha = "\r\n\t<table  {$wTable} border='0'>\r\n\t<tbody>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Identificador</th><td>{$rwt['0']}</td>\r\n\t\t\t<th class='izq'>Tipo</th><td>{$rwt['1']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Tipo de Valuacion</th><td>{$rwt['2']}</td>\r\n\t\t\t<th class='izq'>Fecha de Resguardo</th><td>{$rwt['3']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Fecha de Adquisicion</th><td>{$rwt['5']}</td>\r\n\t\t\t<th class='izq'>Documento / Factura</th><td>{$rwt['6']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Monto Valuado</th><td>" . getFMoney($rwt[4]) . "</td>\r\n\t\t\t<th class='izq'>Propietario</th><td>{$rwt['8']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th>Descripci&oacute;n</th>\r\n\t\t\t<td>{$rwt['7']}</td>\r\n\t\t</tr>\r\n\t\t{$tool}\r\n\t</tbody>\r\n\t</table>";
             break;
         case 300:
             //TODO: Change this line.- cambiar por la clase global
             $sqli = "\r\n\t\t\tSELECT\r\n\t\t\t\t\t`captacion_cuentas`.`numero_cuenta`,\r\n\t\t\t\t\t`captacion_cuentastipos`.`descripcion_cuentastipos` AS `modalidad`,\r\n\t\t\t\t\t`captacion_subproductos`.`descripcion_subproductos` AS `subproducto`,\r\n\t\t\t\t\t`captacion_cuentas`.`fecha_apertura`                AS `fecha_de_apertura`,\r\n\t\t\t\t\t`captacion_cuentas`.`saldo_cuenta`                  AS `saldo_actual`,\r\n\t\t\t\t\t`captacion_cuentas`.`numero_grupo`                  AS `grupo_asociado`,\r\n\t\t\t\t\t`captacion_cuentas`.`numero_solicitud`              AS `credito_asociado`,\r\n\t\t\t\t\t`captacion_cuentas`.`tasa_otorgada`                 AS `tasa`,\r\n\t\t\t\t\t`captacion_cuentas`.`observacion_cuenta`            AS `observaciones`\r\n\t\t\t\tFROM\r\n\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\r\n\t\t\t\t\t\tINNER JOIN `captacion_cuentastipos` `captacion_cuentastipos`\r\n\t\t\t\t\t\tON `captacion_cuentas`.`tipo_cuenta` = `captacion_cuentastipos`.\r\n\t\t\t\t\t\t`idcaptacion_cuentastipos`\r\n\t\t\t\t\t\t\tINNER JOIN `captacion_subproductos` `captacion_subproductos`\r\n\t\t\t\t\t\t\tON `captacion_cuentas`.`tipo_subproducto` = `captacion_subproductos`\r\n\t\t\t\t\t\t\t.`idcaptacion_subproductos`\r\n\t\t\t\tWHERE\r\n\t\t\t\t\t(`captacion_cuentas`.`numero_cuenta` =" . $this->mKey . ")";
             $rw = obten_filas($sqli);
             $exoFicha = "\r\n\t\t\t\t<table width='100%' border='0'>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Numero de Cuenta</th  class='mny'><td>" . $rw["numero_cuenta"] . "</td>\r\n\t\t\t\t\t<th class='izq' >Fecha de Apertura</th><td>" . getFechaMediana($rw["fecha_de_apertura"]) . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Modalidad</th><td>" . $rw["modalidad"] . "</td>\r\n\t\t\t\t\t<th class='izq'>Producto</th><td>" . $rw["subproducto"] . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Tasa Actual</th><td class='mny'>% " . getFMoney($rw["tasa"] * 100) . "</td>\r\n\t\t\t\t\t<th class='izq'>Saldo Actual</th>\r\n\t\t\t\t\t<td class='mny'>" . getFMoney($rw["saldo_actual"]) . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Observaciones</th><td colspan='2'>" . $rw["observaciones"] . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t</table>";
             break;
         case 310:
             //Depositos a la vista iDE_CVISTA
             $cCapt = new cCuentaALaVista($this->mKey);
             $cCapt->init();
             $exoFicha = $cCapt->getFicha(false, $trTool);
             break;
         case 320:
             //iDE_CINVERSION
             $xCI = new cCuentaInversionPlazoFijo($this->mKey);
             $xCI->init();
             $exoFicha = $xCI->getFicha(false, $trTool);
             break;
         case 400:
             //RECIBO DE OPERACION
             $cRec = new cReciboDeOperacion(99, false, $this->mKey);
             //$cRec->initRecibo();
             $exoFicha = $cRec->getFicha(false, $trTool);
             unset($cRec);
             break;
         default:
             break;
     }
     //retoque fieldset
     if ($this->mTitle != "") {
         $this->mTitle = "|&nbsp;&nbsp;&nbsp;" . $this->mTitle . "&nbsp;&nbsp;&nbsp;|";
     }
     $exoFicha = "<fieldset>\r\n\t\t\t\t\t\t<legend>" . $this->mTitle . "</legend>\r\n\t\t\t\t\t\t\t{$exoFicha}\r\n\t\t\t\t\t</fieldset>";
     if ($return == true) {
         return $exoFicha;
     } else {
         echo $exoFicha;
     }
 }