funLiberaRecordset($recordset); // elimina el registro $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) {
funLiberaRecordset($recordset); // elimina el registro $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]);
$recordMS_1 = funEjecutaQuerySelectMS("select * from Clientes where Ruc_Cedula={$varIdenClie}"); $nrMS_1 = funDevuelveArregloRecordsetMS($recordMS_1, $resultsMS_1); if ($nrMS_1 == 0) { $recordsetMSInsert = funEjecutaQueryEditMS("insert into Clientes values ({$varIdenClie},'{$varNombClie}','{$varApelClie}','{$varEmaiClie}','{$varFechAcci}')"); } funLiberaRecordsetMS($recordMS_1); $recordMS_1 = funEjecutaQuerySelectMS("select * from Telefono where Cod_Telefono={$varCodiTeleKFC}"); $nrMS_1 = funDevuelveArregloRecordsetMS($recordMS_1, $resultsMS_1); if ($nrMS_1 == 0) { $recordsetMSInsert = funEjecutaQueryEditMS("insert into Telefono values ({$varCodiTeleKFC},{$varCiudClie},'{$varTeleClie}')"); } funLiberaRecordsetMS($recordMS_1); $recordsetMSInsert = funEjecutaQueryEditMS("insert into Telefono_Cliente values ({$varCodiTeleKFC},{$varIdenClie})"); $recordsetMSInsert = funEjecutaQueryEditMS("insert into Auditoria values ('{$varFechAcci}','SITIO WEB','{$varMesaAcci}')"); // actualizo estado en MySQL $recordsetMyUpdate = funEjecutaQueryEdit("update " . $aplPrefClie . "_dat_cliente set EST_CLIENTE='V' where COD_CLIENTE={$varCodiClie}"); } funLiberaRecordsetMS($recordMS); print "<br>" . $varCodiTeleKFC . " - " . $varMesaAcci . " - Ruc_Cliente=" . $varIdenClie; } } else { print "<br>No exiten clientes nuevos...!!!"; } funLiberaRecordset($recordset); // Cierro las conexiones funCloseConectionToDataBase(); funCloseConectionToDataBaseMS(); ?> </body> </html>
$varNombSecc = ""; } 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]);
funLiberaRecordset($recordset); // elimina el registro $recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_dat_noticia where COD_NOTICIA={$varCodiNoti}"); // 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 Noticia','{$varTituNoti}')"); // mensaje de exito funLevantaAlert('El registro fue ELIMINADO exitosamente'); } } // Selecciona los registros $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_noticia order by COD_NOTICIA DESC"); $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 $varCodiNoti = trim($results["COD_NOTICIA"][$varI]); $varTituNoti = trim($results["TIT_NOTICIA"][$varI]);
funLiberaRecordset($recordset); // elimina el registro $recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_dat_home where COD_HOME={$varCodiHome}"); // 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 Home - Lateral','{$varTituHome}')"); // mensaje de exito funLevantaAlert('El registro fue ELIMINADO exitosamente'); } } // Selecciona los registros $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_home order by POS_HOME, TIT_HOME"); $nr = funDevuelveArregloRecordset($recordset, $results); if ($nr > 0) { // crea la tabla print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">"; // valiable auxiliar $varPosiHomeAux = "X"; // imprime los regsitros for ($varI = 0; $varI < $nr; $varI++) { // guardo los datos en variables
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase); $recordset = funEjecutaQuerySelect("select max(cod_cliente) as cod_cliente from arcimed_dat_cliente"); $nr = funDevuelveArregloRecordset($recordset, $results); if ($nr > 0) { $varCodiClie = $results["cod_cliente"][0] + 1; } else { $varCodiClie = 1; } funLiberaRecordset($recordset); $recordset = funEjecutaQuerySelect("select * from arcimed_dat_cliente where ced_cliente='" . trim($cedula) . "'"); $nr = funDevuelveArregloRecordset($recordset, $results); if ($nr > 0) { print "<script>alert('El usuario ya existe');</script>"; } else { if ($passregistro == $passregistro2) { funEjecutaQueryEdit("insert into arcimed_dat_cliente (cod_cliente,ced_cliente,nom_cliente,ape_cliente,mai_cliente,dir_cliente,tel_cliente,pas_cliente,est_cliente)\r\n values ({$varCodiClie},'{$cedula}','{$nombre}','{$apellido}','{$mail}','{$direccion}','{$telefonoregistro}','{$passregistro}','A')"); print "<script>alert('Se ha registrado con exito.');</script>"; } else { print "<script>alert('La contraseña no es la misma');</script>"; } } funLiberaRecordset($recordset); // Cierro la conexión funCloseConectionToDataBase(); } ?> <html> <head>
$_SESSION['User_Permit_Access'] = false; } else { if ($aplLogeCont == "S" && trim($results["LOG_USUARIO"][0]) == "S") { $varIndiResu = "2"; $_SESSION['Perf_User'] = trim($results["COD_PERFIL"][0]); $_SESSION['User_User'] = trim($results["USR_USUARIO"][0]); $_SESSION['Nomb_User'] = trim($results["NOM_USUARIO"][0]); $_SESSION['User_Permit_Access'] = true; } else { $varIndiResu = "0"; $_SESSION['Perf_User'] = trim($results["COD_PERFIL"][0]); $_SESSION['User_User'] = trim($results["USR_USUARIO"][0]); $_SESSION['Nomb_User'] = trim($results["NOM_USUARIO"][0]); $_SESSION['User_Permit_Access'] = true; // logeo al usuario $recordset = funEjecutaQueryEdit("update " . $aplPrefClie . "_ref_usuario set LOG_USUARIO='S' where USR_USUARIO='" . $_SESSION['User_User'] . "'"); } } } else { $varIndiResu = "3"; $_SESSION['Perf_User'] = ""; $_SESSION['User_User'] = ""; $_SESSION['Nomb_User'] = ""; $_SESSION['User_Permit_Access'] = false; } // Libero la memoria funLiberaRecordset($recordset); // Se desconecta al Servidor y la Base de Datos funCloseConectionToDataBase(); ?>
// elimina el registro $recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_dat_subcategoria where COD_SUBCATEGORIA={$varCodiSubc}"); $recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_ref_producto where COD_SUBCATEGORIA={$varCodiSubc}"); // 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 Subcategoria','{$varNombSubc}')"); // mensaje de exito funLevantaAlert('El registro fue ELIMINADO exitosamente'); } } // Selecciona los registros $recordset = funEjecutaQuerySelect("select A.*, B.NOM_CATEGORIA,C.NOM_CIUDAD from " . $aplPrefClie . "_dat_subcategoria A JOIN " . $aplPrefClie . "_dat_categoria B ON A.COD_CATEGORIA=B.COD_CATEGORIA JOIN " . $aplPrefClie . "_ref_ciudad C ON B.COD_CIUDAD = C.COD_CIUDAD order by C.COD_CIUDAD,B.NOM_CATEGORIA, A.NOM_SUBCATEGORIA"); $nr = funDevuelveArregloRecordset($recordset, $results); if ($nr > 0) { // crea la tabla print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">"; // variable auxiliar $varNombCateAux = "XX"; $varNombCiudAux = "XX"; // imprime los regsitros for ($varI = 0; $varI < $nr; $varI++) {
} } // mensaje de exito funLevantaAlert('El registro fue ACTUALIZADO exitosamente'); } // 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("No puede Eliminar el registro."); } else { // elimina el registro $recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_ref_producto where COD_PRODUCTO={$varCodiProd}"); // mensaje de exito funLevantaAlert('El registro fue ELIMINADO exitosamente'); } } // Selecciona los registros $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_producto WHERE EST_PRODUCTO='A'"); $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 $varCodiProd = trim($results["COD_PRODUCTO"][$varI]); $varNombProd = trim($results["NOM_PRODUCTO"][$varI]);
if ($varComando == "Actualizar") { // Se conecta al Servidor y la Base de Datos funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase); // 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>
if ($nr > 0) { // imprime los regsitros for ($varI = 0; $varI < $nr; $varI++) { // guardo los datos en variables $varCodiInve = $results["cod_inventario"][$varI]; $varUsuario = trim($results["nom_cliente"][$varI]) . ' ' . trim($results["ape_cliente"][$varI]); $varProducto = trim($results["NOM_PRODUCTO"][$varI]); $varCantidad = trim($results["num_inventario"][$varI]); $varFecha = trim($results["fec_inventario"][$varI]); $varMovimiento = trim($results["mov_inventario"][$varI]); $varFactura = trim($results["fac_estado"][$varI]); if ($varComando == 'Guardar') { // ingreso el registro $varChkEsta = $_POST['chk_' . $varCodiInve]; if (!empty($varChkEsta)) { funEjecutaQueryEdit("UPDATE " . $aplPrefClie . "_ref_inventario SET fac_estado='" . $varChkEsta . "' WHERE cod_inventario=" . $varCodiInve); $varFactura = $varChkEsta; } } ?> <tr> <td align="center" > <?php echo trim($varUsuario) == '' ? 'Admin' : $varUsuario; ?> </td> <td align="center"> <?php echo $varProducto; ?> </td>
<?php include '_funciones/parametros.php'; include '_funciones/database_mysql.php'; $varComando = $_POST['cmdComando']; $varProducto = $_POST['codProducto']; $varCantidad = $_POST['numCantidad']; session_start(); // Se conecta al Servidor y la Base de Datos funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase); // obtengo el codigo ingresado $recordset = funEjecutaQuerySelect("select max(cod_inventario) as cod_inventario from " . $aplPrefClie . "_ref_inventario"); $nr = funDevuelveArregloRecordset($recordset, $results); if ($nr > 0) { $varCodiInve = $results["cod_inventario"][0] + 1; } else { $varCodiInve = 1; } funLiberaRecordset($recordset); // ingreso el registro funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_inventario(cod_inventario,cod_producto,cod_cliente,num_inventario,mov_inventario,fec_inventario)\r\n\t\t\t\tvalues ({$varCodiInve},{$varProducto}," . $_SESSION['codigo'] . ",-{$varCantidad},'E',NOW())"); // Cierro la conexión funCloseConectionToDataBase(); ?> <script> alert("Su compra ha sido exito"); </script>
// actualizo el registro $recordset = funEjecutaQueryEdit("update " . $aplPrefClie . "_dat_categoria set NOM_CATEGORIA='{$varNombCate}', EST_CATEGORIA='{$varEstaCate}',ORD_CATEGORIA={$varOrdCate} where COD_CATEGORIA={$varCodiCate}"); // mensaje de exito funLevantaAlert('El registro fue ACTUALIZADO exitosamente'); } // 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("No puede Eliminar el registro."); } else { // elimina el registro $recordset = funEjecutaQueryEdit("delete from " . $aplPrefClie . "_dat_categoria where COD_CATEGORIA={$varCodiCate}"); // mensaje de exito funLevantaAlert('El registro fue ELIMINADO exitosamente'); } } $varJ = 0; // Selecciona los registros $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_categoria"); $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 $varCodiCate = trim($results["COD_CATEGORIA"][$varI]);