function DoLoad (pbFocus)
{
	status=document.title; 
	defaultStatus=status;
	if ((pbFocus==undefined) || (pbFocus==true))
	{
		for (iForm=0; iForm<document.forms.length; iForm++)
		{
			for (iField=0; iField<document.forms[iForm].length; iField++)
			{
				if ((document.forms[iForm].elements[iField].type!='hidden') &&
					(document.forms[iForm].elements[iField].type!='submit') &&
					(document.forms[iForm].elements[iField].type!='button') &&
					(document.forms[iForm].elements[iField].type!='select-one') &&
					(document.forms[iForm].elements[iField].type!='select-multiple') &&					
					(!document.forms[iForm].elements[iField].disabled) &&
					(!document.forms[iForm].elements[iField].readOnly))
				{
					document.forms[iForm].elements[iField].focus();
					return;
				}
			}
		}
	}
}

function OpenCentered (psUrl, psName, piWidth, piHeight)
{
	var iX=(screen.width-piWidth-20)/2;
	var iY=(screen.height-piHeight-30)/2;
			
	open(psUrl, psName, 'width=' + piWidth + ',height=' + piHeight + ',scrollbars=0,left=' + iX + ',top=' + iY +  ',screenX=' + iX + ',screenY=' + iY);
}


function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}


function MM_changeProp(objName,x,theProp,theValue) { //v6.0
  var obj = MM_findObj(objName);
  if (obj && (theProp.indexOf("style.")==-1 || obj.style)){
    if (theValue == true || theValue == false)
      eval("obj."+theProp+"="+theValue);
    else eval("obj."+theProp+"='"+theValue+"'");
  }
}


function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}


function MM_checkBrowser(NSvers,NSpass,NSnoPass,IEvers,IEpass,IEnoPass,OBpass,URL,altURL) { //v5.0
  var newURL='', userAgent=navigator.userAgent, version=0;
  if (userAgent.indexOf('Netscape') != -1) {
  	version = parseFloat(userAgent.substring(userAgent.indexOf('Netscape')+9,userAgent.length));
    if (version >= NSvers) {if (NSpass>0) newURL=(NSpass==1)?URL:altURL;}
    else {if (NSnoPass>0) newURL=(NSnoPass==1)?URL:altURL;}
  } else if (userAgent.indexOf('MSIE') != -1) {
  	version = parseFloat(userAgent.substring(userAgent.indexOf('MSIE')+4,userAgent.length));
    if (version >= IEvers)
     {if (IEpass>0) newURL=(IEpass==1)?URL:altURL;}
    else {if (IEnoPass>0) newURL=(IEnoPass==1)?URL:altURL;}
  } else if (OBpass>0) newURL=(OBpass==1)?URL:altURL;
  if (newURL) { window.location=unescape(newURL); document.MM_returnValue=false; }
}


function MM_checkPlugin(plgIn, theURL, altURL, autoGo) { //v4.0
  var ok=false; document.MM_returnValue = false;
  with (navigator) if (appName.indexOf('Microsoft')==-1 || (plugins && plugins.length)) {
    ok=(plugins && plugins[plgIn]);
  } else if (appVersion.indexOf('3.1')==-1) { //not Netscape or Win3.1
    if (plgIn.indexOf("Flash")!=-1 && window.MM_flash!=null) ok=window.MM_flash;
    else if (plgIn.indexOf("Director")!=-1 && window.MM_dir!=null) ok=window.MM_dir;
    else ok=autoGo; }
  if (!ok) theURL=altURL; if (theURL) window.location=theURL;
}


function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}


function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}


function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function LoadActiveX (psLayer, psHTML)
{
	document.getElementById(psLayer).innerHTML=psHTML;
}
function ValidateTextReq (ptxtText, psName, piLongMin, piLongMax)
{
	if (ptxtText.value.length<=0)
	{
		alert('El campo \'' + psName + '\' es obligatorio.');
		ptxtText.focus();
		return(false);
	}
	else if ((ptxtText.value.length<piLongMin) || (ptxtText.value.length>piLongMax))
	{
		alert('El formato para el campo  \'' + psName + '\' debe ser una cadena de ' + piLongMin + ' a ' + piLongMax + ' caracteres.');
		ptxtText.focus();
		return(false);
	}
	else
	{
		return(true);
	}	
}


