#!/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)=&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: Modifica Documento - Escoje Archivo");
#PARAMETROS MENU
&menu(3,0);
&defineButtonJs();
&tituloContenido("Instrucciones: ");

print <<pagina
<SCRIPT LANGUAJE=JavaScript>
function envia(tarea)
  {
   alert("QPM: " + tarea );

   if (tarea == 1)
     {document.informacion.action="$rutacgi/informacionAltaFrm.pl";
      //alert ("entro");
      //document.informacion.submit()
     }
   if (tarea == 2 )
     {document.informacion.action="http://$rutacgi/fotograficoBajaIndex.pl";
     }
   if (tarea == 3)
     {document.informacion.action="http://$rutacgi/fotograficoModificaIndex.pl";
     }
   if (tarea == 4)
     {document.informacion.action="http://$rutacgi/fotograficVisualizaIndex.pl";
     }

   //document.informacion.submit();
  }


function darBaja()
     {

     if (confirm ("Se Modificara El documento, Desea Continuar? "))
       {   //document.forma.action="$rutacgi/archivoModificaDocto.pl";
           //document.forma.param.value=fech + ":" + hor;
           document.forma.submit();
        }
      }

</SCRIPT>
<br>&nbsp;&nbsp;

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";

#QUERY OBTIENE ETIQUETAS DE LA BASE DE DATOS EN ORDEN POR PRIORIDAD
$manejador1=&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,$manejador1);

  $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,$manejador1);

  }
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,$manejador1);

  $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,$manejador1);

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


if ($elementos == 0)
{ print "<br><br><br><CENTER><B>NO SE ENCONTRARON DOCUMENTOS PARA LOS CRITERIOS SELECCIONADOS</B></CENTER>\n";
 print "<BR><BR><BR>&nbsp;";
 print "<center>\n";

 print "</center>\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
<br><br>
<a href=# onClick="darBaja();" 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/archivoModificaDocto.pl?$clave_temp\" STYLE=Text-decoration:none;Color=229021>$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+=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;

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 <<pagina
<SCRIPT LANGUAGE=JavaScript>
function enviaForma()
  {
   //document.flechas.action="$rutacgi/archivoMuestraHistorico.pl";
   //document.flechas.pagina.value=valor;
   document.flechas.submit();
  }
</SCRIPT>

<FORM NAME=flechas ACTION=$rutacgi/archivoModificaMuestra.pl METHOD=POST>
<INPUT TYPE=HIDDEN VALUE=$valores{'idTipoDocto'} NAME=idTipoDocto>
<INPUT TYPE=HIDDEN VALUE=$valores{'dia_i'} NAME=dia_i>
<INPUT TYPE=HIDDEN VALUE=$valores{'mes_i'} NAME=mes_i>
<INPUT TYPE=HIDDEN VALUE=$valores{'anio_i'} NAME=anio_i>
<INPUT TYPE=HIDDEN VALUE=$valores{'dia_f'} NAME=dia_f>
<INPUT TYPE=HIDDEN VALUE=$valores{'mes_f'} NAME=mes_f>
<INPUT TYPE=HIDDEN VALUE=$valores{'anio_f'} NAME=anio_f>
<INPUT TYPE=HIDDEN VALUE=$crit_uno NAME=criterio_uno>
<INPUT TYPE=HIDDEN VALUE=$crit_dos NAME=criterio_dos>
<INPUT TYPE=HIDDEN VALUE=$liga_ant_t NAME=control_ligas>
<INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
<INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
<INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">
</FORM>
<a href=# onClick="enviaForma();"><img src="http://wdb.sicomnet.edu.mx/Sicom/noticias/imagenes/flechizqnar_on.gif" border=0></a>
pagina
;
#print "<a href=\"$rutacgi/archivoModificaMuestra.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=\"$ruta/imagenes/flechizqver_on.gif\" border=0></A>" ;
 }
else
{print "<img src=\"http://wdb.sicomnet.edu.mx/Sicom/noticias/imagenes/flechizqnar_off.gif\">";
}

print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
$resta=$elementos - 10;
print "&nbsp;&nbsp;";

if($resta>0)
 {
#print "<a href=\"$rutacgi/archivoModificaMuestra.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=\"$ruta/imagenes/flechderver_on.gif\" border=0> </A>";
print <<pagina
<SCRIPT LANGUAGE=JavaScript>
function enviaForma2()
  {
   //document.flechas.action="$rutacgi/archivoMuestraHistorico.pl";
   //document.flechas.pagina.value=valor;
   document.flechas2.submit();
  }
</SCRIPT>

<FORM NAME=flechas2 ACTION=$rutacgi/archivoModificaMuestra.pl METHOD=POST>
<INPUT TYPE=HIDDEN VALUE=$valores{'idTipoDocto'} NAME=idTipoDocto>
<INPUT TYPE=HIDDEN VALUE=$valores{'dia_i'} NAME=dia_i>
<INPUT TYPE=HIDDEN VALUE=$valores{'mes_i'} NAME=mes_i>
<INPUT TYPE=HIDDEN VALUE=$valores{'anio_i'} NAME=anio_i>
<INPUT TYPE=HIDDEN VALUE=$valores{'dia_f'} NAME=dia_f>
<INPUT TYPE=HIDDEN VALUE=$valores{'mes_f'} NAME=mes_f>
<INPUT TYPE=HIDDEN VALUE=$valores{'anio_f'} NAME=anio_f>
<INPUT TYPE=HIDDEN VALUE=$crit_uno NAME=criterio_uno>
<INPUT TYPE=HIDDEN VALUE=$crit_dos NAME=criterio_dos>
<INPUT TYPE=HIDDEN VALUE=$contador_actual NAME=control_ligas>
<INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
<INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
<INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">
</FORM>
<a href=# onClick="enviaForma2();"><img src="http://wdb.sicomnet.edu.mx/Sicom/noticias/imagenes/flechdernar_on.gif" border=0></a>
pagina
;
}
else
{print "<img src=\"http://wdb.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=$rutacgi/archivoModificaDocto.pl METHOD=POST>
<INPUT TYPE=HIDDEN NAME=fechat VALUE=$t_fecha>
<INPUT TYPE=HIDDEN NAME=horat VALUE=$t_hora>
<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
;
#$rs->finish;
#$manejador1->disconnect;

&cierrePagina;