// Início das Funções de Calendário

var oldLink = null;
// code to change the active stylesheet
function setActiveStyleSheet(link, title) {
  var i, a, main;
  for(i=0; (a = document.getElementsByTagName("link")[i]); i++) {
    if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title")) {
      a.disabled = true;
      if(a.getAttribute("title") == title) a.disabled = false;
    }
  }
  if (oldLink) oldLink.style.fontWeight = 'normal';
  oldLink = link;
  link.style.fontWeight = 'bold';
  return false;
}

// This function gets called when the end-user clicks on some date.
function selected(cal, date) {
  cal.sel.value = date; // just update the date in the input field.
 // if (cal.dateClicked && (cal.sel.id == "sel1" || cal.sel.id == "sel3"))
    // if we add this call we close the calendar on single-click.
    // just to exemplify both cases, we are using this only for the 1st
    // and the 3rd field, while 2nd and 4th will still require double-click.
 if (cal.dateClicked)
	  cal.callCloseHandler();
}

// And this gets called when the end-user clicks on the _selected_ date,
// or clicks on the "Close" button.  It just hides the calendar without
// destroying it.
function closeHandler(cal) {
  cal.hide();                        // hide the calendar
}

// This function shows the calendar under the element having the given id.
// It takes care of catching "mousedown" signals on document and hiding the
// calendar if the click was outside.
function showCalendar(id, format) {
  var el = document.getElementById(id);
  if (calendar != null) {
    // we already have some calendar created
    calendar.hide();                 // so we hide it first.
  } else {
    // first-time call, create the calendar.
    var cal = new Calendar(false, null, selected, closeHandler);
    // uncomment the following line to hide the week numbers
    // cal.weekNumbers = false;
    calendar = cal;                  // remember it in the global var
    cal.setRange(1900, 2070);        // min/max year allowed.
    cal.create();
  }
  calendar.setDateFormat(format);    // set the specified date format
  calendar.parseDate(el.value);      // try to parse the text in field
  calendar.sel = el;                 // inform it what input field we use

  // the reference element that we pass to showAtElement is the button that
  // triggers the calendar.  In this example we align the calendar bottom-right
  // to the button.
  calendar.showAtElement(el.nextSibling, "Br");        // show the calendar

  return false;
}

var MINUTE = 60 * 1000;
var HOUR = 60 * MINUTE;
var DAY = 24 * HOUR;
var WEEK = 7 * DAY;

// If this handler returns true then the "date" given as
// parameter will be disabled.  In this example we enable
// only days within a range of 10 days from the current
// date.
// You can use the functions date.getFullYear() -- returns the year
// as 4 digit number, date.getMonth() -- returns the month as 0..11,
// and date.getDate() -- returns the date of the month as 1..31, to
// make heavy calculations here.  However, beware that this function
// should be very fast, as it is called for each day in a month when
// the calendar is (re)constructed.
function isDisabled(date) {
  var today = new Date();
  return (Math.abs(date.getTime() - today.getTime()) / DAY) > 10;
}

function flatSelected(cal, date) {
  var el = document.getElementById("preview");
  el.innerHTML = date;
}

function showFlatCalendar() {
  var parent = document.getElementById("display");

  // construct a calendar giving only the "selected" handler.
  var cal = new Calendar(false, null, flatSelected);

  // hide week numbers
  cal.weekNumbers = false;

  // We want some dates to be disabled; see function isDisabled above
  cal.setDisabledHandler(isDisabled);
  cal.setDateFormat("DD, M d");

  // this call must be the last as it might use data initialized above; if
  // we specify a parent, as opposite to the "showCalendar" function above,
  // then we create a flat calendar -- not popup.  Hidden, though, but...
  cal.create(parent);

  // ... we can show it here.
  cal.show();
}

// Fim das Funções de Calendário

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function isMultiplo ( paNumMult, paNumDiv ) // verifica se o primeiro numero é multiplo do outro
{
	vmRetorna = false;
	paNumMult = parseInt(paNumMult);
	paNumDiv  = parseInt(paNumDiv);
	
	if ( paNumMult >= paNumDiv && ( paNumMult % paNumDiv )==0  )
		vmRetorna = true;
	else if (paNumDiv<=0)
		vmRetorna = true;

	return vmRetorna;
}

