$recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_dat_archivo where COD_ARCHIVO={$varCodiArch}");
// obtengo el codigo ingresado
$recordset = funEjecutaQuerySelect("select max(COD_CONSULTA) as COD_CONSULTA from " . $aplPrefClie . "_ref_consulta");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
$varCodiCons = $results["COD_CONSULTA"][0] + 1;
} else {
$varCodiCons = 1;
}
funLiberaRecordset($recordset);
// ingresa los valores en la tabla de auditoria
$varFechCons = date("Y-m-d H:i:s");
$varUserUsua = $_SESSION['User_User'];
funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','{$aplBorrArch}','{$varNombArch}')");
// mensaje de exito
funLevantaAlert('El archivo fue ELIMINADO exitosamente');
}
}
// Listar
if ($varComando == "Listar") {
$varRegiInic = trim($_POST["txtRegiInic"]);
$varRegiFina = trim($_POST["txtRegiFina"]);
} else {
// inicializa las variables
$varRegiInic = 1;
$varRegiFina = $aplNumeRegiPagi;
$recordset = funEjecutaQuerySelect("select COD_ARCHIVO from " . $aplPrefClie . "_dat_archivo");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
if ($nr < $aplNumeRegiPagi) {
$varRegiFina = $nr;
$recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_dat_zonakfc where COD_ZONA={$varCodiZona}");
// obtengo el codigo ingresado
$recordset = funEjecutaQuerySelect("select max(COD_CONSULTA) as COD_CONSULTA from " . $aplPrefClie . "_ref_consulta");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
$varCodiCons = $results["COD_CONSULTA"][0] + 1;
} else {
$varCodiCons = 1;
}
funLiberaRecordset($recordset);
// ingresa los valores en la tabla de auditoria
$varFechCons = date("Y-m-d H:i:s");
$varUserUsua = $_SESSION['User_User'];
funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Eliminacion Zona KFC','{$varNombZona}')");
// mensaje de exito
funLevantaAlert('El registro fue ELIMINADO exitosamente');
}
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_zonakfc order by NOM_ZONA");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
// crea la tabla
print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
// imprime los regsitros
for ($varI = 0; $varI < $nr; $varI++) {
// guardo los datos en variables
$varCodiZona = trim($results["COD_ZONA"][$varI]);
$varNombZona = trim($results["NOM_ZONA"][$varI]);
$varEstaZona = trim($results["EST_ZONA"][$varI]);
if ($varEstaZona == "A") {
funLiberaRecordset($recordset);
// obtengo el codigo ingresado
$recordset = funEjecutaQuerySelect("select max(COD_CONSULTA) as COD_CONSULTA from " . $aplPrefClie . "_ref_consulta");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
$varCodiCons = $results["COD_CONSULTA"][0] + 1;
} else {
$varCodiCons = 1;
}
funLiberaRecordset($recordset);
// ingresa los valores en la tabla de auditoria
$varFechCons = date("Y-m-d H:i:s");
$varUserUsua = $_SESSION['User_User'];
funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Actualizacion Seccion','{$varNombSecc}')");
// mensaje de exito
funLevantaAlert('El contenido fue ACTUALIZADO exitosamente');
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_infoseccion where (COD_ESPADRESECCION='S' or NIV_SECCION=1) and COD_SECCION in (select COD_SECCION from " . $aplPrefClie . "_rel_perfilinfoseccion WHERE COD_PERFIL=" . $varPerfUsua . ") order by ORD_SECCION");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
// crea la tabla
print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
// imprime los regsitros
for ($varI = 0; $varI < $nr; $varI++) {
// guardo los datos en variables
$varCodiInfo = trim($results["COD_SECCION"][$varI]);
$varNombInfo = trim($results["NOM_SECCION"][$varI]);
$varNiveInfo = trim($results["NIV_SECCION"][$varI]);
$varTipoInfo = trim($results["TIP_SECCION"][$varI]);
$varEstaInfo = trim($results["EST_SECCION"][$varI]);
} else {
$varCodiCons = 1;
}
funLiberaRecordset($recordset);
$varFechCons = date("Y-m-d H:i:s");
$varUserUsua = $_SESSION['User_User'];
funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Actualizacion Perfil','{$varNombPerf}')");
}
// Eliminar
if ($varComando == "Eliminar") {
// seteo los permisos como habilitados
$varPermElim = true;
// valido si se permitio la eliminacion pasando la prueba de registros relacionados
if ($varPermElim == false) {
// mensaje de error
funLevantaAlert('$aplBorrPerfErro');
} else {
// obtiene el nombre del perfil que se va a eliminar
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_perfil where COD_PERFIL={$varCodiPerf}");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
$varNombPerf = $results["NOM_PERFIL"][0];
} else {
$varNombPerf = "";
}
funLiberaRecordset($recordset);
// elimina el registro
$recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_rel_perfilopcionsistema where COD_PERFIL={$varCodiPerf}");
$recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_rel_perfilinfoseccion where COD_PERFIL={$varCodiPerf}");
$recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_ref_perfil where COD_PERFIL={$varCodiPerf}");
// ingresa los valores en la tabla de auditoria
$varUserUsua = $_SESSION['User_User'];
funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Actualizacion Usuario','{$varNombUsua}')");
}
// Eliminar
if ($varComando == "Eliminar") {
// seteo los permisos como habilitados
$varPermElim = true;
// verifico datos relacionados
//$recordset = funEjecutaQuerySelect ("select * from " . $aplPrefClie . "_dat_cliente where USR_USUARIO='$varUserUsua' or USR_REGISTRO='$varUserUsua'");
//$nr = funDevuelveArregloRecordset ($recordset,$results);
//if ($nr>0) $varPermElim = false;
//funLiberaRecordset ($recordset);
// valido si se permitio la eliminacion pasando la prueba de registros relacionados
if ($varPermElim == false) {
// mensaje de error
funLevantaAlert("No se pudo Eliminar el Usuario.\\nExisten Registros relacionados en la Base de Datos.");
} else {
// obtiene el nombre del perfil que se va a eliminar
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_usuario where USR_USUARIO='{$varUserUsua}'");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
$varNombUsua = $results["NOM_USUARIO"][0];
} else {
$varNombUsua = "";
}
funLiberaRecordset($recordset);
// elimina el registro
$recordset = funEjecutaQueryEdit("DELETE from " . $aplPrefClie . "_ref_usuario where USR_USUARIO='{$varUserUsua}'");
// obtengo el codigo ingresado
$recordset = funEjecutaQuerySelect("select max(COD_CONSULTA) as COD_CONSULTA from " . $aplPrefClie . "_ref_consulta");
$nr = funDevuelveArregloRecordset($recordset, $results);
// Recupero el nombre de Usuario y lo guardo en la variable
$varUserUsua = $_SESSION['User_User'];
// Recupero las contraseñas enviada del formulario
$varPassUsua = trim($_POST["txtPassUsua"]);
$varPassUsuaNuev = trim($_POST["txtPassUsuaNuev"]);
// Encripta las contraseñas
//$varPassUsuaEncr = base64_encode($varPassUsua);
//$varPassUsuaEncrNuev = base64_encode($varPassUsuaNuev);
// Datos del Registro
$recordset = funEjecutaQuerySelect("select PAS_USUARIO from " . $aplPrefClie . "_ref_usuario where USR_USUARIO='{$varUserUsua}' and PAS_USUARIO='{$varPassUsua}'");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
$execute = funEjecutaQueryEdit("update " . $aplPrefClie . "_ref_usuario set PAS_USUARIO='{$varPassUsuaNuev}' where USR_USUARIO='{$varUserUsua}'");
funLevantaAlert("La CONTRASEÑA fue actualizada exitosamente.");
} else {
funLevantaAlert("La CONTRASEÑA no fue actualizada; la CONTRASEÑA ACTUAL ingresada, no es correcta.");
}
funLiberaRecordset($recordset);
}
?>
<!-- titulo -->
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td><img src="../images/cms_titulo_esquina1.png" width="19" height="37" border=0 alt=""></td>
<td class="titusecc" style="padding-bottom:7px;" background="../images/cms_titulo_fondo.png" width="100%"><img src="../images/cms_titulo_bullet.gif" width="18" height="3" border=0 alt="">Password</td>
<td><img src="../images/cms_titulo_esquina2.png" width="18" height="37" border=0 alt=""></td>
</tr>
<tr>
<td colspan="3"><img src="../images/blank.gif" width="5" height="10"></td>
</tr>