?>
<!-- -->
<h2>SOLICITUD DE CR&Eacute;DITO [<?php 
    echo $convenio;
    ?>
 # <?php 
    echo $idsolicitud;
    ?>
]</h2>
<fieldset>
<table >
	<tbody>
		<tr>
			<th width="25%" class="der">Lugar</th>
			<td width="75%"><?php 
    echo $xLoc->DomicilioMunicipio() . ", " . $xLoc->DomicilioEstado();
    ?>
</td>
		</tr>
		<tr>
			<th class="der">Fecha Actual</th>
			<td><?php 
    echo getFechaLarga();
    ?>
</td>
		</tr>
		<tr>
			<th class="der">Fecha de Solicitud</th>
			<td><?php 
    echo getFechaLarga($fecha_de_solicitud);
    ?>
 function getFactura($enviar = false, $out = OUT_PDF)
 {
     $ready = null;
     $xml = "";
     $unidad = "NO APLICA";
     $cantidad = 1;
     $mql = new MQL();
     $xLis = new cSQLListas();
     $xLoc = new cLocal();
     $xPais = new cDomiciliosPaises(EACP_CLAVE_DE_PAIS);
     $xLog = new cCoreLog();
     $sql = "SELECT * FROM `operaciones_archivo_de_facturas` WHERE `clave_de_recibo` = " . $this->mCodigoDeRecibo . " LIMIT 0,1";
     $xArch = new cOperaciones_archivo_de_facturas();
     $DFact = $mql->getDataRow($sql);
     if (isset($DFact["clave_de_recibo"])) {
         $xArch->setData($DFact);
         $this->mMessages .= "OK\tEl UUID existe  " . $xArch->uuid()->v(OUT_TXT) . "\r\n";
         if ($enviar == true) {
             if ($this->getOPersona() == null) {
             } else {
                 $xSoc = $this->getOPersona();
                 $email = $xSoc->getCorreoElectronico();
                 $comprobante = PATH_FACTURAS . $xArch->uuid()->v(OUT_TXT);
                 file_put_contents($comprobante . ".xml", base64_decode($xArch->contenido()->v(OUT_TXT)));
                 file_put_contents($comprobante . ".pdf", base64_decode($xArch->impreso()->v(OUT_TXT)));
                 $ready = $out == OUT_PDF ? base64_decode($xArch->impreso()->v(OUT_TXT)) : base64_decode($xArch->contenido()->v(OUT_TXT));
                 $xNotif = new cNotificaciones();
                 //PDF y XML
                 $arrFil = array();
                 $arrFil["archivo1"]["path"] = $comprobante . ".pdf";
                 $arrFil["archivo2"]["path"] = $comprobante . ".xml";
                 $xNotif->sendMail("Factura del Recibo " . $this->mCodigoDeRecibo, "Factura del Recibo " . $this->mCodigoDeRecibo, $email, $arrFil);
                 //Enviar al Archivo mail
                 $xNotif->sendMail("Factura del Recibo " . $this->mCodigoDeRecibo, "Factura del Recibo " . $this->mCodigoDeRecibo, FACTURACION_MAIL_ARCHIVO, $arrFil);
                 $this->mMessages .= $xNotif->getMessages();
             }
         } else {
             $ready = $out == OUT_PDF ? $xArch->impreso()->v(OUT_TXT) : $xArch->contenido()->v(OUT_TXT);
         }
     } else {
         $xLog->add("WARN\tGenerando Nueva Factura\r\n", $xLog->DEVELOPER);
         //cargar Archivo
         $xPais->init();
         if ($this->mReciboIniciado == false) {
             $this->init();
         }
         if ($this->getOPersona() == null) {
             $xLog->add("ERROR\tAl cargar la Persona\r\n");
         } else {
             $xFact = new cFacturaElectronica();
             //datos de la emisora
             //persona iniciada
             $xSoc = $this->getOPersona();
             $email = $xSoc->getCorreoElectronico();
             $xFact->setEmisor(EACP_NAME, EACP_RFC, EACP_DOMICILIO_CALLE, EACP_DOMICILIO_NUM_EXT, EACP_DOMICILIO_NUM_INT, EACP_CODIGO_POSTAL, EACP_COLONIA, EACP_MUNICIPIO, EACP_ESTADO, $xPais->getNombre());
             $xFact->setRegimenFiscal(EACP_REGIMEN_FISCAL);
             $calle = $xLoc->DomicilioCalle();
             $numeroInt = $xLoc->DomicilioNumeroInterior();
             $numeroExt = $xLoc->DomicilioNumeroExterior();
             $codigoPostal = $xLoc->DomicilioCodigoPostal();
             $colonia = $xLoc->DomicilioColonia();
             $xSocDom = $xSoc->getODomicilio();
             $pais = $xLoc->getNombreDePais();
             $estado = $xLoc->DomicilioEstado();
             $municipio = $xLoc->DomicilioMunicipio();
             $tasa_iva = TASA_IVA;
             $xFact->setLugarDeExpedicion($xLoc->DomicilioCalle(), $xLoc->DomicilioNumeroExterior(), $xLoc->DomicilioNumeroInterior(), $xLoc->DomicilioCodigoPostal(), $xLoc->DomicilioColonia(), $xLoc->DomicilioMunicipio(), $xLoc->DomicilioEstado(), $xLoc->getNombreDePais());
             if ($xSocDom == null) {
                 $xLog->add("WARN\tNo hay domicilio Valido\r\n", $xLog->DEVELOPER);
             } else {
                 $calle = $xSocDom->getCalle();
                 $numeroExt = $xSocDom->getNumeroExterior();
                 $numeroInt = $xSocDom->getNumeroInterior();
                 $codigoPostal = $xSocDom->getCodigoPostal();
                 $colonia = $xSocDom->getColonia();
                 $municipio = $xSocDom->getMunicipio();
                 $estado = $xSocDom->getEstado();
                 $pais = $xSocDom->getNombreDePais();
             }
             //Cargar datos del Docto
             //$this->getOrigen();
             $OTipoRec = $this->getOTipoRecibo();
             if ($OTipoRec->getOrigen() == RECIBOS_ORIGEN_MIXTO or $OTipoRec->getOrigen() == RECIBOS_ORIGEN_COLOCACION) {
                 $xCred = new cCredito($this->getCodigoDeDocumento());
                 $xCred->init();
                 $tasa_iva = $xCred->getTasaIVA();
                 $xLog->add("WARN\tLa tasa de IVA es {$tasa_iva}\r\n", $xLog->DEVELOPER);
             }
             $xFact->setReceptor($xSoc->getNombreCompleto(), $xSoc->getRFC(true, true), $calle, $numeroExt, $numeroInt, $codigoPostal, $colonia, $municipio, $estado, $pais);
             //Datos del pagos
             $formaDePago = "Pago en una sola exhibición";
             $cuentaDePago = "No Identificado";
             $arrEquiv = array(TESORERIA_COBRO_DOCTO => "Documentos", TESORERIA_COBRO_EFECTIVO => "Efectivo", TESORERIA_COBRO_INTERNO => "Documentos", TESORERIA_COBRO_MULTIPLE => "Documentos", TESORERIA_COBRO_NINGUNO => "Documentos", TESORERIA_COBRO_TRANSFERENCIA => "Transferencia", TESORERIA_COBRO_CHEQUE => "Cheque");
             $metodoDePago = $arrEquiv[$this->getTipoDePago()];
             //cargar equivalencias
             //TODO: Considerar cambios en otro de tipo de tributacion
             if ($this->getTipoDePago() == TESORERIA_COBRO_TRANSFERENCIA or $this->getTipoDePago() == TESORERIA_COBRO_CHEQUE) {
                 $OCaja = $this->getOCaja();
                 $cuentaDePago = $OCaja->getCuentaBancoActivo();
             }
             //Cheque, Transferencia, Depósito
             $xFact->setDatosDePago($formaDePago, $metodoDePago, $cuentaDePago);
             $sql = "SELECT\n\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado`,\n\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`,\n\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`subclasificacion`,\n\t\t\t\t\t`operaciones_tipos`.`descripcion_operacion` AS `operacion`,\n\t\t\t\t\t`operaciones_mvtos`.`fecha_operacion`,\n\t\t\t\t\t`operaciones_mvtos`.`afectacion_real` AS 'monto'  \n\t\t\t\tFROM\n\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos` \n\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros` \n\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros` \n\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = \n\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro` \n\t\t\t\t\t\t\tINNER JOIN `operaciones_tipos` `operaciones_tipos` \n\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.\n\t\t\t\t\t\t\t`idoperaciones_tipos` \n\t\t\t\tWHERE\n\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` =11000) AND\n\t\t\t\t\t(`operaciones_mvtos`.`recibo_afectado` =" . $this->mCodigoDeRecibo . " )";
             $iva = 0;
             $total = 0;
             $rs = $mql->getDataRecord($sql);
             foreach ($rs as $rows) {
                 $descripcion = $rows["operacion"];
                 $valor = $rows["monto"];
                 $tipo = $rows["subclasificacion"];
                 $total += $valor;
                 if ($tipo == 1000) {
                     $iva += $rows["monto"];
                 } else {
                     $xFact->addConcepto($cantidad, $unidad, $valor, $descripcion);
                 }
             }
             //agregar IVA
             if ($iva > 0) {
                 $xFact->addTrasladado("IVA", $tasa_iva, $iva);
             }
             $xml = $xFact->get();
             $this->mOFactura = $xFact;
             if ($total <= 0) {
                 $enviar = false;
             }
         }
         if ($enviar == true) {
             if ($this->mOFactura != null) {
                 if (filter_var($email, FILTER_VALIDATE_EMAIL)) {
                     if ($this->mOFactura->timbrar() == 1) {
                         //ready = true
                         $xNotif = new cNotificaciones();
                         //PDF y XML
                         $arrFil = array();
                         $arrFil["archivo1"]["path"] = $this->mOFactura->getComprobante() . ".pdf";
                         $arrFil["archivo2"]["path"] = $this->mOFactura->getComprobante() . ".xml";
                         $xNotif->sendMail("Factura del Recibo " . $this->mCodigoDeRecibo, "Factura del Recibo " . $this->mCodigoDeRecibo, $email, $arrFil);
                         //Enviar al Archivo mail
                         $xNotif->sendMail("Factura del Recibo " . $this->mCodigoDeRecibo, "Factura del Recibo " . $this->mCodigoDeRecibo, FACTURACION_MAIL_ARCHIVO, $arrFil);
                         //Guardar en DB
                         $this->mOFactura->setArchivar($this->mCodigoDeRecibo);
                         $xLog->add($xNotif->getMessages(), $xLog->DEVELOPER);
                         $ready = $out == OUT_PDF ? $this->mOFactura->getPDF() : $this->mOFactura->getXML();
                     }
                 } else {
                     $xLog->add("WARN\tNo hay email valido para la Factura ({$email})\r\n", $xLog->DEVELOPER);
                 }
                 $xLog->add($this->mOFactura->getMessages(), $xLog->DEVELOPER);
             }
         }
     }
     $this->mMessages .= $xLog->getMessages();
     return $ready;
 }
