#!/usr/bin/perl
require "../../../librerias/rutinas.pl";
require "../../../librerias/base_datos.pl";
require "../../../librerias/seguridad.pl";
require "../../../librerias/utilerias.pl";
require "../../libIntranet/objetos.pl";
require "../../libIntranet/intranetTools.pl";
require "armazon.pl";

print "content-type:text/html \n\n";

#VALIDACION DE POST PARA SEGURIDAD Y PARSER DE INFORMACION DE LA FORMA ANTERIOR
&validaPost();
&ParseForma();

#RECUPERACION DE INFORMACION EN VARIABLES ESCALARES DEL ARREGLO VALORES RESULTADO DEL PARSER
$usuario=$valores{'usuario'};
$passwordEncriptado=$valores{'passwordEncriptado'};
$idInstitucion=$valores{'parametro'};

#CONSTANTE DEFINIDA PARA CADA INTRANET, SE DEFINE INTERNAMENTE, NO NECESITA ENVIARSE COMO PARAMETRO, SE DECLARA EN CADA ARCHIVO CGI
$intranet="comunicacion";

#--------------------------------------------------------------
#LECTURA DE PARAMETROS DE ARCHIVO DE CONFIGURACION
($numIntranet,$nombreIntranet,$rutacom,$rutacomcgi,$ruta,$rutacgi,$rutaimg)=&fileRead($intranet);
#---------------------------------------------------
$BaseDeDatos="programacion";
&crear_conexion_progaix();
#---------------------------------------------------
#VERIFICANDO USUARIO
($nombreReal,$nombreInstitucion,$privilegio,$baseDeDatos)=&validaUESius($usuario,$passwordEncriptado,$numIntranet,$idInstitucion);
#---------------------------------------------------	
&cerrar_conexion();
#---------------------------------------------------

#DETERMINAR VALORES INTERNOS DE CONSULTA


&encabezado($nombreReal,$nombreInstitucion,$nombreIntranet,"Comunicación: Archivo General - Forma de Busqueda");
#PARAMETROS MENU
&menu(2,0);
&defineButtonJs();
&tituloContenido("Instrucciones: Selecccione un documento a buscar");

#print "$valores{'idTipoDocto'}";
#print "$valores{'criterio_dos'}";
#print "$valores{'criterio_uno'}";

########################### ############################# -->
print <<pagina
<SCRIPT LANGUAGE=JavaScript>
function darBaja(fech,hor)
     {

     if (confirm ("El documento se eliminará de la Base de Datos, Desea Continuar? "))
       {   document.forma.action="$rutacgi/archivoEliminaIndividual.pl";
           document.forma.param.value=fech + ":" + hor;
           document.forma.submit();
        }
      }

</SCRIPT>


<center>
<table border=0 width="600">
<tr><td>
pagina
;
$fecha_inicio="$valores{'anio_i'}-$valores{'mes_i'}-$valores{'dia_i'}";
$fecha_final="$valores{'anio_f'}-$valores{'mes_f'}-$valores{'dia_f'}";
$orden_temp="";

# variable para el orden de pressentacion.
$orden_temp=$valores{'criterio_uno'};

if ($valores{'criterio_dos'} ne "0")
{$orden_temp= "$orden_temp, $valores{'criterio_dos'}";}
$orden_temp="idTipoDocto , fecha desc";

#############################Nueva Conexion a BAse de Datos
$manejador1DBC=&nueva_conexion($baseDeDatos);

$contador_anterior=$valores{'control_ligas'};
$contador_actual= $contador_anterior; # +1;
$contador_temp= $contador_anterior+10;

