Example #1
0
        $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;
Example #2
0
        $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") {
Example #3
0
    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]);
Example #4
0
    } 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
Example #5
0
    $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);
Example #6
0
    // 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>