/***************************************************************************
Objetivo		:Definição de funções diversas.
Entrada			:nao possui
Data de Criação		:27-08-2004
Autor	 		:Legado Bovespa

Data de Alteração 	:07-08/03/2006	
Alterado por 		:Adilson Cruz
Motivo da Alteração	:Padronização do código fonte deste script, conforme
			 Manual do Desenvolvedor.

Data de Alteração 	:
Alterado por 		:
Motivo da Alteração	:
***************************************************************************/
   var gblnHM_DOM = (document.getElementById) ? true : false; 				// Variável Global Booleana
   var gblnHM_NS4 = (document.layers) ? true : false;	     				// Variável Global Booleana
   var gblnHM_IE  = (document.all) ? true : false;	     				// Variável Global Booleana
   var gblnHM_IE4 = gblnHM_IE && !gblnHM_DOM;		     				// Variável Global Booleana
   var gblnHM_Mac = (navigator.appVersion.indexOf("Mac") != -1); 			// Variável Global Booleana
   var gblnHM_IE4M = gblnHM_IE4 && gblnHM_Mac;						// Variável Global Booleana
   var gblnHM_IsMenu = (gblnHM_DOM || gblnHM_NS4 || (gblnHM_IE && !gblnHM_IE4M));	// Variável Global Booleana

   if(!gblnHM_IsMenu) event = null;

var gdblzz = 0; 			 						// variável Global Double
var gdblzv = 0;			 							// Variável Global Double	
var gdtmd =  0;			 							// Variável Global Data	
var gintfTSR = 0; 		 							// Variável Global Inteira
var gblngBF=false; 		 							// Variável Global Booleana
var gint_MINY = 1601;		 							// Variável Global Inteira
var gint_MAXY = 4500;		 							// Variável Global Inteira	
var gint_month = 0;		 							// Variável Global Inteira p/ receber o Mês	
var gint_day = 0;		 							// Variável Global Inteira p/ receber o Dia	
var gint_year = 0;		 							// Variável Global Inteira p/ receber o Ano
var gint_yLow = 1990;		 							// Variável Global Inteira
var gstr_eC=null;                							// Variável Global String 
var gstr_eCV="";		 							// Variável Global String  


var garrrgMC = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); 			// Array Global p/ definir o total de dias dos meses
gdtmd = new Date();
gintfTSR=0;
gdblzv = gdtmd.getTime();
gdblzz = "&gdblzz="+gdblzv;


var garrDiasPorMes=[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]; 			// Array Global p/ definir o total de dias dos meses
gblnns4 = (document.layers)? true:false							// Variável Global Booleana	
gblnie4 = (document.all)? true:false							// Variável Global Booleana	
gblnie5 = (gblnie4 && navigator.userAgent.indexOf('MSIE 5')>0);				// Variável Global Booleana	

var gintx = 0;										// Variável Global Inteira
var ginty = 0;										// Variável Global Inteira
var ginttrk = 0;									// Variável Global Inteira
var gintoffsetx=-70;									// Variável Global Inteira
var gintoffsety=5;									// Variável Global Inteira
var gstrdiaSeleccionado= ""+gstrdiaSeleccionado;					// Variável Global String p/ o dia selecionado	
var gstrxCalendario="0";								// Variável Global String
var gstryCalendario="0";								// Variável Global String

//***************************************************************************
//Objetivo :Gravar o texto do documento.
//Entrada  :txt.
//Retorno  :não tem.
//Premissas:não tem. 
//Data	   :27-08-2004.
//Autor	   :Legado Bovespa.
//***************************************************************************

function callayerWrite(txt) {
        if (gblnns4) {
                var objlyr = document.ptsDiv.document 					// Variável Auxiliar Objeto Documento
                objlyr.write(txt)
                objlyr.close()
        }
        else if (gblnie4) document.all["calendario"].innerHTML = txt
}

//***************************************************************************
//Objetivo :Exibir Nulo.
//Entrada  :não possui
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************

function vacio()
{
}

