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]);
