// JavaScript Document

 function STR_Len ( PString )
 {
   return PString.length;
 }

 function STR_Find ( PString, PStringFind )
 {
   /*alert ( 'STR_Find' );
   alert ( PString ); 
   alert ( PStringFind );*/
   return PString.indexOf( PStringFind, 0 );
 }
 
 function STR_FindR ( PString, PStringFind )
 {
   /*alert ( PString );
   alert ( PStringFind );
   alert ( "STR_Len(PString)="+STR_Len(PString) );
   alert ( "PString.lastIndexOf( PString, STR_Len ( PString ))=" +PString.lastIndexOf( PStringFind, STR_Len ( PString )-1) );*/
   return PString.lastIndexOf( PStringFind, STR_Len ( PString )-1); 
 }

 function STR_Count ( PString, PStringFind )
 {
   var i, Count = 0;
   for ( i = 0; i < STR_Len ( PString ); i++ )
   {
     //alert ( PString.charAt ( i ) );
     if ( PString.charAt ( i ) == PStringFind )
        Count++;
   }
   return Count;
 }
 
 function INT_Validate ( PString )
 {
   var IS_INT = true;
   for ( i = 0; i < STR_Len ( PString ); i++ )
   {
     //alert ( PString.charAt ( i ) );
     if ( ( PString.charAt ( i ) < '0' ) || ( PString.charAt ( i ) > '9') )
        IS_INT = false;
   }
   return IS_INT;
 }
 
 function Letters_Validate ( PString )
 {
  var IS_Letter = true;
  for ( i = 0; i < STR_Len ( PString ); i++ )
  {
    if ( ( ( PString.charAt ( i ) < 'A' ) || ( PString.charAt ( i ) > 'Z' ) ) && ( ( PString.charAt ( i ) < 'a' ) || ( PString.charAt ( i ) > 'z' ) ) )
    {
     if 
       ( 
         ( PString.charAt ( i ) != 'á' ) && 
         ( PString.charAt ( i ) != 'é' ) && 
         ( PString.charAt ( i ) != 'í' ) && 
         ( PString.charAt ( i ) != 'ó' ) && 
         ( PString.charAt ( i ) != 'í' ) && 
         ( PString.charAt ( i ) != 'Á' ) && 
         ( PString.charAt ( i ) != 'É' ) && 
         ( PString.charAt ( i ) != 'Í' ) && 
         ( PString.charAt ( i ) != 'Ó' ) && 
         ( PString.charAt ( i ) != 'Ú' ) && 
         ( PString.charAt ( i ) != "'" ) && 
         ( PString.charAt ( i ) != ' ' ) && 
         ( PString.charAt ( i ) != 'Ñ' ) && 
         ( PString.charAt ( i ) != 'ñ' ) 
       )
       return false;
    }
  }
  return true;
 }

 function Set_Focus ( PObject )
 {
  PObject.focus();
 }
 
 function Select ( PObject )
 {
  PObject.select();
 }