$genero = $arrEquivGenero[$r["genero"]];
    //datos del Domicilio
    $DDom = $xSoc->getDatosDomicilio();
    $calle = $xT->getCSV($DDom["calle"]);
    $numero = $xT->getCSV($DDom["numero_exterior"]);
    $colonia = $xT->getCSV($DDom["colonia"]);
    $xCol = new cDomiciliosColonias();
    $codCol = $xCol->getClavePorCodigoPostal($DDom["codigo_postal"]);
    $xCol->set($codCol);
    $xCol->init();
    $DCol = $xCol->getDatosInArray();
    $cp = $xT->cSerial(5, $DDom["codigo_postal"]);
    $claveMun = $DCol["codigo_de_municipio"];
    $claveEnt = $DCol["codigo_de_estado"];
    $localidad = $DDom["localidad"];
    $xLoc = new cDomicilioLocalidad("");
    $claveLoc = $xLoc->setBuscar($localidad, $claveEnt, $claveMun);
    $xLoc->set($claveLoc);
    $DLoc = $xLoc->getDatosInArray();
    $claveLocInegi = $DLoc["clave_de_localidad"];
    $DAports = $xSoc->getDatosAportaciones();
    $montoParteSoc = $xSoc->getAportacionesSociales();
    $linea = "{$punto_de_acceso},{$socio},{$tipoDato},{$fechaNac},{$primerApellido},{$segundoApellido},{$primerNombre},{$segundoNombre},{$tipoPersona},{$fechaInscripcion}";
    $linea .= ",{$genero},{$calle},{$numero},{$colonia},{$cp},{$claveLocInegi},{$montoParteSoc},\r\n";
    echo $linea;
}
//echo getRawFooter();
//echo $xHP->setBodyEnd();
/*
<script  >
 if ($ODom == null) {
     $cont[24] = "";
     $cont[25] = "";
     $cont[26] = $xLoc->DomicilioLocalidadClave();
     $cont[27] = "";
 } else {
     //10500001
     $idlocalidad = $ODom->getClaveDeLocalidad();
     //$cont[24]	= ($orels == 0) ? strtoupper($xT->cChar($ODom->getCalleConNumero(), 59)) : "";
     //$cont[25]	= ($orels == 0) ? $xT->cChar($ODom->getColonia(), 29) : "";
     //$cont[26]	= ($orels == 0) ? $xT->cSerial(8, $idlocalidad) : "";
     $cont[24] = strtoupper($xT->cChar($ODom->getCalleConNumero(), 59));
     $cont[25] = $xT->cChar($ODom->getColonia(), 29);
     $cont[26] = $idlocalidad;
     //validar la clave de localidad, si no emitir la actual
     $xMLocal = new cDomicilioLocalidad($idlocalidad);
     //TODO: Existe?
     if ($xMLocal->existe($ODom->getClaveDeLocalidad($idlocalidad)) == false) {
         $cont[26] = $xLoc->DomicilioLocalidadClave();
     }
     //$cont[27]	= ($orels == 0) ? $xSoc->getTelefonoPrincipal() : "";
     $cont[27] = $xSoc->getTelefonoPrincipal();
 }
 if ($OAEc == null) {
     $cont[28] = "8944098";
 } else {
     $xCatAct = new cPersonaActividadEconomicaCatalogo($OAEc->getClaveDeActividad());
     $clave_uif = $xCatAct->getCodigoUIF();
     $cont[28] = $clave_uif;
 }
 $cont[29] = "";
 function getClaveDeLocalidad()
 {
     if ($this->mClaveLocalidad == 0) {
         $xDomLoc = new cDomicilioLocalidad(false);
         $rs = $xDomLoc->setBuscar($this->mNombreLocalidad, $this->mClaveEstado, $this->mClaveMunicipio);
         if ($rs == false) {
             //devolver clave local
             $xLoc = new cLocal();
             $this->mClaveLocalidad = $xLoc->DomicilioLocalidadClave();
         } else {
             $this->mClaveLocalidad = $xDomLoc->getClaveUnica();
             $this->mClaveDePais = $xDomLoc->getClaveDePais();
         }
     }
     return $this->mClaveLocalidad;
 }
         $xCol->getClavePorCodigoPostal($cp);
         //setLog("Colonia Cargada del id $idcolonia");
         if ($xCol->init() == true) {
             $nombrecolonia = $xCol->getNombre();
             $idlocalidad = $xCol->getClaveDeLocalidad();
             if (PERSONAS_VIVIENDA_MANUAL == false) {
                 $localidad_ae = $xCol->getNombreLocalidad();
                 $municipio_ae = $xCol->getNombreMunicipio();
                 $localidad_ae = $xCol->getNombreLocalidad();
                 $loaded = true;
             }
         }
     }
 } else {
     if ($idlocalidad > 0) {
         $xDLoc = new cDomicilioLocalidad($idlocalidad);
         if ($xDLoc->init() == true) {
             $localidad_ae = $xDLoc->getNombre();
             $estado_ae = $xDLoc->getNombre();
         }
     }
 }
 //TODO: Terminar
 $success = $xSoc->addVivienda($calle, $nexterior, $cp, "", "", $telefono_ae, "", false, PERSONAS_REG_VIV_NINGUNO, PERSONAS_TIPO_DOM_LABORAL, $antiguedad_ae, $nombrecolonia, PERSONAS_TIPO_ACCESO_CALLE, "", $idlocalidad, $pais, "", $estado_ae, $municipio_ae, $localidad_ae);
 if ($success == true) {
     $iddomicilio = $xSoc->getIDDeVivienda();
     $xAE = new cPersonaActividadEconomica($xSoc->getCodigo());
     if ($empresa != FALLBACK_CLAVE_EMPRESA) {
         $xAE->setEmpresa($empresa, $puesto, $departamento_ae, $numero_empleado, $nss, $extension_ae);
     }
     if ($iddomicilio > 1) {
    $DEstado = $DDOM->getOEstado();
    $xFRM->addHElem("<p>El Nombre es " . $DDOM->getEstado() . "</p>");
    $xFRM->addHElem("<p>La clave SIC es " . $DDOM->getClaveDeEstadoEnSIC() . "</p>");
}
$xFRM->addHTML("<p class='aviso'>" . $xColonia->getMessages(OUT_HTML) . "</p>");
$xFRM->addHTML("<h3>DATOS FISCALES</h3>");
$xFRM->addHTML("<p class='aviso'>RFC evaluado : " . $xSoc->getRFC(true) . "</p>");
$xFRM->addHTML("<p class='aviso'>RFC evaluado/ret: " . $xSoc->getRFC(true, true) . "</p>");
$xFRM->addHTML("<p class='aviso'>RFC : " . $xSoc->getRFC() . "</p>");
//Iniciar por CURP
if ($xSoc->initByIDLegal("RACD-890730- KC3") == true) {
    $xFRM->addHElem("<p>El Nombre es por CURP ES " . $xSoc->getNombreCompleto() . "</p>");
    $xID = new cIDLegal($xSoc->getCURP());
    $xFRM->addHElem("<p>La fecha por CURP es " . $xID->getFechaCreacion() . "</p>");
}
$xLoc = new cDomicilioLocalidad(false);
$xLoc->setBuscar("MERXICA", 4, 1, "MX");
$xFRM->addAviso($xLoc->getNombre());
//$xC		= new cSocios_general();
/*$query		= $xC->query()->select();
$query->where("codigo > 0");
$rs	= $query->exec();
foreach ($rs as $rows){
	$xC->setData($rows);
	echo $xC->nombrecompleto()->v();
}*/
$xFRM->addHElem("<hr />");
$xUS = new cSystemUser(TASK_USR, false);
$xUS->init();
$xFRM->addHElem("<p class='aviso'>USER SYSTEM: " . $xUS->getNombreCompleto() . "</p>");
echo $xFRM->get();