function initPorTabla($tabla)
{
$res = array();
$xTa = new cSAFETabla($tabla);
if ($xTa->obj() != null) {
$this->mValorEtiqueta = $xTa->getCampoDescripcion();
$this->mClavePrimaria = $xTa->getClaveUnica();
$this->mTabla = $tabla;
if ($this->mValorEtiqueta != "") {
$res = $this->get($this->mClavePrimaria, $this->mValorEtiqueta, $this->mTabla);
}
}
return $res;
}
function setOtrosParametros($Parametro, $Valor, $FechaDeExpiracion = false)
{
$xDb = new cSAFETabla(TCREDITOS_PRODUCTOS_OTROS_PARAMETROS);
$dpt = $this->mClaveDeConvenio;
$f = fechasys();
$FechaDeExpiracion = $FechaDeExpiracion == false ? '2029-01-01' : $FechaDeExpiracion;
//idcreditos_productos_otros_parametros, clave_del_producto, clave_del_parametro, valor_del_parametro, fecha_de_alta, fecha_de_expiracion
$insert = $xDb->getInsert("{$dpt}, '{$Parametro}', '{$Valor}', '{$f}', '{$FechaDeExpiracion}' ", $xDb->getCamposSinClaveUnica());
my_query($insert);
}
function setActualizarTasasDeInteres($cuenta = false, $todas = false, $tipo = false)
{
$xDTb = new cSAFETabla(TCAPTACION_CUENTAS);
$wh = "";
if ($cuenta == false) {
$wh .= " AND (`captacion_cuentas`.`numero_cuenta` = {$cuenta} ) /*setActualizarInteres*/ ";
} else {
$wh .= $todas == false ? "" : " AND \t(`captacion_cuentas`.`saldo_cuenta` > " . TOLERANCIA_SALDOS . ") ";
}
$SqlCta = $xDTb->getQueryInicial() . " WHERE\t(`captacion_cuentas`.`numero_cuenta` !=" . DEFAULT_CUENTA_CORRIENTE . ") {$wh} ";
$xCta = new cCuentaDeCaptacion($cuenta);
$xCta->init();
$xCta->getTasaAplicable();
}
header("location:../404.php?i=999");
}
$_SESSION["current_file"] = addslashes($theFile);
//<===== FIN_H
//=====================================================================================================
$xInit = new cHPage("", HP_SERVICE);
$txt = "";
$ql = new MQL();
$lis = new cSQLListas();
$xF = new cFecha();
$tabla = parametro("tabla", false, MQL_RAW);
$clave = parametro("id", false, MQL_RAW);
$rs = array();
//AND MODO_DEBUG == true
if ($tabla != false and $clave != false) {
$xObj = new cSAFETabla($tabla);
if ($xObj->obj() == null) {
$rs["message"] = "ERROR\tAl eliminar el Registro con ID {$clave} en la Tabla {$tabla}\r\n";
$rs["error"] = true;
} else {
$obj = $xObj->obj();
$key = $obj->getKey();
$obj = new cSocios_aeconomica();
$obj->setData($obj->query()->initByID($clave));
$data = base64_encode(json_encode($obj->query()->getCampos()));
$ql->setRawQuery("DELETE FROM {$tabla} WHERE {$key}='{$clave}'");
$rs["message"] = "OK\tSe elimina el Registro con ID {$clave} en la Tabla {$tabla}\r\n";
if (MODO_DEBUG == true) {
$rs["message"] .= $ql->getMessages();
}
$rs["error"] = false;
/** @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();
//step two: Folios al Maximo
$msg .= setFoliosAlMaximo();
//Tablas
$xTabla = new cSAFETabla();
//==================================================================================================================
//==================================================================================================================
//Respaldo SOCIOS
$index = 5;
$inFiles[$index] = "socios_general.sbk";
if (file_exists("{$inPath}-{$inFiles[$index]}") == true) {
$inSQL[$index] = "LOAD DATA INFILE '{$inPath}-{$inFiles[$index]}'\n\t\t\t\t\tREPLACE INTO TABLE socios_general\n\t\t\t\t\tFIELDS TERMINATED BY '{$chri}'\n\t\t\t\t\tLINES TERMINATED BY '\\r\\n'";
$inQuerys[$index] = my_query($inSQL[$index]);
if ($inQuerys[$index]["stat"] == false) {
$msg .= date("H:i:s") . "\t HUBO UN ERROR AL CARGAR EL ARCHIVO" . $inFiles[$index] . "; EL SISTEMA DEVOLVIO " . $inQuerys[$index]["error"] . "\r\n";
} else {
$msg .= date("H:i:s") . "\tEL ARCHIVO " . $inFiles[$index] . " SE PROCESO EXITOSAMENTE \r\n\t EL SISTEMA DEVUELVE " . $inQuerys[$index]["info"] . "\r\n";
}
//unlink("$inPath-$inFiles[$index]");
} else {
function init($ArrayInicial = false, $force = false)
{
$xDTb = new cSAFETabla(TCAPTACION_CUENTAS);
//Datos de la cuenta
$SqlCta = $xDTb->getQueryInicial() . "\n\t\t\t\tWHERE\n\t\t\t\t\t(`captacion_cuentas`.`numero_cuenta` =" . $this->mNumeroCuenta . ")\n\t\t\t\tLIMIT 0,1 ";
if ($ArrayInicial != false and is_array($ArrayInicial)) {
$DC = $ArrayInicial;
$this->mMessages .= "DATOS\tCarga de Datos Externa\r\n";
} else {
$DC = obten_filas($SqlCta);
}
if (isset($DC) and $DC != false) {
$this->mFechaUltimaOp = $DC["fecha_afectacion"];
$this->mSaldoActual = $DC["saldo_cuenta"];
$this->mEstatusActual = $DC["estatus_cuenta"];
$this->mSocioTitular = $DC["numero_socio"];
$this->mPeriodoCuenta = $DC["inversion_periodo"];
$this->mCreditoAsoc = $DC["numero_solicitud"];
$this->mGrupoAsociado = $DC["numero_grupo"];
$this->mSaldoAnterior = $this->mSaldoActual;
$this->mTipoDeCuenta = $DC["tipo_cuenta"];
$this->mSubProducto = $DC["tipo_subproducto"];
$this->mURLContrato = $DC["nombre_del_contrato"];
$this->mModificadorDeInteres = $DC["algoritmo_modificador_del_interes"];
$this->mModificadorTasa = $DC["algoritmo_de_tasa_incremental"];
//TODO: verificar incidencias
$this->mDiasInvertidos = $DC["dias"];
$this->mTasaInteres = $DC["tasa_otorgada"];
$this->mFechaVencimiento = $DC["vencimiento"];
$this->mDestinoDelInteres = $DC["destino_del_interes"];
$this->mReciboDeReinversion = $DC["recibo_de_inversion"];
$this->mNombreMancomunados = $DC["nombre_mancomunado1"];
$this->mNombreMancomunados .= trim($DC["nombre_mancomunado2"]) == "" ? "" : " & " . $DC["nombre_mancomunado2"];
$this->mMessages .= "WARN\tD.FVENC\tLa fecha de Vencimiento es " . $this->mFechaVencimiento . "\r\n";
//Inicia el Nuevo Saldo como el Anterior
$this->mNuevoSaldo = $this->mSaldoAnterior;
$this->mDatosCuentaByArray = $DC;
if ($this->mTipoDeCuenta == CAPTACION_TIPO_PLAZO) {
$this->mOperacionDeposito = 221;
$this->mOperacionRetiro = 231;
} else {
$this->mOperacionDeposito = 220;
$this->mOperacionRetiro = 230;
}
$this->mMessages .= "WARN\tD.OP\tEl Tipo de Operacion para RETIRO ES " . $this->mOperacionRetiro . ", y para DEPOSITO es " . $this->mOperacionDeposito . "\r\n";
$this->mCuentaIniciada = isset($DC["numero_socio"]) ? true : false;
$this->mInit = $this->mCuentaIniciada;
unset($DC);
}
return $this->mCuentaIniciada;
}
$msg .= date("H:i:s") . "\tSe Marca el recibo {$LstFolio} como ultimo\r\n";
$msg .= date("H:i:s") . "\tSe Actualiza el Socio PUBLICO_GENERAL a la sucursal de corte para Operaciones sin Socio\r\n";
$msg .= date("H:i:s") . "\tSe Agrego el Recibo x para Mvtos Huerfanos\r\n";
@fwrite($URIFil, $msg);
break;
case 2:
$FechaDeCorte = $_GET["f"];
//Fecha Inicial de Corte
$LstFolio = $_GET["n"];
//Ultimo Folio de Recibo
$bkpath = PATH_BACKUPS;
$fils = array();
$querys = array();
$BySucursal = " AND sucursal = '{$sucursal}' ";
$SegundaCondicion = "";
$xTablas = new cSAFETabla();
//Eliminar Archivos existentes
$aFilesT = $xTablas->getTablasConOperaciones();
foreach ($aFilesT as $key => $value) {
$xTablas->init($value);
$mFile = $xTablas->getNombreRespaldo($FechaDeCorte);
$rsXp = unlink($mFile);
if (!$rsXp) {
$msg .= "\tNo se Elimino {$mFile} por que NO Existe\r\n";
} else {
$msg .= "\tSe Elimino el Archivo {$mFile}\r\n";
}
}
//
//=========================== TABLAS QUE NO NECESITAN CONDICIONES PARA EXPORTARSE =================================
//Respaldo CUENTAS DE CAPTACION
$_SESSION["current_file"] = addslashes($theFile);
//<===== FIN_H
//=====================================================================================================
$xInit = new cHPage("", HP_SERVICE);
$txt = "";
$ql = new MQL();
$lis = new cSQLListas();
$xF = new cFecha();
$tabla = parametro("tabla", false, MQL_RAW);
$clave = parametro("clave", false, MQL_RAW);
$action = parametro("action", SYS_NINGUNO);
$out = parametro("out", "", MQL_RAW);
$rs = array();
header('Content-type: application/json');
if ($tabla != false) {
$xObj = new cSAFETabla($tabla);
if ($xObj->obj() == null) {
$rs[MSG_NO_PARAM_VALID] = "ERROR\t para la Tabla {$tabla} y clave {$clave}\r\n";
} else {
$obj = $xObj->obj();
if ($action == SYS_NINGUNO) {
if ($clave != false) {
$obj->setData($obj->query()->initByID($clave));
}
$rs = $obj->query()->getCampos();
$cadena = json_encode($rs);
} else {
//$obj = new cSocios_aeconomica();
$indice = $obj->getKey();
$etiq = $xObj->getCampoDescripcion();
if ($etiq == "") {
function init()
{
$ql = new MQL();
if ($this->mPersona > 0) {
$ByTipo = "";
// ($this->mTipo == false ) ? "" : "AND (`socios_aeconomica`.`tipo_aeconomica` = $tipo)";//no aplica tipo
$ByID = setNoMenorQueCero($this->mIDCargado) > 1 ? " AND `idsocios_aeconomica` = " . $this->mIDCargado : "";
$xDB = new cSAFETabla(TPERSONAS_ACTIVIDAD_ECONOMICA);
$sql = $xDB->getQueryInicial() . "\tWHERE (`socios_aeconomica`.`socio_aeconomica` =" . $this->mPersona . ") {$ByTipo} {$ByID}\tORDER BY `fecha_alta` DESC, `socios_aeconomica`.`monto_percibido_ae` DESC LIMIT 0,1";
$this->mDatosInArray = $ql->getDataRow($sql);
$this->mInit = isset($this->mDatosInArray["idsocios_aeconomica"]) ? true : false;
$this->mTipo = FALLBACK_ACTIVIDAD_ECONOMICA;
if ($this->mInit == true) {
$this->mOB = new cSocios_aeconomica();
$this->mOB->query()->initByID($this->mDatosInArray["idsocios_aeconomica"]);
$this->mIDCargado = $this->mOB->idsocios_aeconomica()->v();
$this->mClaveEmpresa = $this->mOB->dependencia_ae()->v();
$this->mDomicilio = $this->mOB->domicilio_ae()->v();
$this->mCodigoPostal = setNoMenorQueCero($this->mOB->ae_codigo_postal()->v());
$this->mIDDomicilio = setNoMenorQueCero($this->mOB->domicilio_vinculado()->v());
$this->mNombreColonia = $this->mOB->localidad_ae()->v();
//Iniciar Empresa
$this->mOEmp = new cEmpresas($this->mClaveEmpresa);
$this->mOEmp->init();
$this->mEmpresaClavePersona = $this->mOEmp->getClaveDePersona();
$this->mOB->setData($this->mDatosInArray);
$this->mPuesto = $this->mOB->puesto()->v(OUT_TXT);
$this->mTipo = $this->mOB->tipo_aeconomica()->v();
//$this->mAMLNivelRiesgo = $this->mOB->
//Iniciar por codigo postal
$xViv = new cPersonasVivienda($this->mPersona, PERSONAS_TIPO_DOM_LABORAL);
if ($this->mIDDomicilio > 1) {
$xViv->setID($this->mDomicilio);
}
$xViv->init();
if ($xViv->isInit() == true) {
$this->mDomicilio = $xViv->getDireccionBasica();
$this->mClaveDeEstado = $xViv->getClaveDeEstado();
$this->mClaveDeMunicipio = $xViv->getClaveDeMunicipio();
$this->mClaveDeLocalidad = $xViv->getClaveDeLocalidad();
$this->mCodigoPostal = $xViv->getCodigoPostal();
$this->mNombreDeLocalidad = $xViv->getLocalidad();
$this->mNombreDeMunicipio = $xViv->getMunicipio();
$this->mNombreDeEstado = $xViv->getEstado();
$this->mCalle = $xViv->getCalle();
$this->mNumeroExt = $xViv->getNumeroExterior();
$this->mNombreColonia = $xViv->getColonia();
$this->mClaveDeEstadoSIC = $xViv->getClaveDeEstadoEnSIC();
$this->mClaveDePais = $xViv->getClaveDePais();
$this->mViviendaInit = true;
}
if ($this->mIDDomicilio <= 1 and $this->mCodigoPostal > 0) {
$xCols = new cDomiciliosColonias();
$xCols->getClavePorCodigoPostal($this->mCodigoPostal);
$this->mClaveDeEstado = $xCols->getClaveDeEstado();
$this->mClaveDeMunicipio = $xCols->getClaveDeMunicipio();
$this->mClaveDeLocalidad = $xCols->getClaveDeEstado();
$this->mNombreDeLocalidad = $xCols->getNombreLocalidad();
$this->mNombreDeMunicipio = $xCols->getNombreMunicipio();
$this->mNombreDeEstado = $xCols->getNombreEstado();
$this->mNombreColonia = $xCols->getNombre();
$this->mClaveDeEstadoSIC = $xCols->getClaveEstadoEnSIC();
$this->mClaveDePais = $xCols->getClaveDePais();
$this->mViviendaInit = true;
}
}
}
if ($this->mOB == null) {
$this->mOB = new cSocios_aeconomica();
$this->mClaveEmpresa = FALLBACK_CLAVE_EMPRESA;
$this->mEmpresaClavePersona = FALLBACK_CLAVE_DE_PERSONA;
}
return $this->mDatosInArray;
}
$clave = parametro("id", null, MQL_INT);
$xTabla = new cAml_riesgo_perfiles();
$xFRM = new cHForm("frmaml_riesgo_perfiles");
$xFRM->addGuardar();
if ($action == SYS_NINGUNO) {
if ($clave != null) {
$xFRM->setAction("perfiles-de-riesgo.frm.php?id={$clave}&action=" . MQL_MOD);
//asignar que es actualizar
$xTabla->setData($xTabla->query()->initByID($clave));
//cargar datos del registro
}
} else {
$ready = false;
$xTabla->setData($_REQUEST);
//cargar datos del request}
$dd = new cSAFETabla($xTabla->objeto_de_origen()->v());
$obj = $dd->obj();
if ($obj != null) {
$xTabla->campo_de_origen($obj->getKey());
}
if ($action == MQL_ADD) {
$ready = $xTabla->query()->insert()->save();
//insertar registro
} else {
$ready = $xTabla->query()->update()->save($clave);
//actualizar BD
}
$clave = null;
if ($ready != false) {
$xFRM->addAvisoRegistroOK();
}
</script>
<?php
echo $xHP->setBodyEnd();
echo $xHP->end();
} else {
header('Content-Type: application/json');
//json
$msg = "";
if ($comando == SYS_AUTOMATICO) {
$xF = new cFecha();
if ($tabla != "" and $filtro != "") {
$rs = false;
$vars = $_REQUEST;
//var_dump($vars);
//$DFiltro = explode("=", $filtro);
$xData = new cSAFETabla($tabla);
$q = $xData->obj()->query();
$datos = $q->getRow($filtro);
$q->setData($datos);
$campos = $q->getCampos();
$actualizar = false;
$sqlor = "SELECT * FROM {$tabla} WHERE {$filtro}";
$filas = obten_filas($sqlor);
$cadena = json_encode($filas);
$xErr = new cCoreLog();
$xErr->add("{$oficial} Editar {$tabla} como {$filtro}.\n ORIGINAL:\n {$cadena}");
$xErr->guardar($xErr->OCat()->EDICION_RAW);
foreach ($vars as $k => $v) {
$campo = substr($k, 1);
if (isset($campos[$campo])) {
if ($campos[$campo]["V"] == $v) {
function setDeleteSucursal($sucursal = false)
{
if ($sucursal == false) {
$sucursal = getSucursal();
}
//Actualiza root y usuario de Impotacion a la sucursal.
$sqlUsrs = "UPDATE t_03f996214fba4a1d05a68b18fece8e71\n\t\t\t\t SET sucursal='{$sucursal}'\n\t\t\t\t WHERE (f_28fb96d57b21090705cfdf8bc3445d2a LIKE '%root%')\n\t\t\t\t OR\n\t\t\t\t (f_28fb96d57b21090705cfdf8bc3445d2a LIKE '%IMPORT%') ";
my_query($sqlUsrs);
$xTab = new cSAFETabla();
$arrT = $xTab->getTablasConOperaciones();
$msg = "=============\tSUCURSAL:\t{$sucursal} \r\n";
$msg .= "=============\tELIMINANDO REGISTROS PERTECIENTES A ESTA SUCURSAL \r\n";
foreach ($arrT as $key => $value) {
$table = $value;
$msg .= "=============\tTABLA:\t{$table}\r\n";
$sqlMT = "DELETE FROM {$table} WHERE sucursal = \"{$sucursal}\" ";
$x = my_query($sqlMT);
$msg .= $x["info"];
}
return $msg;
}
