function up(element)
{
	p = element.options.length;
	if(p >0)
	{
		i= element.selectedIndex;
		if(i>0)
		{
			change(i, i - 1,element);
			element.selectedIndex = i -1;
		}
	}	
}


function down(element)
{
	p = element.options.length;
	if(p >0)
	{
		i= element.selectedIndex;
		if(i>=0 && i<p-1)
		{
			change(i, i + 1,element);
			element.selectedIndex = i + 1;
		}
	}	

}

function change(i, j, element)
{
	temp = element.options[i];
	element.options[i] = new Option(element.options[j].text, element.options[j].value);
	element.options[j] = new Option(temp.text, temp.value);	
}

function select_all(element)
{
	n = element.options.length;
	for(i=0;i<n;i++)
		element.options[i].selected = true;
		
}

function open_popup(newwindow)
{
	var desktop = window.open(newwindow,'new_window','width=800, height=600, toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no');
}

function limpar_select(ele)
{
	while(ele.options.length > 0)
	{
		ele.selectedIndex=0;
		tira_select(ele);
	}
}

function tira_select(ele)
{
		if(ele.selectedIndex>=0)
			ele.options[ele.selectedIndex] = null;
		
}

function insere_select(ele,t,vv)
{
    var p = ele.options.length;	
    ele.options.length = p+1;
	ele.options[p] = new Option (t,vv); 
}

function Remove_MultiSelect(id)
{
	obj = document.getElementById(id);
	ret = true;
	if(obj.selectedIndex==-1)
		ret  = false;
	else
	{
		sel = obj.options[obj.selectedIndex];
		if(sel.value==-1)
			ret=false;
	}

	if(ret)
	{
		obj.options[obj.selectedIndex] = null;
	}
	else
	{
		alert("Selecione algum item para remover!");
	}
}

function Select_All(id)
{
	obj = document.getElementById(id);
	for(i=1;i<obj.options.length;i++)
	{	
		obj.options[i].selected = true;
	}
}

/*[]---------------------------------------------------------------------------------------------[]
  |Função isInteger.                                                                             |
  | Recebe como argumento o objeto que esta sendo editado.                                       |
  []---------------------------------------------------------------------------------------------[]*/
function isInteger( s ) 
{
	var i;
	var success= true;

	if( isEmpty(s) )
		return false;
		
	// search for all characters for being a proper no.
	for(i=0; i< s.length; i++){
		var c = s.charAt(i);
		if( !isDigit(c) ) 
			success = false;
	}

	if (!success) 
		return success;

	return success;
}


/*[]---------------------------------------------------------------------------------------------[]
  |Função isDigit.                                                                                |
  | Recebe como argumento um caracter.                                                            |
  []---------------------------------------------------------------------------------------------[]*/
function isDigit(c){
	return ( (c >="0") && (c <="9") );
}

function isEmpty(s){
	return ((s == null) || (s.length == 0));
}

/*[]---------------------------------------------------------------------------------------------[]
  |Função formatReal.                                                                             |
  | Recebe como argumento o objeto que esta sendo editado, o evento do mesmo, o numero de casas   |
  | decimis depois e antes da virgula respectivamente.                |
  []---------------------------------------------------------------------------------------------[]*/
  // inicio da função change
  function formatReal (tipo, e, inteiro, decimal)
  {
   var car, num, tam, prefixo;
   if(e)
   {
    car = (window.Event) ? e.which : e.keyCode;
    if(car == 0) return true;
   } 
   else
   car = 0; 
   if(car >= 48 && car <= 57)
   {
    if(e)
     car -= 48;
    else
    car = '';
    num = String(tipo.value);
    num = num.replace(/\./g,'');
    num = num.replace(/,/g,'');
    num = String(parseInt(num,10));
    if(num == "NaN")
    {
     num = '';
     for( var i = 0; i < decimal;i++) String("0");
    } 
    if(num.length <  (inteiro+decimal))
    {
    num = num + car; 
    while(num.length <= decimal)
     num = String("0") + num;  
    aux = num.substring(0,num.length - decimal);   
    tam = aux.length;
    prefixo = aux.substring(tam-3, tam);   
    tam -= (decimal+1) ;  
    while(tam > 0)
    {
     prefixo = aux.substring(tam-3, tam) + "." + prefixo;
     tam -= 3;
    }
    num = prefixo + "," + num.substring(num.length-decimal, num.length)   
  tipo.value = num;    
   }
  }
  else {
	if (car == 8 || car==13)
		return true;
  }
   return false;
  } 
  // fim da funcao formatFloat.