$xTxt3 = new cHText();
$xTxt4 = new cHText();
$xTxt5 = new cHText();
$xTxt6 = new cHText();
$xSel = new cHSelect();
$xHSel = new cHSelect();
$xTxtE = new cHText();
$xHP->init("initComponents()");
/* verifica si hay un dato */
$tipo_ae = parametro("idactividad", FALLBACK_ACTIVIDAD_ECONOMICA);
$sector_ae = parametro("idsectoreconomico", FALLBACK_SECTOR_ECONOMICO);
$nombre_ae = parametro("idrazonsocialtrabajo");
$domicilio_ae = parametro("iddomiciliodeactividad");
$localidad_ae = parametro("idnombrelocalidad", $xLoc->DomicilioLocalidad());
$idlocalidad = parametro("idlocalidad", $xLoc->DomicilioLocalidadClave(), MQL_INT);
$municipio_ae = parametro("idnombremunicipio", $xLoc->DomicilioMunicipio());
$idmunicipio = parametro("idmunicipio", $xLoc->DomicilioMunicipioClave(), MQL_INT);
$estado = parametro("identidadfederativa", $xLoc->DomicilioEstadoClaveNum(), MQL_INT);
//DEFAULT_NOMBRE_ESTADO
$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("idsalario", 0, MQL_FLOAT);
$empresa = parametro("iddependencia", FALLBACK_CLAVE_EMPRESA);
$puesto = parametro("idpuesto");
$nss = parametro("idnss");
$cp = parametro("idcodigopostal", $xLoc->DomicilioCodigoPostal(), MQL_INT);
$fechaalta = fechasys();
$idcolonia = parametro("idcp_idcodigopostal", 0, MQL_INT);
 Sexo	
 ClaveElectorIFE	
 NumeroDependientes	
 FechaDefuncion	
 IndicadorDefuncion	
 TipoPersona
 */
 //Linea de Socio
 $linea .= "{$ApellidoPaterno}|{$ApellidoMaterno}|{$ApellidoAdicional}|{$Nombres}|{$FechaNacimiento}|{$RFC}|{$CURP}|{$Nacionalidad}|{$Residencia}|{$licencia}|{$EstadoCivil}|{$Sexo}|";
 $linea .= "{$ClaveIFE}|{$NumeroDependientes}|{$FechaDefuncion}|{$IndicadoDefuncion}|{$TipoPersona}|";
 //==================================== Domicilio Particular ==================================
 //Calle, numero exterior, numero interior
 if ($ODom == null) {
     $Direccion = "DOMICILIO NO PROPORCIONADO";
     $ColoniaPoblacion = "NO PROPORCIONADO";
     $DelegacionMunicipio = $xCR->getText($xLoc->DomicilioMunicipio());
     $Ciudad = "";
     $Estado = $xCR->getText($xLoc->DomicilioEstadoClaveSIC());
     $CP = $xCR->getText($xLoc->DomicilioCodigoPostal(), 5);
     $xSuc = new cSucursal($sucres);
     if ($xSuc->init() == true) {
         $DelegacionMunicipio = $xCR->getText($xSuc->getMunicipio());
         $Estado = $xCR->getText($xSuc->getClaveDeEstadoSIC());
         $CP = $xCR->getText($xSuc->getCodigoPostal(), 5);
     }
     $FechaResidencia = "";
     $NumeroTelefono = "";
     $TipoDomicilio = "";
     $TipoAsentamiento = "";
     $linea .= "{$Direccion}|{$ColoniaPoblacion}|{$DelegacionMunicipio}|{$Ciudad}|{$Estado}|{$CP}|{$FechaResidencia}|{$NumeroTelefono}|{$TipoDomicilio}|{$TipoAsentamiento}|";
     $xLog->add("ERROR\t{$idpersona}-{$idcredito}\t{$sucres}\tSin Domicilio {$Direccion}|{$ColoniaPoblacion}|{$DelegacionMunicipio}|{$Ciudad}|{$Estado}|{$CP}|{$FechaResidencia}|{$NumeroTelefono}|{$TipoDomicilio}|{$TipoAsentamiento}|\r\n", $xLog->DEVELOPER);
}
$xFRM->OHidden("idtipodeingreso", TIPO_INGRESO_GRUPO, "");
//$xFRM->addHElem( $xSel->getListaDeTiposDeIngresoDePersonas("", PERSONAS_ES_MORAL)->get("TR.tipo de persona", true) );
$xFRM->OHidden("idfigurajuridica", PERSONAS_FIGURA_MORAL, "");
//$xFRM->addHElem( $xSel->getListaDeFigurasJuridicas("", PERSONAS_ES_MORAL)->get("TR.tipo de figura juridica", true) );
$xTxt2->setProperty("list", "dlBuscarPersona");
$xTxt2->addEvent("getListaSocios(this, event)", "onkeyup");
$xFRM->OText("idrazonsocial", "", "TR.Nombre del grupo");
//$xFRM->OHidden("idregimenfiscal",DEFAULT_REGIMEN_FISCAL, "TR.Regimen Fiscal")
//$xFRM->addHElem( $xSel->getListaDeRegimenesFiscales("", PERSONAS_ES_MORAL)->get("TR.Regimen Fiscal", true) );
//$xFRM->addHElem( $xSel->getListaDeGeneros()->get("TR.genero", true) );
//$xFRM->addHElem( $xSel->getListaDePaises("idpaisdeorigen")->get("TR.Pais de Origen", true) );
$xFRM->ODate("idfechanacimiento", false, "TR.fecha de creacion");
$sEstados = $xSel->getListaDeEntidadesFed("identidadfederativanacimiento");
$xFRM->addHElem($sEstados->get("TR.entidad de Creacion", true));
$xFRM->addHElem($xTxt->get("idlugardenacimiento", $xLoc->DomicilioMunicipio(), "TR.localidad de creacion"));
//$sCivil		= $xSel->getListaDeEstadoCivil();
//$xFRM->addHElem( $sCivil->get("TR.estado civil", true) );
//$xFRM->addHElem( $xSel->getListaDeRegimenMatrimonio()->get(true) );
//$sFJ		= $xSel->getListaDeTipoDeIdentificacion("", PERSONAS_ES_MORAL);
//$xFRM->addHElem( $sFJ->get(true) );
//$xFRM->OText("idnumerodocumento","", "TR.Numero de Documento");
$xFRM->addHElem($xTxt->getEmail("idemail"));
$xFRM->addHElem($xTxt->getNumero("idtelefono", "", "TR.Telefono"));
$xTCURP = new cHText();
$xTRFC = new cHText();
$xTCURP->setProperty("required", "true");
//$xFRM->addHElem( $xTCURP->get("idcurp", "", "TR.IDENTIFICACION_POBLACIONAL") );
//$xFRM->addHElem( $xTRFC->get("idrfc", "", "TR.IDENTIFICACION_FISCAL") );
$xFRM->addObservaciones();
//$xFRM->OMoneda("iddependientes", 0, "TR.Dependientes economicos");
 /**
  * Agrega una vivienda a la persona
  * @param string $calle
  * @param string $numero_exterior
  * @param string $codigo_postal
  * @param string $numero_interior
  * @param string $referencia
  * @param string $telefono_fijo
  * @param string $telefono_movil
  * @param string $es_principal
  * @param number $regimen
  * @param number $tipo
  * @param number $tiempo_de_residir
  * @param string $colonia				Nombre del colonia
  * @param string $TipoDeAcceso			Calle, Andador, etc
  * @param string $gps					Claves GPS 0,0,0
  * @param string $clave_de_localidad
  * @param string $clave_de_pais			Ejemplo MX
  * @param string $nombre_pais			Ejemplo Mexico
  * @return string	Mensaje de resultado
  */
 function addVivienda($calle, $numero_exterior, $codigo_postal = false, $numero_interior = "", $referencia = "", $telefono_fijo = "0", $telefono_movil = "0", $es_principal = false, $regimen = FALLBACK_PERSONAS_REGIMEN_VIV, $tipo = FALLBACK_PERSONAS_TIPO_VIV, $tiempo_de_residir = DEFAULT_TIEMPO, $colonia = "", $TipoDeAcceso = "", $gps = "", $clave_de_localidad = false, $clave_de_pais = EACP_CLAVE_DE_PAIS, $nombre_pais = "", $nombre_estado = "", $nombre_municipo = "", $nombre_localidad = "")
 {
     //$xViv				= new cPersonasVivienda($this->getCodigo(), $tipo);
     $fechaalta = fechasys();
     $eacp = EACP_CLAVE;
     $socio = $this->mCodigo;
     $xT = new cTipos();
     $xLc = new cLocal();
     $xQL = new MQL();
     //depurar calle y numero 18Jul2013
     $calle = str_replace("CALLE", "", strtoupper($calle));
     //Inicia al Socio 20120620
     $this->init();
     $DSocio = $this->getDatosInArray();
     $TipoDeIngreso = $DSocio["tipoingreso"];
     $codigo_postal = setNoMenorQueCero($codigo_postal);
     $sucursal = getSucursal();
     $sucess = true;
     $usuario = getUsuarioActual();
     //Fixed
     $msg = "";
     $TipoDeAcceso = $TipoDeAcceso == "" ? "calle" : $TipoDeAcceso;
     $clave_de_municipio = $xLc->DomicilioMunicipioClave();
     $clave_de_estado = $xLc->DomicilioEstadoClaveNum();
     $clave_de_localidad = setNoMenorQueCero($clave_de_localidad);
     $clave_de_pais = trim($clave_de_pais) == "" ? EACP_CLAVE_DE_PAIS : $clave_de_pais;
     /* 1 part 2 fiscal 3 laboral*/
     //verifica los codigos postales
     $xCol = new cDomiciliosColonias();
     if ($clave_de_pais == EACP_CLAVE_DE_PAIS) {
         if ($xCol->existe($codigo_postal) == true) {
             $estado = $xCol->getNombreEstado();
             $nombre_localidad = $xCol->getNombreLocalidad();
             $municipio = $xCol->getNombreMunicipio();
             $colonia = trim($colonia) == "" ? $xCol->getNombre() : $xT->cChar($colonia);
             $clave_de_estado = $xCol->getClaveDeEstado();
             $clave_de_municipio = $xCol->getClaveDeMunicipio();
             $msg .= "WARN\t{$socio}\tEl CP queda en {$codigo_postal}, Localidad en {$nombre_localidad}, municipio en {$municipio}, Colonia {$colonia}\r\n";
         } else {
             $msg .= "WARN\tEL C.P.({$codigo_postal}) No existe, se carga el de la Caja Local\r\n";
             if (SISTEMA_CAJASLOCALES_ACTIVA == true) {
                 $this->init();
                 $xCL = new cCajaLocal($this->mCajaLocal);
                 $DCols = $xCL->getDatosInArray();
                 $codigo_postal = isset($DCols["codigo_postal"]) ? setNoMenorQueCero($DCols["codigo_postal"]) : $xLc->DomicilioCodigoPostal();
                 $msg .= "WARN\tSe obtiene el C.P. por caja Local ({$codigo_postal}) \r\n";
                 if ($xCol->existe($codigo_postal) == true) {
                     $estado = $xCol->getNombreEstado();
                     $nombre_localidad = $xCol->getNombreLocalidad();
                     $municipio = $xCol->getNombreMunicipio();
                     $colonia = trim($colonia) == "" ? $xCol->getNombre() : $xT->cChar($colonia);
                     $clave_de_estado = $xCol->getClaveDeEstado();
                     $clave_de_municipio = $xCol->getClaveDeMunicipio();
                 }
             }
             if ($codigo_postal <= 0) {
                 $msg .= "ERROR\tEL C.P.({$codigo_postal}) No existe, se carga el de la Sucursal\r\n";
                 $codigo_postal = $xLc->DomicilioCodigoPostal();
             }
         }
     } else {
         $clave_de_estado = FALLBACK_PERSONAS_DOMICILIO_ID_ESTADO;
         $clave_de_municipio = FALLBACK_PERSONAS_DOMICILIO_ID_MUNICIPIO;
         if ($codigo_postal <= 0) {
             $codigo_postal = 1;
         }
     }
     $xLoc = new cDomicilioLocalidad($clave_de_localidad);
     if ($clave_de_localidad <= 0) {
         $clave_de_localidad = $xLoc->setBuscar($nombre_localidad, $clave_de_estado, $clave_de_municipio);
         if (setNoMenorQueCero($clave_de_localidad) <= 0) {
             $clave_de_localidad = $xLc->DomicilioLocalidadClave();
         }
         $xLoc->set($clave_de_localidad);
     } else {
         $xLoc->init();
     }
     $nombre_localidad = $nombre_localidad == "" ? $xLoc->getNombre() : $nombre_localidad;
     //Tipos de Acceso calle, avenida, callejon privada, andador
     if ($nombre_pais == "") {
         $xPais = new cDomiciliosPaises($clave_de_pais);
         //$xPais->getPaisPorMoneda($moneda)
         $xTP = new cPersonas_domicilios_paises();
         $xTP->setData($xTP->query()->initByID($clave_de_pais));
         $nombre_pais = $xTP->nombre_oficial()->v();
         $municipio = $nombre_municipo == "" ? $nombre_localidad : strtoupper($nombre_municipo);
         $estado = $nombre_estado == "" ? $nombre_localidad : strtoupper($nombre_estado);
     }
     $estado = $nombre_estado == "" ? $xLc->DomicilioEstado() : strtoupper($nombre_estado);
     $nombre_localidad = $nombre_localidad == "" ? $xLc->DomicilioLocalidad() : strtoupper($nombre_localidad);
     $municipio = $nombre_municipo == "" ? $xLc->DomicilioMunicipio() : strtoupper($nombre_municipo);
     $calle = setCadenaVal($calle);
     $colonia = setCadenaVal($colonia);
     $estado = setCadenaVal($estado);
     $nombre_localidad = setCadenaVal($nombre_localidad);
     $municipio = setCadenaVal($municipio);
     $sql = "INSERT INTO socios_vivienda(socio_numero, tipo_regimen, calle, numero_exterior, numero_interior, colonia,\n\t\t\t\tlocalidad, estado, municipio, telefono_residencial, telefono_movil,\n\t\t\t\ttiempo_residencia, referencia, idusuario, principal, tipo_domicilio, codigo_postal,\n\t\t\t\tfecha_alta, codigo , sucursal,\n\t\t\t\teacp, coordenadas_gps, tipo_de_acceso, fecha_de_verificacion, oficial_de_verificacion, estado_actual, clave_de_localidad,\n\t\t\t\tclave_de_pais, nombre_de_pais)\n\t\t\t\tVALUES\n\t\t\t\t({$socio}, {$regimen}, '{$calle}', '{$numero_exterior}', '{$numero_interior}', '{$colonia}',\n\t\t\t\t'{$nombre_localidad}', '{$estado}', '{$municipio}', '{$telefono_fijo}','{$telefono_movil}',\n\t\t\t\t{$tiempo_de_residir}, '{$referencia}', {$usuario}, '{$es_principal}', {$tipo}, '{$codigo_postal}',\n\t\t\t\t'{$fechaalta}', {$socio}, '{$sucursal}',\n\t\t\t\t'{$eacp}', '{$gps}', '{$TipoDeAcceso}', '{$fechaalta}', {$usuario}, 99, {$clave_de_localidad},\n\t\t\t\t'{$clave_de_pais}', '{$nombre_pais}')";
     $sucess = $xQL->setRawQuery($sql);
     if ($sucess != false) {
         $id = $xQL->getLastInsertID();
         $this->mIDVivienda = $id;
         $msg .= "OK\tSe agrega la Vivienda con ID {$id} CP {$codigo_postal} y Localidad {$clave_de_localidad} del pais {$nombre_pais}\r\n";
         //Actualiza el Dato de Domicilio del Grupo Solidario
         if ($TipoDeIngreso == TIPO_INGRESO_GRUPO and intval($es_principal) == SYS_UNO) {
             $xGrp = new cGrupo($this->mCodigo);
             $DDom = $this->getDatosDomicilio();
             $arrUp = array("direccion_gruposolidario" => $this->getDomicilio(), "colonia_gruposolidario" => $DDom["colonia"]);
             $xGrp->setUpdate($arrUp);
             $msg .= $xGrp->getMessages();
         }
         $this->setCuandoSeActualiza();
     }
     $this->mMessages .= $msg;
     return $sucess;
 }
}
$cTbl = new cTabla($xLi->getListadoDeTareas(getUsuarioActual()));
$cTbl->setKeyField("idusuarios_web_notas");
$cTbl->setKeyTable("usuarios_web_notas");
$cTbl->OButton("TR.Checado", "setUpdateEstatus(_REPLACE_ID_)", $cTbl->ODicIcons()->OK);
$alerts .= $cTbl->Show("TR.Tareas");
$xFRM->OButton("TR.Salir", "var xG = new Gen(); xG.salir()", "salir");
$xFRM->addSeccion("idmastareas", "TR.Tareas");
$xFRM->addHElem("<div id=\"tcalendar-task\">{$alerts}</div>");
$xFRM->endSeccion();
$sysinfo = "";
if (MODO_DEBUG == true and SYSTEM_ON_HOSTING == false) {
    $xUL = new cHUl();
    $xUL2 = new cHUl();
    $sysinfo = $xUL->li("Base de Datos:" . MY_DB_IN)->li("Servidor: " . WORK_HOST)->li("Sucursal: " . getSucursal())->li("Version S.A.F.E.: " . SAFE_VERSION)->li("Revision S.A.F.E: " . SAFE_REVISION)->li("Path Temporal: " . PATH_TMP)->li("Path Backups: " . PATH_BACKUPS)->li("Fecha del Sistema: " . date("Y-m-d H:i:s"))->li("Usuario Activo: " . $xUsr->getNombreCompleto())->li("ID de Usuario: " . $xUsr->getID())->li("Nivel de Usuario: " . $xUsr->getNivel())->li("SAFE DB version : " . SAFE_DB_VERSION)->end();
    $sysinfo2 = $xUL2->li("Caja Local : " . $xLoc->getCajaLocal())->li("Localidad : " . $xLoc->DomicilioLocalidad())->li("Clave Localidad : " . $xLoc->DomicilioLocalidadClave())->li("Municipio : " . $xLoc->DomicilioMunicipio())->li("Estado : " . $xLoc->DomicilioEstado())->li("Clave Estado : " . $xLoc->DomicilioEstadoClaveABC())->li("C.P. : " . $xLoc->DomicilioCodigoPostal())->end();
    $xFRM->addSeccion("idmaslogs", "TR.Sistema");
    $xFRM->addDivSolo($sysinfo, $sysinfo2, "tx24", "tx24");
    $xFRM->endSeccion();
}
if (getUsuarioActual(SYS_USER_NIVEL) == USUARIO_TIPO_CAJERO) {
    $xNot = new cHNotif();
    $xCaja = new cCaja();
    if ($xCaja->getEstatus() == TESORERIA_CAJA_CERRADA) {
        $xNot->get("", "idestadocaja", $xNot->ERROR);
    } else {
    }
}
$xFRM->addAviso("", "idavisos");
$xFRM->OHidden("id-KeyEditable", "", "");
//$xFRM->addHTML($menu);
}
//
$xFRM->OHidden("idfigurajuridica", PERSONAS_FIGURA_FISICA, "");
//$xFRM->addHElem( $xSel->getListaDeFigurasJuridicas("", PERSONAS_ES_FISICA)->get("TR.tipo de figura juridica", true) );
$xTxt2->setProperty("list", "dlBuscarPersona");
$xTxt2->addEvent("getListaSocios(this, event)", "onkeyup");
$xFRM->addHElem($xTxt2->get("idnombrecompleto", "", "TR.nombre completo"));
$xFRM->addHElem($xTxt2->get("idapellidopaterno", "", "TR.primer apellido"));
$xFRM->addHElem($xTxt2->get("idapellidomaterno", "", "TR.segundo apellido"));
$xFRM->addHElem($xSel->getListaDeGeneros()->get("TR.genero", true));
$xFRM->addHElem($xSel->getListaDePaises("idpaisdeorigen")->get("TR.Pais de Origen", true));
if ($con_nacimiento == true) {
    $xFRM->ODate("idfechanacimiento", false, "TR.fecha de Nacimiento");
    $sEstados = $xSel->getListaDeEntidadesFed("identidadfederativanacimiento");
    $xFRM->addHElem($sEstados->get("TR.entidad de nacimiento", true));
    $xFRM->addHElem($xTxt->get("idlugardenacimiento", $xLoc->DomicilioMunicipio(), "TR.localidad de Nacimiento"));
} else {
    $xFRM->OHidden("identidadfederativanacimiento", $xLoc->DomicilioEstadoClaveABC(), "");
    $xFRM->OHidden("idlugardenacimiento", $xLoc->DomicilioMunicipio(), "");
    $xFRM->OHidden("idfechanacimiento", "01-01-2001", "");
}
$xFRM->addHElem($xTxt->getEmail("idemail"));
$xFRM->addHElem($xTxt->getNumero("idtelefono", "", "TR.Telefono"));
$xFRM->OMoneda("iddependientes", 0, "TR.Dependientes_economicos");
if ($con_legal == true) {
    $sCivil = $xSel->getListaDeEstadoCivil();
    $xFRM->addHElem($sCivil->get("TR.estado civil", true));
    $xFRM->addHElem($xSel->getListaDeRegimenMatrimonio()->get(true));
    $xFRM->addHElem($xSel->getListaDeRegimenesFiscales("", PERSONAS_ES_FISICA)->get("TR.Regimen Fiscal", true));
    $sFJ = $xSel->getListaDeTipoDeIdentificacion();
    $xFRM->addHElem($sFJ->get(true));
$xFRM->addHElem($xTxt->getNumero("avalado", $montorelacionado, "TR.Monto avalado"));
//$xFRM->addHElem( "<hr />");
$xHSel->setEnclose(false);
$xHSel->addOptions(array("calle" => "Calle", "avenida" => "Avenida", "andador" => "Andador", "camino_rural" => "Camino Rural"));
$xTxtE->setDivClass("");
$xFRM->addDivSolo($xHSel->get("idtipoacceso", "", "calle"), $xTxtE->getNormal("idnombreacceso", ""), "tx14", "tx34");
$xFRM->addHElem($xTxt->getNormal("idnumeroexterior", "", "TR.Numero_Exterior"));
$xTX2->addEvent("jsaGetDatosHeredados()", "onblur");
$xFRM->addHElem($xTX2->getNumero("idcodigopostal", DEFAULT_CODIGO_POSTAL, "TR.codigo_postal"));
$xTx3->addEvent("getListaColoniasPorNombre()", "onkeyup");
$xFRM->addHElem($xTx3->getNormal("idnombrecolonia", "", "TR.Colonia"));
$sentidades = $xSel->getListaDeEntidadesFed();
$sentidades->addEvent("onblur", "jsaGetMunicipios");
$xFRM->addHElem($sentidades->get(true));
if (PERSONAS_VIVIENDA_MANUAL == true) {
    $xFRM->addHElem($xTxt->getDeNombreDeMunicipio("idnombremunicipio", $xLoc->DomicilioMunicipio(), "TR.Municipio"));
    $xFRM->addHElem($xTxt->getDeNombreDeLocalidad("idnombrelocalidad", $xLoc->DomicilioLocalidad(), "TR.localidad"));
} else {
    $xFRM->addHElem("<div class='tx4' id='txtmunicipio'></div>");
    $xFRM->addHElem("<div class='tx4' id='txtlocalidad'></div>");
}
$xFRM->OHidden("idpais", EACP_CLAVE_DE_PAIS, "TR.Pais");
//$xFRM->addHElem( "<hr />");
$xFRM->addObservaciones();
$xFRM->addFootElement("<input type='hidden' name='credito' id='credito' value='{$credito}' />");
$xFRM->addFootElement("<input type='hidden' name='personarelacionada' id='personarelacionada' value='' />");
$xFRM->addFootElement("<input type='hidden' id='idcolonia' name='idcolonia' value='' />");
if ($action == SYS_DOS) {
    $xSuc = new cSucursal(getSucursal());
    $xSuc->init();
    $cajalocal = $xSuc->getCajaLocalResidente();