function valida_email(paCampo)
{
	erros = false;
	if (paCampo == "")
	{
		erros = true;
	}
	else
	{
		prim = paCampo.indexOf("@")
		if(prim < 2)
			{
				erros = true;
			}
		if(paCampo.indexOf("@",prim + 1) != -1)
			{
				erros = true;
			}
		if(paCampo.indexOf(".") < 1)
			{
				erros = true;
			}
		if(paCampo.indexOf(" ") != -1)
			{
				erros = true;
			}
		if(paCampo.indexOf(".@") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf("@.") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf(".com.br.") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf("/") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf("[") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf("]") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf("(") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf(")") > 0)
			{
				erros = true;
			}
		if(paCampo.indexOf("..") > 0)
			{
				erros = true;
			}
	}
	if (!erros)
	{
		return false;
	}
	else
	{
		return true;
	}
}


function quebra_tudo( paStr, paChar )
{
	tam = paStr.length;
	str = '';
	inc = 1;

	for ( n=0 ; n<tam ; n++ )
	{
		if (paStr.substring(n,n+1)==paChar)
			inc++;
	}
	
	vtValores	= new setLista( inc );
	
	for ( n=0,novo=0 ; n<tam ; n++ )
	{
		str += paStr.substring(n,n+1);
		if (paStr.substring(n,n+1)==paChar)
		{
			str = '';
			novo++;
		}
		vtValores[novo] = str;
	}
	return vtValores;
}

function setLista( paNum )
{
	this.length = paNum;
	for ( k=0; k<paNum; k++ )
	{
		this[k]='';
	}
}

function janela(paLink, paNome, paLar, paAlt)
{
	var winX, winY, wind;
	winX = (screen.Width - paLar) / 2;
	winY = (screen.availHeight - paAlt) / 2;
	wind = window.open(paLink,paNome,"width="+paLar+",height="+paAlt+",toolbars=no,status=no,scrollbars=yes,resizable=no,top="+winY+",left="+winX+"");
	if (parseInt(navigator.appVersion) >= 4) { wind.window.focus(); }
}

function janela_calc(paLink, paNome, paLar, paAlt)
{
	var winX, winY, wind;
	winX = (screen.Width - paLar) / 2;
	winY = (screen.availHeight - paAlt) / 2;
	wind = window.open(paLink,paNome,"width="+paLar+",height="+paAlt+",toolbars=no,status=no,scrollbars=no,resizable=no,top="+winY+",left="+winX+"");
	if (parseInt(navigator.appVersion) >= 4) { wind.window.focus(); }
}

function sonumero(pega, tipo)
{
retorno = true;
for (w=0; w<pega.length; w++)
	{
	ponto=0;
	if ( (pega.substring(w,w+1) < '0') || (pega.substring(w,w+1) > '9') )
		{
		if (tipo == 'f' && (pega.substring(w,w+1)=="." || pega.substring(w,w+1)=="," || pega.substring(0,1)=="-") && ponto==0)
			{ponto=1;}
		else
		retorno = false;
		}
	}
return retorno;
}

// cria máscara pro campo data 


function mascara_data( paObj )
{ 
	data    = paObj.value;
	total   = data.length;
	
	data = converte_numero ( data );
	paObj.value = data.substring(0,2) + '/' + data.substring(2,4) + '/' + data.substring(4,8);
}

function decimal(pega)
{
	var string;
	string = "";
	for (x=0; x<pega.length; x++)
	{
		if (pega.substring(x,x+1) == ",")
		{
			string = string + ".";
		}
		else
		{
			string = string + pega.substring(x,x+1);				
		}
	}
	return string;
}