/*[]---------------------------------------------------------------------------------------------[]
  |Função onlyDigit.                                                                             |
  | Recebe como argumento um evento                                                              |
  []---------------------------------------------------------------------------------------------[]*/
	function onlyDigit(e)
	{
		var car;
		if(e)
		{
	   	//car = (window.Event) ? e.which : e.keyCode;
   		car = (window.event) ? event.keyCode : e.keyCode;
		if(car == 0) return true;
	   }
	
		return ( ( (car >=48) && (car <=57) ) || (car == 8));
	}

/*****************************************************************************
 * md5.js
 *
 * A JavaScript implementation derived from the RSA Data Security, Inc. MD5
 * Message-Digest Algorithm. See http://cw.oaktree.co.uk/site/legal.html for
 * details.
 *
 * Copyright (C) Paul Johnston 1999 - 2000. Distributed under the LGPL.
 *****************************************************************************/

/* convert integer to hex string */
var sHex = "0123456789abcdef";
function hex(i)
{
  h = "";
  for(j = 0; j <= 3; j++)
  {
    h += sHex.charAt((i >> (j * 8 + 4)) & 0x0F) +
         sHex.charAt((i >> (j * 8)) & 0x0F);
  }
  return h;
}

/* add, handling overflows correctly */
function add(x, y)
{
  return ((x&0x7FFFFFFF) + (y&0x7FFFFFFF)) ^ (x&0x80000000) ^ (y&0x80000000);
}

/* MD5 rounds functions */
function R1(A, B, C, D, X, S, T)
{
  q = add(add(A, (B & C) | ((~B) & D)), add(X, T));
  return add((q << S) | (q >>> (32 - S)), B);
}

function R2(A, B, C, D, X, S, T)
{
  q = add(add(A, (B & D) | (C & (~D))), add(X, T));
  return add((q << S) | (q >>> (32 - S)), B);
}

function R3(A, B, C, D, X, S, T)
{
  q = add(add(A, B ^ C ^ D), add(X, T));
  return add((q << S) | (q >>> (32 - S)), B);
}

function R4(A, B, C, D, X, S, T)
{
  q = add(add(A, C ^ (B | (~D))), add(X, T));
  return add((q << S) | (q >>> (32 - S)), B);
}

