// Constantes
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 voidValidaNumero(e)
{
	var key=(document.all) ? e.keyCode : e.which;
	if ((key < 48 || key > 57) && (key != 7) && (key != 8) && (key != 32) && (key != 13) && (key != 9) && (key != 0))
	{
		//e.returnValue = false;		
		return false;
	}
	else
	{
		//e.returnValue = true;
		return true;
	}
}
//
function voidValidaNumeroconDecimales(e)
{
	var key=(document.all) ? e.keyCode : e.which;
	if ((key < 48 || key > 57) && (key != 7) && (key != 8) && (key != 32) && (key != 44) && (key != 13) && (key != 9) && (key != 0))
	{
		//e.returnValue = false;		
		return false;
	}
	else
	{
		//e.returnValue = true;
		return true;
	}
}

function redondeo(cantidad,cifras)
{
	resultado = Math.round(cantidad*Math.pow(10,cifras))/Math.pow(10,cifras);
	return resultado;
}

function voidAbrirVentana(imagen)
{
	var ventana;
	var	_img_grande;
	_img_grande = new Image();
	_img_grande.src = imagen;
	while ((_img_grande.width==0) || (_img_grande.height ==0))
	{
		intervalo=setTimeout(isNaN(2),5);
	}
	//
	ventana = window.open('detalle_Foto.asp?ruta=' + imagen,'DetalleImagen','width=' + _img_grande.width + ', height=' + _img_grande.height);
}

function voidProcesarPedido()
{
	this.document.location = 'procesamientoPedido.asp';
}

function resizeImg(cualImg, maxwidth, maxheight) {
//var maxwidth = 400;
//var maxheight = 400;
var imagen = document.getElementById(cualImg);
if (imagen.width>maxwidth || imagen.height>maxheight) {
var scale = Math.min((maxwidth/imagen.width),(maxheight/imagen.height), 1 );
var new_width = Math.floor(scale*imagen.width);
var new_height = Math.floor(scale*imagen.height);
//alert(new_width + 'x' + new_height);
imagen.width = new_width;
imagen.height = new_height;
}
}

//-----------------------------------------------------------------------------
// Fin del código con las funciones de conversión de VBScript para JavaScript
//-----------------------------------------------------------------------------
//