stresletra        = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.-ÑñáéíóúüÁÉÍÓÚÜ&"; // Variável String p/ definir caracteres alfabéticos
stresnumero       = "0123456789";									// Variável String p/ definir caracteres numéricos

//***************************************************************************
//Objetivo :Checar se o parâmetro strcadena é numérico.
//Entrada  :strcadena e intlg
//Retorno  :0/1
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function es_numero(strcadena,intlg)
{
	if (intlg != strcadena.length)  {return 1;}
	   for (inti=0;inti<strcadena.length;inti++)
	   if (stresnumero.indexOf(strcadena.charAt(inti))==-1){return 1;}
	   return 0;
}

//***************************************************************************
//Objetivo :Checar se o parâmetro strcadena é letra.
//Entrada  :strcadena
//Retorno  :0/1
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function es_letra (strcadena)
{
	intlg = strcadena.length;								// Variável Auxiliar Inteira c/ o tamanho de strcadena
	if (intlg == 0) {return 1};
	for (inti=0;inti<strcadena.length;inti++)
	if (stresletra.indexOf(strcadena.charAt(inti))==-1){return 1;}
	return 0;
}

//***************************************************************************
//Objetivo	:Inicializar objetos do formulário.
//Entrada	:não possui
//Retorno       :não possui
//Premissas     :não tem. 
//Data		:27-08-2004
//Autor		:Legado Bovespa
//***************************************************************************
function initForm()
{
	if (navigator.userAgent.indexOf('Gecko') != -1)
	{
		document.AIR.D_Day_sel.selectedIndex = 0;
		document.AIR.R_Day_sel.selectedIndex = 0;
		document.AIR.D_Month_sel.selectedIndex = 0;
		document.AIR.R_Month_sel.selectedIndex = 0;
	}
}

//***************************************************************************
//Objetivo :Retornar datas inicial e final.
//Entrada  :strvalor
//Retorno  :dtmnew_fechaI/dtmnew_fechaV
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function valorFecha(strvalor)
{
	var strmonthYear_I = document.AIR.D_Month_sel.options[document.AIR.D_Month_sel.selectedIndex].value;	// Variável Auxiliar String
	var strmonthYear_V = document.AIR.R_Month_sel.options[document.AIR.R_Month_sel.selectedIndex].value;	// Variável Auxiliar String

	var strmonth_I = strmonthYear_I.substring(4,6);								// Variável Auxiliar String p/ definir o Mês Inicial
	var strmonth_V = strmonthYear_V.substring(4,6);								// Variável Auxiliar String p/ definir o Mês Final

	var stryear_I = strmonthYear_I.substring(2,4);								// Variável Auxiliar String p/ definir o Ano Inicial
	var stryear_V = strmonthYear_V.substring(2,4);								// Variável Auxiliar String p/ definir o Ano Final	

	var dtmnew_fechaI = document.AIR.D_Day_sel.options[document.AIR.D_Day_sel.selectedIndex].value + "/" + strmonth_I + "/" + stryear_I;	// Variável p/ definir a Data Inicial
	var dtmnew_fechaV = document.AIR.R_Day_sel.options[document.AIR.R_Day_sel.selectedIndex].value + "/" + strmonth_V + "/" + stryear_V;	// Variável p/ definir a Data Final

	if (strvalor=='I')
	{
		return dtmnew_fechaI;
	} 
	else
	{
		return dtmnew_fechaV;
  	}
}

//***************************************************************************
//Objetivo	:Abrir a janela.
//Entrada 	:strdireccion, strname e strcadena
//Retorno 	:não possui
//Premissas     :não tem. 
//Data	  	:27-08-2004
//Autor		:Legado Bovespa
//***************************************************************************
function openwindow(strdireccion, strname, strcadena)  
{  
	var objwinf = window.open(strdireccion,strname,strcadena);  				// Variável Auxiliar Objeto p/ abertura de uma janela
	objwinf.focus();  
} 