function ValidateNumberReq (ptxtText, psName, piMin, piMax)
{
	if (ptxtText.value.length<=0)
	{
		alert('El campo \'' + psName + '\' es obligatorio.');
		ptxtText.focus();
		return(false);
	}
	else if ((isNaN(ptxtText.value)) || (ptxtText.value<piMin) || (ptxtText.value>piMax))
	{
		alert('El formato para el campo  \'' + psName + '\'debe ser un número entre ' + piMin + ' y ' + piMax + '.');
		ptxtText.focus();
		return(false);
	}
	else
	{
		return(true);
	}
}


function ValidateEmailReq (ptxtText, psName, piLongMax)
{
	if (ptxtText.value.length<=0)
	{
		alert('El campo \'' + psName + '\' es obligatorio.');
		ptxtText.focus();
		return(false);
	}
	else if ((ptxtText.value.length<6) || (ptxtText.value.indexOf('@', 0)<0) || (ptxtText.value.indexOf('.', 0)<0))
	{
		alert('El formato para el campo  \'' + psName + '\' debe ser un email válido.');
		ptxtText.focus();
		return(false);	
	}
	else
	{
		return(true);
	}
}


function ValidateDateReq (ptxtText, psName)
{
	if (ptxtText.value.length!=10)
	{
		alert('El campo \'' + psName + '\' es obligatorio.');
		ptxtText.focus();
		return(false);
	}
	else
	{	
		var dteDate=new Date(ptxtText.value.substr(0, 4), (ptxtText.value.substr(5, 2)-1), ptxtText.value.substr(8, 2));
		if ((dteDate.getDate()==ptxtText.value.substr(8, 2)) && 
			(dteDate.getMonth()==(ptxtText.value.substr(5, 2))-1) && 
			(dteDate.getFullYear()==ptxtText.value.substr(0, 4)))
		{
			return(true);
		}
		else
		{
			alert('El formato para el campo  \'' + psName + '\' debe ser una fecha válida.');
			ptxtText.focus();	
			return(false);
		}
	}
}


function ValidateComboReq (pcboCombo, psName)
{
	if (pcboCombo.selectedIndex<=0)
	{
		alert('El campo \'' + psName + '\' es obligatorio.');
		pcboCombo.focus();
		return(false);
	}
	else if (pcboCombo.options[pcboCombo.selectedIndex].value.length<1)
	{
		alert('El campo \'' + psName + '\' es obligatorio.');
		pcboCombo.focus();
		return(false);	
	}
	else
	{
		return(true);
	}
}


function ValidateText (ptxtText, psName, piLongMin, piLongMax)
{
	if (ptxtText.value.length>0)
	{
		return(ValidateTextReq(ptxtText, psName, piLongMin, piLongMax));	
	}
	else
	{
		return(true);
	}
}



function ValidateNumber (ptxtText, psName, piMin, piMax)
{
	if (ptxtText.value.length>0)
	{
		return(ValidateNumberReq(ptxtText, psName, piMin, piMax));	
	}
	else
	{
		return(true);
	}
}


function ValidateEmail (ptxtText, psName, piLongMax)
{
	if (ptxtText.value.length>0)
	{
		return(ValidateEmailReq(ptxtText, psName, piLongMax));	
	}
	else
	{
		return(false);
	}
}



function ValidateDate (ptxtText, psName)
{
	if (ptxtText.value.length>0)
	{
		return(ValidateDateReq(ptxtText, psName));
	}
	else
	{
		return(true);
	}
}

function ValidarClientes (pfrmFormulario)
{
	if (!ValidateEmailReq(pfrmFormulario.txtUsuario, 'Usuario', 50))
	{
		return(false);
	}
	else if (!ValidateTextReq(pfrmFormulario.txtContrasena, 'Contraseña', 1, 50))
	{
		return(false);
	}
	else
	{
		return(true);
	}
}