function jsaReRelaciones($idsocio)
{
    //Checar compatibilidad numerica entre los dependientes economicos
    $sqlL = new cSQLListas();
    $cBenef = new cTabla($sqlL->getListadoDeRelaciones($idsocio));
    $xTbl = new cHTabla("idtblrels");
    $xHSel = new cHSelect();
    $xChk = new cHCheckBox();
    $xText = new cHText();
    $xText->setDivClass("");
    $xChk->setDivClass("");
    $xBtn = new cHButton();
    $xUl = new cHUl();
    $li = $xUl->getO();
    $li->setT("ul");
    $li->setClass("tags blue");
    $li->add($xBtn->getBasic("TR.Guadar", "jsGuardarReferencia()", $xBtn->ic()->GUARDAR, "idguardar", false, true), "");
    $xTbl->initRow();
    $xTbl->addTD($xText->getDeNombreDePersona());
    $xTbl->addTD($xHSel->getListaDeTiposDeRelaciones("", "")->get(""));
    $xTbl->addTD($xHSel->getListaDeTiposDeParentesco()->get(""));
    $xTbl->addTD($xChk->get("TR.es dependiente_economico", "dependiente"));
    $xTbl->addRaw("<td class='toolbar-24'>" . $xUl->get() . "</td>");
    $xTbl->endRow();
    $cBenef->addTool(1);
    $cBenef->addTool(2);
    $cBenef->setKeyField("idsocios_relaciones");
    return $xTbl->get() . $cBenef->Show();
}
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
$relacionado = parametro("relacionado", DEFAULT_SOCIO, MQL_INT);
$tipo = parametro("tipo", 0, MQL_INT);
$parentesco = parametro("parentesco", 0, MQL_INT);
$depende = parametro("depende", false, MQL_BOOL);
$documento = parametro("documento", false, MQL_INT);
$error = false;
$format = parametro("out", "", MQL_STRING);
header('Content-type: application/json');
if ($persona > DEFAULT_SOCIO) {
    $xPer = new cSocio($persona);
    if ($xPer->init() == true) {
        //setLog($lis->getListadoDeRelaciones($persona));
        $svc = new MQLService("list", $lis->getListadoDeRelaciones($persona, $documento));
        echo $svc->getJSON($format);
    } else {
        $error = true;
        $txt .= "ERROR\tNo existe la persona {$persona}\r\n";
    }
    if (MODO_DEBUG == true) {
        $txt .= $xPer->getMessages();
    }
}
if ($error == true) {
    $rs["error"] = true;
    $rs["msg"] = $txt;
    echo json_encode($rs);
}
//setLog(json_encode($rs));
$idsocio = parametro("socio", $idsocio, MQL_INT);
$idsocio = parametro("persona", $idsocio, MQL_INT);
$todo = parametro("f14", false, MQL_BOOL);
$xHP->init();
echo getRawHeader();
echo "<p class='bigtitle'>ESTADO DE CUENTA GENERAL DE PERSONAS</p><hr />";
$subf = $todo == true ? "" : " AND estatus_mvto=30";
// REPORTES DE SOCIOS
$cSocio = new cSocio($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");