$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');
$json = "";
if ($persona > DEFAULT_SOCIO) {
    $xPer = new cSocio($persona);
    if ($xPer->init() == true) {
        $xRels = new cPersonasRelaciones(false, $xPer->getCodigo());
        echo $xRels->getBuildArbol("json");
        //setLog($lis->getListadoDeRelaciones($persona));
        $error = false;
    } 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);
 function addIntegrante($clave_de_persona)
 {
     $xRel = new cPersonasRelaciones(false, $this->mClaveDePersona);
     $xRel->addRelacion($clave_de_persona, GRUPO_CLAVE_INTEGRANTE);
     $this->mMessages .= $xRel->getMessages();
 }
 function getListadoDeAvales($credito)
 {
     //TODO: Terminar
     $mSQL = new cSQLListas();
     $mql = new MQL();
     $sql = $mSQL->getListadoDeAvales($credito, $this->mPersona);
     $rs = $mql->getDataRecord($sql);
     //setLog($sql);
     $forma = 8001;
     $firma = 8002;
     $friesgo = 5001;
     $cficha = "";
     $cfirmas = "";
     $criesgo = "";
     $clista = "";
     //$xAval		= new cSocios_relaciones();
     foreach ($rs as $rows) {
         $persona = $rows["numero_socio"];
         $idrelacion = $rows["num"];
         $xSoc = new cSocio($persona);
         $xRel = new cPersonasRelaciones($idrelacion, $persona);
         $xRel->init();
         if ($xSoc->init() == true) {
             $avalDom = $xSoc->getODomicilio();
             $avalEc = $xSoc->getOActividadEconomica();
             $vars = array("aval_nombre_completo" => $xSoc->getNombreCompleto(), "aval_domicilio_localidad" => "", "aval_direccion_calle_y_numero" => "", "aval_direccion_estado" => "", "aval_direccion_completa" => "", "aval_ocupacion" => "", "aval_fecha_de_nacimiento" => $xSoc->getFechaDeNacimiento(), "aval_id_fiscal" => $xSoc->getRFC(), "aval_lugar_de_nacimiento" => $xSoc->getLugarDeNacimiento(), "aval_empresa_de_trabajo" => "", "aval_estado_civil" => $xSoc->getEstadoCivil(), "aval_tipo_de_relacion" => $xRel->getNombreRelacion(), "aval_tipo_de_parentesco" => $xRel->getNombreParentesco(), "aval_porcentaje_relacionado" => $xRel->getPorcientorelacionado() * 100);
             if ($avalDom != null) {
                 $vars["aval_direccion_completa"] = $xSoc->getDomicilio();
                 $vars["aval_domicilio_localidad"] = $xSoc->getODomicilio()->getCiudad();
                 $vars["aval_direccion_calle_y_numero"] = $xSoc->getODomicilio()->getCalleConNumero();
                 $vars["aval_direccion_estado"] = $xSoc->getODomicilio()->getEstado(OUT_TXT);
             }
             if ($avalEc != null) {
                 $vars["aval_ocupacion"] = $xSoc->getOActividadEconomica()->getPuesto();
                 $vars["aval_empresa_de_trabajo"] = $xSoc->getOActividadEconomica()->getNombreEmpresa();
             }
             $texto_ficha = contrato($forma, "texto_del_contrato");
             $texto_firma = contrato($firma, "texto_del_contrato");
             $texto_aut = contrato($friesgo, "texto_del_contrato");
             $vars = array_merge($vars, $this->mBasicVars);
             foreach ($vars as $key => $value) {
                 $texto_ficha = str_replace($key, $value, $texto_ficha);
                 $texto_firma = str_replace($key, $value, $texto_firma);
                 $texto_aut = str_replace($key, $value, $texto_aut);
             }
             $cficha .= $texto_ficha;
             $cfirmas .= $texto_firma;
             $criesgo .= $texto_aut;
             $clista .= $xSoc->getNombreCompleto(OUT_TXT) . ": " . $xSoc->getDomicilio() . "; ";
             //setLog($texto_ficha);
         }
         //setLog($xSoc->getMessages());
     }
     $this->mFichasAvales = $cficha;
     $this->mFirmasAvales = $cfirmas;
     $this->mFichaRiesgoAv = $criesgo;
     $this->mLAvalesConDir = $clista;
 }