echo '<a class="btn btn-default btn-warning" href="javascript:document.core_ver_menu.submit();"><i class="fa fa-arrow-circle-left"></i> ' . $MULTILANG_Regresar . '</a>';
cerrar_ventana();
}
/* ################################################################## */
/* ################################################################## */
if ($PCO_Accion == "recuperar_contrasena" && $PCO_SubAccion == "enviar_correo_con_usuario") {
/*
Function: enviar_correo_con_usuario
Busca un usuario por su correo electronico y le hace llegar su nombre de usuario al correo
Ver tambien:
<recuperar_contrasena> | <enviar_correo_llave>
*/
abrir_ventana($MULTILANG_OlvideClave, 'panel-info');
//Busca si realmente hay un usuario registrado con ese correo y le envia el mensaje
if (existe_valor($TablasCore . "usuario", "correo", $correo) && $correo != "") {
//Busca los datos del usuario y los envia al correo registrado
$registro = ejecutar_sql("SELECT {$ListaCamposSinID_usuario} FROM " . $TablasCore . "usuario WHERE correo=?", "{$correo}")->fetch();
$remitente = $registro["correo"];
$destinatario = $registro["correo"];
$asunto = "[" . $NombreRAD . "] " . $MULTILANG_UsrAsuntoReset;
$cuerpo_mensaje = "<br><br>" . $MULTILANG_Usuario . " " . $NombreRAD . ": <b>" . $registro["login"] . "</b>";
enviar_correo($remitente, $destinatario, $asunto, $cuerpo_mensaje);
mensaje($MULTILANG_Atencion, $MULTILANG_UsrMensajeReset, '', 'fa fa-unlock-alt fa-4x', 'alert alert-info alert-dismissible');
} else {
mensaje($MULTILANG_Error, $MULTILANG_UsrErrorReset, '', 'fa fa-exclamation-triangle fa-4x', 'alert alert-danger alert-dismissible');
}
echo '<a class="btn btn-default btn-warning" href="javascript:document.core_ver_menu.submit();"><i class="fa fa-arrow-circle-left"></i> ' . $MULTILANG_Regresar . '</a>';
cerrar_ventana();
}
/* ################################################################## */
Salida:
Analisis del archivo y detalles del objeto
*/
if ($PCO_Accion == "analizar_importacion_formulario") {
echo "<br>";
abrir_ventana($MULTILANG_FrmImportar . ' <b>' . $archivo_cargado . '</b>', 'panel-info');
if ($mensaje_error == "") {
$existen_conflictos_entre_ids = 0;
//Carga el archivo en una cadena
$cadena_xml_importado = file_get_contents($archivo_cargado);
// Usa SimpleXML Directamente para interpretar respuesta
$xml_importado = @simplexml_load_string($cadena_xml_importado);
//Presenta alerta cuando encuentra otro elemento con el mismo ID y se trata de una importacion estatica
if ($xml_importado->descripcion[0]->tipo_exportacion == "XML_IdEstatico") {
if (existe_valor($TablasCore . "formulario", "id", base64_decode($xml_importado->core_formulario[0]->id))) {
mensaje($MULTILANG_Atencion, $MULTILANG_FrmImportarAlerta, '', 'fa fa-fw fa-2x fa-warning', 'alert alert-dismissible alert-danger');
}
}
//Presenta contenido del archivo
echo "<b>{$MULTILANG_Detalles} {$MULTILANG_Archivo}</b>:<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_Version} (Practico)</u>: {$xml_importado->descripcion[0]->version_practico}<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_Tipo} {$MULTILANG_Archivo}</u>: ";
if ($xml_importado->descripcion[0]->tipo_exportacion == "XML_IdEstatico") {
echo $MULTILANG_FrmTipoCopiaDes2;
} else {
echo $MULTILANG_FrmTipoCopiaDes3;
}
echo "<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_Aplicacion}</u>: {$xml_importado->descripcion[0]->sistema_origen} {$xml_importado->descripcion[0]->version}<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_GeneradoPor}</u>: {$xml_importado->descripcion[0]->usuario_generador} ({$xml_importado->descripcion[0]->fecha_exportacion} {$xml_importado->descripcion[0]->hora_exportacion})<hr>\r\n\t\t\t\t\t<b>{$MULTILANG_Detalles} {$MULTILANG_Objeto}</b>:<br>\r\n\t\t\t\t\t<li> {$MULTILANG_Tipo}: {$xml_importado->descripcion[0]->tipo_objeto}<br>\r\n\t\t\t\t\t<li> {$MULTILANG_Titulo}: " . base64_decode($xml_importado->core_formulario[0]->titulo) . "<br>\r\n\t\t\t\t\t<li> ID: " . base64_decode($xml_importado->core_formulario[0]->id) . "<br>\r\n <hr>";
//Recorre los core_formulario_objeto
echo '<div class="btn btn-block btn-primary">' . $MULTILANG_FrmDesCampos . '</div><ul class="list-group">';
for ($PCO_i = 0; $PCO_i < $xml_importado->total_core_formulario_objeto[0]->cantidad_objetos; $PCO_i++) {
echo '<a class="list-group-item">
function oauth_crear_usuario($OAuth_servicio, $login_chk = '', $nombre_chk = '', $correo_chk = '', $interno_chk = 0)
{
global $TablasCore, $LlaveDePaso, $PCO_FechaOperacion, $ListaCamposSinID_usuario;
// Inserta datos del usuario
$clavemd5 = MD5(TextoAleatorio(20));
$pasomd5 = MD5($LlaveDePaso);
//Agrega el registro de usuario si aun no existe
if (!existe_valor($TablasCore . "usuario", "login", $login_chk)) {
@ejecutar_sql_unaria("INSERT INTO " . $TablasCore . "usuario (login,clave,nombre,estado,correo,ultimo_acceso,llave_paso,usuario_interno) VALUES ('{$login_chk}','{$clavemd5}','{$nombre_chk}',1,'{$correo_chk}','{$PCO_FechaOperacion}','{$pasomd5}','{$interno_chk}')");
auditar("OAuth:Agregado usuario {$login_chk} para " . $OAuth_servicio);
}
}
Salida:
Analisis del archivo y detalles del objeto
*/
if ($PCO_Accion == "analizar_importacion_informe") {
echo "<br>";
abrir_ventana($MULTILANG_FrmImportar . ' <b>' . $archivo_cargado . '</b>', 'panel-info');
if ($mensaje_error == "") {
$existen_conflictos_entre_ids = 0;
//Carga el archivo en una cadena
$cadena_xml_importado = file_get_contents($archivo_cargado);
// Usa SimpleXML Directamente para interpretar respuesta
$xml_importado = @simplexml_load_string($cadena_xml_importado);
//Presenta alerta cuando encuentra otro elemento con el mismo ID y se trata de una importacion estatica
if ($xml_importado->descripcion[0]->tipo_exportacion == "XML_IdEstatico") {
if (existe_valor($TablasCore . "informe", "id", base64_decode($xml_importado->core_informe[0]->id))) {
mensaje($MULTILANG_Atencion, $MULTILANG_FrmImportarAlerta, '', 'fa fa-fw fa-2x fa-warning', 'alert alert-dismissible alert-danger');
}
}
//Presenta contenido del archivo
echo "<b>{$MULTILANG_Detalles} {$MULTILANG_Archivo}</b>:<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_Version} (Practico)</u>: {$xml_importado->descripcion[0]->version_practico}<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_Tipo} {$MULTILANG_Archivo}</u>: ";
if ($xml_importado->descripcion[0]->tipo_exportacion == "XML_IdEstatico") {
echo $MULTILANG_FrmTipoCopiaDes2;
} else {
echo $MULTILANG_FrmTipoCopiaDes3;
}
echo "<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_Aplicacion}</u>: {$xml_importado->descripcion[0]->sistema_origen} {$xml_importado->descripcion[0]->version}<br>\r\n\t\t\t\t\t<li> <u>{$MULTILANG_GeneradoPor}</u>: {$xml_importado->descripcion[0]->usuario_generador} ({$xml_importado->descripcion[0]->fecha_exportacion} {$xml_importado->descripcion[0]->hora_exportacion})<hr>\r\n\t\t\t\t\t<b>{$MULTILANG_Detalles} {$MULTILANG_Objeto}</b>:<br>\r\n\t\t\t\t\t<li> {$MULTILANG_Tipo}: {$xml_importado->descripcion[0]->tipo_objeto}<br>\r\n\t\t\t\t\t<li> {$MULTILANG_Titulo}: " . base64_decode($xml_importado->core_informe[0]->titulo) . "<br>\r\n\t\t\t\t\t<li> ID: " . base64_decode($xml_importado->core_informe[0]->id) . "<br>\r\n <hr>";
//Recorre los core_informe_tablas
echo '<div class="btn btn-block btn-primary">' . $MULTILANG_InfTablasOrigen . '</div><ul class="list-group">';
for ($PCO_i = 0; $PCO_i < $xml_importado->total_core_informe_tablas[0]->cantidad_objetos; $PCO_i++) {
echo '<a class="list-group-item">