#!/usr/bin/perl
printf "Content-type:text/html\n\n"; 
printf "<HTML>\n"; 
printf "<HEAD><TITLE>Consulta de Gestiones</TITLE>
</HEAD>\n"; 
printf "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">
 ";

 printf "<script language=\"JavaScript\">
<!--- hide script from old browsers
function populate(objForm,selectIndex,BDY,BDM,BDD) {
  timeA = new Date(objForm.BDY.options[objForm.BDY.selectedIndex].text, objForm.BDM.options[objForm.BDM.selectedIndex].value,1);
  timeDifference = timeA - 86400000;
  timeB = new Date(timeDifference);
  var daysInMonth = timeB.getDate();
  for (var i = 0; i < objForm.BDD.length; i++) {
    objForm.BDD.options[0] = null;
  }
  for (var i = 0; i < daysInMonth; i++) {
    if(i==0 || i==1 || i==2 || i==3 || i==4 || i==5 || i==6 || i==7 || i==8){ objForm.BDD.options[i] = new Option(\"0\"+(i+1));}
	else{ objForm.BDD.options[i] = new Option(i+1);}
  }
  document.f1.BDD.options[0].selected = true;
}

function populateL(objForm,selectIndex,LDY,LDM,LDD) {
  timeA = new Date(objForm.LDY.options[objForm.LDY.selectedIndex].text, objForm.LDM.options[objForm.LDM.selectedIndex].value,1);
  timeDifference = timeA - 86400000;
  timeB = new Date(timeDifference);
  var daysInMonth = timeB.getDate();
  for (var i = 0; i < objForm.LDD.length; i++) {
    objForm.LDD.options[0] = null;
  }
  for (var i = 0; i < daysInMonth; i++) {
    if(i==0 || i==1 || i==2 || i==3 || i==4 || i==5 || i==6 || i==7 || i==8){objForm.LDD.options[i] = new Option(\"0\"+(i+1));}
	else{objForm.LDD.options[i] = new Option(i+1);}
  }
  document.f1.LDD.options[0].selected = true;
}

function getYears() {
  var years = new Array(1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,
						1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,
						2000,2001,2002,2003,2004,2005,2006,2007,2008,2009)

  for (var i = 0; i < document.f1.BDY.length; i++) {
    document.f1.BDY.options[0] = null;
  }
  timeC = new Date();
  currYear = timeC.getFullYear();
  for (var i = 0; i < BDY.length; i++) {
    document.f1.BDY.options[i] = new Option(years[i]);
  }
  document.f1.BDY.options[2].selected=true;
}

window.onLoad = getYears;
// end hiding from old browsers -->
</script>";
 printf "

<FORM METHOD=\"post\" ACTION=\"/cgi-bin/cgi-adm/consfa1.cgi\">
<table align=\"center\">
	    <tr>
            <td  bgcolor=\"#006699\"><p align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#ffffff\"><b>Fecha Inicial:
            </font></p>
            </td>
            <td bgcolor=\"#EFEFEF\"><p align=\"center\"><select
            name=\"BDY\" size=\"1\"
            onchange=\"populate(this.form,this.form.BDM.selectedIndex,BDY,BDM,BDD);\">
                <option selected value=2000>2000</option>
                <option value=2001>2001</option>
				<option value=2002>2002</option>
                <option value=2003>2003</option>
                <option value=2004>2004</option>
                <option value=2005>2005</option>
                <option value=2006>2006</option>
                <option value=2007>2007</option>
                <option value=2008>2008</option>
                <option value=2009>2009</option>
            </select>
			</td>  <td bgcolor=\"#EFEFEF\"><p align=\"center\">
			<select name=\"BDM\" size=\"1\"
            onchange=\"populate(this.form,this.selectedIndex,BDY,BDM,BDD);\">
                <option selected value=\"01\">Enero</option>
                <option value=\"02\">Febrero</option>
                <option value=\"03\">Marzo</option>
                <option value=\"04\">Abril</option>
                <option value=\"05\">Mayo</option>
                <option value=\"06\">Junio</option>
                <option value=\"07\">Julio</option>
                <option value=\"08\">Agosto</option>
                <option value=\"09\">Septiembre</option>
                <option value=\"10\">Octubre</option>
                <option value=\"11\">Noviembre</option>
                <option value=\"12\">Diciembre</option>
            </select> 
						</td>  <td bgcolor=\"#EFEFEF\"><p align=\"center\">
			<select name=\"BDD\" size=\"1\">
                <option selected value=\"01\">01</option>
                <option></option>
                <option></option>
                <option></option>
                <option></option>
                <option></option>
                <option></option>
            </select></p>
            </td>
        </tr>
        <tr>
            <td  bgcolor=\"#006699\"><p align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\" color=\"#ffffff\"><b>Fecha Final:</font></p>
            </td>
            <td bgcolor=\"#EFEFEF\"><p align=\"center\"><select
            name=\"LDY\" size=\"1\"
            onchange=\"populateL(this.form,this.form.LDM.selectedIndex,LDY,LDM,LDD);\">
                <option selected value=\"00\">2000</option>
                <option value=\"01\">2001</option>
                <option value=\"02\">2002</option>
                <option value=\"03\">2003</option>
                <option value=\"04\">2004</option>
                <option value=\"05\">2005</option>
                <option value=\"06\">2006</option>
                <option value=\"07\">2007</option>
                <option value=\"08\">2008</option>
                <option value=\"09\">2009</option>
            </select>
			</td>  <td bgcolor=\"#EFEFEF\"><p align=\"center\">
			<select name=\"LDM\" size=\"1\"
            onchange=\"populateL(this.form,this.selectedIndex,LDY,LDM,LDD);\">
                <option selected value=\"01\">Enero</option>
                <option value=\"02\">Febrero</option>
                <option value=\"03\">Marzo</option>
                <option value=\"04\">Abril</option>
                <option value=\"05\">Mayo</option>
                <option value=\"06\">Junio</option>
                <option value=\"07\">Julio</option>
                <option value=\"08\">Agosto</option>
                <option value=\"09\">Septiembre</option>
                <option value=\"10\">Octubre</option>
                <option value=\"11\">Noviembre</option>
                <option value=\"12\">Diciembre</option>
            </select>
						</td>  <td bgcolor=\"#EFEFEF\"><p align=\"center\">
			<select name=\"LDD\" size=\"1\">
                <option selected value=\"01\">01</option>
                <option></option>
                <option></option>
                <option></option>
                <option></option>
                <option></option>
                <option></option>
            </select></p>
            </td>
        </tr></table><br>
		<table  align=\"center\">
<tr>        <td align=\"center\" ><font
color=\"#000080\"              size=\"2\" face=\"Verdana\"><p
align=\"center\"><input type=\"SUBMIT\"              name=\"Enter\"
value=\"Consultar\" ></font></td><td><font
size=\"2\"              face=\"Verdana\"><input type=\"reset\" name=\"Borrar\"
             value=\"Restablecer bsqueda\"></font></td> 
    </table>
    </center></div>
</form>
</body>
</html>";


_END_ 