/* main entry point */
function calcMD5(sInp) {

  /* Calculate length in machine words, including padding */
  wLen = (((sInp.length + 8) >> 6) + 1) << 4;
  var X = new Array(wLen);

  /* Convert string to array of words */
  j = 4;
  for (i = 0; (i * 4) < sInp.length; i++)
  {
    X[i] = 0;
    for (j = 0; (j < 4) && ((j + i * 4) < sInp.length); j++)
    {
      X[i] += sInp.charCodeAt(j + i * 4) << (j * 8);
    }
  }

  /* Append padding bits and length */
  if (j == 4)
  {
    X[i++] = 0x80;
  }
  else
  {
    X[i - 1] += 0x80 << (j * 8);
  }
  for(; i < wLen; i++) { X[i] = 0; }
  X[wLen - 2] = sInp.length * 8;

  /* hard coded initial values */
  a = 0x67452301;
  b = 0xefcdab89;
  c = 0x98badcfe;
  d = 0x10325476;

  /* Process each 16 word block in turn */
  for (i = 0; i < wLen; i += 16) {
    aO = a;
    bO = b;
    cO = c;
    dO = d;

    a = R1(a, b, c, d, X[i+ 0], 7 , 0xd76aa478);
    d = R1(d, a, b, c, X[i+ 1], 12, 0xe8c7b756);
    c = R1(c, d, a, b, X[i+ 2], 17, 0x242070db);
    b = R1(b, c, d, a, X[i+ 3], 22, 0xc1bdceee);
    a = R1(a, b, c, d, X[i+ 4], 7 , 0xf57c0faf);
    d = R1(d, a, b, c, X[i+ 5], 12, 0x4787c62a);
    c = R1(c, d, a, b, X[i+ 6], 17, 0xa8304613);
    b = R1(b, c, d, a, X[i+ 7], 22, 0xfd469501);
    a = R1(a, b, c, d, X[i+ 8], 7 , 0x698098d8);
    d = R1(d, a, b, c, X[i+ 9], 12, 0x8b44f7af);
    c = R1(c, d, a, b, X[i+10], 17, 0xffff5bb1);
    b = R1(b, c, d, a, X[i+11], 22, 0x895cd7be);
    a = R1(a, b, c, d, X[i+12], 7 , 0x6b901122);
    d = R1(d, a, b, c, X[i+13], 12, 0xfd987193);
    c = R1(c, d, a, b, X[i+14], 17, 0xa679438e);
    b = R1(b, c, d, a, X[i+15], 22, 0x49b40821);

    a = R2(a, b, c, d, X[i+ 1], 5 , 0xf61e2562);
    d = R2(d, a, b, c, X[i+ 6], 9 , 0xc040b340);
    c = R2(c, d, a, b, X[i+11], 14, 0x265e5a51);
    b = R2(b, c, d, a, X[i+ 0], 20, 0xe9b6c7aa);
    a = R2(a, b, c, d, X[i+ 5], 5 , 0xd62f105d);
    d = R2(d, a, b, c, X[i+10], 9 ,  0x2441453);
    c = R2(c, d, a, b, X[i+15], 14, 0xd8a1e681);
    b = R2(b, c, d, a, X[i+ 4], 20, 0xe7d3fbc8);
    a = R2(a, b, c, d, X[i+ 9], 5 , 0x21e1cde6);
    d = R2(d, a, b, c, X[i+14], 9 , 0xc33707d6);
    c = R2(c, d, a, b, X[i+ 3], 14, 0xf4d50d87);
    b = R2(b, c, d, a, X[i+ 8], 20, 0x455a14ed);
    a = R2(a, b, c, d, X[i+13], 5 , 0xa9e3e905);
    d = R2(d, a, b, c, X[i+ 2], 9 , 0xfcefa3f8);
    c = R2(c, d, a, b, X[i+ 7], 14, 0x676f02d9);
    b = R2(b, c, d, a, X[i+12], 20, 0x8d2a4c8a);

    a = R3(a, b, c, d, X[i+ 5], 4 , 0xfffa3942);
    d = R3(d, a, b, c, X[i+ 8], 11, 0x8771f681);
    c = R3(c, d, a, b, X[i+11], 16, 0x6d9d6122);
    b = R3(b, c, d, a, X[i+14], 23, 0xfde5380c);
    a = R3(a, b, c, d, X[i+ 1], 4 , 0xa4beea44);
    d = R3(d, a, b, c, X[i+ 4], 11, 0x4bdecfa9);
    c = R3(c, d, a, b, X[i+ 7], 16, 0xf6bb4b60);
    b = R3(b, c, d, a, X[i+10], 23, 0xbebfbc70);
    a = R3(a, b, c, d, X[i+13], 4 , 0x289b7ec6);
    d = R3(d, a, b, c, X[i+ 0], 11, 0xeaa127fa);
    c = R3(c, d, a, b, X[i+ 3], 16, 0xd4ef3085);
    b = R3(b, c, d, a, X[i+ 6], 23,  0x4881d05);
    a = R3(a, b, c, d, X[i+ 9], 4 , 0xd9d4d039);
    d = R3(d, a, b, c, X[i+12], 11, 0xe6db99e5);
    c = R3(c, d, a, b, X[i+15], 16, 0x1fa27cf8);
    b = R3(b, c, d, a, X[i+ 2], 23, 0xc4ac5665);

    a = R4(a, b, c, d, X[i+ 0], 6 , 0xf4292244);
    d = R4(d, a, b, c, X[i+ 7], 10, 0x432aff97);
    c = R4(c, d, a, b, X[i+14], 15, 0xab9423a7);
    b = R4(b, c, d, a, X[i+ 5], 21, 0xfc93a039);
    a = R4(a, b, c, d, X[i+12], 6 , 0x655b59c3);
    d = R4(d, a, b, c, X[i+ 3], 10, 0x8f0ccc92);
    c = R4(c, d, a, b, X[i+10], 15, 0xffeff47d);
    b = R4(b, c, d, a, X[i+ 1], 21, 0x85845dd1);
    a = R4(a, b, c, d, X[i+ 8], 6 , 0x6fa87e4f);
    d = R4(d, a, b, c, X[i+15], 10, 0xfe2ce6e0);
    c = R4(c, d, a, b, X[i+ 6], 15, 0xa3014314);
    b = R4(b, c, d, a, X[i+13], 21, 0x4e0811a1);
    a = R4(a, b, c, d, X[i+ 4], 6 , 0xf7537e82);
    d = R4(d, a, b, c, X[i+11], 10, 0xbd3af235);
    c = R4(c, d, a, b, X[i+ 2], 15, 0x2ad7d2bb);
    b = R4(b, c, d, a, X[i+ 9], 21, 0xeb86d391);

    a = add(a, aO);
    b = add(b, bO);
    c = add(c, cO);
    d = add(d, dO);
  }
  return hex(a) + hex(b) + hex(c) + hex(d);
}
function formatInteger (campo, e)
{
	if(e)
		car = (window.Event) ? e.which : e.keyCode;
	else
		car = 48;

	if(car >= 48 && car <= 57)
	{
		if(e)
			car -= 48;
		else
			car = "";
					
		num = String(campo.value);
		num = num.replace(/\./g,"");
		num = String(parseInt(num,10));
		
		if(num == "NaN")
			num = String("0");
		
		if(num.length < 17)
		{
			num = num + car;
			if(num.length == 0)
				num = String("0");
			campo.value = num;
		}
	}
	else 	if (car == 8 || car==13)
		return true;
	
	return false;
}