//***************************************************************************
//Objetivo :Abrir uma janela.
//Entrada  :strvarHttp, intlenX, intlenY e intbScroll
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function abrirventana(strvarHttp, intlenX, intlenY, intbScroll)
{
	var objwinf = open(strvarHttp, null, "width=" + intlenX + ",height=" + intlenY + ",status=no,menubar=no,scrollbars=" + intbScroll + ",resizable=no"); // Variável Auxiliar Objeto p/ abertura de uma janela
	objwinf.focus();  
}

//***************************************************************************
//Objetivo :Abrir uma janela Auxiliar.
//Entrada  :intn e strpage
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function GoToAuxWin(intn, strpage)
{
	intnumero = intn;									// Variável Auxiliar Inteira p/ guardar um número
	strpage = "/pl/" + strpage;
	objlistin = open(strpage, "", "toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=320,height=300");
	if(navigator.appName == "Netscape")
	objlistin.focus();
}

//***************************************************************************
//Objetivo :Exibir o calendário.
//Entrada  :strtipo, strpais_an, strx e stry
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function Calendario(strtipo,strpais_an,strx ,stry)
{
         if (strx!=null)
         {
           gstrxCalendario=strx;
           gstryCalendario=stry;
         }else
         {
           gstrxCalendario="";
           gstryCalendario="";

         }
	strtipoFecha=strtipo;									// Variável Auxiliar String p/ guardar o parâmetro Tipo
	strpais=strpais_an;									// Variável Auxiliar String p/ guardar o parâmetro País

	if (calendario.style.visibility=="visible")
	{
     	   cerrarCalendario();
  	   return;
	}
	abrirCalendario(strtipo);
}

//***************************************************************************
//Objetivo :Exibir o objeto.
//Entrada  :obj
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function showObject(obj)
{
	if (gblnns4) obj.visibility = "show"
	else if (gblnie4) obj.visibility = "visible"
}

//***************************************************************************
//Objetivo :Inibir/esconder o objeto.
//Entrada  :obj
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function hideObject(obj) 
{
	if (gblnns4) obj.visibility = "hide"
	else if (gblnie4) obj.visibility = "hidden"
}

