// JavaScript Document
//Inicio Funciones JS para Strings
var vbCr = "\r";
var vbLf = "\n";
var vbCrLf = vbCr+vbLf;
var vbTab = "\t";

function Left(s, n){
	// Devuelve los n primeros caracteres de la cadena
	if(n>s.length)
		n=s.length;
		
	return s.substring(0, n);
}
function Right(s, n){
	// Devuelve los n últimos caracteres de la cadena
	var t=s.length;
	if(n>t)
		n=t;
		
	return s.substring(t-n, t);
}
function Mid(s, n, c){
	// Devuelve una cadena desde la posición n, con c caracteres
	// Si c = 0 devolver toda la cadena desde la posición n
	
	var numargs=Mid.arguments.length;
	
	// Si sólo se pasan los dos primeros argumentos
	if(numargs<3)
		c=s.length-n+1;
		
	if(c<1)
		c=s.length-n+1;
	if(n+c >s.length)
		c=s.length-n+1;
	if(n>s.length)
		return "";
		
	return s.substring(n-1,n+c-1);
}
function LTrim(s){
	// Devuelve una cadena sin los espacios del principio
	var i=0;
	var j=0;
	
	// Busca el primer caracter <> de un espacio
	for(i=0; i<=s.length-1; i++)
		if(s.substring(i,i+1) != ' '){
			j=i;
			break;
		}
	return s.substring(j, s.length);
}
function RTrim(s){
	// Quita los espacios en blanco del final de la cadena
	var j=0;
	
	// Busca el último caracter <> de un espacio
	for(var i=s.length-1; i>-1; i--)
		if(s.substring(i,i+1) != ' '){
			j=i;
			break;
		}
	return s.substring(0, j+1);
}
function Trim(s){
	// Quita los espacios del principio y del final
	return LTrim(RTrim(s));
}
function InStr(n, s1, s2){
	// Devuelve la posición de la primera ocurrencia de s2 en s1
	// Si se especifica n, se empezará a comprobar desde esa posición
	// Sino se especifica, los dos parámetros serán las cadenas
	var numargs=InStr.arguments.length;
	
	if(numargs<3)
		return n.indexOf(s1)+1;
	else
		return s1.indexOf(s2, n)+1;
}
function RInStr(n, s1, s2){
	// Devuelve la posición de la última ocurrencia de s2 en s1
	// Si se especifica n, se empezará a comprobar desde esa posición
	// Sino se especifica, los dos parámetros serán las cadenas
	var numargs=RInStr.arguments.length;
	
	if(numargs<3)
		return n.lastIndexOf(s1)+1;
	else
		return s1.lastIndexOf(s2, n)+1;
}
function Space(n){
	// Devuelve una cadena con n espacios
	var t="";
	
	for(var i=1; i<=n; i++)
		t=t+" ";
	
	return t;
}
function jString(n, c){
	// Devuelve n veces el caracter c
	var t="";
	
	for(var i=1; i<=n; i++)
		t=t+c;
	return t;
}
function UCase(s){
	// Devuelve la cadena convertida a mayúsculas
	return s.toUpperCase();
}
function LCase(s){
	// Devuelve la cadena convertida en minúsculas
	return s.toLowerCase();
}
function Len(s){
	// Devuelve la longitud de la cadena s
	return s.length;
}
function StrReverse(s){
	// Invierte la cadena
	var i=s.length;
	var t="";
	
	while(i>-1){
		t=t+ s.substring(i,i+1);
		i--;
	}
	return t;
}
function Format(s,n){
	// Devuelve s formateado con n decimales
	var str = "" + Math.round(eval(s) * Math.pow(10,n));
	while(str.length <= n)
	{
		str = "0" + str;
	}
	var decpoint = str.length - n;
	return str.substring(0,decpoint) + "." + str.substring(decpoint,str.length);
} 

function OpenWindow(url,w,h){
remote=null;
remote=window.open(url,'THEGVR','width='+w+',height='+h+',rezisable=yes,scrollbars=no');
	if ((document.window != null) && (!hWnd.opener))
		hWnd.opener = document.window;
}

function getElementById(id){
   	return document.all[id];
}

function SelectAll(action,chk){		
	for (var i=0;i<document.frm.elements.length;i++){
		var e = document.frm.elements[i];
		if(InStr(e.name,chk)!=0){
			e.checked = action;
		}
	}
}

	
function ShowHidde(element,cls){
	eSpan = getElementById(element);		
   	eSpan.className = cls;
}


var screenWidth, screenHeight;

function getResolution(){
	//window.screen.availHeight
	//window.screen.availWidth
	
    var iWidth, iHeight, sRes;
	if (window.innerWidth != null) {
		screenWidth = window.innerWidth;
		screenHeight = window.innerHeight; 
	}else{ 
		if(document.body.clientWidth != null) {
            screenWidth = document.body.clientWidth;
            screenHeight = document.body.clientHeight;
		}            		
	}
}