ÿþ/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  
   *                                                                                                                                   *  
   *         F u n ç õ e s   B á s i c a s   e m   J a v a S c r i p t   p a r a   m a n i p u l a ç ã o   d e   s t r i n g s         *  
   *                                                                                                                                   *  
   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /  
 / /   L i m p a   o   c o n t e ú d o   d e   u m   c a m p o  
 f u n c t i o n   L i m p a C a m p o (   i n d   )  
 {  
 	 d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e = " " ;  
 }  
  
 / /   C o l o c a   t o d a s   a s   l e t r a s   d e   u m   c a m p o   e m   m a i ú s c u l o  
 f u n c t i o n   M a i u s c u l o (   i n d   )  
 {  
     d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e . t o U p p e r C a s e ( ) ;  
 }  
  
 f u n c t i o n   M o s t r a M e n s a g e m ( p N u m b e r , p F i e l d )  
 {  
         v a r   s M s g = ' ' ; 	  
         i f   ( p N u m b e r = = ' P 0 0 1 ' )   {  
             	 s M s g = ' P o r   f a v o r ,   i n f o r m e   u m   v a l o r   p a r a   o   c a m p o   '   +   p F i e l d ; 	  
 	 a l e r t ( s M s g ) ;  
 	 r e t u r n   f a l s e ;  
         }  
 }  
  
  
 / /   C o l o c a   t o d a s   a s   l e t r a s   e m   m i n ú s c u l o  
 f u n c t i o n   M i n u s c u l o (   i n d   )  
 {  
     d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e . t o L o w e r C a s e ( ) ;  
 }  
  
 / /   R e t o r n a   t o d o s   o s   c a r a c t e r e s   e s p e c i a i s  
 f u n c t i o n   R e t C a r a c E s p e c i a i s ( s P a r a m )  
 {  
     v a r   s C a r a c E s p e c i a i s   =   ' < > , ; : ? / } ] ^ ~ [ { ` ´ ! @ # $ % ¨ & * " _ + = ç Ç \ | ' ;  
     v a r   s C a r a c E s p e c i a i s   =   s C a r a c E s p e c i a i s   +   " ' " ;  
      
     v a r   s C a r a c E s p e c i a i s 2   =   ' < > , ; : ? / } ] ^ ~ [ { ` ´ ! @ # $ % ¨ & * " _ + = \ | ' ;  
     v a r   s C a r a c E s p e c i a i s 2   =   s C a r a c E s p e c i a i s 2   +   " ' " ;  
      
     i f (   s P a r a m   = =   ' 2 '   )  
     {  
         s C a r a c E s p e c i a i s   =   s C a r a c E s p e c i a i s 2 ;  
     }  
      
     r e t u r n   s C a r a c E s p e c i a i s ;  
      
 }  
  
 f u n c t i o n   T i r a P o n t o s (   i n d   )  
 {  
     v a r   s N u m e r o ;      
     v a r   s A u x   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;      
      
     s N u m e r o   =   s A u x . s p l i t   ( " . " ) ;  
     r e t u r n   s N u m e r o . j o i n ( " " ) ;  
 }  
  
 f u n c t i o n   T i r a V i r g u l a (   s A u x   )  
 {  
     v a r   s N u m e r o ;  
      
     s N u m e r o   =   s A u x . s p l i t   ( " , " ) ;  
     r e t u r n   s N u m e r o . j o i n ( " " ) ;  
 }  
  
 f u n c t i o n   T i r a B a r r a D a t a (   s A u x   )  
 {  
     v a r   s D a t a ;  
      
     s D a t a   =   s A u x . s p l i t   ( " / " ) ;  
     r e t u r n   s D a t a . j o i n ( " " ) ;  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   C o n t i d o N o D o m i n i o         R e t o r n a   T r u e   s e   a   S t r i n g   d a d a   s ó   c o n t i v e r       |  
   |                                           c a r a c t e r e s   d o   d o m í n i o   d a d o                                     |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   C o n t i d o N o D o m i n i o (   s C a r a c t e r e s ,   D o m i n i o   )  
 {  
     v a r   i C o u n t ,   i C o u n t A u x ;  
  
     i f (   s C a r a c t e r e s   = =   " "   )  
         r e t u r n   f a l s e ;  
  
     f o r (   i C o u n t = 0 ;   i C o u n t < s C a r a c t e r e s . l e n g t h ;   i C o u n t + +   )  
 	 {  
 	     f o r (   i C o u n t A u x = 0 ;   i C o u n t A u x < D o m i n i o . l e n g t h ;   i C o u n t A u x + +   )  
 	 	 {  
 	 	     i f (   s C a r a c t e r e s . s u b s t r ( i C o u n t , 1 )   = =   D o m i n i o . s u b s t r ( i C o u n t A u x , 1 )   )  
 	 	         b r e a k ;  
 	 	 }  
 	 	  
 	     i f (   i C o u n t A u x   > =   D o m i n i o . l e n g t h   )  
 	         r e t u r n   f a l s e ;  
 	 }  
 	  
     r e t u r n   t r u e ;  
      
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   C o n t e m D o m i n i o         R e t o r n a   T r u e   s e   a   S t r i n g   d a d a   c o n t i v e r   a l g u m       |  
   |                                     c a r a c t e r e   d o   d o m í n i o   d a d o                                             |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   C o n t e m D o m i n i o (   s C a r a c t e r e s ,   D o m i n i o   )  
 {  
     v a r   i C o u n t ,   i C o u n t A u x ;  
  
     i f (   s C a r a c t e r e s   ! =   " " )  
 	 {  
 	     f o r (   i C o u n t = 0 ;   i C o u n t < s C a r a c t e r e s . l e n g t h ;   i C o u n t + +   )  
 	 	 {  
 	 	     f o r (   i C o u n t A u x = 0 ;   i C o u n t A u x < D o m i n i o . l e n g t h ;   i C o u n t A u x + +   )  
 	 	 	 {  
 	 	 	     i f (   s C a r a c t e r e s . s u b s t r ( i C o u n t , 1 )   = =   D o m i n i o . s u b s t r ( i C o u n t A u x , 1 )   )  
 	 	 	         r e t u r n   t r u e ;  
 	 	 	 }  
 	 	 }  
 	 }  
 	  
     r e t u r n   f a l s e ;  
      
 }  
  
 / *  
   N o m e :   f S o C a r a c t e r  
   D e s c r i c a o :   V e r i f i c a   n a   s t r i n g   p a s s a d a ,   s e   e x i s t e   s o m e n t e   o   c a r a c t e r   i n f o r m a d o  
 * /  
 f u n c t i o n   f S o C a r a c t e r ( _ s t r i n g , c a r a c )  
 {  
 f o r ( i = 0 ; i < _ s t r i n g . l e n g t h ; i + + )  
 {  
 	 i f ( _ s t r i n g . c h a r A t ( i ) ! = c a r a c )  
 	 	 r e t u r n   f a l s e ; 	  
 }  
  
 	 i f   (   _ s t r i n g . l e n g t h   )  
 	     r e t u r n   t r u e ;  
 	 e l s e  
 	     r e t u r n   f a l s e ;  
  
 }  
  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   I s N u m b e r                 R e t o r n a   T r u e   s e   a   S t r i n g   d a d a   c o n t i v e r                     |  
   |                                   s o m e n t e   n ú m e r o s                                                                   |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   I s N u m b e r (   s V a l o r   )  
 {  
      
     r e t u r n   C o n t i d o N o D o m i n i o (   s V a l o r ,   " 0 1 2 3 4 5 6 7 8 9 "   ) ;  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   I s I n t 	                   R e t o r n a   T r u e   s e   a   S t r i n g   d a d a   s ó   c o n t i v e r               |  
   |                                   c a r a c t e r e s   p a r a   N ú m e r o   i n t e i r o                                     |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   I s I n t (   s V a l o r   )  
 {  
 	  
     r e t u r n   C o n t i d o N o D o m i n i o (   s V a l o r ,   "   + - 0 1 2 3 4 5 6 7 8 9 "   ) ;  
 }  
  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   I s C h a r                     R e t o r n a   T r u e   s e   a   S t r i n g   d a d a   c o n t i v e r                     |  
   |                                   s o m e n t e   c a r a c t e r e s   v á l i d o s   ( l e t r a s   e   n ú m e r o s )       |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   i s V a l i d C h a r ( v a l o r )  
 {  
     v a r   a C o d e   =   n e w   A r r a y ( ) ;  
     v a r   i C t = 0 ;  
     a C o d e [ 0 ] = 4 8 ;  
     a C o d e [ 1 ] = 4 9 ;  
     a C o d e [ 2 ] = 5 0 ;  
     a C o d e [ 3 ] = 5 1 ;  
     a C o d e [ 4 ] = 5 2 ;  
     a C o d e [ 5 ] = 5 3 ;  
     a C o d e [ 6 ] = 5 4 ;  
     a C o d e [ 7 ] = 5 5 ;  
     a C o d e [ 8 ] = 5 6 ;  
     a C o d e [ 9 ] = 5 7 ;  
     a C o d e [ 1 0 ] = 1 1 3 ;  
     a C o d e [ 1 1 ] = 1 1 9 ;  
     a C o d e [ 1 2 ] = 1 0 1 ;  
     a C o d e [ 1 3 ] = 1 1 4 ;  
     a C o d e [ 1 4 ] = 1 1 6 ;  
     a C o d e [ 1 5 ] = 1 2 1 ;  
     a C o d e [ 1 6 ] = 1 1 7 ;  
     a C o d e [ 1 7 ] = 1 0 5 ;  
     a C o d e [ 1 8 ] = 1 1 1 ;  
     a C o d e [ 1 9 ] = 1 1 2 ;  
     a C o d e [ 2 0 ] = 9 7 ;  
     a C o d e [ 2 1 ] = 1 1 5 ;  
     a C o d e [ 2 2 ] = 1 0 0 ;  
     a C o d e [ 2 3 ] = 1 0 2 ;  
     a C o d e [ 2 4 ] = 1 0 3 ;  
     a C o d e [ 2 5 ] = 1 0 4 ;  
     a C o d e [ 2 6 ] = 1 0 6 ;  
     a C o d e [ 2 7 ] = 1 0 7 ;  
     a C o d e [ 2 8 ] = 1 0 8 ;  
     a C o d e [ 2 9 ] = 2 3 1 ;  
     a C o d e [ 3 0 ] = 1 2 2 ;  
     a C o d e [ 3 1 ] = 1 2 0 ;  
     a C o d e [ 3 2 ] = 9 9 ;  
     a C o d e [ 3 3 ] = 1 1 8 ;  
     a C o d e [ 3 4 ] = 1 1 0 ;  
     a C o d e [ 3 5 ] = 1 0 9 ;  
     a C o d e [ 3 6 ] = 8 1 ;  
     a C o d e [ 3 7 ] = 8 7 ;  
     a C o d e [ 3 8 ] = 6 9 ;  
     a C o d e [ 3 9 ] = 8 2 ;  
     a C o d e [ 4 0 ] = 8 4 ;  
     a C o d e [ 4 1 ] = 8 9 ;  
     a C o d e [ 4 2 ] = 8 5 ;  
     a C o d e [ 4 3 ] = 7 3 ;  
     a C o d e [ 4 4 ] = 7 9 ;  
     a C o d e [ 4 5 ] = 8 0 ;  
     a C o d e [ 4 6 ] = 6 5 ;  
     a C o d e [ 4 7 ] = 8 3 ;  
     a C o d e [ 4 8 ] = 6 8 ;  
     a C o d e [ 4 9 ] = 7 0 ;  
     a C o d e [ 5 0 ] = 7 1 ;  
     a C o d e [ 5 1 ] = 7 2 ;  
     a C o d e [ 5 2 ] = 7 4 ;  
     a C o d e [ 5 3 ] = 7 5 ;  
     a C o d e [ 5 4 ] = 7 6 ;  
     a C o d e [ 5 5 ] = 1 9 9 ;  
     a C o d e [ 5 6 ] = 9 0 ;  
     a C o d e [ 5 7 ] = 8 8 ;  
     a C o d e [ 5 8 ] = 6 7 ;  
     a C o d e [ 5 9 ] = 8 6 ;  
     a C o d e [ 6 0 ] = 6 6 ;  
     a C o d e [ 6 1 ] = 7 8 ;  
     a C o d e [ 6 2 ] = 7 7 ;  
     a C o d e [ 6 3 ] = 9 8 ;  
 / /  
     i f ( d o c u m e n t . a l l )  
     v a r   T e c l a   =   e v e n t . k e y C o d e ;          
     f o r   ( i C t = 0 ;   i C t < a C o d e . l e n g t h ;   i C t + + )   {  
           i f   ( T e c l a = = a C o d e [ i C t ] )   {  
                   r e t u r n   t r u e ;  
                   b r e a k ;  
           }  
     } 	  
   r e t u r n   f a l s e ;      
 }  
  
 	 	 	  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   I s F l o a t                   R e t o r n a   T r u e   s e   a   S t r i n g   d a d a   s ó   c o n t i v e r               |  
   |                                   c a r a c t e r e s   p a r a   N ú m e r o   e m   P o n t o - F l u t u a n t e               |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   I s F l o a t (   i n d   )  
 {  
     v a r   s C a m p o   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;  
      
     r e t u r n   C o n t i d o N o D o m i n i o (   s C a m p o ,   "   + - 0 1 2 3 4 5 6 7 8 9 E e , . "   ) ;  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   I s C u r r               R e t o r n a   T r u e   s e   a   S t r i n g   d a d a   s ó   c o n t i v e r                     |  
   |                             C a r a c t e r e s   p a r a   N ú m e r o   C u r r e n c y                                         |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   I s C u r r (   i n d   )  
 {  
     v a r   s C a m p o   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;  
      
     r e t u r n   C o n t i d o N o D o m i n i o (   s C a m p o ,   "   + - 0 1 2 3 4 5 6 7 8 9 , . "   ) ;  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   A l i g n L e f t           A c e r t a   a   s t r i n g   n o   t a m a n h o   c o r r e t o   c o m                         |  
   |                               a l i n h a m e n t o   à   e s q u e r d a                                                         |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   A l i g n L e f t (   i n d ,   T a m a n h o   )  
 {          
     v a r   s R e t ,   i C o u n t ;  
     v a r   s C a r a c t e r e s   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;  
  
     i f (   s C a r a c t e r e s . l e n g t h   > =   T a m a n h o   )  
         s R e t   =   s C a r a c t e r e s . s u b s t r ( 0 , T a m a n h o ) ;                            
     e l s e  
 	 {  
 	     s R e t   =   s C a r a c t e r e s ;  
 	      
 	     f o r (   i C o u n t = T a m a n h o - s C a r a c t e r e s . l e n g t h ;   i C o u n t > 0 ;   i C o u n t - -   )  
 	 	     s R e t   =   s R e t   +   "   " ;  
 	 }  
 	  
     r e t u r n   s R e t ;  
      
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   C o m p l Z e r o s         R e t o r n a   o   v a l o r   N u m é r i c o   c o m p l e t a d a   c o m   z e r o s           |  
   |                               a t é   o   t a m a n h o   e s p e c i f i c a d o .                                               |  
   |     s t r D i r E s q   s e   f o r     ´ d ´   = >   D i r e i t a   ´ e ´   = >   E s q u e r d a                               |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   C o m p l Z e r o s (   s C a r a c t e r e s   ,   T a m a n h o   ,   s t r D i r E s q   )    
 {  
     v a r   i C o u n t ;  
     v a r   s R e t   =   " " ;  
     / / v a r   s C a r a c t e r e s   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;  
  
     s t r D i r E s q   =   s t r D i r E s q . t o U p p e r C a s e ( ) ;  
      
     i f (   s C a r a c t e r e s . l e n g t h   > =   T a m a n h o   )  
             s R e t   =   s C a r a c t e r e s . s u b s t r ( s C a r a c t e r e s . l e n g t h   -   T a m a n h o , T a m a n h o ) ;                            
     e l s e  
 	 { 	  
 	     f o r (   i C o u n t = T a m a n h o - s C a r a c t e r e s . l e n g t h ;   i C o u n t > 0 ;   i C o u n t - -   )  
 	     {    
 	 	     s R e t   =   s R e t   +   " 0 "   ; 	      
         }  
          
 	         i f   (   s t r D i r E s q   = =   ' D '   )  
 	         {  
                 s R e t   =   s C a r a c t e r e s   +   s R e t ;  
 	 	     }  
 	 	     e l s e  
 	 	     {  
                 s R e t   =   s R e t   +   s C a r a c t e r e s ;  
 	 	     }  
  
 	 }  
 	  
     r e t u r n   s R e t ;  
      
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   C o m p l S p a c e s         R e t o r n a   o   v a l o r   N u m é r i c o   c o m p l e t a d a   c o m   z e r o s         |  
   |                               a t é   o   t a m a n h o   e s p e c i f i c a d o .                                               |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   C o m p l S p a c e s (   i n d ,   T a m a n h o   )  
 {  
     v a r   i C o u n t ;  
     v a r   s R e t   =   " " ;  
     v a r   s C a r a c t e r e s   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;  
  
     i f (   s C a r a c t e r e s . l e n g t h   > =   T a m a n h o   )  
             s R e t   =   s C a r a c t e r e s . s u b s t r ( s C a r a c t e r e s . l e n g t h   -   T a m a n h o , T a m a n h o ) ;                            
     e l s e  
 	 { 	  
 	     f o r (   i C o u n t = T a m a n h o - s C a r a c t e r e s . l e n g t h ;   i C o u n t > 0 ;   i C o u n t - -   )  
 	 	     s R e t   =   s R e t   +   "   " ;  
  
         s R e t   =   s R e t   +   s C a r a c t e r e s ;  
 	 }  
 	  
     r e t u r n   s R e t ;  
      
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   R e t o r n a D o m i n i o             R e t o r n a   a   S t r i n g   d a d a ,   s o m e n t e   c o m   o s               |  
   |                                           c a r a c t e r e s   d o   d o m í n i o   d a d o                                     |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   R e t o r n a D o m i n i o (   i n d ,   D o m i n i o   )  
 {      
     v a r   s R e t   =   " " ;  
     v a r   i C o u n t ,   i C o u n t A u x ,   s C a r a c ;  
     v a r   s C a r a c t e r e s   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;  
      
     f o r (   i C o u n t = 0 ;   i C o u n t < s C a r a c t e r e s . l e n g t h ;   i C o u n t + +   )  
 	 {  
 	     s C a r a c   =   s C a r a c t e r e s . s u b s t r ( i C o u n t , 1 ) ;  
 	  
 	     f o r (   i C o u n t A u x = 0 ;   i C o u n t A u x < D o m i n i o . l e n g t h ;   i C o u n t A u x + +   )  
 	 	 {  
 	 	     i f (   s C a r a c   = =   D o m i n i o . s u b s t r ( i C o u n t A u x , 1 )   )  
 	 	         b r e a k ;  
 	 	 }  
 	  
 	     i f (   i C o u n t A u x   <   D o m i n i o . l e n g t h   )  
 	 	     s R e t   =   s R e t   +   s C a r a c ;  
 	 }  
 	  
     r e t u r n   s R e t ;  
      
 }  
 	 	 	  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   R e t i r a D o m i n i o               R e t o r n a   a   S t r i n g   d a d a   r e t i r a n d o   o s                     |  
   |                                           c a r a c t e r e s   d o   d o m í n i o   d a d o                                     |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   R e t i r a D o m i n i o (   v a l o r ,   D o m i n i o   )  
 {  
     v a r   s R e t   =   " " ;  
     v a r   i C o u n t ,   i C o u n t A u x ,   s C a r a c ;  
     v a r   s C a r a c t e r e s   =   v a l o r ;  
  
     f o r (   i C o u n t = 0 ;   i C o u n t < s C a r a c t e r e s . l e n g t h ;   i C o u n t + +   )  
 	 {  
 	     s C a r a c   =   s C a r a c t e r e s . s u b s t r ( i C o u n t , 1 ) ;  
 	  
 	     f o r (   i C o u n t A u x = 0 ;   i C o u n t A u x < D o m i n i o . l e n g t h ;   i C o u n t A u x + +   )  
 	 	 {  
 	 	     i f (   s C a r a c   = =   D o m i n i o . s u b s t r ( i C o u n t A u x , 1 )   )  
 	 	         b r e a k ;  
 	 	 }  
 	  
 	     i f (   i C o u n t A u x   > =   D o m i n i o . l e n g t h   )  
 	 	     s R e t   =   s R e t   +   s C a r a c ;  
 	 }  
 	  
     r e t u r n   s R e t ;  
      
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   I s V a l u e 	 	     R e t o r n a   T r u e   s e   o   S t r i n g   d a d a   f o r   u m   n ú m e r o             |  
   |                             c o m   c a s a s   d e c i m a i s   d a d a s .                                                 |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   I s V a l u e (   i n d ,   i D e c i m a i s   )  
 {  
     v a r   i C o u n t   =   0 ;  
     v a r   s N u m e r o   =   d o c u m e n t . f o r m s [ 0 ] . e l e m e n t s [ i n d ] . v a l u e ;  
  
     i f (   i D e c i m a i s   >   0   )  
     {  
         i f (   s N u m e r o . l e n g t h   <   i D e c i m a i s   +   2   | |   ( s N u m e r o . i n d e x O f ( " . " ,   0 )   = =   - 1   & &   s N u m e r o . i n d e x O f ( " , " ,   0 )   = =   - 1 )   )  
             r e t u r n   f a l s e ;  
     }  
     e l s e  
         r e t u r n   f a l s e ;  
    
     w h i l e (   i C o u n t   <   s N u m e r o . l e n g t h   )  
     {  
         i f (   i C o u n t   = =   s N u m e r o . l e n g t h   -   ( i D e c i m a i s   +   1 )   )  
         {  
             i f (   s N u m e r o . c h a r A t ( i C o u n t )   ! =   " . "   & &   s N u m e r o . c h a r A t ( i C o u n t )   ! =   " , "   )  
                 r e t u r n   f a l s e ;  
         }  
         e l s e  
         {  
             i f (   s N u m e r o . c h a r A t ( i C o u n t )   <   " 0 "   | |   s N u m e r o . c h a r A t ( i C o u n t )   >   " 9 "   )  
                 r e t u r n   f a l s e ;  
         }  
          
     i C o u n t + +  
          
     }  
  
     r e t u r n   t r u e ;  
      
 }  
  
  
 / *   R e t i r a   o s   e s p a ç o s   à   e s q u e r d a   e   à   d i r e i t a   d a   s t r i n g   * /  
 f u n c t i o n   T r i m (   s S t r i n g   )  
 {  
     i f (   s S t r i n g   ! =   ' '   )  
     {  
         / /     R e t i r a   e s p a ç o s   à   d i r e i t a   d a   s t r i n g  
         w h i l e ( s S t r i n g . c h a r A t ( s S t r i n g . l e n g t h - 1 ) = =   '   ' )  
             s S t r i n g   =   s S t r i n g . s u b s t r i n g ( 0 , s S t r i n g . l e n g t h - 1 ) ;  
          
         / /     R e t i r a   e s p a ç o s   à   e s q u e r d a   d a   s t r i n g  
         w h i l e ( s S t r i n g . c h a r A t ( 0 ) = =   '   ' )  
             s S t r i n g   =   s S t r i n g . s u b s t r i n g ( 1 , s S t r i n g . l e n g t h ) ;  
       }  
        
       r e t u r n   s S t r i n g ;  
 }  
  
  
 / *   R e t i r a   o s   e s p a ç o s   à   d i r e i t a   d a   s t r i n g   * /  
 f u n c t i o n   R T r i m (   s S t r i n g   )  
 {  
     i f (   s S t r i n g   ! =   ' '   )  
     {  
         / /     R e t i r a   e s p a ç o s   à   d i r e i t a   d a   s t r i n g  
         w h i l e ( s S t r i n g . c h a r A t ( s S t r i n g . l e n g t h - 1 ) = =   '   ' )  
             s S t r i n g   =   s S t r i n g . s u b s t r i n g ( 0 ,   s S t r i n g . l e n g t h - 1 ) ;  
     }  
        
     r e t u r n   s S t r i n g ;  
 }  
  
 / *   R e t i r a   o s   e s p a ç o s   à   e s q u e r d a   d a   s t r i n g   * /  
 f u n c t i o n   L T r i m (   s S t r i n g   )  
 {  
     i f (   s S t r i n g   ! =   ' '   )  
     {          
         / /     R e t i r a   e s p a ç o s   à   e s q u e r d a   d a   s t r i n g  
         w h i l e ( s S t r i n g . c h a r A t ( 0 ) = =   '   ' )  
             s S t r i n g   =   s S t r i n g . s u b s t r i n g ( 1 ,   s S t r i n g . l e n g t h ) ;  
       }  
        
       r e t u r n   s S t r i n g ;  
 }  
  
 / *   C o n s i s t ê n c i a   q u e   n ã o   p e r m i t e   a o   u s u á r i o   s e l e c i o n a r   o   c o m b o   d e   P o s i ç ã o .  
       E s t a   f u n ç ã o   é   u t i l i z a d a   s o m e n t e   n a s   p á g i n a s   d e   f i l t r o   q u e   p o s s u a m   o s   c a m p o s  
       d e   P o s i ç ã o ,   D a t a   d e   R e f e r ê n c i a   e   S i t u a ç ã o     * /  
 f u n c t i o n   C o n s i s t e _ P o s i c a o _ _ S i t u a c a o _ D a t a (   s t r F o r m u l a r i o ,   s t r C a m p o T e x t ,   s t r C a m p o S l t S i t u a c a o ,   s t r C a m p o S l t P o s i c a o ,   s t r C o n s i s t e n c i a ,   b L o a d P a g e   )  
 {  
     v a r   s t r D a t a R e f e r e n c i a   =   e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o T e x t   +   ' . v a l u e ' ) ;  
     v a r   s t r S l t S i t u a c a o         =   e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t S i t u a c a o   +   ' . o p t i o n s [ d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t S i t u a c a o   +   ' . s e l e c t e d I n d e x ] . v a l u e ; ' ) ;  
     v a r   s t r S l t P o s i c a o           =   e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t P o s i c a o   +   ' . o p t i o n s [ d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t P o s i c a o   +   ' . s e l e c t e d I n d e x ] . v a l u e ; ' ) ;  
              
     s t r S l t S i t u a c a o   =   s t r S l t S i t u a c a o . t o U p p e r C a s e ( ) ;  
     s t r S l t P o s i c a o     =   s t r S l t P o s i c a o . t o U p p e r C a s e ( ) ;  
      
     / /     V e r i f i c a   q u a l   o   t i p o   d e   c o n s i s t ê n c i a   a   s e r   r e a l i z a d a  
     i f (   s t r C o n s i s t e n c i a   = =   ' P '   )  
     {  
         / /     C o n s i s t ê n c i a   b a s e a d a   n o   c a m p o   P o s i ç ã o  
         i f (   s t r S l t P o s i c a o   ! =   ' N E N H U M '   )  
         {  
             i f (   ! b L o a d P a g e   )   / / L e o  
                 a l e r t ( ' A   p e s q u i s a   p o r   P o s i ç ã o   s ó   é   p e r m i t i d a   a   p a r t i r   d a   d a t a   a t u a l   e   c o n s i d e r a n d o   t o d a s   a s   s i t u a ç õ e s .   P r e s s i o n e   C o n s u l t a r   p a r a   c o n t i n u a r   o   p r o c e s s o   d e   c o n s u l t a ,   o u   d e f i n a   n o v o   f i l t r o ,   r e t i r a n d o   s e l e ç ã o   d o   c a m p o   P o s i ç ã o . ' ) ;  
              
             e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o T e x t   +   ' . d i s a b l e d   =   t r u e ' ) ;  
             e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t S i t u a c a o   +   ' . o p t i o n s [ 0 ] . s e l e c t e d   =   t r u e ' ) ;   / / L e o  
             e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t S i t u a c a o   +   ' . d i s a b l e d   =   t r u e ' ) ;  
         }  
         e l s e  
         {  
             i f (   ! b L o a d P a g e   )   / / L e o  
             {  
                 e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o T e x t   +   ' . d i s a b l e d   =   f a l s e ' ) ;  
                 e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t S i t u a c a o   +   ' . d i s a b l e d   =   f a l s e ' ) ;  
             }  
         }  
     }  
     e l s e  
     {  
         / /     C o n s i s t ê n c i a   b a s e a d a   n o   c a m p o   D a t a   d e   R e f e r ê n c i a   o u   S i t u a ç ã o  
          
         / /     R e c u p e r a   a   d a t a   a t u a l  
         v a r   s t r D a t a A t u a l         =   R e t o r n a D a t a A t u a l ( ) ;          
         v a r   s t r T e m p S i t u a c a o   =   s t r S l t S i t u a c a o . c h a r A t ( 0 ) ;  
      
         i f (   (   s t r D a t a R e f e r e n c i a   ! =   s t r D a t a A t u a l   )   | |   (   s t r T e m p S i t u a c a o   ! =   ' T '   )   )  
         {  
             i f (   ! b L o a d P a g e   )   / / L e o  
                 a l e r t ( ' A   p e s q u i s a   p o r   D a t a   R e f e r ê n c i a   e / o u   S i t u a ç ã o   n ã o   p e r m i t e   a   d e f i n i ç ã o   d a   P o s i ç ã o .   P r e s s i o n e   C o n s u l t a r   p a r a   c o n t i n u a r   o   p r o c e s s o   d e   c o n s u l t a ,   o u   d e f i n a   n o v o   f i l t r o   p o r   P o s i ç ã o ,   i n f o r m a n d o   n a   D a t a   d e   R e f e r ê n c i a   a   d a t a   a t u a l ,   e   n a   S i t u a ç ã o   a   o p ç ã o   T o d o s . ' ) ;  
                  
             e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t P o s i c a o   +   ' . d i s a b l e d   =   t r u e ' ) ;  
             e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t P o s i c a o   +   ' . o p t i o n s [ 0 ] . s e l e c t e d   =   t r u e ' ) ;   / / L e o  
         }  
         e l s e  
             e v a l ( ' d o c u m e n t . '   +   s t r F o r m u l a r i o   +   ' . '   +   s t r C a m p o S l t P o s i c a o   +   ' . d i s a b l e d   =   f a l s e ' ) ;  
     }  
 }  
  
 / *     C o n s i s t e   o   v a l o r   p a s s a d o   d e   a c o r d o   c o m   a s   c a s a s   d e c i m a i s   e   o   t a m a n h o    
 d a   s t r i n g   d o   v a l o r   ,   e   p r e e n c h e   o   v a l o r   c o m p l e t a d o   c o m   z e r o s   a   e s q u e r d a   d a   v i r g u l a  
 * /  
 f u n c t i o n   C o n s i s t e _ P o r c e n t a g e m   (   s t r N o m e C o n t r o l e   ,   s t r M e n s a g e m E r r o   ,   s t r M e n s a g e m A l e r t a   ,   i T a m I n t e i r o s   ,   i T a m D e c i m a i s   )    
 {  
  
   v a r   s t r M a t r i x C o n f e r e ;  
   v a r   s t r D e c i m a i s ;  
   v a r   s t r I n t e i r o s ;  
   v a r   s t r T e m p D e c i m a i s ;  
   v a r   s t r T e m p I n t e i r o s ;  
    
   v a r   s t r V a l o r   =   e v a l   (   s t r N o m e C o n t r o l e   +     ' . v a l u e '   )   ;   / /   G u a r d a   e m   T e m p   p a r a   n ã o   b a g u n ç a r   a   v a r i á v e l  
   v a r   s t r T e m p V a l o r   =   s t r V a l o r   ;  
    
        
   / /   V e r i f i c a   s e   e s t á   n o   f o r m a t o   d e   u m   n ú m e r o   n ã o   i n t e i r o   q u e   i n d i c a   a   p o r c e n t a g e m   . . .    
   i f   (   !   C o n t i d o N o D o m i n i o (   s t r V a l o r ,   ' , 0 1 2 3 4 5 6 7 8 9 '   )   )  
   {  
         i f   (   s t r M e n s a g e m E r r o   ! =   ' '   )    
         {  
             a l e r t   (   s t r M e n s a g e m E r r o   )   ;  
             e v a l   (   s t r N o m e C o n t r o l e   +   ' . f o c u s ( ) '   ) ;  
             r e t u r n   f a l s e   ;  
         }  
   }  
  
   / /   S e p a r a   o s   i n t e i r o s   d a s   d e c i m a i s   p a r a   u m a   v a l i d a ç ã o   e   f o r m a t a ç ã o . . .  
   i f   (   C o n t e m D o m i n i o (   s t r T e m p V a l o r   ,   " , "   )   )  
   {  
    
         s t r M a t r i x C o n f e r e   =   s t r T e m p V a l o r . s p l i t ( " , " ) ;  
  
         s t r I n t e i r o s   =   s t r M a t r i x C o n f e r e [ 0 ]   ;  
         s t r D e c i m a i s   =   s t r M a t r i x C o n f e r e [ 1 ]   ;    
          
   }  
   e l s e   / /   o   s p l i t   s e   n ã o   t i v e r   " , "   d á   e r r o   e n t ã o . . .  
   {  
    
         s t r I n t e i r o s   =   s t r T e m p V a l o r ;  
         s t r D e c i m a i s   =   ' 0 '   ;    
   }  
    
    
   / /   V e r i f i c a   o   t a m a n h o   d o s   i n t e i r o s . . .  
   i f   (   ( p a r s e F l o a t ( s t r I n t e i r o s . l e n g t h )   >   p a r s e F l o a t ( i T a m I n t e i r o s ) )   | |   ( p a r s e F l o a t ( s t r I n t e i r o s . l e n g t h )   <   1 )   | |   ( p a r s e F l o a t ( s t r I n t e i r o s )   >   1 0 0 )   )  
   {  
  
       i f   (   s t r M e n s a g e m A l e r t a   ! =   ' '   )  
       {  
         a l e r t   (   s t r M e n s a g e m A l e r t a   ) ;  
         e v a l   (   s t r N o m e C o n t r o l e   +   ' . f o c u s ( ) '   ) ;  
         r e t u r n   f a l s e   ;          
       }          
   }  
    
   / /   s e   o   v a l o r   i n f o r m a d o   f o r   = =   a   1 0 0 %   e n t ã o   n ã o   d e v e r e m o s   p r o c e s s a r   c a s a s   d e c i m a i s . . .  
   i f   (   p a r s e F l o a t ( s t r I n t e i r o s )   = =   1 0 0   )  
   {  
         s t r D e c i m a i s   =   C o m p l Z e r o s   (   " "   ,   8   ,   ' d '   )   ;  
   }  
   e l s e   i f (   p a r s e F l o a t ( s t r I n t e i r o s )   <   1 0 0   )  
   {  
  
         / /   F o r m a t a   o   t a m a n h o   d a s   d e c i m a i s . . .  
           i f   (   s t r D e c i m a i s . l e n g t h   >   i T a m D e c i m a i s   )    
           {  
               s t r D e c i m a i s   =   s t r D e c i m a i s . s u b s t r ( 0 , 8 )   ;  
           }  
           e l s e  
           {  
               s t r D e c i m a i s   =   C o m p l Z e r o s (   s t r D e c i m a i s   ,   8   ,   ' d '   )   ;  
           }  
   }  
   e l s e  
   {  
           s t r T e m p I n t e i r o s   =   s t r I n t e i r o s . s u b s t r ( 0 , 3 ) ;  
  
           i f (   s t r D e c i m a i s   ! =   ' '   )  
           	     s t r D e c i m a i s   =   s t r I n t e i r o s . s u b s t r ( 3 , s t r I n t e i r o s . l e n g t h ) ;  
           	      
           i f (   s t r D e c i m a i s . l e n g t h   >   8   )  
                 s t r D e c i m a i s   =   s t r D e c i m a i s . s u b s t r ( 0 , 8 ) ;  
           e l s e   i f (   s t r D e c i m a i s . l e n g t h   <   8   )  
                 s t r D e c i m a i s   =   C o m p l Z e r o s (   s t r D e c i m a i s   ,   8   ,   ' d '   ) ;  
  
           s t r I n t e i r o s   =   s t r T e m p I n t e i r o s ;  
            
   }  
  
      
     / /   A t r i b u i u   o   v a l o r   a o   c o n t r o l e   h t m l .  
     e v a l   (   s t r N o m e C o n t r o l e   +   ' . v a l u e   =   '   +   ' " '   +   s t r I n t e i r o s   +   ' , '   +   s t r D e c i m a i s   +   ' " ' ) ;  
      
     / / R e t o r n o u   s u c e s s o .  
     r e t u r n   t r u e   ;  
 }  
  
 f u n c t i o n   C h e c k K e y ( d )  
 {  
 	 i f ( d o c u m e n t . a l l )  
 	 v a r   T e c l a   =   e v e n t . k e y C o d e ;  
  
 	 i f ( T e c l a   >   4 7   & &   T e c l a   < 5 8 )  
 	 	 r e t u r n   t r u e ;  
 	 i f ( T e c l a   = =   4 4 | | T e c l a   = =   8 )  
 	 	 r e t u r n   t r u e ;  
 	 r e t u r n   f a l s e ;  
  
 }  
  
 f u n c t i o n   F o r m a t a H o r a ( s t x t )    
 {      
         v a r   s A u x     =   s t x t . v a l u e ;  
         i f   ( T r i m ( s A u x ) = = " " )  
             r e t u r n   t r u e ;  
              
         v a r   s A u x   =   R e t i r a D o m i n i o ( s A u x , " : " ) ;      
         i f   ( ! I s I n t ( s A u x ) )   {  
                 a l e r t   ( ' H o r a   i n v á l i d a .   P o r   f a v o r ,   i n f o r m e   a   h o r a   n o   f o r m a t o   H H M M . ' ) ;  
               s t x t . f o c u s ( ) ;  
               r e t u r n   f a l s e ;      
         }                
         v a r   s H o r a   = ' ' ;  
         v a r   s M i n u t o = ' ' ;  
         v a r   s S e g u n d o = ' ' ;  
         v a r   s T i m e   =   s A u x  
         s T i m e   =   R e t i r a D o m i n i o ( s T i m e , " - " ) ;  
         s T i m e   =   R e t i r a D o m i n i o ( s T i m e , " / " ) ;  
         s T i m e   =   R e t i r a D o m i n i o ( s T i m e , "   " ) ;  
         s T i m e   =   R e t i r a D o m i n i o ( s T i m e , " . " ) ;  
         s T i m e   =   R e t i r a D o m i n i o ( s T i m e , " , " ) ;  
         s T i m e   =   R e t i r a D o m i n i o ( s T i m e , " ; " ) ;  
         s T i m e   =   R e t i r a D o m i n i o ( s T i m e , " | " ) ;  
          
         i f   ( s T i m e . l e n g t h   <   4 ) {  
               a l e r t   ( ' H o r a   c o m   d í g i t o s   i n s u f i c i e n t e s . ' ) ;  
               s t x t . f o c u s ( ) ;  
               r e t u r n   f a l s e ;  
         }                
         i f   ( s T i m e . l e n g t h   = =   5 ) {  
               a l e r t   ( ' H o r a   i n v á l i d a .   P o r   f a v o r ,   i n f o r m e   a   h o r a   n o   f o r m a t o   H H M M . ' ) ;  
               s t x t . f o c u s ( ) ;  
               r e t u r n   f a l s e ;  
         }                
         s H o r a = s T i m e . s u b s t r ( 0 , 2 ) ;  
         s M i n u t o   =   s T i m e . s u b s t r ( 2 , 2 ) ;  
         i f   ( s T i m e . l e n g t h   =   6 )  
                 s S e g u n d o   =   s T i m e . s u b s t r ( 4 , 2 ) ;  
                                  
         i f   ( s H o r a   >   2 3 )   {        
               a l e r t   ( ' H o r a   i n v á l i d a .   P o r   f a v o r ,   i n f o r m e   v a l o r e s   e n t r e   0 0   e   2 3 ' ) ;  
               s t x t . f o c u s ( ) ;  
               r e t u r n   f a l s e ;  
         }  
         i f   ( s M i n u t o   >   5 9 )   {        
               a l e r t   ( ' M i n u t o s   i n v á l i d o s .   P o r   f a v o r ,   i n f o r m e   v a l o r e s   e n t r e   0 0   e   5 9 ' ) ;  
               s t x t . f o c u s ( ) ;  
               r e t u r n   f a l s e ;  
         }        
         i f   ( s S e g u n d o   ! =   " "   & &   s S e g u n d o   >   5 9 )   {        
               a l e r t   ( ' S e g u n d o s   i n v á l i d o s .   P o r   f a v o r ,   i n f o r m e   v a l o r e s   e n t r e   0 0   e   5 9 ' ) ;  
               s t x t . f o c u s ( ) ;  
               r e t u r n   f a l s e ;  
         }        
         i f   ( s S e g u n d o   ! =   " " )  
               s t x t . v a l u e = s H o r a   +   " : "   +   s M i n u t o   +   " : "   +   s S e g u n d o  
         e l s e  
               s t x t . v a l u e = s H o r a   +   " : "   +   s M i n u t o    
              
          
          
         r e t u r n   t r u e ;        
          
 }          
    
 f u n c t i o n   f o r m a t a v a l o r ( v a l o r )   {  
          
         v a r   s I n t           =   ' ' ;  
         v a r   s D e c           =   ' ' ;  
         v a r   s N u m e r o     =   ' ' ;  
         v a r   s V a l o r       =   v a l o r . v a l u e ;  
         s V a l o r     =   T r i m ( s V a l o r ) ;        
         i f   ( s V a l o r = = ' ' )  
             r e t u r n   t r u e ;          
              
         s V a l o r   =   R e t i r a D o m i n i o ( s V a l o r ,   " . " ) ;      
         i f   ( s V a l o r . i n d e x O f ( " , " )   >   0 )        
         {    
                 i f ( ! h a s V i r g u l a ( s V a l o r ) )    
                 {          
                         a l e r t   ( ' V a l o r   i n v á l i d o .   P o r   f a v o r ,   i n f o r m e   u m   v a l o r   v á l i d o   p a r a   a   p r o p o s t a . ' ) ;  
                         v a l o r . f o c u s ( ) ;  
                         r e t u r n   f a l s e ;  
                 }  
                 e l s e    
                 {  
                         s D e c       =   s V a l o r . s u b s t r ( s V a l o r . i n d e x O f ( " , " )   +   1 , 2 ) ;  
                         s I n t       =   s V a l o r . s u b s t r ( 0 , s V a l o r . i n d e x O f ( " , " ) ) ;                                                  
                         i f   ( s I n t . l e n g t h   < =   3 )  
                         {  
                                 s N u m e r o   =   s I n t   +   ' , '   +   s D e c ;  
                                 v a l o r . v a l u e = s N u m e r o ;  
                                 r e t u r n   t r u e ;  
                         }  
                         e l s e  
                         {  
                                 s w i t c h ( s I n t . l e n g t h )    
                                 {  
                                     c a s e   4 :  
                                         s N u m e r o   =   s I n t . s u b s t r ( 0 , 1 )   +   " . "   +   s I n t . s u b s t r ( 1 , 4 )   +   " , "   +   s D e c ;  
                                         b r e a k ;  
                                     c a s e   5 :  
                                         s N u m e r o   =   s I n t . s u b s t r ( 0 , 2 )   +   " . "   +   s I n t . s u b s t r ( 2 , 5 )   +   " , "   +   s D e c ;  
                                         b r e a k ;  
                                     c a s e   6 :  
                                         s N u m e r o   =   s I n t . s u b s t r ( 0 , 3 )   +   " . "   +   s I n t . s u b s t r ( 3 , 6 )   +   " , "   +   s D e c ;  
                                         b r e a k ;      
                                     c a s e   7 :  
                                         s N u m e r o   =   s I n t . s u b s t r ( 0 , 1 )   +   " . "   +   s I n t . s u b s t r ( 1 , 3 )   +     " . "   +   s I n t . s u b s t r ( 4 , 3 )   +   " , "   +   s D e c ;  
                                         b r e a k ;          
                                     c a s e   8 :  
                                         s N u m e r o   =   s I n t . s u b s t r ( 0 , 2 )   +   " . "   +   s I n t . s u b s t r ( 2 , 3 )   +     " . "   +   s I n t . s u b s t r ( 5 , 3 )   +   " , "   +   s D e c ;  
                                         b r e a k ;              
                                 }        
                                 v a l o r . v a l u e = s N u m e r o ;  
                         }                              
                 }        
         }  
         e l s e  
         {  
             s w i t c h ( s V a l o r . l e n g t h )    
             {  
                     c a s e   1 :  
                         s N u m e r o   =   s V a l o r   +   " , 0 0 " ;  
                         b r e a k ;  
                     c a s e   2 :  
                         s N u m e r o   =   s V a l o r   +   " , 0 0 " ;  
                         b r e a k ;      
                     c a s e   3 :  
                         s N u m e r o   =   s V a l o r   +   " , 0 0 " ;  
                         b r e a k ;      
                     c a s e   4 :  
                         s N u m e r o   =   s V a l o r . s u b s t r ( 0 , 1 )   +   " . "   +   s V a l o r . s u b s t r ( 1 , 4 )   +   " , 0 0 " ;  
                         b r e a k ;  
                     c a s e   5 :  
                         s N u m e r o   =   s V a l o r . s u b s t r ( 0 , 2 )   +   " . "   +   s V a l o r . s u b s t r ( 2 , 5 )   +   " , 0 0 " ;  
                         b r e a k ;  
                     c a s e   6 :  
                         s N u m e r o   =   s V a l o r . s u b s t r ( 0 , 3 )   +   " . "   +   s V a l o r . s u b s t r ( 3 , 6 )   +   " , 0 0 " ;  
                         b r e a k ;      
                     c a s e   7 :  
                         s N u m e r o   =   s V a l o r . s u b s t r ( 0 , 1 )   +   " . "   +   s V a l o r . s u b s t r ( 1 , 3 )   +     " . "   +   s V a l o r . s u b s t r ( 4 , 3 )   +   " , 0 0 " ;  
                         b r e a k ;          
                     c a s e   8 :  
                         s N u m e r o   =   s V a l o r . s u b s t r ( 0 , 2 )   +   " . "   +   s V a l o r . s u b s t r ( 2 , 3 )   +     " . "   +   s V a l o r . s u b s t r ( 5 , 3 )   +   " , 0 0 " ;  
                         b r e a k ;              
             }    
             i f   ( s N u m e r o . s u b s t r ( 0 , 1 ) = = " , " ) {  
                     a l e r t   ( ' V a l o r   i n v á l i d o .   P o r   f a v o r ,   i n f o r m e   u m   v a l o r   v á l i d o   p a r a   a   p r o p o s t a . ' ) ;  
                     v a l o r . f o c u s ( ) ;  
                     r e t u r n   f a l s e ;  
             }    
             v a l o r . v a l u e = s N u m e r o ;  
         }  
 }      
 f u n c t i o n   h a s V i r g u l a ( s V i r g )   {          
  
         v a r   i P o s   =   s V i r g . i n d e x O f ( " , " ) ;  
         v a r   s P o s   =   s V i r g . s u b s t r ( i P o s + 1 , 2 0 ) ;  
         s P o s = T r i m ( s P o s ) ;  
         i f   ( s P o s . l e n g t h   = =   2 )  
             r e t u r n   t r u e ;  
         e l s e  
             r e t u r n   f a l s e ;              
 }        
  
 f u n c t i o n   v a l i d a s i t e ( s i t e )   {  
    
 	 v a r   s S i t e     =   T r i m ( s i t e . v a l u e ) ;  
 	 v a r   s P o n t o   = ' ' ;  
 	 i f   ( s S i t e = = ' ' )  
 	       r e t u r n   t r u e ;  
 	 	  
 	 s S i t e   =   s S i t e . t o U p p e r C a s e ( ) ;  
 	 i f   ( s S i t e . s u b s t r ( 0 , 4 ) ! = " W W W . " )   {  
 	 	 a l e r t   ( ' E n d e r e ç o   e l e t r ô n i c o   i n v á l i d o . ' ) ;  
 	 	 s i t e . f o c u s ( ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 s P o n t o = s S i t e . s u b s t r ( 4 , 4 0 ) ;  
 	 i f   ( s P o n t o . i n d e x O f ( " . " )   <   0   )   {  
 	 	 a l e r t   ( ' E n d e r e ç o   e l e t r ô n i c o   i n v á l i d o . ' ) ;  
 	 	 s i t e . f o c u s ( ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 } 	  
 	 r e t u r n   t r u e ;    
 }              
  
 f u n c t i o n   v a l i d a e M a i l ( e m a i l )  
 {  
     v a r   s E m a i l   =   e m a i l . v a l u e ;  
     s E m a i l     =   T r i m ( s E m a i l ) ;  
     i f   ( s E m a i l = = ' ' )  
           r e t u r n   t r u e ;  
      
     i f (   s E m a i l . i n d e x O f ( " @ " )   <   0   ) {  
           a l e r t   ( ' E - m a i l   i n v á l i d o . ' ) ;  
           e m a i l . f o c u s ( ) ;  
           r e t u r n   f a l s e ;  
     }  
     i f (   s E m a i l . i n d e x O f ( " . " )   <   0   )   {  
             a l e r t   ( ' E - m a i l   i n v á l i d o . ' ) ;  
             e m a i l . f o c u s ( ) ;  
             r e t u r n   f a l s e ;  
     }        
     i f (   C o n t e m D o m i n i o (   s E m a i l ,   "   ; , : / $ ! # % ^ & * ( ) + [ ] { } | \ \ ~ ` ' \ " "   )   )   {  
             a l e r t   ( ' E - m a i l   i n v á l i d o . ' ) ;  
             e m a i l . f o c u s ( ) ;  
             r e t u r n   f a l s e ;  
     }                
     r e t u r n   t r u e ;  
 }  
  
 f u n c t i o n   f o r m a t a F o n e ( f o n e )   {    
      
             v a r   s F o n e       =   f o n e . v a l u e ;  
             v a r   s F o r m a t   =   ' ' ;  
              
             i f   ( T r i m ( s F o n e ) = = ' ' )  
                     r e t u r n   t r u e ;  
              
             s F o n e   =   R e t i r a D o m i n i o ( s F o n e , " - " ) ;  
              
             i f   ( s F o n e . l e n g t h   <   7 )   {  
                     a l e r t   ( ' N ú m e r o   d o   t e l e f o n e   c o m   d í g i t o s   i n s u f i c i e n t e s . ' ) ;  
                     f o n e . f o c u s ( ) ;  
                     r e t u r n   f a l s e ;  
             }  
             i f   ( s F o n e . l e n g t h   = =   7 )   {  
                     s F o r m a t   =   s F o n e . s u b s t r ( 0 , 3 )   +   ' - '   +   s F o n e . s u b s t r ( 3 , 4 ) ;  
                     f o n e . v a l u e   =   s F o r m a t ;                      
             }  
             i f   ( s F o n e . l e n g t h   = =   8 )   {  
                     s F o r m a t   =   s F o n e . s u b s t r ( 0 , 4 )   +   ' - '   +   s F o n e . s u b s t r ( 4 , 4 ) ;  
                     f o n e . v a l u e   =   s F o r m a t ;  
             }  
             r e t u r n   t r u e ;            
 }  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   m a k e U p p e r :         C o l o c a   o   t e x t o   r e c e b i d o   e m   c a i x a   a l t a  
   |    
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   m a k e U p p e r ( v a l o r )   {  
          
         v a r   v a l o r R e c e b i d o 	 =   v a l o r . v a l u e ;          
         v a r   c a i x a A l t a 	 =   ' ' ;  
         / /  
         v a l o r R e c e b i d o = T r i m ( v a l o r R e c e b i d o ) ;  
         i f   ( v a l o r R e c e b i d o ! =   ' ' )   {          
         	 c a i x a A l t a   =   v a l o r R e c e b i d o . t o U p p e r C a s e ( ) ;         	         	  
         	 v a l o r . v a l u e   =   c a i x a A l t a ;  
         }        
 }  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   m a k e L o w e r :         C o l o c a   o   t e x t o   r e c e b i d o   e m   c a i x a   b a i x a  
   |    
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   m a k e L o w e r ( v a l o r )   {  
          
         v a r   v a l o r R e c e b i d o 	 =   v a l o r . v a l u e ;          
         v a r   c a i x a B a i x a 	 =   ' ' ;  
         / /  
         v a l o r R e c e b i d o = T r i m ( v a l o r R e c e b i d o ) ;  
         i f   ( v a l o r R e c e b i d o ! =   ' ' )   {          
         	 c a i x a B a i x a   =   v a l o r R e c e b i d o . t o L o w e r C a s e ( ) ;         	         	  
         	 v a l o r . v a l u e   =   c a i x a B a i x a ;  
         }        
 }  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   i n t N u m b e r :         P e r m i t e   a p e n a s   e n t r a d a   d e   n ú m e r o s   i n t e i r o s  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   i n t N u m b e r ( d )  
 {  
 	 i f ( d o c u m e n t . a l l )  
 	 v a r   T e c l a   =   e v e n t . k e y C o d e ;  
 	 i f ( T e c l a   >   4 7   & &   T e c l a   < 5 8 )  
 	 	 r e t u r n   t r u e ;  
 	 i f ( T e c l a   = =   8 )  
 	 	 r e t u r n   t r u e ;  
 	 r e t u r n   f a l s e ;  
 }  
  
 f u n c t i o n   r e d i r S i t e ( s L i n k )   { 	  
 	 v a r   s i t e = s L i n k . v a l u e ;  
 	 s i t e = T r i m ( s i t e ) ; 	  
 	 i f   ( s i t e = = ' ' )   	  
 	 	 r e t u r n ;  
 	 s i t e   =   " w i n d o w . o p e n ( ' h t t p : / / "   +   s i t e   +   " ' , ' C l i e n t e ' , ' m e n u b a r = y e s , r e s i z a b l e = y e s , a d d r e s s b a r = y e s , s c r o l l b a r s = y e s , s t a t u s = y e s , t o o l b a r = y e s , w i d t h = 8 0 0 , h e i g h t = 5 0 0 , t o p =   5 0 , l e f t = 5 0 ' ) " ; 	  
 	 e v a l ( s i t e ) ; 	  
 }  
  
 / /   I N I C I O   p a r s e N u m  
 f u n c t i o n   p a r s e N u m ( x )   {  
       v a r   n   =   x ;  
       i f ( n . l e n g t h   = =   0 )   n   =   ' 0 ' ;  
       f o r ( v a r   i = 0 ; i < n . l e n g t h ; i + + )   {  
 	     i f ( n . c h a r A t ( i ) = = " , " )   {  
 	   	   n   =   n . s u b s t r ( 0 , i )   +   " . "   +   n . s u b s t r ( i + 1 ) ;  
 	     }  
       } 	  
       r e t u r n ( p a r s e F l o a t ( n ) ) ;  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f E n c o d e 2 :         f u n ç ã o   p a r a   p r é - c r i p t o g r a f a r   o   v a l o r   r e c e b i d o  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
  
 f u n c t i o n   f E n c o d e 2 ( s P w d )   {  
 	 v a r   s T m p   =   " " ;    
 	 f o r ( v a r   i   =   0 ;   i   <   s P w d . l e n g t h ;   i + + )   {  
 	 	 s T m p   =   s T m p   +   S t r i n g . f r o m C h a r C o d e ( s P w d . c h a r C o d e A t ( i )   +   9 ) ;  
 	 }  
 	 r e t u r n   s T m p ;  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f D e c o d e 2 :         f u n ç ã o   p a r a   p r é - d e s c r i p t o g r a f a r   o   v a l o r   r e c e b i d o  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
  
 f u n c t i o n   f D e c o d e 2 ( s S e n h a )   {  
 	 v a r   s T m p   =   " " ;    
 	 f o r ( v a r   i   =   0 ;   i   <   s S e n h a . l e n g t h ;   i + + )   {  
 	 	 s T m p   =   s T m p   +   S t r i n g . f r o m C h a r C o d e ( s S e n h a . c h a r C o d e A t ( i )   -   9 ) ;  
 	 }  
 	 r e t u r n   s T m p ;  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   v a l i d a T e x t o A r e a :         C o n s i s t e   t a m a n h o   d o   c a m p o   i n f o r m a d o .                 |  
   |   	 	 	 	 	 	 	 	                                                                       |                                    
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   v a l i d a T e x t o A r e a ( c C a m p o ,   c T a m )     {  
 	 s V a l o r   =   T r i m ( c C a m p o . v a l u e ) ;   	 	  
 	 i f   ( p a r s e I n t ( s V a l o r . l e n g t h )   < =   p a r s e I n t ( c T a m )   )      
         	       r e t u r n   t r u e ;   	  
         e l s e   {                    
                   a l e r t ( ' T a m a n h o   m á x i m o   p a r a   p r e e n c h i m e n t o   é   d e   '   +   c T a m   +   '   c a r a c t e r e s ' ) ;  
                     s V a l o r   =   s V a l o r . s u b s t r i n g ( 0 , s V a l o r . l e n g t h - 1 ) ;  
                     c C a m p o . v a l u e = s V a l o r ;  
 	 	   r e t u r n   f a l s e ;          
         } 	 	    
   }  
    
   / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   v a l i d a T a m a n h o A r e a :         C o n s i s t e   t a m a n h o   d o   c a m p o   i n f o r m a d o .               |  
   |   	 	 	 	 	 	 	 	                                                                         |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   v a l i d a T a m a n h o A r e a ( c C a m p o ,   c T a m )     {  
 	 v a r   s V a l o r   =   T r i m ( c C a m p o . v a l u e ) ;   	  
 	 v a r   c M s g = ' T a m a n h o   m á x i m o   p a r a   p r e e n c h i m e n t o   é   d e   '   +   c T a m   +   '   c a r a c t e r e s '   ; 	  
 	 i f   ( p a r s e I n t ( s V a l o r . l e n g t h )   >   p a r s e I n t ( c T a m )   )   {  
 	       a l e r t ( c M s g ) ;  
 	       c C a m p o . f o c u s ( ) ;  
 	       r e t u r n   f a l s e ;  
 	 }    
 	 r e t u r n   t r u e ;          
   }  
    
    
   / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   c h a n g e A c c e n t         T r o c a   a s   v o g a i s   a c e n t u a d a s   p o r   n ú m e r o s   d a   t a b e l a       |  
   |                                   d e   c o d i f i c a ç ã o .   e s t a   f u n ç ã o   e v i t a   o   u s o   d o   r e c u r s o   |  
   |                                   S e r v e r . U R L E n c o d e r                                                                     |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   c h a n g e A c c e n t ( v a l o r )   {  
  
 	 v a r   a C o d e   =   n e w   A r r a y ( ) ;  
 	 v a r   a N u m b e r   =   n e w   A r r a y ( ) ;  
 	 v a r   i C t = 0 ;  
 	 v a r   c L e t r a = ' ' ;  
 	 v a r   c T e x t = ' ' ;  
 	 v a r   b E x i s t e = f a l s e ;  
 	 	  
 	 a C o d e [ 0 ] = " à " ;  
 	 a C o d e [ 1 ] = " á "  
 	 a C o d e [ 2 ] = " â " ;  
 	 a C o d e [ 3 ] = " ã " ;  
 	 a C o d e [ 4 ] = " ä " ;  
 	 a C o d e [ 5 ] = " è " ;  
 	 a C o d e [ 6 ] = " é " ;  
 	 a C o d e [ 7 ] = " ê " ;  
 	 a C o d e [ 8 ] = " í " ;  
 	 a C o d e [ 9 ] = " í " ;  
 	 a C o d e [ 1 0 ] = " î " ;  
 	 a C o d e [ 1 1 ] = " ï " ;  
 	 a C o d e [ 1 2 ] = " ó " ;  
 	 a C o d e [ 1 3 ] = " ò " ;  
 	 a C o d e [ 1 4 ] = " ô " ;  
 	 a C o d e [ 1 5 ] = " õ " ;  
 	 a C o d e [ 1 6 ] = " ö " ;  
 	 a C o d e [ 1 7 ] = " ú " ;  
 	 a C o d e [ 1 8 ] = " ù " ;  
 	 a C o d e [ 1 9 ] = " ü " ;  
 	 a C o d e [ 2 0 ] = " û " ;  
 	 a C o d e [ 2 1 ] = " Á " ;  
 	 a C o d e [ 2 2 ] = " À " ;  
 	 a C o d e [ 2 3 ] = " Â " ;  
 	 a C o d e [ 2 4 ] = " Ã " ;  
 	 a C o d e [ 2 5 ] = " Ä " ;  
 	 a C o d e [ 2 6 ] = " É " ;  
 	 a C o d e [ 2 7 ] = " È " ;  
 	 a C o d e [ 2 8 ] = " Ê " ;  
 	 a C o d e [ 2 9 ] = " Ë " ;  
 	 a C o d e [ 3 0 ] = " Í " ;  
 	 a C o d e [ 3 1 ] = " Ì " ;  
 	 a C o d e [ 3 2 ] = " Î " ;  
 	 a C o d e [ 3 3 ] = " Ï " ;  
 	 a C o d e [ 3 4 ] = " Ó " ;  
 	 a C o d e [ 3 5 ] = " Ò " ;  
 	 a C o d e [ 3 6 ] = " Ô " ;  
 	 a C o d e [ 3 7 ] = " Õ " ;  
 	 a C o d e [ 3 8 ] = " Ö " ;  
 	 a C o d e [ 3 9 ] = " Ú " ;  
 	 a C o d e [ 4 0 ] = " Ù " ;  
 	 a C o d e [ 4 1 ] = " Û " ;  
 	 a C o d e [ 4 2 ] = " Ü " ;  
 	 a C o d e [ 4 3 ] = " ç " ;  
 	 a C o d e [ 4 4 ] = " Ç " ;  
 	 / /  
 	 a N u m b e r [ 0 ] = " $ 0 0 " ;  
 	 a N u m b e r [ 1 ] = " $ 0 1 " ;  
 	 a N u m b e r [ 2 ] = " $ 0 2 " ;  
 	 a N u m b e r [ 3 ] = " $ 0 3 " ;  
 	 a N u m b e r [ 4 ] = " $ 0 4 " ;  
 	 a N u m b e r [ 5 ] = " $ 0 5 " ;  
 	 a N u m b e r [ 6 ] = " $ 0 6 " ;  
 	 a N u m b e r [ 7 ] = " $ 0 7 " ;  
 	 a N u m b e r [ 8 ] = " $ 0 8 " ;  
 	 a N u m b e r [ 9 ] = " $ 0 9 " ;  
 	 a N u m b e r [ 1 0 ] = " $ 1 0 " ;  
 	 a N u m b e r [ 1 1 ] = " $ 1 1 " ;  
 	 a N u m b e r [ 1 2 ] = " $ 1 2 " ;  
 	 a N u m b e r [ 1 3 ] = " $ 1 3 " ;  
 	 a N u m b e r [ 1 4 ] = " $ 1 4 " ;  
 	 a N u m b e r [ 1 5 ] = " $ 1 5 " ;  
 	 a N u m b e r [ 1 6 ] = " $ 1 6 " ;  
 	 a N u m b e r [ 1 7 ] = " $ 1 7 " ;  
 	 a N u m b e r [ 1 8 ] = " $ 1 8 " ;  
 	 a N u m b e r [ 1 9 ] = " $ 1 9 " ;  
 	 a N u m b e r [ 2 0 ] = " $ 2 0 " ;  
 	 a N u m b e r [ 2 1 ] = " $ 2 1 " ;  
 	 a N u m b e r [ 2 2 ] = " $ 2 2 " ;  
 	 a N u m b e r [ 2 3 ] = " $ 2 3 " ;  
 	 a N u m b e r [ 2 4 ] = " $ 2 4 " ;  
 	 a N u m b e r [ 2 5 ] = " $ 2 5 " ;  
 	 a N u m b e r [ 2 6 ] = " $ 2 6 " ;  
 	 a N u m b e r [ 2 7 ] = " $ 2 7 " ;  
 	 a N u m b e r [ 2 8 ] = " $ 2 8 " ;  
 	 a N u m b e r [ 2 9 ] = " $ 2 9 " ;  
 	 a N u m b e r [ 3 0 ] = " $ 3 0 " ;  
 	 a N u m b e r [ 3 1 ] = " $ 3 1 " ;  
 	 a N u m b e r [ 3 2 ] = " $ 3 2 " ;  
 	 a N u m b e r [ 3 3 ] = " $ 3 3 " ;  
 	 a N u m b e r [ 3 4 ] = " $ 3 4 " ;  
 	 a N u m b e r [ 3 5 ] = " $ 3 5 " ;  
 	 a N u m b e r [ 3 6 ] = " $ 3 6 " ;  
 	 a N u m b e r [ 3 7 ] = " $ 3 7 " ;  
 	 a N u m b e r [ 3 8 ] = " $ 3 8 " ;  
 	 a N u m b e r [ 3 9 ] = " $ 3 9 " ;  
 	 a N u m b e r [ 4 0 ] = " $ 4 0 " ;  
 	 a N u m b e r [ 4 1 ] = " $ 4 1 " ;  
 	 a N u m b e r [ 4 2 ] = " $ 4 2 " ;  
 	 a N u m b e r [ 4 3 ] = " $ 4 3 " ;  
 	 a N u m b e r [ 4 4 ] = " $ 4 4 " ;  
 	 	  
 	 f o r (   i C t   =   0 ;   i C t   <   v a l o r . l e n g t h ; i C t + + )   {  
 	 	  
 	 	 c L e t r a   =   v a l o r . c h a r A t ( i C t ) ; 	  
 	 	  
 	 	 b E x i s t e = f a l s e ; 	 	 	          
 	 	 f o r   ( v a r   i C t L   =   0   ;   i C t L   <   a C o d e . l e n g t h ;   i C t L + + )   {  
 	 	 	 i f   (   c L e t r a   = =   a C o d e [ i C t L ]   )   { 	 	 	         	 	 	 	 	 	 	 	  
 	 	 	 	 b E x i s t e = t r u e ;  
 	 	 	 	 b r e a k ;  
 	 	 	 }  
 	 	 }  
 	 	 i f   ( ! b E x i s t e )    
 	 	 	 c T e x t = c T e x t   +   c L e t r a ; 	 	 	 	 	  
 	 	 e l s e  
 	 	 	 c T e x t = c T e x t   +   a N u m b e r [ i C t L ] ; 	 	 	  
 	 } 	 	  
 	 r e t u r n   c T e x t ;  
 	  
   } 	  
      
      
      
 
