function jsaVincularAval($tipo, $AvalPersona, $monto, $consanguinidad, $vinculado, $documento, $depende = false)
{
    $xT = new cTipos();
    $xDoc = new cCredito($documento);
    $depende = $xT->cBool($depende);
    $xDoc->init();
    $xDoc->addAval($AvalPersona, $monto, $tipo, $consanguinidad, $depende);
    return $xDoc->getMessages(OUT_HTML);
}
}
$_SESSION["current_file"] = addslashes($theFile);
//<=====	FIN_H
$iduser = $_SESSION["log_id"];
//=====================================================================================================
include_once "../core/entidad.datos.php";
include_once "../core/core.deprecated.inc.php";
include_once "../core/core.fechas.inc.php";
include_once "../libs/sql.inc.php";
include_once "../core/core.config.inc.php";
// Variables
$idsolicitud = $_GET["s"];
//numero de credito que no existe
$idsocio = $_GET["i"];
if (!$idsolicitud or !$idsocio) {
    echo VJS_REGRESAR;
} else {
    /* verifica solicitud */
    $tiporel = $_POST["relacion"];
    $numerosoc = $_POST["idsocio"];
    $montorel = $_POST["montorel"];
    $consanguinidad = $_POST["consan"];
    $depende = $_POST["depende"];
    $observa = $_POST["observaciones"];
    $estatus = 10;
    // ESTATUS ACTUAL = 10 ACTIVO
    $xCred = new cCredito($idsolicitud, $idsocio);
    $xCred->init();
    $xCred->addAval($numerosoc, $montorel, $tiporel, $consanguinidad, $depende, $observa);
    header("location: frmcreditosavales.php?i=" . $idsocio . "&s=" . $idsolicitud);
}
     $addAct = $xSoc->addActividadEconomica($nombreempresa, $ingresos, "", DEFAULT_TIEMPO, FALLBACK_CLAVE_EMPRESA, $calle . "/" . $nexterior, $nombrelocalidad, $nombremunicipio, $nombre_estado, $tmovil, 0, 0, "", $idactividad, FALLBACK_SECTOR_ECONOMICO, $sucursal, "0", $cpostal, $idlocalidad);
     if ($addAct == false) {
         $msg .= "ERROR\tError al agregar la Actividad Economica \r\n";
     }
 }
 if (setNoMenorQueCero($origen_relacion) > 0 and setNoMenorQueCero($persona) > 0) {
     $documentorelacionado = parametro("iddocumentorelacionado", 0, MQL_INT);
     $personarelacionado = parametro("idpersonarelacionado", 0, MQL_INT);
     $idtipoderelacion = parametro("idtipoderelacion", 0, MQL_INT);
     $dependiente = parametro("dependiente", false, MQL_BOOL);
     $idtipodeparentesco = parametro("idtipodeparentesco", DEFAULT_TIPO_CONSANGUINIDAD, MQL_INT);
     if ($origen_relacion == iDE_CREDITO) {
         $xCred = new cCredito($documentorelacionado);
         $xCred->init();
         $MontoAvalado = $xCred->getMontoAutorizado();
         $addAval = $xCred->addAval($persona, $MontoAvalado, $idtipoderelacion, $idtipodeparentesco, $dependiente, $idobservaciones);
         $msg .= $xCred->getMessages();
     }
     //captacion
     //persona
     if ($origen_relacion == iDE_SOCIO) {
         if ($personarelacionado > 0) {
             $xPer = new cSocio($personarelacionado);
             if ($xPer->init() == true) {
                 $addRel = $xPer->addRelacion($persona, $idtipoderelacion, $idtipodeparentesco, $dependiente, $idobservaciones);
             }
             $msg .= $xPer->getMessages();
         } else {
             $msg .= "ERROR\tError al agregar a la Relacion, no existe relacionado \r\n";
         }
     }