/*

function formata( paValor )
{

	vmValor			= new String( paValor );
	vmTam			= vmValor.length;
	
	vmNumero		= new String('');
	vmNovoNumero	= new String('');
	
	vmDecimal		= new String('');
	vmNovaDecimal	= new String('');
	
	vmFaz = 'numero';
	for ( x=0; x<vmTam; x++ )
	{
		vmLetra = vmValor.substring(x,x+1);
		vmFaz = (vmLetra=='.'&&vmFaz=='numero')?'decimal':vmFaz;
		if ( vmLetra >= '0' && vmLetra <= '9')
		{
			if (vmFaz=='numero')
				vmNumero += vmLetra;
			else
				vmDecimal += vmLetra;
		}
	}

//formata o numero
	vmFazPonto = false;
	vmTam = vmNumero.length;
	vmConta = 0;
	for ( x=vmTam-1; x>=0; x-- )
	{
		vmConta++;
		vmLetra = vmNumero.substring(x,x+1);
		if (vmFazPonto)
			vmNovoNumero = vmLetra + '.' + vmNovoNumero;
		else
			vmNovoNumero = vmLetra + vmNovoNumero;

		vmFazPonto = false;
		
		vmMod = vmConta/3;
		vmMod = Math.round( vmMod );
		if ((vmMod * 3)==(vmConta))
		{
			vmFazPonto = true;
		}
	}

//formata a decimal
	vmFazPonto = false;
	vmTam = vmDecimal.length;
	vmConta = 0;
	vmNum1 = eval(vmDecimal.substring(0,1));
	vmNum2 = eval(vmDecimal.substring(1,2));
	vmNum3 = eval(vmDecimal.substring(2,3));
	
	vmNum1 = (vmNum1 >= 0 && vmNum1 <= 9 )?vmNum1:0;
	vmNum2 = (vmNum2 >= 0 && vmNum2 <= 9 )?vmNum2:0;
	vmNum3 = (vmNum3 >= 0 && vmNum3 <= 9 )?vmNum3:0;

	if (vmNum3>4 && vmNum3<=9)
		if (vmNum2<9)
			vmNum2 = vmNum2+1;
	    else
			{	
			vmNum1 = vmNum1+1;
			vmNum2 = 0;
			}

	vmNovaDecimal = String(vmNum1)+String(vmNum2);
	
	return vmNovoNumero+','+vmNovaDecimal;
}
*/

function formata(num) { 
var sign, cents; 
num = num.toString().replace(/\$|\,/g,''); 
if(isNaN(num)) 
num = "0"; 
sign = (num == (num = Math.abs(num))); 
num = Math.floor(num*100+0.50000000001); 
cents = num%100; 
num = Math.floor(num/100).toString(); 
if(cents<10) 
cents = "0" + cents; 
for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++) 
num = num.substring(0,num.length-(4*i+3))+'.'+ 
num.substring(num.length-(4*i+3)); 
return (((sign)?'':'-') + num + ',' + cents); 
}


function checadata(data)
{
	retorno = true;

	if (data == '')
		{
		retorno = false;
		}
	else
		{
		vet_dia    = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
		vet_dia_bi = new Array(31,29,31,30,31,30,31,31,30,31,30,31);
		
		dia = data.substring(0,2);
		ba1 = data.substring(2,3);
		mes = data.substring(3,5);
		ba2 = data.substring(5,6);
		ano = data.substring(6,10);

		if (!sonumero(dia, 'i') || !sonumero(mes, 'i') || !sonumero(ano, 'i'))
			{
			retorno = false;
			}
		else
			{

			if ( (ba1 != '/') || (ba2 != '/'))
				{
				retorno = false;
				}

			if (eval(ano) < 1900)
				{
				retorno = false;
				}

			if ( (eval(mes) < 1) || (eval(mes) > 12))
				{
				retorno = false;
				}

			if ((eval(ano) % 4 ) == 0)
				{
				if ( (eval(dia) < 1) || (eval(dia) > vet_dia_bi[eval(mes)-1]) )
					retorno = false;
				}
			else
				{
				if ( (eval(dia) < 1) || (eval(dia) > vet_dia[eval(mes)-1]) )
					retorno = false;
				}
			}
		}

	return retorno;
}


           

// verificação de CPF


function data_maior(data)
{
	 dia = eval(data.substring(0,2));
	 mes = eval(data.substring(3,5));
	 ano = eval(data.substring(6,10));
	 
	 verdata = new Date();
	 td= eval(verdata.getDate());
	 tm= eval(verdata.getMonth()) + 1;
	 ta= eval(verdata.getYear());

	 if (td >= 0 && td <= 9)
	 {
		 td = '0'+td;
	 }
	 if (tm >= 0 && tm <= 9)
	 {
		 tm = '0'+tm;
	 }
	 if (dia >= 0 && dia <= 9)
	 {
		 dia = '0'+dia;
	 }
	 if (mes >= 0 && mes <= 9)
	 {
		 mes = '0'+mes;
	 }

	 data_atual = eval(ta+''+tm+''+td);
	 data_form = eval(ano+''+mes+''+dia);


	 if (data_form < data_atual)
	 {
		 return false;
	 }
	 else
		 return true;

}


