function LCase(Value) {
	return Value.toString().toLowerCase();
}
function UCase(Value) {
	return Value.toString().toUpperCase();
}
function Len(Expression) {
	return Expression.toString().length;
}
function Left(Str, Length) {
	if (Length < 0) {
		alert("Invalid Length argument\n\nLeft function (js2vb.js)"); return "";
	}
	return Str.substring(0, Length);
}
function Right(Str, Length) {
	if (Length < 0) {
		alert("Invalid Length argument\n\nRight function (js2vb.js)"); return "";
	}
	return Str.substring(Len(Str) - Length, Len(Str));
}
function Mid(Str, Start, Length) {
	if (Length < 1) {
		alert("Invalid Length argument\n\nMid function (js2vb.js)"); return "";
	}
	if (Start < 0) {
		alert("Invalid Start argument\n\nMid function (js2vb.js)"); return "";
	}
	return Str.substring(Start-1, Start-1 + Length);
}
function InStr(Start, String1, String2, Compare) {
	if (Start < 1) {
		alert("Invalid Start argument\n\nInStr function (js2vb.js)"); return "";
	}
	if (Start > Len(String1)) return 0;
	if (Len(String2) == 0) return Start;
	if (Compare == 1) {String1 = LCase(String1); String2 = LCase(String2);}
	if (Start > 1) {
		var index = Right(String1, Len(String1) - Start + 1).indexOf(String2)
		if (index == -1) {return 0;} else {return index + Start;}
	} else {
		return String1.indexOf(String2) + 1
	}
}
function InStrRev(StringCheck, StringMatch, Start, Compare) {
	if (Start == 0 || Start < -1) {
		alert("Invalid Start argument\n\nInStrRev function (js2vb.js)"); return "";
	}
	if (Len(StringMatch) == 0) return Start;
	if (Compare == 1) {StringCheck = LCase(StringCheck); StringMatch = LCase(StringMatch);}
	if (Start > 1) {
		return Left(StringCheck, Start).lastIndexOf(StringMatch) + 1;
	} else {
		return StringCheck.lastIndexOf(StringMatch) + 1;
	}
}
function IsNull(Expression) {
	return (Expression == null);
}
function IsEmpty(Expression) {
	return (Expression.toString().length == 0);
}
function IsObject(Expression) {
	return (typeof Expression == "object");
}
function IsArray(VarName) {
	return (VarName.constructor.toString().indexOf("Array") == -1);
}

function Trim(s) 
{
  // Remove leading spaces and carriage returns
  
  while ((s.substring(0,1) == ' ') || (s.substring(0,1) == '\n') || (s.substring(0,1) == '\r'))
  {
    s = s.substring(1,s.length);
  }

  // Remove trailing spaces and carriage returns

  while ((s.substring(s.length-1,s.length) == ' ') || (s.substring(s.length-1,s.length) == '\n') || (s.substring(s.length-1,s.length) == '\r'))
  {
    s = s.substring(0,s.length-1);
  }
  return s;
}
function pad(number,length) {
    var str = '' + number;
if	(str.length>0) {

    //alert(str.length);
    while (str.length < length)
        str = '0' + str;
    return str;
} else {
return '';
}
}
function vmedida(mcampo) {
//alert("medida");
vcampo=UCase(mcampo.value)+"       ";
//alert(Mid(vcampo,1,3));
pre=Mid(vcampo,1,3);
pre2=pre;
if (isNum(Mid(vcampo,3,1)) || Mid(vcampo,3,1)==' ') {

pre=Mid(vcampo,1,2);
	pre2=pre;
	if(pre=='PC') {
	pre2='P C';
	}
	if(pre=='PS') {
	pre2='P S';
	}
	if(pre=='RC') {
	pre2='R C';
	}
	if(pre=='RS') {
	pre2='R S';
	}
}
//alert(pre2);
pre_valid=InStr(1,"P C,P S,R C,R S,RCC,RCS,RKC,RKS",pre2,1)
pok=0;
//alert("medida2");

if	(pre_valid>0) {
pok=1;
}
//alert("PREVALID");
//alert(pre_valid);

if (isNum(Mid(vcampo,3,1)) || Mid(vcampo,3,1)==' ') {
numeros=Trim(Mid(vcampo,3,7));
} else {
numeros=Trim(Mid(vcampo,4,7));
}
//alert("numeros="+numeros);
nok=0;
if (isNum(numeros)) {
nok=1;
numeros=pad(numeros,4);
}
//alert(numeros);
if (pok==1 && nok==1) {
		//alert(pre2+numeros);
		mcampo.value=pre2+numeros;
		return true;
} else {
alert("Número de Medida Invalido");
mcampo.focus();
return false;
}
}

function isNum(p)
{

for(i=0;i<p.length;i++)
{
a=parseInt(p.charAt(i));
if(a>=0 || a<=9)
return true;
}
return false;
}