public function iralmenu(){
$usuario = $_POST['usu'];
$contrasena = $_POST['pass'];
function conectar(){
$host = 'localhost';
$usuario = 'root';
$password = '******';
$b_datos = 'escuela';
// Si no se realizó la conexión
if ( ! $conex = mysql_connect($host,$usuario,$password)) {
echo "Error al realizar la conexión - ".mysql_error();
exit();
}
// Si no se seleccionó la Base de Datos
if ( ! mysql_select_db($b_datos) ) {
echo "Error al seleccionar la Base de Datos - ".mysql_error();
exit();
}
// retorno la conexion
return $conex;
}
$conex= conectar();
$sql = "SELECT * FROM usuario WHERE email = '$usuario' AND password = '******'";
function ejecutar_sql($sql, $conex){
if ( !$resultado = mysql_query($sql, $conex) ) {
echo "Error al ejecutar la consulta SQL <br>".mysql_error();
exit();
}
return $resultado;
}
$resultado = ejecutar_sql($sql, $conex);
if (mysql_num_rows($resultado) != 0) {
return View('menu');
} else{
echo "<br><center><font color='red' size='5'>Usuario o contraseña incorrectas</font></center></br>";
return View('inicio');
}
// Limpiamos el resultado
mysql_free_result($resultado);
// cerramos la conexión
mysql_close($conex);
}
function getAuditoria()
{
// Llama las funciones de BD definidas por Practico
// No hay que definir conexiones ni validar excepciones pues Practico lo hace
$resultado = ejecutar_sql("SELECT id,usuario_login,accion,fecha,hora FROM core_auditoria WHERE 1=1");
// Define variable $registros para guardar los resultados
$registros = array();
// Recorre los registros agregandolos al arreglo
while ($registro_auditoria = $resultado->fetch()) {
$registros[] = $registro_auditoria;
}
// Retorna la variable con el resultado
return $registros;
}
/*
Title: Seccion con los contactos de Chat disponibles
Ubicacion *[/core/marco_chat.php]*. Presenta la lista de usuarios del sistema para poder entablar chat con ellos
Ver tambien:
<Seccion superior> | <Articulador>
*/
/* ################################################################## */
/* ################################################################## */
echo '<div class="oculto_impresion">';
// Modal Ventana de chat
abrir_dialogo_modal("Dialogo_Chat", $MULTILANG_UsrLista);
echo $MULTILANG_UsuariosChat;
//Consulta los usuarios siempre y cuando tenga sesion activa
if ($PCOSESS_SesionAbierta) {
$resultado = ejecutar_sql("SELECT {$ListaCamposSinID_usuario} from " . $TablasCore . "usuario WHERE login<>'{$PCOSESS_LoginUsuario}' ");
//Presenta la lista de usuarios
echo '<table class="table">
<tr>
<td valign=middle align=center bgcolor=darkgray>
<font size=2 color=black>
<b>' . $MULTILANG_Usuario . '</b>
</font>
</td>
<td valign=middle align=center bgcolor=darkgray>
<font size=2 color=black>
' . $MULTILANG_Nombre . '
</font>
</td>
<td bgcolor=darkgray valign=middle align=center>
<font size=2 color=black>
if (strpos($registro["imagen"], ".png") || strpos($registro["imagen"], ".jpg") || strpos($registro["imagen"], ".gif")) {
$PCO_EsImagen = 1;
}
//Si no detecta ninguna extension de archivo de imagen entonces pone boton en bootstrap
if (!$PCO_EsImagen) {
echo '<button class="btn-circle btn-info btn-xs">
<i class="' . $registro["imagen"] . '"></i>
</button> ' . $registro["texto"];
} else {
echo '<img src="' . $registro["imagen"] . '" border="0" />';
}
echo '</a>';
echo '</li>';
}
echo '</ul>';
}
// Si el usuario es administrador valida que ya haya cambiado al menos su correo
if (@$PCOSESS_LoginUsuario == "admin") {
$registro_usuario = ejecutar_sql("SELECT correo FROM " . $TablasCore . "usuario WHERE login=? ", "{$PCOSESS_LoginUsuario}")->fetch();
if ($registro_usuario["correo"] == "*****@*****.**" || $registro_usuario["correo"] == "*****@*****.**") {
mensaje($MULTILANG_Importante, $MULTILANG_UsrActualizarAdmin, '', 'fa fa-bell fa-3x', 'alert alert-danger alert-dismissible');
}
}
?>
<!-- INICIO DE CONTENIDOS DE APLICACION DISENADA POR EL USUARIO -->
function ejecutar_login_oauth($user, $OAuth_servicio)
{
global $TablasCore, $uid, $ListaCamposSinID_parametros, $resultado_webservice, $ListaCamposSinID_parametros, $ListaCamposSinID_auditoria, $PCO_DireccionAuditoria, $PCO_HoraOperacion, $PCO_FechaOperacion, $ArchivoCORE;
// Si el modo depuracion esta activo muestra arreglo user devuelto por el proveedor
global $ModoDepuracion;
if ($ModoDepuracion) {
echo '<h1>' . $OAuth_servicio . ' Login OK!</h1><hr>';
echo '<pre>', HtmlSpecialChars(print_r($user, 1)), '</pre><hr>';
die("Modo de depuracion activo. Debe apagarlo para usar OAuth");
}
// Define las variables del usuario a buscar/crear segun el servicio OAuth utilizado
if ($OAuth_servicio == 'Google' || $OAuth_servicio == 'LinkedIn' || $OAuth_servicio == 'Instagram' || $OAuth_servicio == 'Microsoft' || $OAuth_servicio == 'Flickr' || $OAuth_servicio == 'Twitter' || $OAuth_servicio == 'Foursquare' || $OAuth_servicio == 'XING' || $OAuth_servicio == 'Salesforce' || $OAuth_servicio == 'Bitbucket' || $OAuth_servicio == 'Yahoo' || $OAuth_servicio == 'Box' || $OAuth_servicio == 'Disqus' || $OAuth_servicio == 'Eventful' || $OAuth_servicio == 'SurveyMonkey' || $OAuth_servicio == 'RightSignature' || $OAuth_servicio == 'Fitbit' || $OAuth_servicio == 'ScoopIt' || $OAuth_servicio == 'Tumblr' || $OAuth_servicio == 'StockTwits' || $OAuth_servicio == 'VK' || $OAuth_servicio == 'Withings') {
// Otros disponibles: id,verified_email (0|1),given_name,family_name,link (G+),picture (link),gender (male|female),locale (es|en...)
$login_chk = $user->email;
$nombre_chk = $user->name;
$correo_chk = $user->email;
}
if ($OAuth_servicio == 'Facebook') {
// Otros disponibles: id,name,first_name,middle_name,last_name, link, username, education(arreglo:school[id,name],type),gender (male|female),email, timezone,locale (es_LA...),verified,updated_time
$login_chk = $user->username;
$nombre_chk = $user->name;
$correo_chk = $user->email;
}
if ($OAuth_servicio == 'Dropbox') {
// Otros disponibles: referral_link,display_name,uid (numerico),country (ej:CO),quota_info Arreglo: [datastores,shared,quota,normal],email
$login_chk = $user->uid;
$nombre_chk = $user->display_name;
$correo_chk = $user->email;
}
// Busca datos del usuario Practico, segun tipo de servicio OAuth para tener configuraciones de permisos y parametros propios de la herramienta
$consulta_busqueda_usuario_oauth = "SELECT login, nombre, clave, descripcion, nivel, correo, llave_paso FROM " . $TablasCore . "usuario WHERE login='******' AND descripcion LIKE '%Auth:{$OAuth_servicio}%' ";
$resultado_usuario = ejecutar_sql($consulta_busqueda_usuario_oauth);
$registro = $resultado_usuario->fetch();
// Agrega el usuario cuando es primer login desde el servicio
if ($registro["login"] == "") {
oauth_crear_usuario($OAuth_servicio, $login_chk, $nombre_chk, $correo_chk);
// Actualiza el registro desde nueva consulta
$resultado_usuario = ejecutar_sql($consulta_busqueda_usuario_oauth);
$registro = $resultado_usuario->fetch();
}
// Hace la copia opcional de permisos desde usuario plantilla
// ############ PENDIENTE ##################
// ############ PENDIENTE ##################
// ############ PENDIENTE ##################
// Se buscan datos de la aplicacion
$consulta_parametros = ejecutar_sql("SELECT id," . $ListaCamposSinID_parametros . " FROM " . $TablasCore . "parametros");
$registro_parametros = $consulta_parametros->fetch();
// Actualiza las variables de sesion con el registro
$PCOSESS_SesionAbierta = 1;
// Actualiza booleana de ingreso
$clave_correcta = 1;
// Registro de variables en la sesion
@session_start();
if (!isset($_SESSION["PCOSESS_LoginUsuario"])) {
$_SESSION["PCOSESS_LoginUsuario"] = (string) $registro["login"];
}
if (!isset($_SESSION["username"])) {
$_SESSION["username"] = (string) $registro["login"];
}
//Usada para el modulo de chat
if (!isset($_SESSION["Nombre_usuario"])) {
$_SESSION["Nombre_usuario"] = (string) $registro["nombre"];
}
if (!isset($_SESSION["Descripcion_usuario"])) {
$_SESSION["Descripcion_usuario"] = (string) $registro["descripcion"];
}
if (!isset($_SESSION["Nivel_usuario"])) {
$_SESSION["Nivel_usuario"] = (string) $registro["nivel"];
}
if (!isset($_SESSION["Correo_usuario"])) {
$_SESSION["Correo_usuario"] = (string) $registro["correo"];
}
if (!isset($_SESSION["Clave_usuario"])) {
$_SESSION["Clave_usuario"] = $registro["clave"];
}
if (!isset($_SESSION["LlaveDePasoUsuario"])) {
$_SESSION["LlaveDePasoUsuario"] = $registro["llave_paso"];
}
if (!isset($_SESSION["PCOSESS_SesionAbierta"])) {
$_SESSION["PCOSESS_SesionAbierta"] = $PCOSESS_SesionAbierta;
}
if (!isset($_SESSION["clave_correcta"])) {
$_SESSION["clave_correcta"] = $clave_correcta;
}
if (!isset($_SESSION["Nombre_Empresa_Corto"])) {
$_SESSION["Nombre_Empresa_Corto"] = $registro_parametros["nombre_empresa_corto"];
}
if (!isset($_SESSION["Nombre_Aplicacion"])) {
$_SESSION["Nombre_Aplicacion"] = $registro_parametros["nombre_aplicacion"];
}
if (!isset($_SESSION["Version_Aplicacion"])) {
$_SESSION["Version_Aplicacion"] = $registro_parametros["version"];
}
// Lleva a auditoria con query manual por la falta de $PCOSESS_LoginUsuario
ejecutar_sql_unaria("INSERT INTO " . $TablasCore . "auditoria (" . $ListaCamposSinID_auditoria . ") VALUES ('" . $registro["login"] . "','Ingresa al sistema desde {$PCO_DireccionAuditoria}','{$PCO_FechaOperacion}','{$PCO_HoraOperacion}')");
auditar("Ingresa al sistema desde {$PCO_DireccionAuditoria}", $_SESSION["PCOSESS_LoginUsuario"]);
// Actualiza fecha del ultimo ingreso para el usuario
ejecutar_sql_unaria("UPDATE " . $TablasCore . "usuario SET ultimo_acceso=? WHERE login='******'", "{$PCO_FechaOperacion}");
// Redirecciona al menu
header("Location: index.php");
exit;
}
$cant = $d_a[1];
// cantidad de pasajes reservados
$id_t_pas = $d_a[2];
// id de tipo de pasajes reservados
$t_pas = $d_a[3];
// tipo de pasajes reservados
$raz = $d_a[4];
// razon social de la empresa que compra los pasajes
$observ = $d_a[5];
// observacion sobre la venta de los pasajes adelantados.
$id_cli = $d_a[6];
// ID del cliente a cual se imputaran los pasajes adelantados
$est = 'A';
// verificamos que no exista el registro para hacer un "insert" caso contrario hacemos un "update".
$sql = " SELECT count(*), pa.codigo\n FROM pasajes_adelantados AS pa\n WHERE pa.id_tipo_pasaje=" . $id_t_pas . " and pa.id_cliente=" . $id_cli;
$res_aux = ejecutar_sql($db, $sql);
$numero = $res_aux->fields[0];
$f_d = cambiaf_a_mysql($f_d);
// echo $numero; die();
if ($numero == 0) {
// si no existen registro hay que hacer un insert
// guardo el codigo creado del registro insertado
$id = insertar_registro_transaccion_dar_id($db, 'pasajes_adelantados', 'fecha_emision, observaciones, estado, cantidad, id_cliente, id_tipo_pasaje', '"' . $f_d . '","' . $observ . '","' . $est . '",' . $cant . ',' . $id_cli . ',' . $id_t_pas);
//$sql = 'INSERT INTO pasajes_adelantados (fecha_emision, observaciones, estado, cantidad, id_cliente, id_tipo_pasaje) VALUES("'.
// $f_d.'","'.$observ.'","'.$est.'",'.$cant.','.$id_cli.','.$id_t_pas.');';
// $res = ejecutar_sql($db, $sql);
// $id = mysql_insert_id($db);
} else {
//$sql = "UPDATE pasajes_adelantados SET cantidad = cantidad + ".$cant." WHERE codigo=".$res_aux->fields[1];
$aa = actualizar_registro_con_transaccion($db, "pasajes_adelantados", "cantidad=cantidad+" . $cant . ", fecha_emision='" . $f_d . "'", " codigo = " . $res_aux->fields[1]);
$id = $res_aux->fields[1];
set_var("v_sucursal", $_SESSION['sucursal']);
// fecha_hasta
set_var("v_sucursal", $_SESSION['sucursal']);
// sumatoria de cta cte
set_var("v_vendedor", $_SESSION['usuario']);
set_var("v_total_ctacte", 0.0);
// sumatoria de cta cte
$fecha_desde = cambiaf_a_mysql($fecha_desde);
$fecha_hasta = cambiaf_a_mysql($fecha_hasta);
$db = conectar_al_servidor();
//----------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------
// Cargamos el comboBOX de COMISIONISTAS
//----------------------------------------------------------------------------------------------------
$q = "select u.id, u.nombre, u.usuario from usuarios u inner join tipos_de_usuarios tu on \n\t\t\t(u.id_tipo_usuario=tu.codigo) and (tu.codigo=3)";
$res = ejecutar_sql($db, $q);
if (!$res) {
echo $db->ErrorMsg();
//die();
} else {
$combobox_comisionista = $combobox_comisionista . "<option value=0>Solo de Sucursales...</option>";
while (!$res->EOF) {
$combobox_comisionista = $combobox_comisionista . "<option value=" . $res->fields[0] . "> Por el comisionista:<b> " . strtoupper($res->fields[1]) . "</b></option>";
$res->MoveNext();
}
$combobox_comisionista = $combobox_comisionista . "<option value=9999>Completo...</option>";
}
set_var("v_comboBox_comisionista", $combobox_comisionista);
//----------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------
</b></th>
<th><b><?php
echo $MULTILANG_WSLlavesIP;
?>
</b></th>
<th><b><?php
echo $MULTILANG_WSLlavesFunciones;
?>
</b></th>
<th></th>
<th></th>
</tr>
</thead>
<tbody>
<?php
$consulta_forms = ejecutar_sql("SELECT id," . $ListaCamposSinID_llaves_api . " FROM " . $TablasCore . "llaves_api");
while ($registro = $consulta_forms->fetch()) {
echo '
<form action="' . $ArchivoCORE . '" method="POST" name="dactf' . $registro["id"] . '" id="dactf' . $registro["id"] . '" style="display:inline; height: 0px; border-width: 0px; width: 0px; padding: 0; margin: 0;">
<input type="hidden" name="PCO_Accion" value="actualizar_llavews">
<input type="hidden" name="id" value="' . $registro["id"] . '">
<tr>
<td><b><font color=blue>' . $registro["nombre"] . '</font></b><br>' . $registro["llave"] . '<br>' . $registro["secreto"] . '</td>
<td><input type="text" name="uri" value="' . $registro["uri"] . '" size="13" maxlength=255 class="CampoTexto"></td>
<td><input type="text" name="dominio_autorizado" value="' . $registro["dominio_autorizado"] . '" size="13" maxlength=255 class="CampoTexto"></td>
<td><input type="text" name="ip_autorizada" value="' . $registro["ip_autorizada"] . '" size="13" maxlength=255 class="CampoTexto"></td>
<td><textarea name="funciones_autorizadas" cols=20 rows=1>' . $registro["funciones_autorizadas"] . '</textarea></td>
<td align="center">
<button type="submit" class="btn btn-xs btn-info"><i class="fa fa-refresh"></i> ' . $MULTILANG_Actualizar . '</button>
</form>
</td>
function TearDown()
{
ejecutar_sql($this->get_sql_eliminar_juego_datos());
unset($this->dr);
}
function cargar_informe($informe, $en_ventana = 1, $formato = "htm", $estilo = "Informes", $embebido = 0)
{
global $ConexionPDO, $ArchivoCORE, $TablasCore, $Nombre_Aplicacion, $PCO_ValorBusquedaBD, $PCO_CampoBusquedaBD;
// Carga variables de sesion por si son comparadas en alguna condicion. De todas formas pueden ser cargadas por el usuario en el diseno del informe
global $PCOSESS_LoginUsuario, $Nombre_usuario, $Descripcion_usuario, $Nivel_usuario, $Correo_usuario, $LlaveDePasoUsuario, $PCO_FechaOperacion;
// Carga variables de definicion de tablas
global $ListaCamposSinID_informe, $ListaCamposSinID_informe_campos, $ListaCamposSinID_informe_tablas, $ListaCamposSinID_informe_condiciones, $ListaCamposSinID_informe_boton;
global $MULTILANG_TotalRegistros, $MULTILANG_ContacteAdmin, $MULTILANG_ObjetoNoExiste, $MULTILANG_ErrorTiempoEjecucion, $MULTILANG_Informes, $MULTILANG_IrEscritorio, $MULTILANG_ErrorDatos, $MULTILANG_InfErrTamano, $MULTILANG_MonCommSQL;
global $IdiomaPredeterminado;
global $PCO_InformesDataTable;
global $ModoDepuracion;
// Busca datos del informe
$consulta_informe = ejecutar_sql("SELECT id," . $ListaCamposSinID_informe . " FROM " . $TablasCore . "informe WHERE id=? ", "{$informe}");
$registro_informe = $consulta_informe->fetch();
$Identificador_informe = $registro_informe["id"];
//Si no encuentra informe presenta error
if ($registro_informe["id"] == "") {
mensaje($MULTILANG_ErrorTiempoEjecucion, $MULTILANG_ObjetoNoExiste . " " . $MULTILANG_ContacteAdmin . "<br>(" . $MULTILANG_Informes . " {$informe})", '', 'fa fa-times fa-5x icon-red texto-blink', 'alert alert-danger alert-dismissible');
}
//Identifica si el informe requiere un formulario de filtrado previo
if ($registro_informe["formulario_filtrado"] != "") {
//Determina si solicita el informe desde el formulario de filtrado apropiado, sino redirecciona a este
global $PCO_FormularioActivo;
if ($registro_informe["formulario_filtrado"] != $PCO_FormularioActivo) {
echo '<form name="precarga_form_filtro" action="' . $ArchivoCORE . '" method="POST">
<input type="Hidden" name="PCO_Accion" value="cargar_objeto">
<input type="Hidden" name="PCO_InformeFiltro" value="' . $registro_informe["id"] . '">
<input type="Hidden" name="objeto" value="frm:' . $registro_informe["formulario_filtrado"] . ':1">
<input type="Hidden" name="Presentar_FullScreen" value="' . @$Presentar_FullScreen . '">
<input type="Hidden" name="Precarga_EstilosBS" value="' . @$Precarga_EstilosBS . '">
<script type="" language="JavaScript"> document.precarga_form_filtro.submit(); </script>';
die;
}
}
//Si hay variables de filtro definidas busca su valor en el contexto global
if ($registro_informe["variables_filtro"] != "") {
$arreglo_variables_filtro = @explode(",", $registro_informe["variables_filtro"]);
//Busca y convierte cada variable recibida en global
foreach ($arreglo_variables_filtro as $nombre_variable_filtro) {
//if (isset($$nombre_variable_filtro)) // {Deprecated}
global ${$nombre_variable_filtro};
}
}
// Inicia CONSTRUCCION DE CONSULTA DINAMICA
$numero_columnas = 0;
//Busca los CAMPOS definidos para el informe
$consulta = "SELECT ";
$consulta_campos = ejecutar_sql("SELECT id," . $ListaCamposSinID_informe_campos . " FROM " . $TablasCore . "informe_campos WHERE informe=? ORDER BY peso", "{$informe}");
$PCO_ColumnasOcultas[] = "ArregloDeCamposOcultos";
while ($registro_campos = $consulta_campos->fetch()) {
//Si tiene alias definido lo agrega
$posfijo_campo = "";
if ($registro_campos["valor_alias"] != "") {
$posfijo_campo = " as " . $registro_campos["valor_alias"];
}
//Agrega el campo a la consulta
$consulta .= $registro_campos["valor_campo"] . $posfijo_campo . ",";
//Crea un arreglo con los campos marcados como ocultos para filtrarlos luego
if ($registro_campos["visible"] == 0) {
$PCO_ColumnasOcultas[] = $registro_campos["valor_campo"] . $posfijo_campo;
//Lleva el campo oculto despues del punto
$PCO_PartesCampo = explode(".", $registro_campos["valor_campo"] . $posfijo_campo);
$PCO_ColumnasOcultas[] = $PCO_PartesCampo[1];
//Lleva el campo oculto si es un alias
$PCO_PartesCampo = explode(" as ", $registro_campos["valor_campo"] . $posfijo_campo);
$PCO_ColumnasOcultas[] = $PCO_PartesCampo[1];
}
}
// Elimina la ultima coma en el listado de campos
$consulta = substr($consulta, 0, strlen($consulta) - 1);
//Busca las TABLAS definidas para el informe
$consulta .= " FROM ";
$consulta_tablas = ejecutar_sql("SELECT id," . $ListaCamposSinID_informe_tablas . " FROM " . $TablasCore . "informe_tablas WHERE informe=? ", "{$informe}");
while ($registro_tablas = $consulta_tablas->fetch()) {
//Si tiene alias definido lo agrega
$posfijo_tabla = "";
if ($registro_tablas["valor_alias"] != "") {
$posfijo_tabla = " as " . $registro_tablas["valor_alias"];
}
//Agrega tabla a la consulta
$consulta .= $registro_tablas["valor_tabla"] . $posfijo_tabla . ",";
}
// Elimina la ultima coma en el listado de tablas
$consulta = substr($consulta, 0, strlen($consulta) - 1);
// Busca las CONDICIONES para el informe
$consulta .= " WHERE ";
$consulta_condiciones = ejecutar_sql("SELECT id," . $ListaCamposSinID_informe_condiciones . " FROM " . $TablasCore . "informe_condiciones WHERE informe=? ORDER BY peso", "{$informe}");
$hay_condiciones = 0;
while ($registro_condiciones = $consulta_condiciones->fetch()) {
//Agrega condicion a la consulta
$valor_izquierdo = $registro_condiciones["valor_izq"];
$valor_derecho = $registro_condiciones["valor_der"];
// CONVIERTE VARIABLES DE SESION PHP A VALORES PARA EL QUERY Cuando el primer simbolos es un PESOS ($), es decir, solo se ingreso una variable
//LADO IZQUIERDO DE LA CONDICION
//Si el valor Izquierdo a comparar inicia por signo pesos y es una variable PHP la usa como tal
if (@$valor_izquierdo[0] == "\$") {
//Quita el signo pesos inicial para buscar la variable
$variable_a_buscar = substr($valor_izquierdo, 1, strlen($valor_izquierdo));
// Si la variable esta definida toma su valor encerrado entre comillas para el query y evitar conflictos de variables con espacios y demas.
if (@isset($variable_a_buscar)) {
$valor_izquierdo = "'" . ${$variable_a_buscar} . "'";
}
}
//Evalua casos donde se tienen variables PHP escapadas por llaves. Ej "%{$Variable}%" si fuera para un LIKE, por ejemplo.
if (strpos($valor_izquierdo, "{") !== FALSE && strrpos($valor_izquierdo, "}") !== FALSE) {
//Determina las posiciones de las llaves en la cadena
$PosLlaveIzquierda = strpos($valor_izquierdo, "{");
$PosLlaveDerecha = strrpos($valor_izquierdo, "}");
//Toma solo el pedazo entre llaves para intentar ubicar el valor de la variable por su nombre
$NombreVariable = substr($valor_izquierdo, $PosLlaveIzquierda + 2, $PosLlaveDerecha - $PosLlaveIzquierda - 2);
//Si la variable no esta definida la busca en el entorno global
global ${$NombreVariable};
if (@isset($NombreVariable)) {
$ValorVariable = ${$NombreVariable};
//Reemplaza el valor encontrado en la cadena de valor original
$valor_izquierdo = str_replace('{$' . $NombreVariable . '}', $ValorVariable, $valor_izquierdo);
}
}
//LADO DERECHO DE LA CONDICION
//Si el valor Derecho a comparar inicia por signo pesos y es una variable PHP la usa como tal
if (@$valor_derecho[0] == "\$") {
//Quita el signo pesos inicial para buscar la variable
$variable_a_buscar = substr($valor_derecho, 1, strlen($valor_derecho));
// Si la variable esta definida toma su valor encerrado entre comillas para el query y evitar conflictos de variables con espacios y demas.
if (@isset($variable_a_buscar)) {
$valor_derecho = "'" . ${$variable_a_buscar} . "'";
}
}
//Evalua casos donde se tienen variables PHP escapadas por llaves. Ej "%{$Variable}%" si fuera para un LIKE, por ejemplo.
if (strpos($valor_derecho, "{") !== FALSE && strrpos($valor_derecho, "}") !== FALSE) {
//Determina las posiciones de las llaves en la cadena
$PosLlaveIzquierda = strpos($valor_derecho, "{");
$PosLlaveDerecha = strrpos($valor_derecho, "}");
//Toma solo el pedazo entre llaves para intentar ubicar el valor de la variable por su nombre
$NombreVariable = substr($valor_derecho, $PosLlaveIzquierda + 2, $PosLlaveDerecha - $PosLlaveIzquierda - 2);
//Si la variable no esta definida la busca en el entorno global
global ${$NombreVariable};
if (@isset($NombreVariable)) {
$ValorVariable = ${$NombreVariable};
//Reemplaza el valor encontrado en la cadena de valor original
$valor_derecho = str_replace('{$' . $NombreVariable . '}', $ValorVariable, $valor_derecho);
}
}
$consulta .= " " . $valor_izquierdo . " " . $registro_condiciones["operador"] . " " . $valor_derecho . " ";
$hay_condiciones = 1;
}
if (!$hay_condiciones) {
$consulta .= " 1 ";
}
if (@$registro_informe["agrupamiento"] != "") {
$campoagrupa = $registro_informe["agrupamiento"];
$consulta .= " GROUP BY {$campoagrupa}";
}
if (@$registro_informe["ordenamiento"] != "") {
$campoorden = $registro_informe["ordenamiento"];
$consulta .= " ORDER BY {$campoorden}";
}
// Si el informe tiene formato_final = T (tabla de datos)
if ($registro_informe["formato_final"] == "T") {
$SalidaFinalInforme = '';
$SalidaFinalInformePDF = '';
if ($en_ventana) {
//Cuando es embebido (=1) no imprime el boton de retorno pues se asume dentro de un formulario
if (!$embebido) {
echo '<div align=center><button type="Button" onclick="document.core_ver_menu.submit()" class="btn btn-warning"><i class="fa fa-home fa-fw"></i> ' . $MULTILANG_IrEscritorio . '</button></div><br>';
}
//Carga la ventana con el informe
abrir_ventana($Nombre_Aplicacion . ' - ' . $registro_informe["titulo"], 'panel panel-info', $registro_informe["ancho"]);
}
// Si se ha definido un tamano fijo entonces crea el marco
if ($registro_informe["ancho"] != "" && $registro_informe["alto"] != "") {
echo '<DIV style="DISPLAY: block; OVERFLOW: auto; POSITION: relative; WIDTH: ' . $registro_informe["ancho"] . '; HEIGHT: ' . $registro_informe["alto"] . '">';
}
//Genera enlace al PDF cuando se detecta el modulo y ademas el informe lo tiene activado
if (@file_exists("mod/pdf") && $registro_informe["genera_pdf"] == 'S') {
echo '<div align=right><a href="tmp/Inf_' . $Identificador_informe . '-' . $PCOSESS_LoginUsuario . '.pdf" target="_BLANK"><i class="fa fa-file-pdf-o"></i> PDF </a></div>';
}
// Crea encabezado por tipo de formato: 1=html 2=Excel
if ($formato == "htm") {
echo '
<html>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" style="font-size: 12px; font-family: Arial, Verdana, Tahoma;">';
}
if ($formato == "xls") {
$fecha = date("d-m-Y");
$tituloinforme = trim($registro_informe["titulo"]);
$tituloinforme = "Informe";
$nombrearchivo = $tituloinforme . "_" . $fecha;
header('Content-type: application/vnd.ms-excel');
header("Content-Disposition: attachment; filename={$nombrearchivo}.xls");
header("Pragma: no-cache");
header("Expires: 0");
}
if ($formato == "htm") {
//Si el informe va a soportar datatable entonces lo agrega a las tablas que deben ser convertidas en el pageonload
if ($registro_informe["soporte_datatable"] == "S") {
@($PCO_InformesDataTable .= "TablaInforme_" . $registro_informe["id"] . "|");
}
$SalidaFinalInforme .= '<table class="table table-condensed table-hover table-striped table-unbordered ' . $estilo . '" id="TablaInforme_' . $registro_informe["id"] . '"><thead><tr>';
$SalidaFinalInformePDF .= '<table class="' . $estilo . '"><thead><tr>';
}
if ($formato == "xls") {
$SalidaFinalInforme .= '<table class="font-size: 11px; font-family: Verdana, Tahoma, Arial;"><thead><tr>';
$SalidaFinalInformePDF .= '<table class="font-size: 11px; font-family: Verdana, Tahoma, Arial;"><thead><tr>';
}
// Busca si el informe tiene acciones (botones), los cuenta y prepara dentro de un arreglo para repetir en cada registro
$consulta_botones = ejecutar_sql("SELECT id," . $ListaCamposSinID_informe_boton . " FROM " . $TablasCore . "informe_boton WHERE informe=? AND visible=1 ORDER BY peso", "{$informe}");
$total_botones = 0;
while ($registro_botones = $consulta_botones->fetch()) {
//Construye una cadena generica con todos los botones para ser reemplazada luego con valores
if ($registro_botones["tipo_accion"] == "interna_eliminar") {
$valores = explode(".", $registro_botones["accion_usuario"]);
$tabla_vinculada = @$valores[0];
$campo_vinculado = @$valores[1];
//Si solo se indico el campo, sin la tabla, intenta usar solo el campo
if ($campo_vinculado == "" && $tabla_vinculada != "") {
$campo_vinculado = $valores[0];
$tabla_vinculada = "";
}
$comando_javascript = "\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.PCO_Accion.value='eliminar_registro_informe';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.tabla.value='" . @$tabla_vinculada . "';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.campo.value='" . @$campo_vinculado . "';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.valor.value='DELFRMVALVALOR';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.submit()";
}
if ($registro_botones["tipo_accion"] == "interna_cargar") {
$comando_javascript = "\r\n document.FRMBASEINFORME.PCO_Accion.value='cargar_objeto';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.objeto.value='frm:" . $registro_botones["accion_usuario"] . ":DETFRMVALBASE';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.submit()";
}
if ($registro_botones["tipo_accion"] == "externa_formulario") {
$comando_javascript = "\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.PCO_Tabla.value='" . @$tabla_vinculada . "';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.PCO_Campo.value='" . @$campo_vinculado . "';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.PCO_Valor.value='DELFRMVALVALOR';\r\n document.FRMBASEINFORME.PCO_Accion.value='" . $registro_botones["accion_usuario"] . "';\r\n\t\t\t\t\t\t\t\t\t\tdocument.FRMBASEINFORME.submit()";
}
if ($registro_botones["tipo_accion"] == "externa_javascript") {
$comando_javascript = $registro_botones["accion_usuario"];
}
//Verifica si el registro de botones presenta algun texto de confirmacion y lo antepone al script
$cadena_confirmacion_accion_pre = "";
$cadena_confirmacion_accion_pos = "";
if ($registro_botones["confirmacion_texto"] != "") {
$cadena_confirmacion_accion_pre = " if (confirm('" . $registro_botones["confirmacion_texto"] . "')) {";
$cadena_confirmacion_accion_pos = " } else {} ";
}
//Genera la cadena del enlace
$cadena_javascript = 'onclick="' . $cadena_confirmacion_accion_pre . ' ' . @$comando_javascript . ' ' . $cadena_confirmacion_accion_pos . ' "';
@($cadena_generica_botones .= '<input type="Button" class="' . $registro_botones["estilo"] . '" value="' . $registro_botones["titulo"] . '" ' . $cadena_javascript . ' > ');
$total_botones++;
}
// Imprime encabezados de columna
$resultado_columnas = @ejecutar_sql($consulta);
$ConteoColumnas = $resultado_columnas->rowCount();
//Si se tienen registros para mirar las columnas las agrega
if ($ConteoColumnas > 0) {
$numero_columnas = 0;
foreach ($resultado_columnas->fetch(PDO::FETCH_ASSOC) as $key => $val) {
//Imprime el encabezado siempre y cuando no se trate de un campo que se desea ocultar
if (!in_array($key, $PCO_ColumnasOcultas)) {
$SalidaFinalInforme .= '<th>' . $key . '</th>';
$SalidaFinalInformePDF .= '<th>' . $key . '</th>';
} else {
//Agrega la columna al indice de columnas ocultas para no mostrarla luego
$PCO_NumerosColumnasOcultas[] = $numero_columnas;
}
$numero_columnas++;
}
}
//Si el informe tiene botones entonces agrega columna adicional
if ($total_botones > 0) {
$SalidaFinalInforme .= '<th></th>';
$SalidaFinalInformePDF .= '<th></th>';
}
$SalidaFinalInforme .= '</tr></thead><tbody>';
$SalidaFinalInformePDF .= '</tr></thead><tbody>';
// Imprime registros del resultado
$numero_filas = 0;
$consulta_ejecucion = ejecutar_sql($consulta);
while ($registro_informe = $consulta_ejecucion->fetch()) {
$SalidaFinalInforme .= '<tr>';
$SalidaFinalInformePDF .= '<tr>';
for ($i = 0; $i < $numero_columnas; $i++) {
//Muestra la columna solo si no se trata de una de las ocultas
if (!in_array($i, $PCO_NumerosColumnasOcultas)) {
$SalidaFinalInforme .= '<td>' . $registro_informe[$i] . '</td>';
$SalidaFinalInformePDF .= '<td>' . $registro_informe[$i] . '</td>';
}
}
//Si el informe tiene botones los agrega
if ($total_botones > 0) {
//Transforma la cadena generica con los datos especificos del registro, toma por ahora el primer campo
$cadena_botones_registro = str_replace("DELFRMVALVALOR", $registro_informe[0], $cadena_generica_botones);
$cadena_botones_registro = str_replace("DETFRMVALBASE", $registro_informe[0], $cadena_botones_registro);
//Muestra los botones preparados para el registro
$SalidaFinalInforme .= '<th>' . $cadena_botones_registro . '</th>';
$SalidaFinalInformePDF .= '<th>' . $cadena_botones_registro . '</th>';
}
$SalidaFinalInforme .= '</tr>';
$SalidaFinalInformePDF .= '</tr>';
$numero_filas++;
}
$SalidaFinalInforme .= '</tbody>';
$SalidaFinalInformePDF .= '</tbody>';
if ($formato == "htm") {
//Cuando es embebido (=1) no agrega los totales de registro
if (!$embebido) {
$SalidaFinalInforme .= '<tfoot>
<tr><td colspan=' . $numero_columnas . '>
<b>' . $MULTILANG_TotalRegistros . ': </b>' . $numero_filas . '
</td></tr>';
$SalidaFinalInformePDF .= '<tfoot>
<tr><td colspan=' . $numero_columnas . '>
<b>' . $MULTILANG_TotalRegistros . ': </b>' . $numero_filas . '
</td></tr>';
}
echo '</tfoot>';
}
$SalidaFinalInforme .= '</table>';
$SalidaFinalInformePDF .= '</table>';
if ($formato == "htm") {
echo '</body></html>';
}
//Imprime el HTML generado para el informe
echo $SalidaFinalInforme;
//Genera el PDF cuando se encuentra el modulo y el informe lo tiene activado
if (@file_exists("mod/pdf") && $registro_informe["genera_pdf"] == 'S') {
require_once 'mod/pdf/html2pdf/html2pdf.class.php';
try {
//Define parametros para generar el PDF
$IdiomaPDF = $IdiomaPredeterminado;
// Acepta solo ca|cs|da|de|en|es|fr|it|nl|pt|tr
$OrientacionPDF = 'P';
// P|ortrait L|andscape
$TamanoPaginaPDF = 'A4';
// A4|A5|LETTER|LEGAL|100×200...|
$MargenPaginaMM = '10';
// Como Entero o arreglo (Izq,Der,Arr,Aba) ej: 10 o array(1, 25, 25, 5)
$ModoVistaPDF = 'fullpage';
// fullpage|fullwidth|real|default
$FuentePredeterminadaPDF = 'Arial';
// Arial|Courier|Courier-Bold|Courier-BoldOblique|Courier-Oblique|Helvetica|Helvetica-Bold|Helvetica-BoldOblique|Helvetica-Oblique|Symbol|Times-Roman|Times-Bold|Times-BoldItalic|Times-Italic|ZapfDingbats
$ContrasenaLecturaPDF = '';
// Si se asigna un valor pedira contrasena para poderlo leer
$JavaScriptPDF = '';
// Ej. print(true);
// Inicia la generacion del PDF
$html2pdf = new HTML2PDF($OrientacionPDF, $TamanoPaginaPDF, $IdiomaPDF, true, 'UTF-8', $MargenPaginaMM);
if ($ContrasenaLecturaPDF != "") {
$html2pdf->pdf->SetProtection(array('print'), $ContrasenaLecturaPDF);
}
if ($JavaScriptPDF != "") {
$html2pdf->pdf->IncludeJS($JavaScriptPDF);
}
$html2pdf->pdf->SetDisplayMode($ModoVistaPDF);
$html2pdf->setDefaultFont($FuentePredeterminadaPDF);
$html2pdf->WriteHTML($SalidaFinalInformePDF);
$html2pdf->Output('tmp/Inf_' . $Identificador_informe . '-' . $PCOSESS_LoginUsuario . '.pdf', 'F');
// Antes: $html2pdf->Output('tmp/exemple.pdf'); enviaba salida al navegador directamente
} catch (HTML2PDF_exception $e) {
echo $e;
exit;
}
}
// Si se ha definido un tamano fijo entonces cierra el marco
if ($registro_informe["ancho"] != "" && $registro_informe["alto"] != "") {
echo '</DIV>';
}
}
// Fin si informe es T (tabla)
//Verifica si es un informe grafico sin dimensiones
if ($registro_informe["formato_final"] == "G" && ($registro_informe["ancho"] == "" || $registro_informe["alto"] == "")) {
echo '<form name="cancelarXTamano" action="' . $ArchivoCORE . '" method="POST">
<input type="Hidden" name="PCO_Accion" value="Ver_menu">
<input type="Hidden" name="PCO_ErrorTitulo" value="' . $MULTILANG_ErrorDatos . '">
<input type="Hidden" name="PCO_ErrorDescripcion" value="' . $MULTILANG_InfErrTamano . '">
</form>
<script type="" language="JavaScript"> document.cancelarXTamano.submit(); </script>';
}
// Si el informe tiene formato_final = G (grafico)
if ($registro_informe["formato_final"] == "G" && $registro_informe["ancho"] != "" && $registro_informe["alto"] != "") {
//Consulta el formato de grafico y datos de series para ponerlo en los campos
//Dado por: Tipo|Nombre1!NombreN|Etiqueta1!EtiquetaN|Valor1!ValorN|
$formato_base = explode("|", $registro_informe["formato_grafico"]);
$tipo_grafico = $formato_base[0];
$lista_nombre_series = explode("!", $formato_base[1]);
$lista_etiqueta_series = explode("!", $formato_base[2]);
$lista_valor_series = explode("!", $formato_base[3]);
//Elimina los nombres de tabla en caso de tener punto y usa los alias si los tiene
for ($i = 0; $i < 5; $i++) {
//Elimina nombres de tabla encontrando el punto y seleccionando siguiente palabra
if (strpos($lista_etiqueta_series[$i], ".")) {
$tmp = explode(".", $lista_etiqueta_series[$i]);
$lista_etiqueta_series[$i] = $tmp[1];
}
if (strpos($lista_valor_series[$i], ".")) {
$tmp = explode(".", $lista_valor_series[$i]);
$lista_valor_series[$i] = $tmp[1];
}
// Prefiere los alias sobre los nombres de campo cuando encuentra un AS
if (strpos($lista_etiqueta_series[$i], " AS ")) {
$tmp = explode(" AS ", $lista_etiqueta_series[$i]);
$lista_etiqueta_series[$i] = $tmp[1];
}
if (strpos($lista_valor_series[$i], " AS ")) {
$tmp = explode(" AS ", $lista_valor_series[$i]);
$lista_valor_series[$i] = $tmp[1];
}
}
$nombre_serie_1 = $lista_nombre_series[0];
$nombre_serie_2 = $lista_nombre_series[1];
$nombre_serie_3 = $lista_nombre_series[2];
$nombre_serie_4 = $lista_nombre_series[3];
$nombre_serie_5 = $lista_nombre_series[4];
$campo_etiqueta_serie_1 = $lista_etiqueta_series[0];
$campo_etiqueta_serie_2 = $lista_etiqueta_series[1];
$campo_etiqueta_serie_3 = $lista_etiqueta_series[2];
$campo_etiqueta_serie_4 = $lista_etiqueta_series[3];
$campo_etiqueta_serie_5 = $lista_etiqueta_series[4];
$campo_valor_serie_1 = $lista_valor_series[0];
$campo_valor_serie_2 = $lista_valor_series[1];
$campo_valor_serie_3 = $lista_valor_series[2];
$campo_valor_serie_4 = $lista_valor_series[3];
$campo_valor_serie_5 = $lista_valor_series[4];
// Libreria para graficos
include "inc/libchart/classes/libchart.php";
//Crea las series para el grafico, dependiendo si es torta (una serie) o cualquier otro (multiples series)
if ($tipo_grafico == "torta") {
$dataSet = new XYDataSet();
// GENERA DATOS DEL GRAFICO
$consulta_ejecucion = ejecutar_sql($consulta);
while ($registro = $consulta_ejecucion->fetch()) {
if ($nombre_serie_1 != "") {
$dataSet->addPoint(new Point($registro[$campo_etiqueta_serie_1], $registro[$campo_valor_serie_1]));
}
}
} else {
$dataSet = new XYSeriesDataSet();
if ($nombre_serie_1 != "") {
$serie1 = new XYDataSet();
$dataSet->addSerie($nombre_serie_1, $serie1);
}
if ($nombre_serie_2 != "") {
$serie2 = new XYDataSet();
$dataSet->addSerie($nombre_serie_2, $serie2);
}
if ($nombre_serie_3 != "") {
$serie3 = new XYDataSet();
$dataSet->addSerie($nombre_serie_3, $serie3);
}
if ($nombre_serie_4 != "") {
$serie4 = new XYDataSet();
$dataSet->addSerie($nombre_serie_4, $serie4);
}
if ($nombre_serie_5 != "") {
$serie5 = new XYDataSet();
$dataSet->addSerie($nombre_serie_5, $serie5);
}
// GENERA DATOS DEL GRAFICO
$consulta_ejecucion = ejecutar_sql($consulta);
while ($registro = $consulta_ejecucion->fetch()) {
if ($nombre_serie_1 != "") {
$serie1->addPoint(new Point($registro[$campo_etiqueta_serie_1], $registro[$campo_valor_serie_1]));
}
if ($nombre_serie_2 != "") {
$serie2->addPoint(new Point($registro[$campo_etiqueta_serie_2], $registro[$campo_valor_serie_2]));
}
if ($nombre_serie_3 != "") {
$serie3->addPoint(new Point($registro[$campo_etiqueta_serie_3], $registro[$campo_valor_serie_3]));
}
if ($nombre_serie_4 != "") {
$serie4->addPoint(new Point($registro[$campo_etiqueta_serie_4], $registro[$campo_valor_serie_4]));
}
if ($nombre_serie_5 != "") {
$serie5->addPoint(new Point($registro[$campo_etiqueta_serie_5], $registro[$campo_valor_serie_5]));
}
}
}
// CREA OBJETO SEGUN TIPO DE GRAFICO
if ($tipo_grafico == "linea" || $tipo_grafico == "linea_multiples") {
$chart = new LineChart($registro_informe["ancho"], $registro_informe["alto"]);
}
if ($tipo_grafico == "barrah" || $tipo_grafico == "barrah_multiples") {
$chart = new HorizontalBarChart($registro_informe["ancho"], $registro_informe["alto"]);
}
if ($tipo_grafico == "barrav" || $tipo_grafico == "barrav_multiples") {
$chart = new VerticalBarChart($registro_informe["ancho"], $registro_informe["alto"]);
}
if ($tipo_grafico == "torta") {
$chart = new PieChart($registro_informe["ancho"], $registro_informe["alto"]);
}
// PRESENTA EL GRAFICO EN PANTALLA
$chart->setDataSet($dataSet);
//$chart->getPlot()->setGraphCaptionRatio(0.75);
$chart->setTitle($registro_informe["titulo"]);
$chart->render("tmp/Inf_" . $registro_informe["id"] . "-" . $PCOSESS_LoginUsuario . ".png");
echo '<img alt="Grafico" src="tmp/Inf_' . $Identificador_informe . '-' . $PCOSESS_LoginUsuario . '.png" style="border: 1px solid gray;">';
}
// Fin si informe es G (grafico)
if ($en_ventana) {
cerrar_ventana();
}
//Si el usuario es admin le muestra el query generador.
if (@$PCOSESS_LoginUsuario == "admin" && $ModoDepuracion) {
mensaje($MULTILANG_MonCommSQL, $consulta, '', 'fa fa-fw fa-2x fa-database', 'alert alert-info alert-dismissible ');
}
}
$resultado_webservice = @simplexml_load_string($contenido_url);
// Analiza la respuesta recibida en el XML
if (@$resultado_webservice->credencial[0]->aceptacion == 1) {
$ok_login = 1;
}
} else {
limpiar_entradas();
mensaje($MULTILANG_LoginNoWSTit, $MULTILANG_LoginNoWSDes . "<br>Test URL=<a href='" . $webservice_validacion . "' target=_BLANK>Auth WebService</a> (entradas filtradas)", '', 'fa fa-times fa-5x icon-red texto-blink', 'alert alert-danger alert-dismissible');
}
$clave_correcta = 0;
if ($clave != "" && $ok_login == 1 && $ok_captcha == 1) {
// Busca datos del usuario Practico, sin importar metodo de autenticacion para tener configuraciones de permisos y parametros propios de la herramienta
$resultado_usuario = ejecutar_sql("SELECT {$ListaCamposSinID_usuario} FROM " . $TablasCore . "usuario WHERE login='******'");
$registro = $resultado_usuario->fetch();
// Se buscan datos de la aplicacion
$consulta_parametros = ejecutar_sql("SELECT id," . $ListaCamposSinID_parametros . " FROM " . $TablasCore . "parametros");
$registro_parametros = $consulta_parametros->fetch();
// Actualiza las variables de sesion con el registro
$PCOSESS_SesionAbierta = 1;
// Actualiza booleana de ingreso
$clave_correcta = 1;
// Registro de variables en la sesion
// Antes con depreciada: session_register('PCOSESS_LoginUsuario');
@session_start();
if (!isset($_SESSION["PCOSESS_LoginUsuario"])) {
$_SESSION["PCOSESS_LoginUsuario"] = (string) $resultado_webservice->credencial[0]->login;
}
if (!isset($_SESSION["username"])) {
$_SESSION["username"] = (string) $registro["login"];
}
//Usada para el modulo de chat
// Cargamos el membrete
//------------------------------------------------------------------------------
set_var("v_path_logo", LOGO);
set_var("v_razon_social", RAZON_SOCIAL);
set_var("v_direc_razon_social", DIREC_RAZON_SOCIAL);
set_var("v_tel_razon_social", TEL_RAZON_SOCIAL);
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// MUESTRA TODOS LOS REGISTROS DE LOS CELULARES
//------------------------------------------------------------------------------
$db = conectar_al_servidor();
$q = "SELECT\n e.NRO_GUIA, /* 0 */\n e.FECHA, /* 1 */\n e.REMITENTE, /* 2 */\n e.CUIT_ORIGEN, /* 3 */\n e.DIRECCION_REMITENTE, /* 4 */\n e.TEL_ORIGEN, /* 5 */\n e.DESTINATARIO, /* 6 */\n e.CUIT_DESTINO, /* 7 */\n e.DIRECCION_DESTINO,\n e.TEL_DESTINO,\n e.PRIORIDAD,\n e.FECHA_ENTREGA,\n e.HORA_ENTREGA_DESDE,\n e.HORA_ENTREGA_HASTA,\n e.PRECIO,\n e.ESTADO,\n e.USUARIO,\n lr.localidad AS Localidad_remitente,\n ld.localidad AS Localidad_destinatario,\n pr.provincia,\n pd.provincia,\n CONCAT(f.Nro_SUCURSAL,'-',f.NRO_FACTURA),\n e.COMISION_COMISIONISTA,\n e.COMISION_SUCURSAL,\n e.IMPORTE_SEGURO, /* 24 */\n e.OBSERVACIONES,\n e.ELIMINADO,\n e.porcentaje_seguro,\n e.iva, /* 28 */\n e.DEBE_TENER_FRIO,\n e.CON_AVISO_DE_RETORNO\n FROM\n encomiendas AS e\n Inner Join localidades AS lr ON (e.ID_LOCALIDAD_REMITENTE = lr.codigo)\n Inner Join localidades AS ld ON (e.ID_LOCALIDAD_REMITENTE = ld.codigo)\n Inner Join provincias AS pr ON (lr.id_provincia = pr.codigo)\n Inner Join provincias AS pd ON (ld.id_provincia = pd.codigo)\n Left Join usuarios AS u ON (e.ID_COMISIONISTA = u.id)\n Left Join facturas AS f ON (e.ID_FACTURA = f.CODIGO)\n WHERE (e.nro_guia=" . $b_nro_orden . ")";
$res = ejecutar_sql($db, $q);
//---------------------------------------------------------------------------------------------------
$q2 = "SELECT item, cantidad, descripcion, precio_unitario, id_comisionista, u.usuario, comision_sucursal, comision_comisionista\n FROM detalle_encomiendas AS de inner join usuarios AS u ON (de.id_comisionista=u.id)\n WHERE (de.id_encomienda=" . $b_nro_orden . ")";
$res2 = ejecutar_sql($db, $q2);
if ($res2->fields[24] > 0) {
set_var("v_encomienda_asegurada", "S");
} else {
set_var("v_encomienda_asegurada", "N");
}
if ($res2->fields[28] == "S") {
set_var("v_debe_tener_frio", "S");
} else {
set_var("v_debe_tener_frio", "N");
}
if ($res2->fields[29] == "S") {
set_var("v_con_aviso_de_retorno", "S");
} else {
set_var("v_con_aviso_de_retorno", "N");
}
<td><b><?php
echo $MULTILANG_Titulo;
?>
</b></td>
<td><b><?php
echo $MULTILANG_TablaDatos;
?>
</b></td>
<td></td>
<td></td>
<td></td>
</tr>
</thead>
<tbody>
<?php
$consulta_forms = ejecutar_sql("SELECT id," . $ListaCamposSinID_formulario . " FROM " . $TablasCore . "formulario ORDER BY titulo");
while ($registro = $consulta_forms->fetch()) {
echo '<tr>
<td><b>' . $registro["id"] . '</b></td>
<td>' . $registro["titulo"] . '</td>
<td>' . str_replace($TablasApp, '', $registro["tabla_datos"]) . '</td>
<td align="center">
<form action="' . $ArchivoCORE . '" method="POST" name="dco' . $registro["id"] . '" id="dco' . $registro["id"] . '">
<input type="hidden" name="PCO_Accion" value="definir_copia_formularios">
<input type="hidden" name="formulario" value="' . $registro["id"] . '">
<input type="hidden" name="titulo_formulario" value="' . $registro["titulo"] . '">
<input type="hidden" name="nombre_tabla" value="' . $registro["tabla_datos"] . '">
<a class="btn btn-default btn-xs" href="javascript:confirmar_evento(\'' . $MULTILANG_FrmAdvCopiar . '\',dco' . $registro["id"] . ');"><i class="fa fa-code-fork"></i> ' . $MULTILANG_FrmCopiar . '</a>
</form>
</td>
<td align="center">
});
Morris.Donut({
element: 'conteos-generales-aplicacion',
data: [
<?php
//Inicia la generacion del arreglo con los datos
//$resultado_auditoria=ejecutar_sql("SELECT fecha,count(*) as cantidad FROM ".$TablasCore."auditoria WHERE fecha>=date_sub(date(now()),INTERVAL 30 DAY) GROUP BY fecha ORDER BY fecha");
$resultado_conteos_tablas = consultar_tablas($TablasApp);
$cadena_datos = "";
while ($registro_conteos_tablas = $resultado_conteos_tablas->fetch()) {
$nombre_tabla = @$registro_conteos_tablas[0];
//Si la tabla es de aplicacion hace los conteos
if (@strpos($nombre_tabla, $TablasApp) !== FALSE) {
$total_registros_tabla = 0;
$registro_conteos_tablas = ejecutar_sql("SELECT count(*) FROM " . $nombre_tabla . "")->fetch();
$registro_conteos_tablas[0];
$cadena_datos .= "\r\n {\r\n label: '" . $nombre_tabla . "',\r\n value: " . $registro_conteos_tablas[0] . "\r\n },\r\n ";
}
}
$cadena_datos = substr($cadena_datos, 0, -1);
echo $cadena_datos;
?>
],
resize: true
});
});
</script>
}
$resultado = ejecutar_sql("SELECT COUNT(*) as conteo,categoria FROM " . $TablasCore . "informe " . @$Complemento_tablas . " WHERE 1 " . @$Complemento_condicion . " GROUP BY categoria ORDER BY categoria");
// Imprime las categorias encontradas para el usuario
while ($registro = $resultado->fetch()) {
//Crea la categoria en el acordeon
$seccion_menu_activa = $registro["categoria"];
$conteo_opciones = $registro["conteo"];
abrir_ventana($MULTILANG_Informes . ': ' . $seccion_menu_activa . ' (' . $conteo_opciones . ')', 'panel-primary');
// Busca las opciones dentro de la categoria
// Si el usuario es diferente al administrador agrega condiciones al query
if ($PCOSESS_LoginUsuario != "admin") {
$Complemento_tablas = "," . $TablasCore . "usuario_informe";
$Complemento_condicion = " AND " . $TablasCore . "usuario_informe.informe=" . $TablasCore . "informe.id AND " . $TablasCore . "usuario_informe.usuario='{$PCOSESS_LoginUsuario}'";
// AND nivel>0
}
$resultado_opciones_acordeon = ejecutar_sql("SELECT * FROM " . $TablasCore . "informe " . @$Complemento_tablas . " WHERE 1 AND categoria='" . $seccion_menu_activa . "' " . @$Complemento_condicion . " ORDER BY titulo");
while ($registro_opciones_acordeon = $resultado_opciones_acordeon->fetch()) {
//Determina si el informe es texto o grafico y cambia el icono asociado
$icono_informe = "fa-file-text-o";
if ($registro_opciones_acordeon["formato_final"] == "G") {
$icono_informe = "fa-pie-chart";
}
//Determina si el registro fue generado para el admin o un usuario estandar y genera el objeto a enlazar
$objeto_enlazar = $registro_opciones_acordeon["id"];
if ($PCOSESS_LoginUsuario != "admin") {
$objeto_enlazar = $registro_opciones_acordeon["informe"];
}
//Presenta el enlace al informe
echo '<div style="float:left">
<form action="' . $ArchivoCORE . '" method="post" name="acordeinf_' . $registro_opciones_acordeon["id"] . '" id="acordeinf_' . $registro_opciones_acordeon["id"] . '" style="display:inline; height: 0px; border-width: 0px; width: 0px; padding: 0; margin: 0;">
<table class="table table-unbordered table-hover table-condensed"><tr><td align=center>
?>
</a>
</li>
<?php
}
?>
<?php
//Busca las posibles opciones del lado izquierdo
// Si el usuario es diferente al administrador agrega condiciones al query
if ($PCOSESS_LoginUsuario != "admin") {
$Complemento_tablas = "," . $TablasCore . "usuario_menu";
$Complemento_condicion = " AND " . $TablasCore . "usuario_menu.menu=" . $TablasCore . "menu.id AND " . $TablasCore . "usuario_menu.usuario='{$PCOSESS_LoginUsuario}'";
// AND nivel>0
}
$resultado = ejecutar_sql("SELECT " . $TablasCore . "menu.id as id,{$ListaCamposSinID_menu} FROM " . $TablasCore . "menu " . @$Complemento_tablas . " WHERE posible_izquierda=1 " . @$Complemento_condicion);
while ($registro = $resultado->fetch()) {
echo '<li>';
echo '<form action="' . $ArchivoCORE . '" method="post" name="left_' . $registro["id"] . '" id="left_' . $registro["id"] . '" style="display:inline; height: 0px; border-width: 0px; width: 0px; padding: 0; margin: 0;">';
// Verifica si se trata de un comando interno o personal y crea formulario y enlace correspondiente (ambos funcionan igual)
if ($registro["tipo_comando"] == "Interno" || $registro["tipo_comando"] == "Personal") {
echo '<input type="hidden" name="PCO_Accion" value="' . $registro["comando"] . '"></form>';
}
// Verifica si se trata de una opcion para cargar un objeto de practico
if ($registro["tipo_comando"] == "Objeto") {
echo '<input type="hidden" name="PCO_Accion" value="cargar_objeto">
<input type="hidden" name="objeto" value="' . $registro["comando"] . '"></form>';
}
//Si tiene una URL trata la opcion como enlace estandar, sino como opcion de menu especial
if ($registro["url"] != "") {
echo '<a title="' . $registro["texto"] . '" href="' . $registro["url"] . '" target="' . $registro["destino"] . '">';
<?php
// insertamos el registro en la tabla encomienda
include_once "seguridad.php";
include_once "template.php";
include_once "conexion.php";
include_once "funciones.php";
// parametros recibidos desde el javascript
$id_clientes = $_REQUEST["id_cliente"];
// nro de guia separado por ",".
$db_aux = conectar_al_servidor();
$sql = "SELECT dc.nombre, dc.direccion, dc.tel, dc.dni, l.id_provincia, dc.id_localidad, p.provincia, l.localidad\n FROM destinos_comunes_clientes AS dc inner join localidades AS l ON (dc.id_localidad=l.codigo) and (dc.id_cliente=" . $id_clientes . ")\n inner join provincias AS p ON (l.id_provincia=p.codigo)";
$res = ejecutar_sql($db_aux, $sql);
//----------------------------------------------------------------------------------------------------
// Verificamos el resultado de la busqueda.
//----------------------------------------------------------------------------------------------------
if (!$res) {
echo $db_aux->ErrorMsg();
//mensaje('La encomienda no se pudo guardar...');
} else {
// dc.nombre, dc.direccion, dc.tel, dc.dni, dc.id_provincia, dc.id_localidad, p.provincia, l.localidad, dc.dni
echo $res->fields[0] . "|" . $res->fields[1] . "|" . $res->fields[2] . "|" . $res->fields[3] . "|" . $res->fields[4] . "|" . $res->fields[5] . "|" . $res->fields[6] . "|" . $res->fields[7] . "|" . $res->fields[8];
}
desconectar($db_aux);
function PresentarEstadoSQL($ComandoSQL, $color_fondo_estado_sql, $color_texto_estado_sql)
{
/*
Function: PresentarEstadoSQL
Ejecuta un query SQL y presenta el resultado formateado como tabla
*/
global $Path_imagenes, $Imagen_generica_sql, $Tamano_iconos;
$SalidaFinalInforme = '<table border=0 cellspacing=0 cellpadding=2 style="color:black; width:' . $ancho_tablas_maquinas . 'px; display: inline!important; font-family: Verdana, Tahoma, Arial; font-size: 11px;">';
// Busca e Imprime encabezados de columna si no se tienen que ocultar
$resultado_columnas = ejecutar_sql($ComandoSQL["Comando"]);
$numero_columnas = 0;
$SalidaFinalInforme .= '<thead><tr>';
foreach ($resultado_columnas->fetch(PDO::FETCH_ASSOC) as $key => $val) {
if ($ComandoSQL["OcultarTitulos"] == 0) {
$SalidaFinalInforme .= '<th align="LEFT">' . ucwords(strtolower($key)) . '</th>';
}
$numero_columnas++;
}
$SalidaFinalInforme .= "</tr></thead>";
//Ejecuta el query
$consulta_ejecucion = ejecutar_sql($ComandoSQL["Comando"]);
while ($registro_informe = $consulta_ejecucion->fetch()) {
$SalidaFinalInforme .= '<tr>';
for ($i = 0; $i < $numero_columnas; $i++) {
$SalidaFinalInforme .= '<td style="font-size: ' . $ComandoSQL["TamanoResult"] . 'px;">' . $registro_informe[$i] . '</td>';
}
$SalidaFinalInforme .= '</tr>';
}
$SalidaFinalInforme .= "</tr></table>";
$icono_maquina = $Imagen_generica_sql;
echo '
<table width="' . $ancho_tablas_maquinas . '" border=1 cellpadding=1 cellspacing=0 bgcolor="#DDDDDD" style="color:black; width:' . $ancho_tablas_maquinas . 'px; display: inline!important; font-family: Verdana, Tahoma, Arial; font-size: 9px; margin-top: 5px; margin-right: 5px; margin-left: 5px; margin-bottom: 5px;">
<tr>
<td bgcolor="#D8D8FF" align=center>
<table width="100%" border=0 cellpadding=2 cellspacing=0 style="color:black; font-family: Verdana, Tahoma, Arial; font-size: 11px;"><tr>
<td>
' . $icono_maquina . '
</td>
<td bgcolor="#D8D8FF" align=right>
<font size=2><b>' . $ComandoSQL["Nombre"] . '</b></font><br>
</td>
</tr></table>
</td>
</tr>
<tr>
<td colspan=2 align=center bgcolor="' . $color_fondo_estado_sql . '">
<font size=3 color="' . $color_texto_estado_sql . '"><b>' . $SalidaFinalInforme . '</b></font>
</td>
</tr>
</table>
';
}
// importe seguro
set_var("v_porcentaje_para_asegurar", $res->fields[27]);
// notas sobre la encomienda
set_var("v_importe_seguro", sprintf('$ %.2f', $imp_seg));
// notas sobre la encomienda
set_var("v_subtotal", sprintf('$ %.2f', $suma_sub_total));
set_var("v_iva", sprintf('$ %.2f', $iva_imp));
set_var("v_observaciones", $res->fields[25]);
// notas sobre la encomienda
set_var("v_porcentaje_iva", $res->fields[28]);
set_var("v_comision_sucursal", sprintf('$ %.2f', $total_com_suc));
set_var("v_comision_comisionista", sprintf('$ %.2f', $total_com_com));
}
//---------------------------------------------------------------------------------------------------
$q3 = "SELECT p.codigo, p.importe, p.forma_pago, p.fecha, p.id_cheque, p.id_encomienda, p.id_pasaje\n FROM pagos AS p \n where p.id_encomienda=167 \n WHERE (p.forma_pago=4) and (p.id_encomienda=" . $b_nro_orden . ")";
$res3 = ejecutar_sql($db, $q3);
if (!$res) {
echo $db->ErrorMsg();
die;
} else {
set_var("v_tipo_pago", 'PAGO EN DESTINO');
}
desconectar($db);
pparse("mostrar");
// Impresion en PDF
$htmlbuffer = ob_get_contents();
ob_clean();
try {
$fecha = date();
$html2pdf = new HTML2PDF('P', 'A4', 'es');
$html2pdf->pdf->SetDisplayMode('fullpage');
set_var("v_nro_comprobante", $res->fields[6]);
set_var("v_nro_secuencia", $res->fields[1]);
set_var("v_fecha", cambiaf_a_normal($res->fields[0]));
set_var("v_operacion", $res->fields[2]);
set_var("v_importe_debe", number_format($res->fields[3], 2));
set_var("v_importe_haber", number_format($res->fields[4], 2));
parse('listado_ctacte');
$res->MoveNext();
}
// fin del while
//-----------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------
// <<<<< Mostramos los totales de la consulta. >>>>>
//-----------------------------------------------------------------------------------
$sql2 = "select FORMAT(sum(deuda),2) , FORMAT(sum(pago),2)\n from (\n SELECT sum(deuda) as deuda, 0 AS pago\n\n FROM (SELECT sum( COALESCE(p.importe,0) ) AS deuda\n FROM ctactes AS cc Inner Join encomiendas AS e ON (cc.id_encomienda= e.NRO_GUIA) Inner Join pagos AS p ON (cc.id_pago = p.codigo)\n WHERE (cc.id_cliente=" . $nro_cliente . ")\n \n\t\tUNION ALL \n \n\t SELECT sum( COALESCE( ps.precio,0) ) AS deuda\n FROM ctactes AS cc2 Inner Join pasajes AS ps ON (cc2.id_pasaje= ps.codigo) Inner Join pagos AS p2 ON (cc2.id_pago = p2.codigo)\n WHERE (cc2.id_cliente=" . $nro_cliente . ")\n ) as Tdeuda\n\n union all\n\n SELECT 0 as deuda, sum(pagos) AS pago\n FROM (\n SELECT p.importe AS pagos\n FROM\n ctactes AS cc\n Inner Join pagos AS p ON (cc.id_encomienda is null ) AND (cc.id_pasaje is null) AND (cc.id_pago = p.codigo)\n WHERE (cc.id_cliente = " . $nro_cliente . ")\n ) AS Tpagos\n ) AS TDATOS";
$total = ejecutar_sql($db, $sql2);
$cant2 = $total->RecordCount();
if ($cant2 > 0) {
set_var("v_total_debe", number_format($total->fields[0], 2));
set_var("v_total_haber", number_format($total->fields[1], 2));
set_var("v_total", number_format($total->fields[0] - $total->fields[1], 2));
} else {
set_var("v_total_debe", number_format(0, 2));
set_var("v_total_haber", number_format(0, 2));
set_var("v_total", number_format(0, 2));
}
} else {
set_var("v_nro_secuencia", "");
set_var("v_fecha", "");
set_var("v_operacion", "");
set_var("v_importe_debe", "");
if (@$PCO_WSKey != "" || $ByPassWS) {
// Verifica si se ha recibido un identificador de servicio
if (@$PCO_WSId != "") {
// Verifica validez de la llave recibida para el webservice
$llave_ws_valida = 0;
// Verifica si la llave es la misma de instalacion (llave propia)
if (@$PCO_WSKey == $LlaveDePaso || $ByPassWS) {
$llave_ws_valida = 1;
// Define valores para la llave de instalacion
$nombre_cliente = "Practico";
$funciones_autorizadas = 'verificar_credenciales,autenticacion_oauth';
$ip_autorizada = "*";
$dominio_autorizado = "*";
} else {
// Valida si la llave esta en la BD de API
$consulta_llave = ejecutar_sql("SELECT id," . $ListaCamposSinID_llaves_api . " FROM " . $TablasCore . "llaves_api WHERE llave=? ", "{$PCO_WSKey}");
// Si no se retorno error en la consulta y tiene datos hace el fetch
if ($consulta_llave != "1" && $consulta_llave != "") {
$registro_llave = $consulta_llave->fetch();
}
// Si encuentra una llave valida entonces su secreto
if ($registro_llave["llave"] != "") {
if ($registro_llave["secreto"] == $PCO_WSSecret) {
$llave_ws_valida = 1;
// Define valores para la llave
$nombre_cliente = $registro_llave["nombre"];
$ip_autorizada = $registro_llave["ip_autorizada"];
$dominio_autorizado = $registro_llave["dominio_autorizado"];
$funciones_autorizadas = $registro_llave["funciones_autorizadas"];
} else {
mensaje($MULTILANG_WSErrTitulo, $MULTILANG_WSErr02, '', 'fa fa-times fa-5x icon-red texto-blink', 'alert alert-danger alert-dismissible');
</label>
</td>
<td width="100"><label>
<select name="nomb" type="text" id="nomb">
<?php
function ejecutar_sql($sql, $conex)
{
if (!($resultado = mysql_query($sql, $conex))) {
echo "Error al ejecutar la consulta SQL <br>" . mysql_error();
exit;
}
return $resultado;
}
$conexion = conectar();
$sq = "SELECT * FROM asignaturas";
$resultad = ejecutar_sql($sq, $conexion);
while ($ilo = mysql_fetch_assoc($resultad)) {
echo "<option value='" . $ilo["nombre"] . "'>" . $ilo["nombre"] . "</option>";
}
mysql_free_result($resultad);
?>
</label>
</td>
<td>
<button type="submit" style="background:#891B1B; width:90px; height:35px" name="submit" ><font size="5"color="white" face="gabriola">Modificar</font></button></a></td>
</tr>
<tr><td>
<tr><td>
</table>
<br>
<DIV ALIGN="LEFT" class="container">
<table class="table table-hover table-condensed btn-xs table-unbordered">
<thead>
<tr>
<td>' . $MULTILANG_UsrLogin . '</td>
<td>' . $MULTILANG_Nombre . '</td>
<td>' . $MULTILANG_UsrAcceso . '</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</thead>
</body>
';
$resultado = ejecutar_sql("SELECT " . $ListaCamposSinID_usuario . " FROM " . $TablasCore . "usuario WHERE (login LIKE '%{$login_filtro}%') AND (nombre LIKE '%{$nombre_filtro}%' ) AND login<>'admin' ORDER BY login,nombre");
$i = 0;
while ($registro = $resultado->fetch()) {
echo '<tr><td align="left">' . $registro["login"] . '</td>
<td>' . $registro["nombre"] . '</td>
<td>' . $registro["ultimo_acceso"] . '</td>
<td align="center">
<form action="' . $ArchivoCORE . '" method="POST">
<input type="hidden" name="PCO_Accion" value="cambiar_estado_usuario">
<input type="hidden" name="uid_especifico" value="' . $registro["login"] . '">
<input type="hidden" name="estado" value="' . $registro["estado"] . '">
<button type="submit" class="btn btn-warning btn-xs">';
if ($registro["estado"] == 1) {
echo $MULTILANG_Suspender;
} else {
echo $MULTILANG_Habilitar;
<?php
include_once "conexion.php";
include_once "template.php";
//include_once("mensajes.php");
set_file("login", "login.html");
set_var('v_usuario', '');
set_var('v_contrasenia', '');
set_var('v_razon_social', RAZON_SOCIAL);
$var1 = $_POST['usuario'];
$var2 = $_POST['contrasenia'];
$var3 = $_POST['ok'];
if (($var1 != '' or $var2 != '') and $var3 == 'Aceptar') {
$db = conectar_al_servidor();
$usuario = "select u.id, u.nombre, u.usuario, u.id_configuracion_usuario, cu.id_loc_destinatario_encomienda, \n cu.id_loc_remitente_encomienda, cu.id_provincia_origen_encomienda, s.nombre as sucursal, \n cu.id_sucursal, tu.imagen, tu.codigo as id_tipo_de_usuario\n from usuarios u \n inner join conf_usuario cu on (u.id_configuracion_usuario=cu.codigo) \n and u.usuario='" . $var1 . "'AND u.pass='******'\n inner join tipos_de_usuarios tu on (tu.codigo=u.id_tipo_usuario)\n inner join sucursales s on (cu.id_sucursal=s.codigo)";
$us = ejecutar_sql($db, $usuario);
$cant = $us->RecordCount();
desconectar($db);
if ($cant == 0) {
$mensaje_error_usuario_incorrecto = "Usuario Incorrecto";
} else {
$mensaje_error_usuario_incorrecto = " ";
//session_name(‘0a9s88732’);
session_name("loginUsuario");
session_start();
// inicio la sesión
$_SESSION["autentificado"] = "SI";
//defino la sesión que demuestra que el usuario está autorizado
$_SESSION["ultimoAcceso"] = date("Y-n-j H:i:s");
//defino la fecha y hora de inicio de sesión en formato aaaa-mm-dd hh:mm:ss
$arr = $us->fetchRow();
echo $PCO_SalidaCombos;
}
//echo "</select>";
}
/* ################################################################## */
/* ################################################################## */
/*
Function: valor_campo_tabla
Hace una consulta a la base de datos sobre un campo y tabla especificos y retorna su valor. Acepta condiciones de filtrado
Variables de entrada:
campo - Campo que se desea retornar
tabla - En donde se busca el valor
condicion - condicion de filtrado que debe cumplir el registro
Salida:
Valor del campo o vacio si no se encuentra nada
Ejemplo de llamado:
index.php?PCO_Accion=valor_campo_tabla&campo=login&tabla=core_usuario&condicion=login%3d'admin'&Presentar_FullScreen=1
*/
if ($PCO_Accion == "valor_campo_tabla") {
if ($condicion == "") {
$condicion = "1=1";
}
$registro = ejecutar_sql("SELECT {$campo} FROM {$tabla} WHERE {$condicion} ")->fetch();
if ($registro[0] != "") {
@ob_clean();
echo trim($registro[0]);
} else {
echo "";
}
}
function updatePrecioOriginalLargoAncho($precio, $nuevoPrecio, $id_diametro, $id_largo)
{
$id_viejoPrecio = get_Id_PrecioOriginalLargoAncho($id_diametro, $id_largo);
$id_nuevoPrecio = get_Id_PrecioOriginal($nuevoPrecio);
echo " _" . $id_nuevoPrecio . "_ ";
if ($id_nuevoPrecio == NULL) {
insertarPrecioOriginal($nuevoPrecio);
$id_nuevoPrecio = get_Id_PrecioOriginal($nuevoPrecio);
}
$sql = "UPDATE tabla_precios_original SET id_Precios = '{$id_nuevoPrecio}' WHERE id_Precios = {$id_viejoPrecio} AND id_diametro = {$id_diametro} AND id_largo = {$id_largo}";
echo $sql;
$sqlElement = ejecutar_sql($sql);
}
<?php
// insertamos el registro en la tabla encomienda
include_once "seguridad.php";
include_once "template.php";
include_once "conexion.php";
include_once "funciones.php";
// parametros recibidos desde el javascript
$nros_de_guias = $_REQUEST["code"];
// nro de guia separado por ",".
$db = conectar_al_servidor();
$sql = "UPDATE encomiendas Set \n estado='PROCESADA', \n entregada ='N'\n Where nro_guia in (" . $nros_de_guias . ")";
$res = ejecutar_sql($db, $sql);
//----------------------------------------------------------------------------------------------------
// Verificamos el resultado de la busqueda.
//----------------------------------------------------------------------------------------------------
if (!$res) {
echo $db->ErrorMsg();
//mensaje('La encomienda no se pudo guardar...');
} else {
echo 'La/s encomienda/s ' . $nros_de_guias . ' fue/ron procesada correctamente...';
}
</b></th>
<th><b><?php
echo $MULTILANG_Fecha;
?>
</b></th>
<th><b><?php
echo $MULTILANG_Hora;
?>
</b></th>
</tr>
</thead>
<tbody>
<?php
// Busca por las auditorias asociadas a actualizacion de plataforma:
// Acciones: Actualiza version de plataforma | _Actualizacion_ | Analiza archivo tmp/Practico | Carga archivo en carpeta tmp - Practico
$resultado = @ejecutar_sql("SELECT {$ListaCamposSinID_auditoria} FROM " . $TablasCore . "auditoria WHERE accion LIKE '%Import%' AND accion LIKE '%.gz%' ORDER BY fecha DESC, hora DESC LIMIT 0,30");
while ($registro = $resultado->fetch()) {
echo '<tr>
<td>' . $registro["usuario_login"] . '</td>
<td>' . $registro["accion"] . '</td>
<td>' . $registro["fecha"] . '</td>
<td>' . $registro["hora"] . '</td>
</tr>';
}
?>
</tbody>
</table>
</div>
<!-- FIN TAB HISTORICO DE IMPORTACIONES -->
set_var("v_personal", $res->fields[16]);
set_var("v_localidad_remitente", $res->fields[17]);
set_var("v_localidad_destinatario", $res->fields[18]);
set_var("v_nro_factura", $res->fields[19]);
set_var("v_en_ctacte", $res->fields[20]);
parse('imprimir_listadoencomiendas_procesadas');
$v_total = $v_total + $res->fields[19];
$res->MoveNext();
}
// fin del while
//------------------------------------------------------
//------------------------------------------------------
// <<<<< MOstramos los totales de la consulta. >>>>>
//------------------------------------------------------
$sql = "SELECT\n Sum(de.cantidad * de.PRECIO_UNITARIO) AS total,\n Sum(COALESCE(e.IMPORTE_SEGURO,0)) AS total_importe_seguro,\n Sum(COALESCE(e.IMPORTE_CTRA_REEMBOLSO,0)) AS total_importe_contra_reembolso,\n Sum(COALESCE(e.COMISION_CTRA_REEMBOLSO,0)) AS total_comision_contra_reembolso,\n Sum(COALESCE(de.COMISION_COMISIONISTA,0)) AS total_comision_comisionista,\n Sum(COALESCE(de.COMISION_SUCURSAL,0)) AS total_comision_sucursal\n FROM encomiendas AS e \n INNER JOIN detalle_encomiendas AS de ON (e.NRO_GUIA = de.id_encomienda)and(e.ELIMINADO='N')\n INNER JOIN pagos AS p ON (p.id_encomienda=e.nro_guia)";
$total = ejecutar_sql($db, $sql . $w);
set_var("v_total_procesados_procesados", $total->fields[0]);
set_var("v_total_comisiones_comisionista_procesados", $total->fields[4]);
set_var("v_total_comisiones_sucursal_procesados", $total->fields[5]);
set_var("v_total_seguro_procesados", $total->fields[1]);
set_var("v_total_importe_contrareembolso_procesados", $total->fields[2]);
set_var("v_total_comision_contrareembolso_procesados", $total->fields[3]);
set_var("v_total1_1_procesados", $total->fields[2] + $total->fields[3]);
set_var("v_total1_2_procesados", $total->fields[1]);
set_var("v_total2_2_procesados", $total->fields[4] + $total->fields[5]);
set_var("v_total3_procesados", $total->fields[0]);
} else {
set_var("v_nro_operacion", " ");
set_var("v_fecha_op", " ");
set_var("v_remitente", " ");
set_var("v_destinatario", " ");
// print_r('tabla: pagos -> campos: '.$pago_campos.' -> datos: '. $pagos_datos.'<br>');
// print_r('-------------------------------<br>');
//--------------------------------------------------------------------------------
// Se ejecuta despues, ya que se necesita el id de pago para el insert de CTA CTE
if ($det_pago[0 + $i] == 3) {
// si es igaul a Cta. Cte (3)
// armamos el sql para el registro de pago
// id_cliente id_encomienda id_pago fecha_emision
$ctacte_datos = $det_pago[1 + $i] . "," . $id . "," . $id_pago . ",CURRENT_DATE";
$id_ctacte = ejecutar_sql_y_dar_id_con_transaccion($db, 'ctactes', $ctacte_campos, $ctacte_datos);
// obtenemos el ID del ctacte
// print_r('ctactes '.$ctacte_campos.$ctacte_datos."<br>");
// print_r('-------------------------------<br>');
} else {
$id_ctacte = '';
}
}
}
// $res3=ejecutar_sql($db, $sql_b);
//$id_pago = ejecutar_sql_y_dar_id_con_transaccion($db,'pagos',$pagos_campos, $pagos_datos);
}
//------------------------------------------------------------------------------
// Escribe el destino del cliente en la tabla DECTINO_COMUNES_CLIENTES
//------------------------------------------------------------------------------
$det_destino_comun = explode("|", $destinos_comun);
$sql_aux = "INSERT INTO destinos_comunes_clientes (id_cliente, nombre, direccion, tel, dni, id_localidad)\n VALUES (" . $det_destino_comun[0] . ",'" . $det_destino_comun[2] . "','" . $det_destino_comun[3] . "','" . $det_destino_comun[4] . "','" . $det_destino_comun[1] . "'," . $det_destino_comun[6] . ");";
// Localidad
$res4 = ejecutar_sql($db, $sql_aux);
commit_transaccion($db);
?>