//***************************************************************************
//Objetivo :Abrir o calendário.
//Entrada  :strtipoFecha
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function abrirCalendario(strtipoFecha)
{
	var strtext_cal=""; 									// Variável Auxiliar String p/ montagem do código HTML do Calendário
	dtmfecha_real =new Date();								// Variável Auxiliar Data p/ guardar a Data Atual
	intanio_real = dtmfecha_real.getFullYear();						// Variável Auxiliar Inteira p/ guardar o Ano Atual
	intmes_real = dtmfecha_real.getMonth();							// Variável Auxiliar Inteira p/ guardar o Mês Atual	
	intdia_real = dtmfecha_real.getDate();							// Variável Auxiliar Inteira p/ guardar o Dia Atual	

	  if (strtipoFecha=='I')
	  {
        	 strfechaInputSeleccionada=document.AIR.fechaI.value.substring(document.AIR.fechaI.value.indexOf("/"),document.AIR.fechaI.value.length); // Variável Auxiliar STring p/ montar /MM/YYYY da Data Inicial
	         intdiaYaSeleccionado=1*document.AIR.fechaI.value.substring(0,document.AIR.fechaI.value.indexOf('/')); 					 // Variável Auxiliar Inteira p/ guardar o dia da Data Inicial
  	  }
	  else if(strtipoFecha=='V')
  	  {
	         strfechaInputSeleccionada=document.AIR.fechaV.value.substring(document.AIR.fechaV.value.indexOf("/"),document.AIR.fechaV.value.length); // Variável Auxiliar STring p/ montar /MM/YYYY da Data Final
        	 intdiaYaSeleccionado=1*document.AIR.fechaV.value.substring(0,document.AIR.fechaV.value.indexOf('/'));					 // Variável Auxiliar Inteira p/ guardar o dia da Data Final
          }
	  else   if (strtipoFecha=='CI')
		 {
		    strfechaInputSeleccionada=document.AIR.fechaI.value.substring(document.FormRicerca.calendarioI.value.indexOf("/"),document.FormRicerca.calendarioI.value.length); // Variável Auxiliar STring p/ montar /MM/YYYY da Data Inicial
	            intdiaYaSeleccionado=1*document.FormRicerca.calendarioI.value.substring(0,document.FormRicerca.calendarioI.value.indexOf('/'));				      // Variável Auxiliar Inteira p/ guardar o dia da Data Inicial	
		 }
		 else if (strtipoFecha=='CV')
  		 {
	            strfechaInputSeleccionada=document.FormRicerca.calendarioV.value.substring(document.FormRicerca.calendarioV.value.indexOf("/"),document.AIR.fechaV.value.length); // Variável Auxiliar STring p/ montar /MM/YYYY da Data Final
                    intdiaYaSeleccionado=1*document.FormRicerca.calendarioV.value.substring(0,document.FormRicerca.calendarioV.value.indexOf('/'));				      // Variável Auxiliar Inteira p/ guardar o dia da Data Final
  }

  strano = "" +strHoy.getYear();								// Variável Auxiliar String p/ guardar o Ano da Data Atual
  strmes = (strHoy.getMonth()+1);								// Variável Auxiliar String p/ guardar o Mês da Data Atual	
  strmes = (strmes<10?"0":"")+strmes;
  strfechaSeleccionada="/"+strmes+"/"+strano.substring(0,4);					// Variável Auxiliar STring p/ montar /MM/YYYY 

  var strAnyo=strHoy.getYear(); 								// Si el año es anterior a 2000 debe sumarse 1900 a la cantidad obtenida
  // Observacion: El anyo se contabiliza a partir de 1900

  var intEsteDia=strHoy.getDate(); 								// Variável Auxiliar Inteira para pegar o dia da Data Atual

  // Actualizacion del mes de Febrero (por los anyos bisiestos)
  if (((strAnyo % 4 == 0) && (strAnyo % 100 != 0)) || (strAnyo % 400 == 0))
    garrDiasPorMes[1] = 29;
		 else
		 {
		   garrDiasPorMes[1]= 28;		 
		 }
  // Numero de dias del mes actual
  intNDias =garrDiasPorMes[strHoy.getMonth()];							// Variável Auxiliar Inteira p/ pegar o número de dias da data

  // Calculo que dia de la semana es el primero del mes
  strPrimerDia=strHoy;										// Variável Auxiliar String p/ pegar a Data Atual
  strPrimerDia.setDate(1);
  // Observacion: Obtengo el dia de hoy (p.e, 10-11-1999) y calculo que dia de la semana
  // es el dia 1 del mismo mes y anyo (p.e, 1-11-1999)

  intComienzo=strPrimerDia.getDay();								// Variável Auxiliar Inteira p/ pegar o dia

  // Escritura en la pantalla de la tabla correspondiente al mes actual 

   strtext_cal="<div id='calendario' style='position:absolute; VISIBILITY: hidden;z-index=28;left:"+gstrxCalendario+";top:"+gstryCalendario+"'>"
   strtext_cal=strtext_cal+"<CENTER>"
   strtext_cal=strtext_cal+"<TABLE BORDER=0 cellspacing=0 cellpadding=1 bgcolor=000000>"
   strtext_cal=strtext_cal+"<tr><td>"
   strtext_cal=strtext_cal+"<TABLE BORDER=0 cellspacing=0 cellpadding=0 bgcolor=FFFFFF>"
   strtext_cal=strtext_cal+"<TR bgcolor=CC0000 class=B>"

   // Escribo en nombre del mes en la cabecera de la tabla


   if ( strHoy.getMonth() == 0 && strHoy.getFullYear() == 2000)
     strtext_cal=strtext_cal+"<TD align=left width=20>&nbsp;"
   else
     strtext_cal=strtext_cal+"<TD align=center width='20'><a href='Javascript:void(null)' onClick='mesAtras(&quot;"+strtipoFecha+"&quot;)'><img src='imagem/pic012.gif' border=0 ></a>"
     strtext_cal=strtext_cal+"</TD>"

  strtext_cal=strtext_cal+'<td COLSPAN=5 align=center>'+arrMeses[strHoy.getMonth()*1]
  strtext_cal=strtext_cal+" "
  strtext_cal=strtext_cal+strAnyo
  strtext_cal=strtext_cal+"<TD align=center width='20'><a href='Javascript:void(null)' onClick='mesAdelante(&quot;"+strtipoFecha+"&quot;)'><img src='imagem/pic013.gif' border=0 ></a>"
  strtext_cal=strtext_cal+"</TD></TR>"
  strtext_cal=strtext_cal+"<tr><td colspan=7 bgcolor=000000><img src='imagem/t.gif' height=1 border=0></td></tr>"
  //dias da semana
  strtext_cal=strtext_cal+'<TR class=B344 bgcolor=FFFFFF><td align=center>'+arrDiaSemana[0]+'<td align=center>'+arrDiaSemana[1]+'<td align=center>'+arrDiaSemana[2]+'<td align=center>'+arrDiaSemana[3]+'<td align=center>'+arrDiaSemana[4]+'<td align=center>'+arrDiaSemana[5]+'<td align=center>'+arrDiaSemana[6]+'</TR>'

   strtext_cal=strtext_cal+"<tr><td colspan=7 bgcolor=000000><img src='imagem/t.gif' height=1 border=0></td></tr>"

  // Escritura de los espacios en blanco de la tabla

  strtext_cal=strtext_cal+"<TR>"
  intcolumna=0;											// Variável Auxiliar Inteira p/ guardar o número da coluna

  for (inti=0; inti<intComienzo; inti++)
  {
        strtext_cal=strtext_cal+"<TD>"
        intcolumna++;
        strtext_cal=strtext_cal+"</TD>"
  }

  // Escritura de los dias del mes

  for (inti=1; inti<=intNDias; inti++)
  {
	strtext_cal=strtext_cal+"<TD class=B width='20'>"
        if ((inti == intdiaYaSeleccionado)&&(strfechaInputSeleccionada == strfechaSeleccionada))
             strestilo="class='azul'";								// Variável Auxiliar String p/ guardar o estilo da tag TD
        else if (intcolumna == 0)
             strestilo="class='rojo'";
        else 
             strestilo="class='normal'";

	//  if (strHoy.getMonth() == intmes_real && strHoy.getFullYear() == intanio_real && i < intdia_real)
	//      strtext_cal=strtext_cal+"<center><font color='#CCCCCC'>"+i+"</font></center>"
	//  else
        strtext_cal=strtext_cal+"<center><div id="+inti+" style='cursor:hand' onclick='javascript:gstrdiaSeleccionado="+inti+";verDiaSeleccionado(&quot;"+strtipoFecha+"&quot;)'><a href='Javascript:void(null)' "+strestilo+">"+inti+"</a></div></center>"

        if (inti == intEsteDia || intcolumna == 6)
             strtext_cal=strtext_cal
        else if (intcolumna == 0)
             strtext_cal=strtext_cal
        strtext_cal=strtext_cal+"</TD>"
	intcolumna++;
        if (intcolumna == 7)
          { strtext_cal=strtext_cal+"</TR><TR>"; 						// Comienza una nueva fila
            intcolumna=0;
          }
  }//fin del for

  strtext_cal=strtext_cal+"</TR>"
  strtext_cal=strtext_cal+"<TR>"

  strtext_cal=strtext_cal+"<TD colspan=5></td><td colspan=2 align=right><a href='Javascript:void(null)' onClick='cerrarCalendario()'><img src="+imgFechar+" border='0' hspace='1' vspace='1'></a>"
  strtext_cal=strtext_cal+"</TD>"
  strtext_cal=strtext_cal+"</TR>"
  strtext_cal=strtext_cal+"</TABLE>"
  strtext_cal=strtext_cal+"</TD>"
  strtext_cal=strtext_cal+"</TR>"
  strtext_cal=strtext_cal+"</TABLE>"
  strtext_cal=strtext_cal+"</CENTER>"
  strtext_cal=strtext_cal+"</div>"

  calendario.outerHTML=strtext_cal;
  calendario.style.visibility="visible";

}//finn de abrir calendario


