#!/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 - Forma de Busqueda");
#PARAMETROS MENU
&menu(3,0);
&defineButtonJs();
&tituloContenido("Instrucciones: Selecccione un documento a buscar");

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 fecha_valida(dia,mes,anio) 
{  dias =new Array ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

   if (((anio % 4==0) && (anio % 100!=0)) || (anio % 400==0))
       dias[1] = 29;

    if (dia > dias[mes-1] )
    {
    return 0;
    }
    else {
    return 1;  
    }
}

function fecha_mayor(forma)
{ fecha1= forma.anio_i[forma.anio_i.selectedIndex].value + forma.mes_i[forma.mes_i.selectedIndex].value + 
forma.dia_i[forma.dia_i.selectedIndex].value;
  fecha2= forma.anio_f[forma.anio_f.selectedIndex].value + forma.mes_f[forma.mes_f.selectedIndex].value + 
forma.dia_f[forma.dia_f.selectedIndex].value;
  if (fecha2 < fecha1)
  {return 0}
  else {return 1}
}

function enviar_datos(forma)
{ if((fecha_valida(forma.dia_i[forma.dia_i.selectedIndex].value, forma.mes_i[forma.mes_i.selectedIndex].value, 
forma.anio_i[forma.anio_i.selectedIndex].value))==0)
  {alert("Fecha Inválida");
   forma.dia_i.focus();
  }
  else 
   if((fecha_valida(forma.dia_f[forma.dia_f.selectedIndex].value, forma.mes_f[forma.mes_f.selectedIndex].value, 
forma.anio_f[forma.anio_f.selectedIndex].value))==0)
     { alert ("Fecha Inválida");
       forma.dia_f.focus();    
     }   
   else
    if (fecha_mayor(forma) == 0)
   { alert ("La fecha Límite no debe ser menor que la fecha de inicio"); 
     forma.dia_i.focus();
   }
   else
    if ((forma.criterio_uno[forma.criterio_uno.selectedIndex].value == 'tipo_docto') &&  
(forma.criterio_dos[forma.criterio_dos.selectedIndex].value == 'tipo_docto'))
    { alert ("Error: Segúndo criterio no puede ser tipo de documento");
      forma.criterio_dos.focus();
    }
    else
    if ((forma.criterio_uno.selectedIndex == 1) &&  ((forma.criterio_dos[forma.criterio_dos.selectedIndex].value == 'fecha asc') || 
(forma.criterio_dos[forma.criterio_dos.selectedIndex].value == 'fecha desc')))
    { alert ("Error: El segúndo criterio no puede ser ordenado por fecha");
      forma.criterio_dos.focus();
    }
    else
    if ((forma.criterio_uno.selectedIndex == 2) &&  ((forma.criterio_dos[forma.criterio_dos.selectedIndex].value == 'fecha asc') || 
(forma.criterio_dos[forma.criterio_dos.selectedIndex].value == 'fecha desc')))
    { alert ("Error: El segúndo criterio no puede ser ordenado por fecha");
      forma.criterio_dos.focus();
    }

   else
    {forma.submit();
    } 
}

</SCRIPT>
<br>&nbsp;&nbsp;
<FORM  NAME="formita" METHOD="post"  ACTION=$rutacgi/archivoModificaMuestra.pl>
<table border=0 cols=2 width=668>
<tr>
<!-- ##################################################################################################### -->
<td>
<B>Seleccione el tipo de documento para realizar la b&uacute;squeda.</B>
<BR><b>Documento:</b> <select option name="idTipoDocto" CLASS=CajaGrove SINGLE>   
<option value="0" selected>TODOS LOS DOCUMENTOS
pagina
;
#QUERY OBTIENE ETIQUETAS DE LA BASE DE DATOS EN ORDEN POR PRIORIDAD
$manejador1=&nueva_conexion($baseDeDatos);
$Consulta="select * from rubros";
($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1);
$count=1;
$campo='etiqueta';
while ($apuntador=$rs->fetchrow_hashref){
  if ($count == 1){
     print "<option value=$count >$apuntador->{$campo}\n";
     }#END IF
   else{
     print "<option value=$count> $apuntador->{$campo}\n";
     }#END ELSE
   $count++;
  }
$rs->finish;
$manejador1->disconnect;
print <<pagina
 </SELECT>
<BR>&nbsp;

pagina
;