function compara_data(data, data_ant)
{
	 dia = eval(data.substring(0,2));
	 mes = eval(data.substring(3,5));
	 ano = eval(data.substring(6,10));
	 
	 td  = eval(data_ant.substring(0,2));
	 tm  = eval(data_ant.substring(3,5));
	 ta  = eval(data_ant.substring(6,10));

	 if (td >= 0 && td <= 9)
	 {
		 td = '0'+td;
	 }
	 if (tm >= 0 && tm <= 9)
	 {
		 tm = '0'+tm;
	 }
	 if (dia >= 0 && dia <= 9)
	 {
		 dia = '0'+dia;
	 }
	 if (mes >= 0 && mes <= 9)
	 {
		 mes = '0'+mes;
	 }

	 data_anterior = eval(ta+''+tm+''+td);
	 data_atual   = eval(ano+''+mes+''+dia);


	 if (data_anterior <= data_atual)
	 {
		 return false;
	 }
	 else
		 return true;

}

function resizeFrame() 
{
	top.document.all.rem.cols = (status)?'*,20':'*,210';
	document.all.btArrow.src = (status)?'toleft.gif':'toright.gif';
	status = !status;
}

function soma_data( paData, paSomDim, paDias, paMeses, paAnos)
{
	vmDia = eval( paData.substring(0,2) );
	vmMes = eval( paData.substring(3,5) );
	vmAno = eval( paData.substring(6,10) );
	
	// retirando/adicionando anos
	vmNewAno = ( paSomDim==1 ) ? (vmAno+paAnos) : (vmAno-paAnos);

	if (vmNewAno < 0)
	{
		alert( 'Erro na função ! \nVerifique a quantidade de anos que vc está diminuindo.');
		return 0;
	}

	// retirando/adicionando meses
	

	vet_dia  = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
	if ( (eval( vmAno ) % 4) == 0 )
		vet_dia[1] = 29;

    
		
}

function retira_mes( paMesAtual, paSomDim )
{
	vmMes = paMesAtual;
	for (x=0; x<paMeses; x++)
	{
		vmNewMes = ( paSomDim==1 ) ? (vmMes+1) : (vmMes-1);
		if (vmNewMes < 1)
		{
			vmNewMes = 12;
			vmNewAno = vmNewAno-1;
		}
		else if (vmNewMes > 12)
		{
			vmNewMes = 1;
			vmNewAno = vmNewAno + 1;
		}
	}
}


function cpf ( paCpf )
{
	var i; 
	s = paCpf; 
	var c = s.substr(0,9); 
	var dv = s.substr(9,2); 
	var d1 = 0; 
	vmRetorno = true;	

	for (i = 0; i < 9; i++) 
	{ 
		d1 += c.charAt(i)*(10-i); 
	} 
	
		if (d1 == 0){ 
			vmRetorno = false; 
		} 
	
	d1 = 11 - (d1 % 11); 
	
	if (d1 > 9) d1 = 0; 
	
	if (dv.charAt(0) != d1) 
	{ 
		vmRetorno = false; 
	} 

	d1 *= 2; 
	
	for (i = 0; i < 9; i++) 
	{ 
		d1 += c.charAt(i)*(11-i); 
	} 
	
	d1 = 11 - (d1 % 11); 
	
	if (d1 > 9) d1 = 0; 
	
	if (dv.charAt(1) != d1) 
	{ 
		vmRetorno = false; 
	} 

	return vmRetorno;

}

function copia( paIni, paQde, paForm, paObjeto, paMarca, paTipo )
{
	if (paMarca==paIni)
	{
		for (i=paIni+1;i<paQde ;i++ )
		{
			switch (paTipo)
			{
			case "t":
				if (document.getElementById(paForm).elements[paObjeto+"["+i+"]"].value=="")
				{
					document.getElementById(paForm).elements[paObjeto+"["+i+"]"].value = document.getElementById(paForm).elements[paObjeto+"["+paIni+"]"].value;
				}
				break;
			case "c":
				if (document.getElementById(paForm).elements[paObjeto+"["+paIni+"]"].checked==true)
					document.getElementById(paForm).elements[paObjeto+"["+i+"]"].checked=true;
				else
					document.getElementById(paForm).elements[paObjeto+"["+i+"]"].checked=false;
				break;
			case "r":
				if (document.getElementById(paForm).elements[paObjeto+"["+paIni+"]"][0].checked==true)
					document.getElementById(paForm).elements[paObjeto+"["+i+"]"][0].checked=true;
				else
					document.getElementById(paForm).elements[paObjeto+"["+i+"]"][1].checked=true;
				break;
			}
		}
	}
}

