// JavaScript Document

function usuario_nombre_validar ( usuario_nombre )
{
  var MIN_Len = 3;
  if ( STR_Len ( usuario_nombre.value ) == 0 )
  {
    alert ( "Debe Ingresar un Nombre de Usuario." );
    Set_Focus ( usuario_nombre );
    return false;
  }
  if ( STR_Len ( usuario_nombre.value ) < MIN_Len )
  {
    alert ( "Nombre de Usuario debe tener al menos 3 caracteres." );
    Set_Focus ( usuario_nombre );
    return false;
  }
  if ( STR_Count ( usuario_nombre.value, ' ' ) >= MIN_Len )
  {
    alert ( "Nombre de Usuario no puede estar compuesto solamente de espacios en blanco." );
    Set_Focus ( usuario_nombre );
    return false;
  }
   return true;
}


function usuario_password_validar ( usuario_password )
{
  var MIN_Len = 3;
  if ( STR_Len ( usuario_password.value ) == 0 ) 
  {
    alert ( "Debe Ingresar una Contraseña de Usuario." );
    Set_Focus ( usuario_password );
    return false;
  }
  if ( STR_Len ( usuario_password.value ) < MIN_Len )
  {
    alert ( "Contraseña de Usuario debe tener al menos 3 caracteres." );
    Set_Focus ( usuario_password );
    return false;
  }
  if ( STR_Count ( usuario_password.value, ' ' ) >= MIN_Len )
  {
    alert ( "Contraseña de Usuario no puede estar compuesta solamente de espacios en blanco." );
    Set_Focus ( usuario_password );
    return false;
  }
  return true;
}


function usuario_direccion_email_validar ( usuario_direccion_email )
{
  var MIN_Len = 6;
  var POS_A;
  var POS_P;
  var POS_PR;
  if ( STR_Len ( usuario_direccion_email.value ) == 0 )
  {
    alert ( "Debe Ingresar una dirección de correo electrónico." );
    Set_Focus ( usuario_direccion_email );
    return false;
  }
  if ( STR_Len ( usuario_direccion_email.value ) < MIN_Len )
  {
    alert ( "La dirección E-Mail ingreada no es válida." );
    Set_Focus ( usuario_direccion_email );
    return false;
  }
  POS_A = STR_Find ( usuario_direccion_email.value, '@' )
  //alert ( POS_A );
  if ( POS_A < 1 ) 
  {
    alert ( "La dirección E-Mail ingreada no es válida." );
    Set_Focus ( usuario_direccion_email );
    return false;
  }
  POS_P = STR_Find ( usuario_direccion_email.value, '.' );
  //alert ( POS_P );
  if ( POS_P < 1 ) 
  {
    alert ( "La dirección E-Mail ingreada no es válida." );
    Set_Focus ( usuario_direccion_email );
    return false;
  }
  POS_PR = STR_FindR ( usuario_direccion_email.value, '.' );
  //alert ( 'POS_PR='+POS_PR );
  if ( POS_PR < ( POS_A + 1 ) ) 
  {
    alert ( "La dirección E-Mail ingreada no es válida." );
    Set_Focus ( usuario_direccion_email );
    return false;
  }
  return true;
}


function persona_nombres_validar ( persona_nombres )
{
  var MIN_Len = 3;
  if ( STR_Len ( persona_nombres.value ) == 0 )
  {
    alert ( "Debe Ingresar Nombre." );
    Set_Focus ( persona_nombres );
    return false;
  }
  if ( STR_Len ( persona_nombres.value ) < MIN_Len )
  {
    alert ( "Nombre debe tener al menos 3 caracteres." );
    Set_Focus ( persona_nombres );
    return false;
  }
  if ( STR_Count ( persona_nombres.value, ' ' ) >= MIN_Len )
  {
    alert ( "Nombre no puede estar compuesto solamente de espacios en blanco." );
    Set_Focus ( persona_nombres );
    return false;
  }
  if ( Letters_Validate ( persona_nombres.value ) == false )
  {
    alert ( "Ha introducido caracteres que no corresponden a un Nombre." );
    Set_Focus ( persona_nombres );
    return false;
  }
  return true;
}