if ($valores{'idTipoDocto'}==0)
  { $Consulta="select t1.fecha, t1.hora, t1.titulo, t1.idTipoDocto, t1.sintesis, t2.etiqueta from noticias as t1, rubros as t2 where t1.fecha >='$fecha_inicio' and t1.fecha<='$fecha_final' and t1.idTipoDocto=t2.idRubro and t1.titulo<>'n' order by $orden_temp limit $contador_actual,11";
($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1DBC);

  $Consulta="select count(*) from noticias as t1 where t1.fecha>='$fecha_inicio' and t1.fecha<='$fecha_final' and t1.titulo<>'n'";
  ($elementos2,$rs2)=&ejecuta_SQL($Consulta,$manejador1DBC);
  }
else
  { $consulta="select t1.fecha, t1.hora, t1.titulo, t1.idTipoDocto, t1.sintesis, t2.etiqueta from noticias as t1, rubros as t2 where t1.fecha>='$fecha_inicio' and t1.fecha<='$fecha_final' and t1.idTipoDocto=$valores{'idTipoDocto'} and t1.idTipoDocto=t2.idRubro and t1.titulo<>'n' order by $orden_temp limit $contador_actual,11";
  ($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1DBC);

  $Consulta="select count(*) from noticias as t1 where t1.fecha>='$fecha_inicio' and t1.fecha<='$fecha_final' and t1.idTipoDocto=$valores{'idTipoDocto'} and t1.titulo<>'n'";
  ($elementos2,$rs2)=&ejecuta_SQL($Consulta,$manejador1DBC);

  }
 
 while ($apuntador=$rs2->fetchrow_hashref)
  {
   $total_encontrados=$apuntador->{'count(*)'};
  }

 if ($elementos2 == 0)
 { print "<BR><BR><BR>\n";
   print "<center><b>NO EXISTEN DOCUMENTOS DISPONIBLES</B></CENTER>\n";
   print "<BR><BR><BR>\n";
   print "</td></tr></table>\n";
   exit 0;
 }
while ($apuntador=$rs->fetchrow_hashref){
   $t_fecha = $apuntador->{'fecha'};
   $t_hora = $apuntador->{'hora'};
   $t_titulo = $apuntador->{'titulo'};
   $t_docto = $apuntador->{'idTipoDocto'};
   $t_sinte = $apuntador->{'sintesis'};
   $t_etique= $apuntador->{'etiqueta'};

    $clave_temp="$t_fecha $t_hora";
    $clave_temp=~ tr/ /_/;
################################################################################################
print <<pagina
<!-- FORM NAME=forma ACTION=# METHOD=POST>
<INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
<INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
<INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">
<INPUT TYPE=HIDDEN VALUE="" NAME=param>
</FORM -->
<br>&nbsp;<br>
<A HREF=# ONCLICK="darBaja('$t_fecha','$t_hora'); return false;" CLASS=LigaTextoAzulSin>$t_titulo</A>

<!-- A HREF=# ONCLICK="enviaForma('$clave_temp'); return false;" CLASS=LigaTextoAzulSin>$t_titulo</A -->
<BR><b>Tipo de Documento:</b> $t_etique
<BR><b>Fecha : </b> $t_fecha
<BR>$t_sinte

pagina
;
    #print "<p><b><A HREF=$rutacgi/archivoEliminaIndividual.pl?$clave_temp\">$t_titulo</A></B>\n";
    # print "<BR><b>Tipo de Documento:</b> $t_etique\n";
    # print "<BR><b>Fecha : </b> $t_fecha\n";
    # print "<BR>$t_sinte\n";
########################################################################
 }#while
print "</td>";
print "</tr></table>";
print "<BR>";
print "<BR>";
# $contador_actual--;
$contador_actual+=10;
$liga_ant_t= $contador_actual - 20;

$crit_uno=$valores{'criterio_uno'};
$crit_dos=$valores{'criterio_dos'};
$crit_uno=~ tr/ /+/;
$crit_dos=~ tr/ /+/;
$pagina_actual=$contador_actual/10;
$faltantes=$total_encontrados - $contador_actual;
print <<pagina
<SCRIPT LANGUAGE=JavaScript>
function enviaForma(valor)
  {
   document.flechas.pagina.value=valor;
   document.flechas.submit();
  }