//***************************************************************************
//Objetivo :Fechar o calendário.
//Entrada  :não possui
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function cerrarCalendario()
{
     calendario.style.visibility="hidden";
}

//***************************************************************************
//Objetivo :Verificar o dia selecionado pelo usuário.
//Entrada  :strtipoFecha
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function verDiaSeleccionado(strtipoFecha)
{
	strmesActual=strHoy.getMonth()+1;							// Variável Auxiliar String p/ guardar o Mês Atual
	stranoActual=strHoy.getYear();								// Variável Auxiliar String p/ guardar o Ano Atual
	stranoActual=""+stranoActual;
	strmesActual= ""+strmesActual;
	strmesActual = strmesActual.length==2 ? strmesActual : "0"+strmesActual;
	gstrdiaSeleccionado = ""+gstrdiaSeleccionado;
	gstrdiaSeleccionado = gstrdiaSeleccionado.length==2 ? gstrdiaSeleccionado : "0"+gstrdiaSeleccionado;

	if (strtipoFecha=="I") {document.AIR.fechaI.value=gstrdiaSeleccionado+"/"+strmesActual+"/"+stranoActual.substring(0,4);}
	else if (strtipoFecha=="V"){document.AIR.fechaV.value=gstrdiaSeleccionado+"/"+strmesActual+"/"+stranoActual.substring(0,4);}
	else if (strtipoFecha=="CI") {document.FormRicerca.calendarioI.value=gstrdiaSeleccionado+"/"+strmesActual+"/"+stranoActual.substring(0,4);}
	else if (strtipoFecha=="CV"){document.FormRicerca.calendarioV.value=gstrdiaSeleccionado+"/"+strmesActual+"/"+stranoActual.substring(0,4);}

	calendario.style.visibility="hidden";
	//strHoy=new Date(2002,0,28); //año,mes,dia
	//control_fecha();
}
//fin verDiaSeleccionado