function diferentes_combos ( paForm, paObjeto, paQde, paAtual, paTipo )
{
	switch (paTipo)
	{
	case "l":
		{
		vmValor_atual = document.getElementById(paForm).elements[paObjeto+"["+paAtual+"]"].value;

		for (y=0;y<paQde ;y++ )
		{
			if (y!=paAtual)
			{
				vmValor_outro = document.getElementById(paForm).elements[paObjeto+"["+y+"]"].value;

				if (vmValor_outro==vmValor_atual && vmValor_atual!=0)
				{
					alert('Você NÃO pode Inserir duas Condição de Pagamento iguais para a mesma proposta!');
					document.getElementById(paForm).elements[paObjeto+"["+paAtual+"]"].value = 0;
					document.getElementById(paForm).elements[paObjeto+"["+paAtual+"]"].focus();
				}
			}				
		}

		break;
		}
	case "t":
		{
		vmValor_atual = document.getElementById(paForm).elements[paObjeto+"["+paAtual+"]"].value;

		for (y=0;y<paQde ;y++ )
		{
			if (y!=paAtual)
			{
				vmValor_outro = document.getElementById(paForm).elements[paObjeto+"["+y+"]"].value;
				if (vmValor_outro==vmValor_atual && vmValor_atual!=0)
				{
					alert('Você NÃO pode Inserir duas propostas com a mesma Condição de Pagamento!');
					document.getElementById(paForm).elements[paObjeto+"["+paAtual+"]"].value = '';
					document.getElementById(paForm).elements[paObjeto+"["+paAtual+"]"].focus();
				}
			}				
		}

		break;
		}
	}
	
}

function soma_valor_total( paQde, paForm, paObjeto, paObjeto_mostra, paAtual )
{
	total = 0 ;
	if (document.getElementById(paForm).elements[paObjeto+"["+paAtual+"]"].value!="")
	{
		for (z=0;z<paQde;z++)
		{
			valor = decimal(document.getElementById(paForm).elements[paObjeto+"["+z+"]"].value);
			total = eval(total) + eval(valor);
		}
	}
	if (total=="")
	{
		total = 0;
	}

	document.getElementById(paForm).elements[paObjeto_mostra+"[0]"].value = formata(total);
}

function hora_valida( paHora, paTam )
{
	vmRetorno = true;
	
	// faz com que o segundo parametro seja 5 ou 8 

	if ((paTam!=5 && paTam!=8) || (paHora.length!=eval(paTam)))
	{
		vmRetorno = false;
	}
	else
	{
		vmHora	= eval(paHora.substring(0,2));
		vmMin	= eval(paHora.substring(3,5));
		vmSep	= paHora.substring(2,3);

		if (eval(paTam)==5)
		{
			if (vmSep!=':')
			{
				vmRetorno = false;
			}
			else
			{
				if (eval(vmHora<0) || eval(vmHora>23))
				{
					vmRetorno = false;
				}
				else
				{
					if (eval(vmMin<0) || eval(vmMin>59))
					{
						vmRetorno = false;
					}
				}
			}
		}
		else
		{
			vmSegu	= eval(paHora.substring(6,8));
			vmSep2	= paHora.substring(5,6);

			if (vmSep!=':' || vmSep2!=':')
			{
				vmRetorno = false;
			}
			else
			{
				if (eval(vmHora<0) || eval(vmHora>23))
				{
					vmRetorno = false;
				}
				else
				{
					if (eval(vmMin<0) || eval(vmMin>59))
					{
						vmRetorno = false;
					}
					else
					{
						if (eval(vmSegu<0) || eval(vmSegu>59))
						{
							vmRetorno = false;
						}
					}
				}
			}
		}
				
	}

	return vmRetorno;
}

function converte_numero ( paString )
{
	tam		= paString.length;
	indice  = 0;
	vmString= "";

	for (cont=0;cont<tam ;cont++ )
	{
		if (paString.charAt(cont)==",")
		{
			vmString += "." ;
		}
		else
		{
			if (paString.charAt(cont)<=9)
			{
			vmString += paString.charAt(cont);
			}
		}
	}

	return vmString;
}