function persona_apellido_paterno_validar ( persona_apellido_paterno )
{
  var MIN_Len = 3;
  if ( STR_Len ( persona_apellido_paterno.value ) == 0 )
  {
    alert ( "Debe Ingresar Apellido." );
    Set_Focus ( persona_apellido_paterno );
    return false;
  }
  if ( STR_Len ( persona_apellido_paterno.value ) < MIN_Len )
  {
    alert ( "Apellido debe tener al menos 3 caracteres." );
    Set_Focus ( persona_apellido_paterno );
    return false;
  }
  if ( STR_Count ( persona_apellido_paterno.value, ' ' ) >= MIN_Len )
  {
    alert ( "Apellido no puede estar compuesto solamente de espacios en blanco." );
    Set_Focus ( persona_apellido_paterno );
    return false;
  }
  if ( Letters_Validate ( persona_apellido_paterno.value ) == false )
  {
    alert ( "Ha introducido caracteres que no corresponden a un Apellido." );
    Set_Focus ( persona_apellido_paterno );
    return false;
  }
  return true;
}


function contacto_compania_validar ( contacto_compania )
{
  var MIN_Len = 3;
  if ( STR_Len ( contacto_compania.value ) == 0 )
  {
    alert ( "Debe Ingresar el nombre de su compañia." );
    Set_Focus ( contacto_compania );
    return false;
  }
  if ( STR_Len ( contacto_compania.value ) < MIN_Len )
  {
    alert ( "El nombre de su Compañía debe tener al menos 3 caracteres." );
    Set_Focus ( contacto_compania );
    return false;
  }
  if ( STR_Count ( contacto_compania.value, ' ' ) >= MIN_Len )
  {
    alert ( "El nombre de su Compañía no puede estar compuesto solamente de espacios en blanco." );
    Set_Focus ( contacto_compania );
    return false;
  }
  return true;
}


function contacto_telefono_validar ( contacto_telefono )
{
  var MIN_Len = 7;
  var IS_INT = INT_Validate ( contacto_telefono.value );
  if (!IS_INT) 
  {
    alert ( "Número de teléfono ingresado no es válido." );
    Set_Focus ( contacto_telefono );
    return false;
  }
  if ( STR_Len ( contacto_telefono.value ) < MIN_Len )
  {
    alert ( "Número de teléfono debe tener por lo menos 7 digitos." );
    Set_Focus ( contacto_telefono );
    return false;
  }
   // == false return IS_INT;
   if ( contacto_telefono.value == '' )
   {
    alert ( "Debe Ingresar un número de teléfono de contacto." );
    Set_Focus ( contacto_telefono );
    return false;
   }
   return true;
}

function contacto_fax_validar ( contacto_fax )
{
  var MIN_Len = 7;
  var IS_INT = INT_Validate ( contacto_fax.value );
  if (!IS_INT) 
  {
    alert ( "Número de fax ingresado no es válido." );
    Set_Focus ( contacto_fax );
    return false;
  }
  if ( STR_Len ( contacto_fax.value ) < MIN_Len )
  {
    alert ( "Número de fax debe tener por lo menos 7 digitos." );
    Set_Focus ( contacto_fax );
    return false;
  }
   if ( contacto_fax.value == '' )
   {
    alert ( "Debe Ingresar un número de fax de contacto." );
    Set_Focus ( contacto_fax );
    return false;
   } 
   return true;
}

function contacto_ciudad_validar ( contacto_ciudad )
{
  var MIN_Len = 4;
  if ( STR_Len ( contacto_ciudad.value ) == 0 )
  {
    alert ( "Debe Ingresar ciudad." );
    Set_Focus ( contacto_ciudad );
    return false;
  } 
  if ( STR_Len ( contacto_ciudad.value ) < MIN_Len )
  {
    alert ( "El nombre de su Ciudad debe tener al menos 4 caracteres." );
    Set_Focus ( contacto_ciudad );
    return false;
  }
  if ( STR_Count ( contacto_ciudad.value, ' ' ) >= MIN_Len )
  {
    alert ( "El nombre de su Ciudad no puede estar compuesto solamente de espacios en blanco." );
    Set_Focus ( contacto_ciudad );
    return false;
  }
  if ( Letters_Validate ( contacto_ciudad.value ) == false )
  {
    alert ( "Ha introducido caracteres que no corresponden a un nombre de Ciudad." );
    Set_Focus ( contacto_ciudad );
    return false;
  }
   return true;
}