//***************************************************************************
//Objetivo :Voltar ao mês anterior e exibí-lo.
//Entrada  :strtipoFecha
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function mesAtras(strtipoFecha)
{
	if (strHoy.getMonth()==0)
	{
	  intmesActual=11;									// Variável Auxiliar Inteira p/ guardar o Mês Atual
	  stranoActual=strHoy.getYear()-1;							// Variável Auxiliar Inteira p/ guardar o Ano Atual
	}
	else
	{
	  intmesActual=strHoy.getMonth()-1;
	  stranoActual=strHoy.getYear();
  	}

	//     strHoy=new Date(stranoActual,intmesActual,28); //año,mes,dia
	strHoy=new Date(stranoActual,intmesActual,1); //año,mes,dia				// Variável Auxiliar Data p/ guardar a Data Atual no formato extenso
	abrirCalendario(strtipoFecha);
      
}//fin mesAtras

//***************************************************************************
//Objetivo :Posicionar ao próximo mês e exibí-lo.
//Entrada  :strtipoFecha
//Retorno  :não possui
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function mesAdelante(strtipoFecha)
{
	if (strHoy.getMonth()==11)
	{
	  intmesActual=0;									// Variável Auxiliar Inteira p/ guardar o Mês Atual
	  stranoActual=strHoy.getYear()+1;							// Variável Auxiliar Inteira p/ guardar o Ano Atual
  	}
	else
	{
	  intmesActual=strHoy.getMonth()+1;
	  stranoActual=strHoy.getYear();
        }
        strHoy=new Date(stranoActual,intmesActual,1); //año,mes,dia
        strHoy=new Date(stranoActual,intmesActual,28); //año,mes,dia
        abrirCalendario(strtipoFecha);
}//fin mesAdelante