($dia,$mes,$anio)=&dar_fecha;
@nom_meses=("_","Ene.","Feb.","Mar.","Abr.","May.","Jun.","Jul.","Ago.","Sep.","Oct.","Nov.","Dic.");
print "<p><b>Proporcione fecha inicio y fin  para buscar los documentos</b>\n";
print "<BR><b>Fecha Inicio :</b> &nbsp;<select option name=\"dia_i\"><b>/</b>\n";

for ($i=1; $i<=31; $i++)
{ if ($i<10)
  { print "<option value=\"0$i\"";
    if ($dia == $i){print "selected"}
  }
  else {print "<option value=\"$i\"";
    if ($dia == $i){print "selected"}
   }
  if ($i<10){print ">0$i"}
  else {print ">$i"}
}# fin de for
print "</select>\n";
print "/ ";
#************************** select mes ****************************

print "<select option name=\"mes_i\">";
for ($i=1; $i<=12; $i++)
{ if ($i<10)
  { print "<option value=\"0$i\"";
    if ($mes == $i){print "selected"}
  }
  else {print "<option value=\"$i\"";
    if ($mes == $i){print "selected"}
   }
  if ($i<10){print ">$nom_meses[$i]"}
  else {print ">$nom_meses[$i]"}
}# fin de for
print "</select>\n";
print "/ ";
#************************** select anio ****************************

print "<select option name=\"anio_i\">";
for ($i=1999; $i<=2005; $i++)
{ 
   print "<option value=\"$i\"";
    if ($anio == $i){print "selected"}
  
   print ">$i"
}# fin de for
print "</select>\n";

#*******************************************************************
#**********************SEGUNDA FECHA DE SELECCION
#*******************************************************************


print "<P><b>Fecha Limite:</b> &nbsp;<select option name=\"dia_f\"><b>/</b>\n";

for ($i=1; $i<=31; $i++)
{ if ($i<10)
  { print "<option value=\"0$i\"";
    if ($dia == $i){print "selected"}
  }
  else {print "<option value=\"$i\"";
    if ($dia == $i){print "selected"}
   }
  if ($i<10){print ">0$i"}
  else {print ">$i"}
}# fin de for
print "</select>\n";
print "/ ";
#************************** select mes ****************************

print "<select option name=\"mes_f\">";
for ($i=1; $i<=12; $i++)
{ if ($i<10)
  { print "<option value=\"0$i\"";
    if ($mes == $i){print "selected"}
  }
  else {print "<option value=\"$i\"";
    if ($mes == $i){print "selected"}
   }
  if ($i<10){print ">$nom_meses[$i]"}
  else {print ">$nom_meses[$i]"}
}# fin de for
print "</select>\n";
print "/ ";
#************************** select anio ****************************

print "<select option name=\"anio_f\">";
for ($i=1999; $i<=2005; $i++)
{ 
   print "<option value=\"$i\"";
    if ($anio == $i){print "selected"}
  
   print ">$i"
}# fin de for
print "</select>\n";
print <<pagina
<BR>&nbsp;
<BR>&nbsp;
<BR><b>Seleccione el orden en que se presentar&aacute;n los documentos.</b>
pagina
;
print "<table border=0 cols=2>\n";
print "<tr><td>\n";
print "<b>Primer criterio.</b></td><td><b>Segundo criterio.</b></td></tr>\n";
print "<tr><td>\n";
print "<select name=\"criterio_uno\">\n";
print "<option value=\"idTipoDocto\" selected>Tipo de documento\n";
print "<option value=\"fecha asc\">Fecha ascendente\n";
print "<option value=\"fecha desc\">Fecha descendente\n";
print "</select></td>\n";

print "<td>\n";
print "<select name=\"criterio_dos\">\n";
print "<option value=\"0\" selected>Ninguno\n";
print "<option value=\"idTipoDocto\">Tipo de documento\n";
print "<option value=\"fecha asc\">Fecha ascendente\n";
print "<option value=\"fecha desc\">Fecha descendente\n";
print "</select></td></tr>\n";

print <<pagina
<tr><td>&nbsp;</td></tr>
<tr><td>&nbsp;</td><td align=center>
<input type=hidden name=control_ligas value=0>
<INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
<INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
<INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">

<input type="button" value="Buscar Documentos" class=BotonBlanco onClick="enviar_datos(formita)">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr></table>

</td>
</tr>
</table>
</FORM>

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