function formatAmount (campo, e)
{
	if(e)
		car = (window.Event) ? e.which : e.keyCode;
	else
		car = 48;
	
	if(car >= 48 && car <= 57)
	{
		if(e)
			car -= 48;
		else
			car = '';
					
		num = String(campo.value);
		num = num.replace(/\./g,'');
		num = String(parseInt(num,10));
		
		if(num == "NaN")
			num = String("0");
		
		if(num.length < 17)
		{
			num = num + car;
			if(num.length == 0)
				num = String("0");
			else
			{
				tam = num.length
				prefixo = num.substring(tam-3, tam);
				tam -=3 ;
				while(tam > 0)
				{
					prefixo = num.substring(tam-3, tam) + "." + prefixo;
					tam -= 3;
				}
				num = prefixo;
			}
			campo.value = num;
		}
	}
	else 	if (car == 8 || car==13)
		return true;
	
	return false;
}

function formatFloat (campo, e)
{
	var car, num, tam, prefixo;
	
	if(e)
		car = (window.Event) ? e.which : e.keyCode;
	else
		car = 48;
	
	if(car >= 48 && car <= 57)
	{
		if(e)
			car -= 48;
		else
			car = '';
					
		num = String(campo.value);
		num = num.replace(/\./g,'');
		num = num.replace(/,/g,'');
		num = String(parseInt(num,10));
		
		if(num == "NaN")
			num = String("0");
		if(num.length < 17)
		{
			num = num + car;
			while(num.length <= 2)
				num = String("0") + num;
			aux = num.substring(0,num.length-2)
			tam = aux.length
			prefixo = aux.substring(tam-3, tam);
			tam -=3 ;
			while(tam > 0)
			{
				prefixo = aux.substring(tam-3, tam) + "." + prefixo;
				tam -= 3;
			}
	 		num = prefixo + "," + num.substring(num.length-2, num.length)
			campo.value = num;
		}
	}
	else 
	if (car == 8 || car==13)
		return true;
	
	return false;
}

function formatData (campo, e)
{
	if (!e)
		return false;
	
	car = (window.Event) ? e.which : e.keyCode;
	

	if (car == 8 || car==13)
		return true;

	if (car >= 48 && car <= 57 && campo.value.length < 10)
	{
		if (campo.value.length == 2)
			campo.value = campo.value + '-';
		else if (campo.value.length == 5)
				campo.value = campo.value + '-';
		
		return true;
	}
	
	return false;
}


function formatCpf (campo, e)
{
	if (!e)
		return false;
	
	car = (window.Event) ? e.which : e.keyCode;
	
	if (car == 8)
		return true;

	if (car >= 48 && car <= 57 && campo.value.length < 14)
	{
		if (campo.value.length == 3)
			campo.value = campo.value + '.';
		else
			if (campo.value.length == 7)
				campo.value = campo.value + '.';
			else
				if (campo.value.length == 11)
					campo.value = campo.value + '-';
		
		return true;
	}
	
	return false;
}

function formatCnpj (campo, e)
{	
	if (!e)
		return false;
	
	car = (window.Event) ? e.which : e.keyCode;
	
		if (car == 8 || car==13)
		return true;

	if (car >= 48 && car <= 57 && campo.value.length < 19)
	{
		if (campo.value.length == 3)
			campo.value = campo.value + '.';
		else
			if (campo.value.length == 7)
				campo.value = campo.value + '.';
			else
				if (campo.value.length == 11)
					campo.value = campo.value + '/';
				else
					if (campo.value.length == 16)
						campo.value = campo.value + '-';
		
		return true;
	}
	
	return false;
}

function formatCep (campo, e)
{
	if (!e)
		return false;
	
	car = (window.Event) ? e.which : e.keyCode;
	//alert(car);
	if (car == 8)
		return true;

	if (car >= 48 && car <= 57 && campo.value.length < 9)
	{
		if (campo.value.length == 5)
				campo.value = campo.value + '-';
		
		return true;
	}
	
	return false;
}