//***************************************************************************
//Objetivo :Pegar a data digitada.
//Entrada  :strt
//Retorno  :Boolean - True/False
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function GetInputDate(strt)
{
	var intl = strt.length;									// Variável Auxiliar Inteira p/ guardar o tamanho do parâmetro passado
	if(0 == intl) return false;
	var strcSp = '\0';									// Variável Auxiliar String p/ guardar "\0"
	var strsSp1 = "";									// Variável Auxiliar String
	var strsSp2 = "";									// Variável Auxiliar String
	for(var inti=0; inti<strt.length; inti++)
	{
		var strc=strt.charAt(inti);							// Variável Auxiliar String p/ guardar um caracter indexado
		if(strc==' ' || isdigit(strc)) continue;
		else if(strcSp == '\0' && (strc == '/' || strc == '-' || strc == '.'))
		{
			strcSp = strc;
			strsSp1 = strt.substring(inti+1,intl);
		} else if(strc==strcSp) strsSp2 = strt.substring(inti+1,intl);
		else if(strc != strcSp) return false;
	}
	if(0 == strsSp1.length) return false;
	var intm=atoi(strsSp1);									// Variável Auxiliar Inteira p/ guardar o retorno da function atoi
	var intd=atoi(strt);									// Variável Auxiliar Inteira p/ guardar o retorno da function atoi
	var inty; 										// Variável Auxiliar Inteira p/ guardar o Ano
	if(0 != strsSp2.length) inty = atoi(strsSp2);
	else inty = DefYr(intm,intd);
	if(inty < 100)
	{
		inty = 1900+inty;
		while(inty < gint_yLow) inty = inty+100;
	}
	if(inty < gint_MINY || inty > gint_MAXY || intm < 1 || intm > 12) return false;
	if(gdtmd< 1 || gdtmd> GetMonthCount(intm,inty)) return false;
	gint_month = intm;
	gint_day = intd;
	gint_year = inty;
return true;
}

//***************************************************************************
//Objetivo :Retornar o Ano Corrente.
//Entrada  :intm e intd
//Retorno  :1+intyCur/intyCur
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function DefYr(intm,intd)
{
	var dtmdt = new Date();									// Variável Auxiliar Data Atual
	var intyCur = (dtmdt.getYear() < 1000) ? 1900+dtmdt.getYear() : dtmdt.getYear();	// Variável Auxiliar Inteira Ano Atual Currente
	if(intm-1 < dtmdt.getMonth() || (intm-1 == dtmdt.getMonth() && intd< dtmdt.getDate())) return 1+intyCur;
	else return intyCur;
}

//***************************************************************************
//Objetivo :Verifica se a posição checada é número ou caracter.
//	    Se for caracter, então retorna 0.	
//Entrada  :strs
//Retorno  :intt
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function atoi(strs)
{
	var intt=0;										// Variável Auxiliar Inteira p/ efetuar o retorno
	for(var inti=0; inti<strs.length; inti++)
	{
		var strc=strs.charAt(inti);							// Variável Auxiliar String p/ guardar o caracter indexado
		if(!isdigit(strc)) return intt;
		else intt = intt*10 + (strc-'0');
	}
return intt;
}

//****************************************************************************
//Objetivo :Validar apenas caracteres numéricos.
//Entrada  :strc
//Retorno  :strc >= '0' && strc <= '9'
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//****************************************************************************
function isdigit(strc)
{
	return(strc >= '0' && strc <= '9');
}

//***************************************************************************
//Objetivo :Retornar o Mês.
//Entrada  :intm e inty
//Retorno  :intc
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function GetMonthCount(intm,inty)
{
	var intc = garrrgMC[intm-1];								// Variável Auxiliar Inteira p/ guardar o Mês posicionado na Array
	if((2 == intm) && IsLeapYear(inty)) intc++;
return intc;
}

//***************************************************************************
//Objetivo :Verificar se o Ano é Bissexto
//Entrada  :inty
//Retorno  :Boolean - True/False
//Premissas:não tem. 
//Data	   :27-08-2004
//Autor	   :Legado Bovespa
//***************************************************************************
function IsLeapYear(inty)
{
	if(0 == inty % 4 && ((inty % 100 != 0) || (inty % 400 == 0))) return true;
	else return false;
}