function num_real( num )
{
	tam = num.length;
	ret	= '';
	str = '';

	if (tam>0)
	{
		for (z=0;z<tam ;z++ )
		{
			str = num.substring(z,z+1);
			if (num.substring(z,z+1)==".")
				str = "";
			else
			{
				if (num.substring(z,z+1)==",")
					str = ".";
			}
			ret = ret + str;				
		}
	}

	return ret;
}

function openAjax()
{
  	var ajax;            

  	try
  	{
  		ajax = new XMLHttpRequest(); // XMLHttpRequest para browsers decentes, como: Firefox, Safari, dentre outros.
	}
	catch(ee)
	{
   		try
   		{
			ajax = new ActiveXObject("Msxml2.XMLHTTP"); // Para o IE da MS
		}
		catch(e)
		{
			try
			{
	            ajax = new ActiveXObject("Microsoft.XMLHTTP"); // Para o IE da MS
            }
            catch(E)
            {
                ajax = false;
            }
        }
    }
    return ajax;
}


//funções novas
/*16564 407-0-07 Foi adicionado a função (carrega, getParam, extraiScript) ...*/
function carrega( paDiv, local ,load ) {
    tbody = document.createElement("tbody");
    table = document.createElement("table");
    table.className = "carregando";
    tr    = document.createElement("tr");
    td    = document.createElement("td");
    label = document.createElement("label")

    if(load != ""){
      label.innerHTML = " <img src='"+local+"img/"+load+"'> <br> Aguarde... ";	
    }else{
      label.innerHTML = " <img src='"+local+"img/carregando.gif"+"'> <br> Aguarde... ";
    }
    
    td.appendChild( label );
    tr.appendChild( td );
    table.appendChild( tr );
    
    table1 = document.createElement("table");
    table1.setAttribute( "width", '100%' );
    table1.setAttribute( "height", '100%' );
    tr1    = document.createElement("tr");
    td1    = document.createElement("td");
    td1.setAttribute( "align", 'center' );
    td1.appendChild( table )
    tr1.appendChild( td1 );
    table1.appendChild( tr1 );

    tbody.appendChild( table1 );
    
    if(document.getElementById(paDiv))
      document.getElementById(paDiv).innerHTML = tbody.innerHTML;
}

function getParam (paForm, paWindowOpener){  
  if(!paWindowOpener)	
  	var form = document.getElementById(paForm);  
  else
  	var form = window.opener.document.getElementById(paForm);  
  	
  try{
	  var vtForm     = form.getElementsByTagName('input');
	  var vtTextArea = form.getElementsByTagName('textarea');
  }catch(e){
	  forms = document.getElementsByName(paForm);
	  form = forms[0];
	  
	  var vtForm     = form.getElementsByTagName('input');
	  var vtTextArea = form.getElementsByTagName('textarea');
  }
  
  try{
	  var param = "";
	  param = param + vtForm[0].id+"="+vtForm[0].value;
  }catch(e){
	  var vtForm     = document.getElementsByTagName('input');
	  var vtTextArea = document.getElementsByTagName('textarea');
	  param = "";
	  param = param + vtForm[0].id+"="+vtForm[0].value;
  }
  
  for(var i=1;i<vtForm.length;i++){
  	if(vtForm[i].id != ""){
  	  if(vtForm[i].type == 'radio'){
  	  	if(vtForm[i].checked)
  	  	  param = param + "&"+vtForm[i].name+"="+vtForm[i].value;
  	  }else if (vtForm[i].type == 'checkbox'){
        if(vtForm[i].checked)
  	  	  param = param + "&"+vtForm[i].name+"="+vtForm[i].value;
  	  }else{
          param = param + "&"+vtForm[i].name+"="+vtForm[i].value;
  	  }
  	}
  }
  
  for( var p=0; p<vtTextArea.length;p++ ) {
    param = param + "&"+vtTextArea[p].name+"="+vtTextArea[p].value;
  }
  
  var vtForm = form.getElementsByTagName('select');
  for(var i=0;i<vtForm.length;i++){
  	if(vtForm[i].id != ""){
      param = param + "&"+vtForm[i].id+"="+vtForm[i].value;
  	}
  }
  return param;
}

function extraiScript(texto){

    var ini = 0;

    while (ini!=-1) {

        ini = texto.indexOf('<script', ini);

        if (ini >=0) {

            ini = texto.indexOf('>', ini) + 1;

            var fim = texto.indexOf('</script>', ini);

            codigo = texto.substring(ini,fim);
            eval(codigo);

        }

    }

}