function Common_52d87bf9711abf3a850de1dc12a14895($strOrden)
{
$v = explode(STD_LITERAL_DIVISOR, $strOrden, 2);
$socio = $v[0];
$xCl = new cCajaLocal(0);
$xCl->setAdmitirSocio($socio);
}
}
$arrQ = array("aumento" => 1, "disminucion" => -1, "ninguna" => 0);
//capturar datos del recibo
$xRec = new cReciboDeOperacion(false, false, $recibo);
$xRec->init();
$DRec = $xRec->getDatosInArray();
$idsocio = $xRec->getCodigoDeSocio();
// $DRec["numero_socio"];
$numero_de_socio = $xRec->getCodigoDeSocio();
//$DRec["numero_socio"];
$afectaCaja = $arrQ[$DRec["afectacion_en_flujo_efvo"]];
//datos del socio
$cSoc = new cSocio($numero_de_socio);
$DSoc = $cSoc->getDatosInArray();
$numero_caja_local = $DSoc["cajalocal"];
$cCL = new cCajaLocal($numero_caja_local);
$caja_local = $cCL->getNombre();
$variable_nombre_del_socio = $idsocio == DEFAULT_SOCIO ? $DRec["cadena_distributiva"] : $cSoc->getNombreCompleto();
$tipo_de_pago = $xRec->getTipoDePago();
//$variable_nombre_del_cajero
//
$tipoderecibo = $DRec["tipo_docto"];
$docto = $xRec->getCodigoDeDocumento();
$origen = $xRec->getOrigen();
$variable_tipo_de_recibo = $xRec->getOTipoRecibo()->getNombre();
$totaloperacion = $xRec->getTotal();
//<------------- Verificar Si existe El Pago ----------------
$xCaja = new cCaja();
$TesMontoPagado = $xCaja->getReciboEnCorte($recibo);
$eventOnLoad = "";
$scripts = "";
if ($xFJ->isFisica() == false) {
$idnombrecompleto = $razonSocial;
//rfc completo
$idapellidopaterno = "";
$idapellidomaterno = "";
}
$agregardom = trim($calle) == "" ? false : true;
if (SISTEMA_CAJASLOCALES_ACTIVA == false) {
$idcajalocal = $xSuc->getCajaLocalResidente();
}
if (trim($idnombrecompleto . $idapellidopaterno) == "") {
$msg .= "ERROR\tNo existe la persona en alta\r\n";
$ready = false;
}
if ($ready == true) {
$xCL = new cCajaLocal($idcajalocal);
$xCL->init();
$xSoc = new cSocio(false);
//verificar si existe el socio
$success = $xSoc->add($idnombrecompleto, $idapellidopaterno, $idapellidomaterno, $idrfc, $idcurp, $idcajalocal, $idfechanacimiento, $idlugardenacimiento, $idtipodeingreso, $idestadocivil, $idgenero, $empresa, $idregimenmatrimonial, $idfigurajuridica, $gruposolidario, $idobservaciones, $idtipoidentificacion, $idnumerodocumento, false, $sucursal, $idtelefono, $idemail, $iddependientes, $idfecharegistro, AML_PERSONA_BAJO_RIESGO, $idclavefiel, $idpais, $idregimenfiscal);
//razones de no fiel ... como nota
if ($success == true) {
if ($descuento > 0) {
$xSoc->setMontoAhorroPreferente($descuento);
}
if ($empresa != FALLBACK_CLAVE_EMPRESA) {
$xSoc->setResetEmpresa($empresa);
}
if (trim($idrazonnofiel) == "") {
} else {
$xSoc->setRazonesDeNoFIEL($idrazonnofiel);
$msg .= "=========================================================================================================\r\n";
$xSuc = new cSucursal(getSucursal());
$msg .= $xSuc->setValidar();
$xCL = new cCajaLocal(getCajaLocal());
$msg .= $xCL->setValidar();
$msg .= date("H:i:s") . "\tActualizar a la Sucursal el USUARIO POR DEFECTO\r\n";
//Elimina el Registro de Temporal
$sqlDTmp = "DELETE FROM general_tmp";
$msg .= date("H:i:s") . "\tEliminar la Tabla de Registros Temporales\r\n";
my_query($sqlDTmp);
//PURGA LAS OPERACIONES DE OTRAS SUCURSALES
$chri = STD_LITERAL_DIVISOR;
$sucursal = getSucursal();
$bkpath = PATH_BACKUPS;
//step one: Socios a sus sucursales
$xCL = new cCajaLocal(getCajaLocal());
$msg = $xCL->setValidar();
//step two: Folios al Maximo
$msg .= setFoliosAlMaximo();
/** @since 2010-11-30 */
$cDB = new cSAFEData();
$msg .= $cDB->setLowerSucursal();
//====================================PURGAR DATOS DE A SUCURSAL ===================================================
$msg .= $cDB->setDeleteSucursal($sucursal);
//=====================================================================================================================
$inFiles = array();
$inQuerys = array();
$inSQL = array();
$inPath = "{$bkpath}/{$LoadSucursal}-{$FechaCorte}";
//step one: Socios a sus sucursales
$msg = $xCL->setValidar();
//$bufer = stream_get_line($gestor, "\r\n");
if (!isset($bufer)) {
$msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
} else {
$bufer = trim($bufer);
$datos = explode(",", $bufer, 6);
$socio = $cT->cInt($datos[0]);
$importe = $cT->cFloat($datos[1]);
$fechaApertura = $cT->cFecha($datos[2]);
$plazo = $cT->cInt($datos[3]);
$tasa = $cT->cFloat($datos[4]);
$observaciones = $cT->cChar($datos[5]);
$ClaveCuenta = false;
//Iniciar el Socio
//$msg .= "$iReg\t$socio\tERROR_SOCIO\t$socio -- $importe -- $fechaApertura -- $plazo -- $tasa -- $observaciones\r\n";
$xCL = new cCajaLocal(99);
if ($xCL->getExistenciaSocio($socio) <= 0) {
$msg .= "{$iReg}\t{$socio}\tERROR_SOCIO\tLa Linea({$iReg}) no se leyo por que no existe el socio({$bufer})\r\n";
} else {
$xInv = new cCuentaInversionPlazoFijo(false, $socio, $plazo, $tasa, $fechaApertura);
//Agrega la Cuenta
$ClaveCuenta = $xInv->setNuevaCuenta(99, 2, $socio, $observaciones, DEFAULT_CREDITO, "", "", DEFAULT_GRUPO, $fechaApertura, CAPTACION_TIPO_PLAZO, 99, $plazo, $tasa);
if ($ClaveCuenta != false) {
$msg .= "{$iReg}\t{$socio}\tCUENTA\tSe Agrego Exitosamente la cuenta {$ClaveCuenta}\r\n";
if ($importe > 0) {
$xInv->init();
$xInv->setFechaDeOperacion($fechaApertura);
$xInv->setDiasInvertidos($plazo);
$RDeposito = $xInv->setDeposito($importe, DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, $observaciones, DEFAULT_GRUPO, $fechaApertura);
$msg .= "{$iReg}\t{$socio}\tRECIBO_DEPOSITO\tSe Efectua un Deposito de {$importe} al Recibo {$RDeposito}\r\n";
$xInv->init();
//Abre Otro, lo crea si no existe
$URIFil = @fopen(PATH_TMP . $aliasFils . ".txt", "a+");
}
switch ($step) {
case 1:
$msg .= "===================================== INICIANDO EL RESPALDO DE {$BkpSucursal} =============================\r\n";
$FechaDeCorte = $_POST["cFechaDeCorte"];
//Fecha Inicial de Corte
$LstFolio = $_POST["cLastFolio"];
//Ultimo Folio de Recibo
$msg .= date("H:i:s") . "\tLa Fecha de Corte es {$FechaDeCorte}\r\n";
//$msg .= "\tLa Fecha de Corte es $FechaDeCorte";
//step one: Socios a sus sucursales
$xSuc = new cSucursal(getSucursal());
$msg .= $xSuc->setValidar();
$xCL = new cCajaLocal(getCajaLocal());
$msg .= $xCL->setValidar();
//step two: Folios al Maximo
$msg .= setFoliosAlMaximo();
//Step_tree: Elimina los archivos en el tmp Backups
$xop = new cUtileriasParaOperaciones();
//Genera un Recibo por los Mvtos Huerfanos de Recibo en Operaciones
$msg .= $xop->setGenerarRecibosGlobales();
//Elimina Recibos Duplicados
$msg .= $xop->setEliminarRecibosDuplicados();
$sql_ttmp = "DELETE FROM general_tmp";
my_query($sql_ttmp);
$msg .= "\tSe eliminan Registros Temporales\r\n";
echo "\n\t\t\t\t<ol>\n\t\t\t\t\t<li>Se Actualizaron los Folios</li>\n\t\t\t\t\t<li>Se Actualizo el DEFAULT Socio para Operaciones que no tienen socio</li>\n\t\t\t\t\t<li>Se Actualizaron los Socios a su sucursal</li>\n\t\t\t\t\t<li>Se Actualizo el usuario ROOT para Operaciones que no tienen propietario</li>\n\t\t\t\t\t<li>Se Agrego el Recibo x para Mvtos Huerfanos</li>\n\t\t\t\t\t<li>Se Purgaron Recibos Duplicados</li>\n\t\t\t\t<li>Se Actualizo la sucursal de Creditos por usuario propietario</li>\n\t\t\t\t<li>Se Actualizo la sucursal de las Cuentas de Captacion por Usuario Propietario</li>\n\t\t\t\t<li>Se Actualizo la Sucursal de las Operaciones y recibos por Usuario Propietario</li>\n\t\t\t\t<li>La fecha de purga es a partir de {$FechaDeCorte}</li>\t\t\t\t\t\n\t\t\t\t</lo>\n\t\t\t\t<br />\n\t\t\t\t<a href=\"./sucursal.backup_offline.frm.php?a=1&s=2&f={$FechaDeCorte}&n={$LstFolio}\" target=\"_self\">Siguiente</a>\n\t\t\t";
//$x145 = "UPDATE socios_general SET sucursal = '" . $sucursal . "' WHERE codigo = " . DEFAULT_SOCIO;
//$xQ = my_query($x145);
/**
* 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;
}
//ES EXCEL
$filename = $_SERVER['SCRIPT_NAME'];
$filename = str_replace(".php", "", $filename);
$filename = str_replace("rpt", "", $filename);
$filename = str_replace("-", "", $filename);
$filename = "{$filename}-" . date("YmdHi") . "-from-" . $iduser . ".xls";
header("Content-type: application/x-msdownload");
header("Content-Disposition: attachment; filename={$filename}");
header("Pragma: no-cache");
header("Expires: 0");
}
//tabla de Cajas Locales. . " WHERE socios_cajalocal.idsocios_cajalocal=$rw[0]"
$sqlSoc = "SELECT\n\t\t\t\t\t\t`socios_cajalocal`.*,\n\t\t\t\t\t\t`socios_region`.*,\n\t\t\t\t\t\t`socios_cajalocal`.`idsocios_cajalocal`\n\t\t\t\t\tFROM\n\t\t\t\t\t\t`socios_cajalocal` `socios_cajalocal`\n\t\t\t\t\t\t\tINNER JOIN `socios_region` `socios_region`\n\t\t\t\t\t\t\tON `socios_cajalocal`.`region` = `socios_region`.`idsocios_region`\n\t\t\t\t\t{$ByCL}\n\t\t\t\t\t";
$rs = mysql_query($sqlSoc, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$cl = new cCajaLocal($rw["idsocios_cajalocal"]);
$cl->init($rw);
echo $cl->getFicha($fieldset);
$cajalocal = $rw["idsocios_cajalocal"];
$sqlComplete = "SELECT SQL_CACHE\n\t\t\t\t\t\t\t\t\t`socios_general`.`codigo`,\n\n\t\t\t\t\t\t\t\t\t`socios_general`.`apellidopaterno` AS\n\t\t\t\t\t\t\t\t\t`apellido_paterno`,\n\t\t\t\t\t\t\t\t\t`socios_general`.`apellidomaterno` AS\n\t\t\t\t\t\t\t\t\t`apellido_materno`,\n\n\t\t\t\t\t\t\t\t\t`socios_general`.`nombrecompleto` AS `nombre`,\n\n\t\t\t\t\t\t\t\t\t`socios_general`.`curp`,\n\t\t\t\t\t\t\t\t\t`socios_genero`.`descripcion_genero` AS `genero`,\n\t\t\t\t\t\t\t\t\t`socios_aeconomica_dependencias`.`descripcion_dependencia` AS `dependencia`,\n\t\t\t\t\t\t\t\t\t`socios_estatus`.`nombre_estatus` AS `estatus`,\n\t\t\t\t\t\t\t\t\t`socios_estadocivil`.`descripcion_estadocivil` AS `estado_civil`\n\t\t\t\t\t\t\t\t\t,\n\t\t\t\t\t\t\t\t\t`socios_grupossolidarios`.`nombre_gruposolidario` AS\n\t\t\t\t\t\t\t\t\t`grupo_solidario`\n\n\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t`socios_general` `socios_general`\n\t\t\t\t\t\t\t\t\t\tLEFT OUTER JOIN `socios_grupossolidarios` `socios_grupossolidarios`\n\t\t\t\t\t\t\t\t\t\tON `socios_general`.`grupo_solidario` = `socios_grupossolidarios`.\n\t\t\t\t\t\t\t\t\t\t`idsocios_grupossolidarios`\n\t\t\t\t\t\t\t\t\t\t\tLEFT OUTER JOIN `socios_genero` `socios_genero`\n\t\t\t\t\t\t\t\t\t\t\tON `socios_general`.`genero` = `socios_genero`.`idsocios_genero`\n\t\t\t\t\t\t\t\t\t\t\t\tLEFT OUTER JOIN `socios_estadocivil` `socios_estadocivil`\n\t\t\t\t\t\t\t\t\t\t\t\tON `socios_general`.`estadocivil` = `socios_estadocivil`.\n\t\t\t\t\t\t\t\t\t\t\t\t`idsocios_estadocivil`\n\t\t\t\t\t\t\t\t\t\t\t\t\tLEFT OUTER JOIN `socios_aeconomica_dependencias`\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_aeconomica_dependencias`\n\t\t\t\t\t\t\t\t\t\t\t\t\tON `socios_general`.`dependencia` =\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_aeconomica_dependencias`.\n\t\t\t\t\t\t\t\t\t\t\t\t\t`idsocios_aeconomica_dependencias`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tLEFT OUTER JOIN `socios_estatus` `socios_estatus`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tON `socios_general`.`estatusactual` = `socios_estatus`.\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`tipo_estatus`\n\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t(`socios_general`.`cajalocal` = {$cajalocal} )\n\t\t\t\t\t\t\t\t\t\t{$ByEstatus}\n\t\t\t\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t\t\t\t`socios_general`.`cajalocal`,\n\t\t\t\t\t\t\t\t\t\t`socios_general`.`codigo`\n\t\t\t\t\t\t\t\t\t\t";
$ctbl = new cTabla($sqlComplete, 0);
$ctbl->setTdClassByType();
$ctbl->Show("", false);
//$sumSoc = $ctbl->getFieldsSum();
$regs = $ctbl->getRowCount();
echo "<table width='100%'>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t<th>CLAVE DE PERSONAS</th>\n\t\t\t\t\t\t<th>{$regs}</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t</table>\n\t\t\t\t";
}
if ($out != OUT_EXCEL) {
echo getRawFooter();
?>
</body>
$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();
$xCL = new cCajaLocal($cajalocal);
$xCL->init();
$numeropropio = parametro("personarelacionada", DEFAULT_SOCIO);
$avalado = parametro("avalado", 0, MQL_FLOAT);
$depende = parametro("dependiente", false, MQL_BOOL);
$tiporelacion = parametro("idtipoderelacion", DEFAULT_TIPO_RELACION);
$tipoparentesco = parametro("idtipodeparentesco", DEFAULT_TIPO_CONSANGUINIDAD);
$observaciones = parametro("idobservaciones");
$xSoc = new cSocio($numeropropio);
if ($xSoc->existe($numeropropio) == true and $numeropropio != DEFAULT_SOCIO) {
$msg .= "WARN\tSE ENCONTRARON COINCIDENCIAS CON EL MISMO CODIGO, POR LO QUE SE CARGA LA CLAVE DE PERSONA\r\n";
//$persona = $xCL->getUltimoSocioRegistrado(true);
//$xSoc->set($persona);
} else {
$nombre = parametro("nombre");
$materno = parametro("materno");
