$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
$credito = parametro("credito", DEFAULT_CREDITO, MQL_INT);
$credito = parametro("idsolicitud", $credito, MQL_INT);
$credito = parametro("solicitud", $credito, MQL_INT);
$cuenta = parametro("cuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$cuenta = parametro("idcuenta", $cuenta, MQL_INT);
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$persona = parametro("i", $persona, MQL_INT);
$xHP->init();
$xFRM = new cHForm("frm", "./");
$msg = "";
$ssql = $xL->getListadoDeCuentasDeCapt($persona, false, $tipo, $subtipo);
$tb = new cTabla($ssql);
$tb->setEventKey("setCuenta");
//$tb->
$xFRM->addHTML($tb->Show());
$xFRM->addCerrar();
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
?>
<script  >
function setCuenta(id){
	msrc	= null;
	if (window.parent){ msrc = window.parent.document; }
	if (opener){ msrc = opener.document; }
<?php 
if ($f != false) {
$query = new MQL();
$subproducto = parametro("subproducto", SYS_TODAS, MQL_INT);
$producto = parametro("producto", SYS_TODAS, MQL_INT);
$operacion = parametro("operacion", SYS_TODAS, MQL_INT);
//$empresa		= parametro("empresa", SYS_TODAS);
$out = parametro("out", SYS_DEFAULT);
$FechaInicial = parametro("on", false);
$FechaInicial = parametro("fecha-0", $FechaInicial);
$FechaInicial = $FechaInicial == false ? FECHA_INICIO_OPERACIONES_SISTEMA : $xF->getFechaISO($FechaInicial);
$FechaFinal = parametro("off", false);
$FechaFinal = parametro("fecha-1", $FechaFinal);
$FechaFinal = $FechaFinal == false ? fechasys() : $xF->getFechaISO($FechaFinal);
$senders = getEmails($_REQUEST);
$xHP->init();
//XXX: Cambiar SQL por uno que facilite la ejecucion
$sql = $xL->getListadoDeCuentasDeCapt(false, false, $producto, $subproducto);
//exit($sql);
$titulo = "";
$archivo = "reporte-de-captacion-del-{$FechaInicial}-al-{$FechaFinal}";
$xRPT = new cReportes($titulo);
$xRPT->setFile($archivo);
$xRPT->setOut($out);
$xRPT->setSQL($sql);
$xRPT->setTitle($xHP->getTitle());
//============ Reporte
$xT = new cTabla($sql, 2);
$xT->setTipoSalida($out);
$body = $xRPT->getEncabezado($xHP->getTitle(), $FechaInicial, $FechaFinal);
$xRPT->setBodyMail($body);
$xRPT->addContent($body);
$xT->setFootSum(array(5 => "saldo"));
     $oFrm->OHidden("idempresa", $idempresa);
 }
 if ($xSoc->getEsSucursal() == true) {
     $oFrm->OButton("TR.Actualizar Sucursal", "jsaActualizarSucursal()", $oFrm->ic()->EJECUTAR);
     $oFrm->OHidden("idsucursal", $xSoc->getIDSucursalAsociada());
 }
 if ($xSoc->getEsUsuario(true)) {
     $oFrm->OButton("TR.Actualizar Usuario", "jsaActualizarUsuario()", $oFrm->ic()->EJECUTAR);
     $oFrm->OHidden("idusuario", $xSoc->getOUsuario()->getID());
 }
 //Agregar convenios
 $xTListaCreds = new cTabla($xql->getListadoDeCreditos($idsocio), 2);
 $xTListaCreds->OButton("TR.Panel", "jsGoToPanelCredito(" . HP_REPLACE_ID . ")", $xTListaCreds->ODicIcons()->CONTROL);
 $xHTabs->addTab("TR.Creditos", $xTListaCreds->Show());
 //agregar cuenta de ahorro
 $xTListaCapt = new cTabla($xql->getListadoDeCuentasDeCapt($idsocio));
 $xHTabs->addTab("TR.Captacion", $xTListaCapt->Show());
 //Actualizar Descuentos
 $xDiv2 = new cHDiv("inv", "iddivdescuento");
 $xFRM10 = new cHForm("frmdescuento");
 $xFRM10->addSubmit("", "jsGuardarDescuento()", "jsCancelarAccion()");
 $xFRM10->OMoneda("iddescuento", 0, "TR.Monto");
 //======================================== AML
 /*Validacion*/
 if (MODO_DEBUG == true) {
     $xHTabs->addTab("TR.Validacion", $xSoc->getValidacion(OUT_HTML));
 }
 $xDiv2->addHElem($xFRM10->get());
 $oFrm->addHTML($xHTabs->get());
 $oFrm->addHTML($xDiv2->get());
 $oFrm->OHidden("idsocio", $idsocio);
$cSocio->init();
echo $cSocio->getFicha(true);
$cTae = new cTabla($xLi->getListadoDeActividadesEconomicas($idsocio));
$cTae->setTdClassByType();
echo $cTae->Show("TR.ACTIVIDAD_ECONOMICA");
//
$cTpr = new cTabla($xLi->getListadoDeRelaciones($idsocio));
$cTpr->setTdClassByType();
echo $cTpr->Show(PERSONAS_TITULO_PARTES);
//
$sqlcred = $xLi->getListadoDeCreditos($idsocio, true);
$cTcred = new cTabla($sqlcred);
$cTcred->setTdClassByType();
echo $cTcred->Show("TR.Creditos");
//
$cTcta = new cTabla($xLi->getListadoDeCuentasDeCapt($idsocio));
$cTcta->setTdClassByType();
echo $cTcta->Show("TR.CUENTAS DE CAPTACION");
//
$sqlgar = $sqlb17_ext . " AND creditos_garantias.socio_garantia={$idsocio} ";
$cTgar = new cTabla($sqlgar);
echo $cTgar->Show("TR.GARANTIAS DE CREDITOS");
$cTbl = new cTabla($xLi->getListadoDeRecibosEmitidos($idsocio));
echo $cTbl->Show("TR.Recibos");
// MOVIMIENTOS
$sqli = $sqlb18d . " AND socio_afectado={$idsocio} " . $subf;
$xLi->getListadoDeOperaciones($idsocio);
$cTi = new cTabla($xLi->getListadoDeOperaciones($idsocio));
$cTi->setTdClassByType();
echo $cTi->Show("TR.MOVIMIENTOS GENERALES");
//