</SCRIPT>

<FORM NAME=flechas ACTION=$rutacgi/archivoMuestraHistorico.pl METHOD=POST>
 <INPUT TYPE=HIDDEN VALUE=$usuario NAME=usuario>
 <INPUT TYPE=HIDDEN VALUE=$password NAME=password>
 <INPUT TYPE=HIDDEN VALUE=0 NAME=pagina>
 <INPUT TYPE=HIDDEN VALUE=$cadena NAME=direccion>
</FORM>
pagina
;

if ($faltantes < 0){$faltantes=0;}
print "<HR width=\"100%\">";
print "<table border=0 width=\"550\">\n";
print "<tr><td>\n";
print "<table border=0>\n";
print "<tr><td><font size=-1>P&aacute;gina :</font></td><td><font size=-1><b>$pagina_actual</b></font></td></tr>\n";
print "<tr><td><font size=-1>Encontrados :</font></td><td><font size=-1><b>$total_encontrados</b></font></td></tr>\n";
print "<tr><td><font size=-1>Por mostrar :</font></td><td><font size=-1><b>$faltantes</b></font></td></tr>\n";
print "</table>\n";
print "</td>\n";
print "<td>\n";

if($contador_anterior != 0)
 {print "<a href=$rutacgi/archivoMuestraHistorico.pl?idTipoDocto=$valores{'idTipoDocto'}&dia_i=$valores{'dia_i'}&mes_i=$valores{'mes_i'}&anio_i=$valores{'anio_i'}";
  print "&dia_f=$valores{'dia_f'}&mes_f=$valores{'mes_f'}&anio_f=$valores{'anio_f'}&criterio_uno=$crit_uno&criterio_dos=$crit_dos&control_ligas=$liga_ant_t\"><img src=\"http://www.sicomnet.edu.mx/Sicom/noticias/imagenes/flechizqnar_on.gif\" border=0></A>";
 }
else
{print "<img src=\"http://www.sicomnet.edu.mx/Sicom/noticias/imagenes/flechizqnar_off.gif\">";
}

print "&nbsp;&nbsp;&nbsp;&nbsp;";

$resta=$encontrados - 10;

print "&nbsp;&nbsp;";

if($resta>0)
 {print "<a href=$rutacgi/archivoMuestraHistorico.pl?idTipoDocto=$valores{'idTipoDocto'}&dia_i=$valores{'dia_i'}&mes_i=$valores{'mes_i'}&anio_i=$valores{'anio_i'}";
  print "&dia_f=$valores{'dia_f'}&mes_f=$valores{'mes_f'}&anio_f=$valores{'anio_f'}&criterio_uno=$crit_uno&criterio_dos=$crit_dos&control_ligas=$contador_actual\"><img src=\"http://www.sicomnet.edu.mx/Sicom/noticias/imagenes/flechdernar_on.gif\" border=0></A>";
}
else
{print "<img src=\"http://www.sicomnet.edu.mx/Sicom/noticias/imagenes/flechdernar_off.gif\">";
}

print "</td>\n";

print "<td><font size=-1>Fecha inicio : <B>$fecha_inicio</b></font>\n";
print "<BR><font size=-1>Fecha final : &nbsp;<b>$fecha_final</b></font>\n";
print "<BR><font size=-1>Orden : <b>$orden_temp</b></font>\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";

print "<HR width=\"100%\">";
print "</center>";
print "<BR>&nbsp;";

print <<pagina
<FORM NAME=forma ACTION=# METHOD=POST>
<INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
<INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
<INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">
<INPUT TYPE=HIDDEN VALUE="" NAME=param>
</FORM>

<!-- ##################################################################################################### -->
<!-- #####################################################################################################  -->
pagina
;
&cierrePagina;