<!--
//(c) 2006-2007 Zonum Solutions
//Last modified: March 20,2008
//

function strLeft(cad,charX)
  {
   var x=cad.indexOf(charX);
   if(x>-1) {cad=cad.substr(0,x);}
   
   return cad
  }
  
  function strRight(cad,charX)
  {
   var x=cad.indexOf(charX);
   if(x>-1) {cad=cad.substr(x+1);}
    else {cad="";}
   
   return cad
  }  
  
  function trimLeft(cad,charX)
   {
    var isX=true;
    var k=0;
    
    for(var i=0; i<cad.length && isX; i++) {
     if(cad.charAt(i)!==charX) {isX=false; k=i;}
    }
   
    if(isX) {cad="";}
		 else { cad=cad.substr(k);}

    return cad
   }
  
  function trimRight(cad,charX)
   {
    var isX=true;
    var k=0;
    
    for(var i=cad.length-1; i>-1 && isX; i--) {
     if(cad.charAt(i)!==charX) {isX=false; k=i;}
    }
   
    if(isX) {cad="";}
		 else {cad=cad.substr(0,k+1);}
   
    return cad
   }
  
  
  
  function trimzeros(value)
  { 
		var deci=value.indexOf('.');
		
		if(deci>-1 && value.charAt(value.length-1)=='0') {
		  var subcad = value.substr(deci+1);
		  
		  subcad=trimRight(subcad,'0');
		  if(subcad.length==0) {
			  value=value.substr(0,deci);
			} else {
			  value=value.substr(0,deci+1)+subcad;
			} 
    }
	  
   return value
  } 
  
 

 function IsNumeric(strString)
   //  check for valid numeric strings	
   {
   var strValidChars = "0123456789.-";
   var strChar;
   var blnResult = true;

   if (strString.length == 0) return false;

   //  test strString consists of valid characters listed above
   for (var i = 0; i < strString.length && blnResult == true; i++)
      {
      strChar = strString.charAt(i);
      if (strValidChars.indexOf(strChar) == -1)
         {
         blnResult = false;
         }
      }
   return blnResult;
   }
 
 function ZIsNumeric(vTestValue)
{
	// put the TEST value into a string object variable
	var sField = new String(vTestValue);
	
	// check for a length of 0 - if so, return false
	if(sField.length==0) { return false; }
	else if(sField.length==1 && (sField.charAt(0) == '.' || sField.charAt(0) == ',' || (sField.charAt(0) == '-'))) { return false; }
	
	// loop through each character of the string
	for(var x=0; x < sField.length; x++) {
		// if the character is < 0 or > 9, return false (not a number)
		if((sField.charAt(x) >= '0' && sField.charAt(x) <= '9') || sField.charAt(x) == '.' || sField.charAt(x) == ',' || (sField.charAt(x) == '-' && x==0)) { /* do nothing */ }
		else { return false; }
	}
	
	// made it through the loop - we have a number
	return true;
}
 
 
 function charsIn(value,cad)
 {
  var isOK=true;
  for(var i=0; i<value.length && isOK; i++) {
  
    var found=false;
    for(var j=0; i<cad.length && found==false; j++) {
     if(value.charAt(i)==cad.charAt(j)) {found=true;}
    }
    if(found==false) {isOK=false;}
  }
  
  return isOK;
 }
 

 
 
 function _ischeck(obj)
 {
  if(obj.checked) {return "1";}
   else {return "0";}
 }
 
 
 function checkinput(xstate,value,text)
 {
  if(xstate==true) {
   if(value==true) {
     alert("Error: "+text);
     xstate = false;
   }
  }
  return xstate
 }
 
 
 function checkinput2(xstate,valueWrong,MsgLabel,ShowMsg)
  {
   if(xstate==true) {
     if(valueWrong==true) {
        if(ShowMsg) {alert("Error: "+MsgLabel);}
        xstate = false;
      }
   }
   return xstate
  }
 
 
 function checkinputr(xstate,value,min,max,text)
 {
   if(!IsNumeric(value)) {xstate=checkinput(xstate,true,text);} else
   {
    var num=parseFloat(value);
    if((num<min) || (num>max)) {xstate=checkinput(xstate,true,text+"\n\nOut of Range");}
   }
   
   return xstate
 }
 
 function checkminmax(xstate,vmin,vmax,text)
 {
  if(xstate==true) {
   var min = parseFloat(vmin);
   var max = parseFloat(vmax);
  
   xstate=checkinput(xstate,(max<=min),text);
  }
   return xstate
 }
 
 
-->