$identificado_con = 1, $documento_de_identificacion = "0", $codigo = false, $sucursal = false,
             		
             		$movil	= "", $correo = "", $dependientes = 0, $fecha = false, $riesgo = AML_PERSONA_BAJO_RIESGO, $clave_fiel = "", 
             		$pais = EACP_CLAVE_DE_PAIS
             		*/
             $idpersona = $xFi->getEntero($tmp->ID_PERSONA);
             if ($idpersona > 0) {
                 $xSoc->setOmitirAML();
                 $pass = $xSoc->add($xFi->getV($tmp->NOMBRES), $xFi->getV($tmp->PRIMER_APELLIDO), $xFi->getV($tmp->SEGUNDO_APELLIDO), $xFi->getV($tmp->ID_FISCAL), $xFi->getV($tmp->ID_POBLACIONAL), getCajaLocal(), $xFi->getV($tmp->FECHA_NACIMIENTO), $xFi->getV($tmp->CIUDAD_NACIMIENTO), DEFAULT_TIPO_INGRESO, $xFi->getV($tmp->ESTADO_CIVIL, DEFAULT_ESTADO_CIVIL, MQL_INT, $arrEcivil), $xFi->getV($tmp->GENERO, DEFAULT_GENERO, MQL_INT, $arrGenero), FALLBACK_CLAVE_EMPRESA, DEFAULT_REGIMEN_CONYUGAL, $xFi->getV($tmp->TIPO_PERSONA, FALLBACK_PERSONAS_FIGURA_JURIDICA, MQL_INT, $arrFJuridica), FALLBACK_CLAVE_DE_GRUPO, "", FALLBACK_PERSONAS_TIPO_IDENTIFICACION, $xFi->getV($tmp->ID_POBLACIONAL), $idpersona, getSucursal(), 0, "", 0, $xFi->getV($tmp->FECHA_ALTA));
                 //sucess
                 if ($pass == true) {
                     $ingreso = $xFi->getFlotante($tmp->INGRESOS_MENSUALES);
                     if ($ingreso > 0) {
                         if ($xSoc->init() == true) {
                             $xSoc->addActividadEconomica($xFi->getV($tmp->EMPRESA_TRABAJO, ""), $ingreso, $xFi->getV($tmp->OCUPACION, ""));
                         }
                     }
                 }
             }
             $msg .= $xSoc->getMessages();
         }
         $conteo++;
     }
 }
 $msg .= $xFi->getMessages();
 if (MODO_DEBUG == true) {
     $xLog = new cFileLog();
     $xLog->setWrite($msg);
     $xFRM->addToolbar($xLog->getLinkDownload("Archivo del proceso", ""));
 }
$codigo_postal = parametro("idcodigopostal");
$referencia = parametro("idreferencia");
$numero_interior = parametro("idnumero");
$curp = parametro("curp");
$observaciones = parametro("observaciones");
$consanguinidad = parametro("consan");
$depende = parametro("depende");
$ocupacion = parametro("ocupacion");
$rfc = "";
$grupo_solidario = DEFAULT_GRUPO;
$genero = DEFAULT_GENERO;
$tipo_persona = TIPO_JURIDICO_FISICA;
$numero_de_socio = $numero_de_socio == DEFAULT_SOCIO ? false : $numero_de_socio;
$xRel = new cSocio($numero_de_socio);
//$email					= $xRel->getCorreoElectronico();
if ($xRel->existe() != true) {
    $xRel->add($nombres, $apellido_paterno, $apellido_materno, $rfc, $curp, getCajaLocal(), $fecha_de_nacimiento, "", TIPO_INGRESO_RELACION, DEFAULT_ESTADO_CIVIL, $genero, DEFAULT_EMPRESA, DEFAULT_REGIMEN_CONYUGAL, $tipo_persona, $grupo_solidario, $observaciones, DEFAULT_TIPO_IDENTIFICACION, "", false, false, $telefono_movil, "", 0);
    if (trim($calle) != "") {
        $xRel->addVivienda($calle, $numero, $codigo_postal, "", $referencia, $telefono_fijo, $telefono_movil, TIPO_DOMICILIO_PRINCIPAL, TIPO_VIVIENDA_PROPIA, TIPO_DOMICILIO_PARTICULAR, DEFAULT_TIEMPO, $colonia, "calle");
    }
    if (trim($ocupacion) != "") {
        $xRel->addActividadEconomica("", 0, $ocupacion, DEFAULT_TIEMPO, DEFAULT_EMPRESA);
    }
    $xRel->init();
    $numero_de_socio = $xRel->getCodigo();
}
$xSoc = new cSocio($idsocio);
$xSoc->addRelacion($numero_de_socio, $tipo_de_relacion, $consanguinidad, $depende, $observaciones, $monto_relacionado, $porcentaje_relacionado);
//echo $xRel->getMessages("txt");
//echo $xSoc->getMessages("txt");
header("location:referencias.directas.frm.php?msg=OK&socio=" . $idsocio);
                 $nombremunicipio = $xCol->getNombreMunicipio();
                 $nombrelocalidad = $xCol->getNombreLocalidad();
             } else {
                 $colonia = trim($colonia) == "" ? $xLoc->DomicilioCodigoPostal() : $colonia;
             }
         }
         $addDom = $xSoc->addVivienda($calle, $nexterior, $cpostal, $ninterior, $referencia, $tresidencial, $tmovil, $principal, $regimen, $tdomicilio, $tiempo, $colonia, $tipo_acceso, "", $idlocalidad, $pais, $nombre_pais, $nombre_estado, $nombremunicipio, $nombrelocalidad);
         if ($addDom == false) {
             $msg .= "ERROR\tError al agregar el domicilio \r\n";
         } else {
             $iddomicilio = $xSoc->getIDDeVivienda();
         }
     }
 }
 if (setNoMenorQueCero($ingresos) > 0 and setNoMenorQueCero($persona) > 0) {
     $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);
        $nombre_ae = parametro("idrazonsocial");
        $domicilio_ae = parametro("iddomiciliodeactividad");
        $localidad_ae = parametro("idlocalidad", $xLoc->DomicilioLocalidad());
        $municipio_ae = parametro("idmunicipio", $xLoc->DomicilioMunicipio());
        $estado_ae = parametro("idestado", $xLoc->DomicilioEstado());
        $telefono_ae = parametro("idtelefono");
        $extension_ae = parametro("idextension");
        $numero_empleado = parametro("idnumeroempleado");
        $antiguedad_ae = parametro("idantiguedad", DEFAULT_TIEMPO);
        $departamento_ae = parametro("iddepartamento");
        $montoper_ae = parametro("ingreso", 0, MQL_FLOAT);
        $dependencia_ae = parametro("iddependencia", FALLBACK_CLAVE_EMPRESA);
        $puesto = parametro("ocupacion");
        $nss = parametro("idnss");
        $fechaalta = fechasys();
        $xSoc->addActividadEconomica($nombre_ae, $montoper_ae, $puesto, $antiguedad_ae, $dependencia_ae, $domicilio_ae, $localidad_ae, $municipio_ae, $estado_ae, $telefono_ae, $extension_ae, $numero_empleado, $departamento_ae, $tipo_ae, $sector_ae, false, $nss);
    }
    $xFRM->addHTML($xSoc->getFicha());
    //$lastpersona	= $xCL->getUltimoSocioRegistrado(true);
    //$xFRM->addPersonaComandos($persona);
    $xSocRel = new cSocio($persona);
    $xSocRel->init();
    /*$numero_de_socio = FALLBACK_CLAVE_DE_PERSONA, $tipo_de_relacion = 99, $consanguinidad = 99,
    		$depende = 0, $observaciones = "", $monto_relacionado = 0, $porcentaje_relacionado = 1, $fecha_de_alta = false*/
    $porcentajerelacionado = $avalado == 0 ? 1 : $avalado / $montorelacionado;
    $montorelacionado = $avalado == 0 ? $montorelacionado : $avalado;
    $depende = $depende == true ? 1 : 0;
    $xSocRel->addRelacion($numeropropio, $tiporelacion, $tipoparentesco, $depende, $observaciones, $montorelacionado, $porcentajerelacionado, $fechaderelacion, $documentorelacionado);
    //if(MODO_DEBUG == true){ $msg .= $xSoc->getMessages();	}
    $xFRM->addAviso($msg);
}