ÿþf u n c t i o n   V e r i f i c a M a x   ( m a x L e n g t h ,   c l i e n t I d ,   s e n d e r )    
 / / m a x L e n g t h   = >   T a m a n h o   m á x i m o   q u e   o   c a m p o   a c e i t a  
 / / C l i e n t I d   = >   I d   n o   l a d o   d o   c l i e n t e   d o   c a m p o   d e   t e x t o  
 {  
 i f ( c l i e n t I d . v a l u e . l e n g t h   >   m a x L e n g t h )  
 {  
 / / S e   o   n u m e r o   d e   c a r a c t e r e s   f o i   m a i o r   q u e   o   p e r m i t i d o ,   a v i s a   o   u s u á r i o  
 / / e   r e t o r n a   f a l s e  
 a l e r t ( " O   c a m p o   s o   s u p o r t a   1 2 0   c a r a c t e r e s " ) ;  
 r e t u r n   t r u e ;  
 }  
 e l s e  
 {  
 / / s e n a o   r e t o r n a   v e r d a d e i r o  
 r e t u r n   f a l s e ;  
 }  
  
 }  
 f u n c t i o n   M a s c a r a C N P J ( o b j )  
 {  
         i f ( m a s c a r a I n t e i r o ( o b j ) = = f a l s e )  
         {  
                 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
         }          
         r e t u r n   f o r m a t a C a m p o ( o b j ,   ' 0 0 . 0 0 0 . 0 0 0 / 0 0 0 0 - 0 0 ' ,   e v e n t ) ;  
 }  
 f u n c t i o n   v a l i d a H o r a ( h o r a r i o )   {  
         v a r   h o r a ,   m i n ;  
         i f   ( ! ( h o r a r i o . m a t c h ( / ^ [ 0 - 9 ] { 2 , 2 } [ : ] { 0 , 1 } [ 0 - 9 ] { 2 , 2 } $ / ) ) )   {  
                 r e t u r n   f a l s e ;  
         }  
         h o r a r i o   =   r e t i r a C a r a c t e r ( h o r a r i o ,   ' : ' ) ;  
         h o r a   =   p a r s e I n t ( h o r a r i o . s u b s t r ( 0 , 2 ) ) ;  
         m i n   =   p a r s e I n t ( h o r a r i o . s u b s t r ( 2 , 2 ) ) ;  
         i f   ( ( h o r a   <   0 )   | |   ( h o r a   > 2 4 ) )   {  
                 r e t u r n   f a l s e ;  
         }  
         i f   ( ( m i n   <   0 )   | |   ( m i n   > 5 9 ) )   {  
                 r e t u r n   f a l s e ;  
         }  
 }  
  
 f u n c t i o n   D a t a H o r a ( e v e n t o ,   o b j e t o ) {  
 	 v a r   k e y p r e s s = ( w i n d o w . e v e n t ) ? e v e n t . k e y C o d e : e v e n t o . w h i c h ;  
 	 c a m p o   =   e v a l   ( o b j e t o ) ;  
 	 i f   ( c a m p o . v a l u e   = =   ' 0 0 / 0 0 / 0 0 0 0   0 0 : 0 0 : 0 0 ' )  
 	 {  
 	 	 c a m p o . v a l u e = " "  
 	 }  
  
 	 c a r a c t e r e s   =   ' 0 1 2 3 4 5 6 7 8 9 ' ;  
 	 s e p a r a c a o 1   =   ' / ' ;  
 	 s e p a r a c a o 2   =   '   ' ;  
 	 s e p a r a c a o 3   =   ' : ' ;  
 	 c o n j u n t o 1   =   2 ;  
 	 c o n j u n t o 2   =   5 ;  
 	 c o n j u n t o 3   =   1 0 ;  
 	 c o n j u n t o 4   =   1 3 ;  
 	 c o n j u n t o 5   =   1 6 ;  
 	 i f   ( ( c a r a c t e r e s . s e a r c h ( S t r i n g . f r o m C h a r C o d e   ( k e y p r e s s ) ) ! = - 1 )   & &   c a m p o . v a l u e . l e n g t h   <   ( 1 9 ) )  
 	 {  
 	 	 i f   ( c a m p o . v a l u e . l e n g t h   = =   c o n j u n t o 1   )  
 	 	 c a m p o . v a l u e   =   c a m p o . v a l u e   +   s e p a r a c a o 1 ;  
 	 	 e l s e   i f   ( c a m p o . v a l u e . l e n g t h   = =   c o n j u n t o 2 )  
 	 	 c a m p o . v a l u e   =   c a m p o . v a l u e   +   s e p a r a c a o 1 ;  
 	 	 e l s e   i f   ( c a m p o . v a l u e . l e n g t h   = =   c o n j u n t o 3 )  
 	 	 c a m p o . v a l u e   =   c a m p o . v a l u e   +   s e p a r a c a o 2 ;  
 	 	 e l s e   i f   ( c a m p o . v a l u e . l e n g t h   = =   c o n j u n t o 4 )  
 	 	 c a m p o . v a l u e   =   c a m p o . v a l u e   +   s e p a r a c a o 3 ;  
 	 	 e l s e   i f   ( c a m p o . v a l u e . l e n g t h   = =   c o n j u n t o 5 )  
 	 	 c a m p o . v a l u e   =   c a m p o . v a l u e   +   s e p a r a c a o 3 ;  
 	 }  
 	 e l s e  
 	 	 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
 }  
  
 / /   A d i c i o n a   m a s c a r a   d e   c e p  
 f u n c t i o n   M a s c a r a C E P ( o b j )  
 {  
         i f ( m a s c a r a I n t e i r o ( o b j ) = = f a l s e )  
         {  
                 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
         }          
         r e t u r n   f o r m a t a C a m p o ( o b j ,   ' 0 0 0 0 0 - 0 0 0 ' ,   e v e n t ) ;  
 }  
  
 / /   A d i c i o n a   m a s c a r a   d e   d a t a  
 f u n c t i o n   M a s c a r a D a t a ( o b j )  
 {  
         i f ( m a s c a r a I n t e i r o ( o b j ) = = f a l s e )  
         {  
                 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
         }          
         r e t u r n   f o r m a t a C a m p o ( o b j ,   ' 0 0 / 0 0 / 0 0 0 0 ' ,   e v e n t ) ;  
 }  
  
 / /   A d i c i o n a   m a s c a r a   a o   t e l e f o n e  
 f u n c t i o n   M a s c a r a T e l e f o n e ( o b j )  
 {          
         i f ( m a s c a r a I n t e i r o ( o b j ) = = f a l s e ) {  
                 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
         }          
         r e t u r n   f o r m a t a C a m p o ( o b j ,   ' ( 0 0 ) ( 0 0 ) 0 0 0 0 - 0 0 0 0 ' ,   e v e n t ) ;  
 }  
  
 / /   A d i c i o n a   m a s c a r a   a o   C P F  
 f u n c t i o n   M a s c a r a C P F ( o b j )  
 {  
         i f ( m a s c a r a I n t e i r o ( o b j ) = = f a l s e ) {  
                 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
         }          
         r e t u r n   f o r m a t a C a m p o ( o b j ,   ' 0 0 0 . 0 0 0 . 0 0 0 - 0 0 ' ,   e v e n t ) ;  
 }  
  
 / /   V a l i d a   n u m e r o   i n t e i r o   c o m   m a s c a r a  
 f u n c t i o n   m a s c a r a I n t e i r o ( )  
 {  
         i f   ( e v e n t . k e y C o d e   <   4 8   | |   e v e n t . k e y C o d e   >   5 7 )  
         {  
                 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
                 r e t u r n   f a l s e ;  
         }  
         r e t u r n   t r u e ;  
 }  
  
 / /   V a l i d a   d a t a  
 f u n c t i o n   V a l i d a D a t a ( o b j )  
 {  
         e x p   =   / \ d { 2 } \ / \ d { 2 } \ / \ d { 4 } /  
         i f ( ! e x p . t e s t ( o b j . v a l u e ) )  
                 a l e r t ( ' D a t a   I n v a l i d a ! ' ) ;                          
 }  
  
 / /   V a l i d a   o   C P F   d i g i t a d o  
 f u n c t i o n   V a l i d a C P F ( o b j )  
 {  
         v a r   c p f   =   o b j . v a l u e ;  
         e x p   =   / \ . | \ - / g  
         c p f   =   c p f . t o S t r i n g ( ) . r e p l a c e (   e x p ,   " "   ) ;  
         v a r   d i g i t o D i g i t a d o   =   e v a l ( c p f . c h a r A t ( 9 ) + c p f . c h a r A t ( 1 0 ) ) ;  
         v a r   s o m a 1 = 0 ,   s o m a 2 = 0 ;  
         v a r   v l r   = 1 1 ;  
          
         f o r ( i = 0 ; i < 9 ; i + + ) {  
                 s o m a 1 + = e v a l ( c p f . c h a r A t ( i ) * ( v l r - 1 ) ) ;  
                 s o m a 2 + = e v a l ( c p f . c h a r A t ( i ) * v l r ) ;  
                 v l r - - ;  
         }          
         s o m a 1   =   ( ( ( s o m a 1 * 1 0 ) % 1 1 ) = = 1 0   ?   0 : ( ( s o m a 1 * 1 0 ) % 1 1 ) ) ;  
         s o m a 2 = ( ( ( s o m a 2 + ( 2 * s o m a 1 ) ) * 1 0 ) % 1 1 ) ;  
          
         v a r   d i g i t o G e r a d o = ( s o m a 1 * 1 0 ) + s o m a 2 ;  
         i f ( d i g i t o G e r a d o ! = d i g i t o D i g i t a d o )          
                 a l e r t ( ' C P F   I n v a l i d o ! ' ) ;                  
 }  
  
 / /   V a l i d a   o   C N P J   d i g i t a d o  
 f u n c t i o n   V a l i d a C N P J ( o b j )  
 {  
         v a r   c n p j   =   o b j . v a l u e ;  
         v a r   v a l i d a   =   n e w   A r r a y ( 6 , 5 , 4 , 3 , 2 , 9 , 8 , 7 , 6 , 5 , 4 , 3 , 2 ) ;  
         v a r   d i g 1 =   n e w   N u m b e r ;  
         v a r   d i g 2 =   n e w   N u m b e r ;  
          
         e x p   =   / \ . | \ - | \ / / g  
         c n p j   =   c n p j . t o S t r i n g ( ) . r e p l a c e (   e x p ,   " "   ) ;  
         v a r   d i g i t o   =   n e w   N u m b e r ( e v a l ( c n p j . c h a r A t ( 1 2 ) + c n p j . c h a r A t ( 1 3 ) ) ) ;  
                  
         f o r ( i   =   0 ;   i < v a l i d a . l e n g t h ;   i + + )  
         {  
                 d i g 1   + =   ( i > 0 ?   ( c n p j . c h a r A t ( i - 1 ) * v a l i d a [ i ] ) : 0 ) ;          
                 d i g 2   + =   c n p j . c h a r A t ( i ) * v a l i d a [ i ] ;          
         }  
         d i g 1   =   ( ( ( d i g 1 % 1 1 ) < 2 ) ?   0 : ( 1 1 - ( d i g 1 % 1 1 ) ) ) ;  
         d i g 2   =   ( ( ( d i g 2 % 1 1 ) < 2 ) ?   0 : ( 1 1 - ( d i g 2 % 1 1 ) ) ) ;  
          
         i f ( ( ( d i g 1 * 1 0 ) + d i g 2 )   ! =   d i g i t o )          
                 a l e r t ( ' C N P J   I n v a l i d o ! ' ) ;  
 }  
  
 / /   F o r m a t a   d e   f o r m a   g e n e r i c a   o s   c a m p o s  
 f u n c t i o n   f o r m a t a C a m p o ( c a m p o ,   M a s c a r a ,   e v e n t o )    
 {  
         v a r   b o l e a n o M a s c a r a ;  
          
         v a r   D i g i t a t o   =   e v e n t o . k e y C o d e ;  
         e x p   =   / \ - | \ . | \ / | \ ( | \ ) |   / g  
         c a m p o S o N u m e r o s   =   c a m p o . v a l u e . t o S t r i n g ( ) . r e p l a c e (   e x p ,   " "   ) ;  
      
         v a r   p o s i c a o C a m p o   =   0 ;          
         v a r   N o v o V a l o r C a m p o = " " ;  
         v a r   T a m a n h o M a s c a r a   =   c a m p o S o N u m e r o s . l e n g t h ; ;  
          
         i f   ( D i g i t a t o   ! =   8 )    
         {  
                 f o r ( i = 0 ;   i < =   T a m a n h o M a s c a r a ;   i + + )    
                 {  
                         b o l e a n o M a s c a r a     =   ( ( M a s c a r a . c h a r A t ( i )   = =   " - " )   | |   ( M a s c a r a . c h a r A t ( i )   = =   " . " )  
                                                                 | |   ( M a s c a r a . c h a r A t ( i )   = =   " / " ) )  
                         b o l e a n o M a s c a r a     =   b o l e a n o M a s c a r a   | |   ( ( M a s c a r a . c h a r A t ( i )   = =   " ( " )  
                                                                 | |   ( M a s c a r a . c h a r A t ( i )   = =   " ) " )   | |   ( M a s c a r a . c h a r A t ( i )   = =   "   " ) )  
                         i f   ( b o l e a n o M a s c a r a )    
                         {  
                                 N o v o V a l o r C a m p o   + =   M a s c a r a . c h a r A t ( i ) ;  
                                     T a m a n h o M a s c a r a + + ;  
                         }  
                         e l s e    
                         {  
                                 N o v o V a l o r C a m p o   + =   c a m p o S o N u m e r o s . c h a r A t ( p o s i c a o C a m p o ) ;  
                                 p o s i c a o C a m p o + + ;  
                         }                        
                 }          
                 c a m p o . v a l u e   =   N o v o V a l o r C a m p o ;  
                 r e t u r n   t r u e ;  
         }  
         e l s e    
         {  
                 r e t u r n   t r u e ;  
         }  
 }  
 	  
 / / F u n ç õ e s   d e   v a l i d a ç ã o   d e   c a m p o s  
 f u n c t i o n   M a s c a r a T e l e f o n e ( o b j e t o )  
 {  
       i f ( o b j e t o . v a l u e . l e n g t h   = =   0 )  
           o b j e t o . v a l u e   =   ' ( '   +   o b j e t o . v a l u e ;  
  
       i f ( o b j e t o . v a l u e . l e n g t h   = =   3 )  
             o b j e t o . v a l u e   =   o b j e t o . v a l u e   +   ' ) ' ;  
  
   i f ( o b j e t o . v a l u e . l e n g t h   = =   8 )  
           o b j e t o . v a l u e   =   o b j e t o . v a l u e   +   ' - ' ;  
 }  
  
 f u n c t i o n   s o _ n u m e r o ( )  
 {  
 	 s P e r m i t i d o s   =   " , 9 , 3 7 , 3 9 , 3 8 , 4 0 , 8 , 4 6 , "  
 	 p r o k   =   s P e r m i t i d o s . i n d e x O f ( " , " + e v e n t . k e y C o d e + " , " )  
 	 i f (   p r o k   ! =   - 1   ) { r e t u r n   t r u e }  
 	  
 	 i f ( e v e n t . s h i f t K e y ) { r e t u r n   f a l s e }  
 	  
 	 i f (   (   e v e n t . k e y C o d e   > =   9 6   & &   e v e n t . k e y C o d e   < =   1 0 5   )   | |   (   e v e n t . k e y C o d e   > =   4 8   & &   e v e n t . k e y C o d e   < =   5 7   )   )  
 	 { 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   s o _ V a l o r ( )  
 {  
 	 s P e r m i t i d o s   =   " , 9 , 3 7 , 3 9 , 3 8 , 4 0 , 8 , 4 6 , "  
 	 p r o k   =   s P e r m i t i d o s . i n d e x O f ( " , " + e v e n t . k e y C o d e + " , " )  
 	 i f (   p r o k   ! =   - 1   ) { r e t u r n   t r u e }  
 	  
 	 i f ( e v e n t . s h i f t K e y ) { r e t u r n   f a l s e }  
 	  
 	 i f (   (   e v e n t . k e y C o d e   > =   9 6   & &   e v e n t . k e y C o d e   < =   1 0 5   )   | |   (   e v e n t . k e y C o d e   > =   4 8   & &   e v e n t . k e y C o d e   < =   5 7   )   | |   e v e n t . k e y C o d e   = =   1 8 8   | |   e v e n t . k e y C o d e   = =   1 9 0       )  
 	 {  
 	         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 5 D e c ( o C a m )  
 {  
 	 / / - - - - - - - - - - - - - - - - -  
 	 / / c a s o   o b j e t o   t e n h a   v a l o r   s e l e c i o n a d o ,   r e m o v ê - l o s   d u r a n t e   d i g i t a ç ã o  
 	 / / - - - - - - - - - - - - - - - - -  
 	 v a r   s S e l T e x t   =   g e t _ s e l e c t i o n ( o C a m ) ;  
 	 i f   ( s S e l T e x t   ! =   " " )  
 	 {  
 	 	 o C a m . v a l u e   =   " " ;  
 	 	 d o c u m e n t . s e l e c t i o n . c l e a r ( ) ;  
 	 }  
 	 / / - - - - - - - - - - - - - - - - -  
 	  
 	 n C o d e   =   e v e n t . k e y C o d e  
 	  
 	 s P e r m i t i d o s   =   " , 3 5 , 3 6 , 3 7 , 3 9 , 9 , 1 6 , "  
 	 p r o k   =   s P e r m i t i d o s . i n d e x O f ( " , " + e v e n t . k e y C o d e + " , " )  
 	 i f (   p r o k   ! =   - 1   ) { r e t u r n   t r u e }  
 	  
 	  
 	 s V a r   =   o C a m . v a l u e  
 	 s V a r   =   r e p l ( s V a r ,   " , " ,   " " )  
 	 s V a r   =   r e p l ( s V a r ,   " . " ,   " " )  
 	 n C o d e   =   e v e n t . k e y C o d e  
 	  
 	 i f (   i s N a N ( s V a r )   ) { s V a r = 0 }  
 	  
 	  
 	 b V i r g   =   f a l s e  
 	 n N r   =   " "  
 	  
 	 i f (   n C o d e = = 8   ) / /  
 	 {  
 	 	 s V a r   =   f L e f t (   s V a r ,   s V a r . l e n g t h - 1   )  
 	 }  
 	 e l s e   i f (   n C o d e = = 4 6   ) / / d e l  
 	 {  
 	 	 s V a r   =   " "  
 	 }  
 	 e l s e   i f (   e v e n t . k e y C o d e   > =   9 6   & &   e v e n t . k e y C o d e   < =   1 0 5   )  
 	 {  
 	 	 n N r   =   e v e n t . k e y C o d e   -   9 6  
 	 }  
 	 e l s e   i f (   e v e n t . k e y C o d e   > =   4 8   & &   e v e n t . k e y C o d e   < =   5 7   )  
 	 {  
 	 	 n N r   =   e v e n t . k e y C o d e   -   4 8  
 	 }  
 	  
 	 i f (   s V a r   = =   " , " ) { s V a r = " " }  
 	  
 	 i f (   i s N a N ( s V a r )   ) { r e t u r n   f a l s e }  
 	 i f (   M a t h . c e i l ( s V a r )   >   9 9 9 9 9   ) { r e t u r n   f a l s e }  
 	  
 	 s V a r   =   s V a r   +   " "   +   n N r  
 	  
 	 o C a m . v a l u e   =   p o e V i r g 5 D e c ( s V a r )  
 	 r e t u r n   f a l s e  
  
 }  
  
 f u n c t i o n   p o e V i r g 5 D e c ( s S t r )  
 {  
 	 s Z e r o s   =   " "  
 	  
 	 s R e t u r n   =   s S t r  
 	 s R e t u r n   =   r e p l ( s R e t u r n ,   " , " ,   " " )  
 	 s R e t u r n   =   r e p l ( s R e t u r n ,   " . " ,   " " )  
 	  
 	 i f (   i s N a N ( s R e t u r n )   ) { r e t u r n   " 0 , " }  
 	  
 	 s I n i   =   f L e f t ( s R e t u r n ,   1 )   +   " "  
 	 s F i m   =   " , "   +   f R i g h t ( s R e t u r n ,   s R e t u r n . l e n g t h - 1 )  
 	  
 	 s T e m p   =   " "  
 	 c o n t   =   0  
 	 f o r (   i = s I n i . l e n g t h ;   i - - ;   i > 0   )  
 	 {  
 	 	 c o n t + +  
 	 	 s P o n t o   =   " "  
 	 	 i f (   c o n t   = =   3     )  
 	 	 { s P o n t o   =   " . " ;   c o n t   =   0 }  
 	 	  
 	 	 s   =   s I n i . s u b s t r i n g (   i   , i + 1   )  
 	 	 s T e m p   =   s P o n t o   +   s   +   " "   +   s T e m p  
 	 	  
 	 }  
  
 	 i f (   s T e m p = = " "   ) { s T e m p   =   s I n i }  
 	 i f (   f L e f t ( s T e m p , 1 ) = = " . "   ) {   s T e m p   =   f R i g h t ( s T e m p ,   s T e m p . l e n g t h - 1 )   }  
 	 s I n i   =   s T e m p  
 	 i f ( s I n i = = " " ) { s I n i = " 0 " }  
 	  
 	 s R e t u r n   =     s I n i   +   " "   +   s F i m  
 	 r e t u r n   s R e t u r n  
 }  
  
 f u n c t i o n   r e p l (   a o n d e ,   o q u e ,   p o r   )  
 {  
 	 p r o k = 0  
 	 a o n d e   =   a o n d e . t o S t r i n g ( )  
 	 o q u e   =   o q u e . t o S t r i n g ( )  
 	 p o r   =   p o r . t o S t r i n g ( )  
 	  
 	 w h i l e (   p r o k   ! =   - 1   )  
 	 {  
 	 	 a o n d e   =   a o n d e . r e p l a c e ( o q u e , p o r )  
 	 	 p r o k   =   a o n d e . i n d e x O f ( o q u e )  
 	 }  
 	 r e t u r n   a o n d e  
 }          
  
 f u n c t i o n   f L e f t ( s S t r , n Q t d )  
 {  
 	 r e t u r n   s S t r . s u b s t r i n g ( 0 , n Q t d )  
 }  
  
 f u n c t i o n   f R i g h t ( s S t r , n Q t d )  
 {  
 	 s S t r   =   s S t r . t o S t r i n g ( )  
 	 n L e n   =   s S t r . l e n g t h  
 	 s t a r   =   n L e n - n Q t d  
 	 i f (   s t a r   <   1   ) {   s t a r = 0   }  
 	 r e t u r n   s S t r . s u b s t r i n g ( s t a r , n L e n )  
 }  
  
 f u n c t i o n   v a l i d a D a t a   ( d a t a )    
 {  
 	 i f   (   ( d a t a   = =   n u l l )   | |   ( d a t a . l e n g t h   <   1 0 )   )    
 	 {  
 	     r e t u r n   f a l s e ;  
 	 }  
 	 v a r   j s D a t a V a l i d a   =   t r u e ;  
 	 v a r   j s D i a   =   d a t a . s u b s t r i n g ( 0 , 2 ) - 0 ;  
 	 v a r   j s M e s   =   d a t a . s u b s t r i n g ( 3 , 5 ) - 1 ;  
 	 v a r   j s A n o   =   d a t a . s u b s t r i n g ( 6 , 1 0 ) - 0 ;  
 	 v a r   o D a t a   =   n e w   D a t e ( j s A n o ,   j s M e s ,   j s D i a ) ;          
 	 i f   ( j s D i a   ! =   o D a t a . g e t D a t e ( ) )   {   j s D a t a V a l i d a   =   f a l s e   }  
 	 i f   ( j s M e s   ! =   o D a t a . g e t M o n t h ( ) )   {   j s D a t a V a l i d a   =   f a l s e   }  
 	 i f   ( j s A n o   ! =   o D a t a . g e t F u l l Y e a r ( ) )   {   j s D a t a V a l i d a   =   f a l s e   }  
 	 r e t u r n   j s D a t a V a l i d a ;  
 }  
  
 v a r   s e n d e r = " e v e n t . s r c E l e m e n t "  
 	  
 f u n c t i o n   m a s k _ d a t a ( e )  
 {  
 	 a l v o = e v a l ( s e n d e r )  
 	 i f   ( d o c u m e n t . a l l ) {  
 	 	 x = e v e n t . k e y C o d e ;  
 	 } e l s e {  
 	 	 x = e . w h i c h  
 	 }  
 	  
 	 s P e r m i t i d o s   =   " , 9 , 3 7 , 3 9 , 3 8 , 4 0 , 8 , 4 5 , 4 6 , 1 3 , 3 6 , 3 5 , "  
 	 p r o k   =   s P e r m i t i d o s . i n d e x O f ( " , " + x + " , " )  
 	 i f (   p r o k   ! =   - 1   ) { r e t u r n   t r u e }  
 	  
 	 i f ( d o c u m e n t . a l l ) {  
 	 	 i f   (   ( x > 4 7   & &   x < 5 8 )   | |   ( x > 9 5   & &   x < 1 0 6 )   )  
 	 	 {  
 	 	 	 i f (   x > 9 5   )  
 	 	 	 	 { x = x - 9 6 }  
 	 	 	 e l s e  
 	 	 	 	 {   x = x - 4 8 }  
 	 	 	  
 	 	 	 v a l o r = a l v o . v a l u e  
 	 	 	  
 	 	 	 i f ( v a l o r = = 3   & &   x   >   1 )  
 	 	 	 {  
 	 	 	 	 a l v o . v a l u e =   " 0 "   +   a l v o . v a l u e   +   " / "  
 	 	 	 	 r e t u r n   f a l s e ;  
 	 	 	 }  
 	 	 	  
 	 	 	 i f   ( v a l o r . l e n g t h = = 0 )  
 	 	 	 	 { i f   ( x > 3 ) { a l v o . v a l u e = " 0 " } }  
 	 	 	 i f   ( v a l o r . l e n g t h = = 2   )  
 	 	 	 	 { i f   ( x > 1 ) { a l v o . v a l u e + = " / 0 " } e l s e { a l v o . v a l u e + = " / " } }  
 	 	 	 i f ( v a l o r . l e n g t h = = 3 )  
 	 	 	 	 i f   ( x > 1 ) { a l v o . v a l u e + = " 0 " }  
 	 	 	 i f   ( v a l o r . l e n g t h = = 5 ) {  
 	 	 	 	 i f   ( x > 2 ) { a l v o . v a l u e + = " / 1 9 " } e l s e {  
 	 	 	 	 	 i f   ( x > 0 ) { a l v o . v a l u e + = " / " } e l s e { a l v o . v a l u e + = " / 2 0 " }  
 	 	 	 	 }  
 	 	 	 }  
 	 	 	  
 	 	 	 r e t u r n   t r u e  
 	 	 }  
 	 } e l s e {  
 	 	 i f (   ( x > 4 7   & &   x < 5 8 )   | |   (   x > 9 5   & &   x < 1 0 6 )   ) { 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 M o e d a ( o C a m )  
 {  
  
 	 n C o d e   =   e v e n t . k e y C o d e  
 	  
 	 s P e r m i t i d o s   =   " , 3 5 , 3 6 , 3 7 , 3 9 , 9 , 1 6 , "  
 	 p r o k   =   s P e r m i t i d o s . i n d e x O f ( " , " + e v e n t . k e y C o d e + " , " )  
 	 i f (   p r o k   ! =   - 1   ) { r e t u r n   t r u e }  
 	  
 	 s V a r   =   o C a m . v a l u e  
 	 s V a r   =   r e p l ( s V a r ,   " , " ,   " " )  
 	 s V a r   =   r e p l ( s V a r ,   " . " ,   " " )  
 	 n C o d e   =   e v e n t . k e y C o d e  
 	  
 	 i f (   i s N a N ( s V a r )   ) { s V a r = 0 }  
 	  
 	  
 	 b V i r g   =   f a l s e  
 	 n N r   =   " "  
 	  
 	 i f (   n C o d e = = 8   )  
 	 {  
 	 	 s V a r   =   f L e f t (   s V a r ,   s V a r . l e n g t h - 1   )  
 	 }  
 	 e l s e   i f (   n C o d e = = 4 6   ) / / d e l  
 	 {  
 	 	 s V a r   =   " "  
 	 }  
 	 e l s e   i f (   e v e n t . k e y C o d e   > =   9 6   & &   e v e n t . k e y C o d e   < =   1 0 5   )  
 	 {  
 	 	 n N r   =   e v e n t . k e y C o d e   -   9 6  
 	 }  
 	 e l s e   i f (   e v e n t . k e y C o d e   > =   4 8   & &   e v e n t . k e y C o d e   < =   5 7   )  
 	 {  
 	 	 n N r   =   e v e n t . k e y C o d e   -   4 8  
 	 }  
 	  
 	 i f (   s V a r   = =   " , " ) { s V a r = " " }  
 	  
 	 i f (   i s N a N ( s V a r )   ) { r e t u r n   f a l s e }  
 	 i f (   M a t h . c e i l ( s V a r )   >   9 9 9 9 9 9 9 9 9   ) { r e t u r n   f a l s e }  
 	  
 	 s V a r   =   s V a r   +   " "   +   n N r  
 	  
 	 o C a m . v a l u e   =   p o e V i r g ( s V a r )  
 	 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 C a l c ( n N r )  
 {  
 	 s T e m p   =   n N r  
 	 s T e m p   =   r e p l ( s T e m p ,   " . " ,   " " )  
 	 s T e m p   =   r e p l ( s T e m p ,   " , " ,   " " )  
 	 i f (   i s N a N ( s T e m p )   ) { r e t u r n   0 }  
 	  
 	 n N r   =   r e p l ( n N r ,   " . " ,   " " )  
 	 n N r   =   r e p l ( n N r ,   " , " ,   " . " )  
 	  
 	 r e t u r n   n N r  
 }  
  
 f u n c t i o n   p o e V i r g ( s S t r )  
 {  
 	 s Z e r o s   =   " "  
 	  
 	 s R e t u r n   =   s S t r  
 	 s R e t u r n   =   r e p l ( s R e t u r n ,   " , " ,   " " )  
 	 s R e t u r n   =   r e p l ( s R e t u r n ,   " . " ,   " " )  
 	  
 	 i f (   i s N a N ( s R e t u r n )   ) { r e t u r n   " 0 , 0 0 " }  
 	  
 	 s R e t u r n   =   M a t h . c e i l ( s R e t u r n )   +   " "  
 	  
 	 i f (   s R e t u r n . l e n g t h   >   2   )  
 	 {  
 	 }  
 	 e l s e  
 	 {  
 	 	 i f (   s R e t u r n . l e n g t h = = 1   )  
 	 	 { s Z e r o s = " 0 0 " }  
 	 	 i f (   s R e t u r n . l e n g t h = = 2   )  
 	 	 { s Z e r o s = " 0 " }  
 	 	 i f (   s R e t u r n . l e n g t h = = 3   )  
 	 	 { s Z e r o s = " " }  
 	 	  
 	 	 s R e t u r n   =   s Z e r o s   +   " "   +   s R e t u r n  
 	 }  
 	  
 	 s I n i   =   f L e f t ( s R e t u r n ,   s R e t u r n . l e n g t h - 2 )   +   " "  
 	 s F i m   =   " , "   +   f R i g h t ( s R e t u r n ,   2 )  
 	  
 	 s T e m p   =   " "  
 	 c o n t   =   0  
 	 f o r (   i = s I n i . l e n g t h ;   i - - ;   i > 0   )  
 	 {  
 	 	 c o n t + +  
 	 	 s P o n t o   =   " "  
 	 	 i f (   c o n t   = =   3     )  
 	 	 { s P o n t o   =   " . " ;   c o n t   =   0 }  
 	 	  
 	 	 s   =   s I n i . s u b s t r i n g (   i   , i + 1   )  
 	 	 s T e m p   =   s P o n t o   +   s   +   " "   +   s T e m p  
 	 	  
 	 }  
 	 i f (   s T e m p = = " "   ) { s T e m p   =   s I n i }  
 	 i f (   f L e f t ( s T e m p , 1 ) = = " . "   ) {   s T e m p   =   f R i g h t ( s T e m p ,   s T e m p . l e n g t h - 1 )   }  
 	 s I n i   =   s T e m p  
 	 s R e t u r n   =     s I n i   +   " "   +   s F i m  
 	 r e t u r n   s R e t u r n  
 }  
 	  
 / / F u n c õ e s   p a r a   v a l i d a r   C N P J   s e m   p e r m i t i r   c a r a t t e r e s   d i f e r e n t e r s   d e   n u m e r o s    
 f u n c t i o n   i s N u m (   c a r a c t e r e   )  
 {  
 	 v a r   s t r V a l i d o s   =   " 0 1 2 3 4 5 6 7 8 9 "  
 	 i f   (   s t r V a l i d o s . i n d e x O f (   c a r a c t e r e   )   = =   - 1   )  
 	 	 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 T e c l a ( c a m p o ,   e v e n t )  
 {  
 	 v a r   B A C K S P A C E =   8 ;  
 	 v a r   k e y ;  
 	 v a r   t e c l a ;  
 	  
 	 C h e c k T A B = t r u e ;  
 	 t e c l a =   e v e n t . k e y C o d e ;  
 	 	  
 	 k e y   =   S t r i n g . f r o m C h a r C o d e (   t e c l a ) ;  
 	    
 	 / / a l e r t (   ' k e y :   '   +   t e c l a   +   '   - >   c a m p o :   '   +   c a m p o . v a l u e ) ;  
 	 i f   (   t e c l a   = =   1 3   )  
 	 	 r e t u r n   f a l s e ;  
 	    
 	 i f   (   t e c l a   = =   B A C K S P A C E   )  
 	 	 r e t u r n   t r u e ;  
 	    
 	 r e t u r n   (   i s N u m ( k e y ) ) ;  
 }  
    
 f u n c t i o n   R e m o v e r P o n t o s ( t x t )  
 {  
 	 v a r   v r   =   t x t ;  
 	 t x t   =   " " ;  
 	 v a r   t a m   =   v r . l e n g t h ;  
 	 v a r   r   =   " " ;  
 	 v a r   i   =   0 ;  
 	  
 	 w h i l e ( i   < =   t a m )  
 	 {  
 	 	 r   =   v r . s u b s t r ( i ,   1 ) ;  
 	 	 i f ( ( r   ! =   ' . ' )   & &   ( r   ! =   ' / ' )   & &   ( r   ! =   ' - ' )   )  
 	 	 	 t x t   =   t x t   +   r ;  
 	 	 	  
 	 	 i + + ;  
 	 }  
 	 r e t u r n ( t x t ) ;  
 }  
  
 f u n c t i o n   F o r m a t a C N P J ( e l )  
 {  
 	 e l . v a l u e   =   R e m o v e r P o n t o s ( e l . v a l u e ) ;    
 	  
 	 v r   =   e l . v a l u e ;  
 	 t a m   =   v r . l e n g t h ;  
 	    
 	 i f ( v r . i n d e x O f ( " . " )   = =   - 1 )  
 	 {  
 	 	 i f   (   t a m   < =   2   )  
 	 	 	 e l . v a l u e   =   v r ;  
 	 	    
 	 	 i f   (   ( t a m   >   2 )   & &   ( t a m   < =   6 )   )  
 	 	 	 e l . v a l u e   =   v r . s u b s t r (   0 ,   2   )   +   ' . '   +   v r . s u b s t r (   2 ,   t a m   ) ;  
 	 	    
 	 	 i f   (   ( t a m   > =   7 )   & &   ( t a m   < =   1 0 )   )  
 	 	 	 e l . v a l u e   =   v r . s u b s t r (   0 ,   2   )   +   ' . '   +   v r . s u b s t r (   2 ,   3   )   +   ' . '   +   v r . s u b s t r (   5 ,   3   )   +   ' / ' ;  
 	 	  
 	 	 i f   (   ( t a m   > =   1 1 )   & &   ( t a m   < =   1 8 )   )  
 	 	 	 e l . v a l u e   =   v r . s u b s t r (   0 ,   2   )   +   ' . '   +   v r . s u b s t r (   2 ,   3   )   +   ' . '   +   v r . s u b s t r (   5 ,   3   )   +   ' / '   +   v r . s u b s t r (   8 ,   4   )   +   ' - '   +   v r . s u b s t r (   1 2 ,   2   )   ;  
 	 }  
 	 r e t u r n   t r u e ;  
 }                    
  
  
  
 f u n c t i o n   L i m p a r ( v a l o r ,   v a l i d o s )    
 {  
         / /   r e t i r a   c a r a c t e r e s   i n v a l i d o s   d a   s t r i n g  
         v a r   r e s u l t   =   " " ;  
         v a r   a u x ;  
         f o r   ( v a r   i = 0 ;   i   <   v a l o r . l e n g t h ;   i + + )    
         {  
                 a u x   =   v a l i d o s . i n d e x O f ( v a l o r . s u b s t r i n g ( i ,   i + 1 ) ) ;  
                 i f   ( a u x > = 0 )    
                 {  
                         r e s u l t   + =   a u x ;  
                 }  
         }  
         r e t u r n   r e s u l t ;  
 }  
 f u n c t i o n   c o n f i r m _ d e l e t e ( )  
 {  
     i f   ( c o n f i r m ( " D e s e j a   d e l e t a r   o   r e g i s t r o ? " ) = = t r u e )  
         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   i s M a x L e n g t h ( t x t B o x )    
 {  
         i f ( t x t B o x )    
         {    
                 r e t u r n   (   t x t B o x . v a l u e . l e n g t h   < =   1 2 0 ) ;  
         }  
 }  
 f u n c t i o n   F o r c e N u m e r i c I n p u t ( e v e n t ,   T h i s ,   A l l o w D e c i m a l ,   A l l o w M i n u s )  
 {  
         i f ( a r g u m e n t s . l e n g t h   = =   1 )  
         {  
                 v a r   s   =   T h i s . v a l u e ;  
                 / /   g a r a n t e   q u e   o   s i n a l   d e   " - "   s e j a   o   p r i m e i r o   d o   í n d i c e  
                 v a r   i   =   s . l a s t I n d e x O f ( " - " ) ;  
                 i f ( i   = =   - 1 )  
                         r e t u r n ;  
                 i f ( i   ! =   0 )  
                         T h i s . v a l u e   =   s . s u b s t r i n g ( 0 , i ) + s . s u b s t r i n g ( i + 1 ) ;  
                         r e t u r n ;  
         }  
         s w i t c h ( e v e n t . k e y C o d e )  
         {  
                 c a s e   8 :           / /   b a c k s p a c e  
                 c a s e   9 :           / /   t a b  
                 c a s e   3 7 :         / /   l e f t   a r r o w  
                 c a s e   3 9 :         / /   r i g h t   a r r o w  
                 c a s e   4 6 :         / /   d e l e t e  
                 e v e n t . r e t u r n V a l u e   =   t r u e ;  
                 r e t u r n ;  
         }  
         i f ( e v e n t . k e y C o d e   = =   1 8 9 )           / /   s i n a l   d e   n ú m e r o   d e   n e g a t i v o  
         {  
                 i f ( A l l o w M i n u s   = =   f a l s e )  
                 {  
                         C a n c e l E v e n t E x e c u t i o n ( e v e n t ) ;  
                         r e t u r n ;  
                 }  
                 / /   a g u a r d a   a t é   q u e   o   c o n t r o l e   t e n h a   s i d o   a t u a l i z a d o  
                 v a r   s   =   " F o r c e N u m e r i c I n p u t ( d o c u m e n t . g e t E l e m e n t B y I d ( ' " + T h i s . i d + " ' ) ) " ;  
                 s e t T i m e o u t ( s ,   2 5 0 ) ;  
                 r e t u r n ;  
         }  
         i f ( A l l o w D e c i m a l   & &   e v e n t . k e y C o d e   = =   1 8 8 )  
         {  
                 i f ( T h i s . v a l u e . i n d e x O f ( " , " )   > =   0 )  
                 {  
                         / /   r e s t r i n g e   a   d i g i t a ç ã o   d e   a p e n a s   u m a   v í r g u l a  
                         C a n c e l E v e n t E x e c u t i o n ( e v e n t ) ;  
                         r e t u r n ;  
                 }  
                 e v e n t . r e t u r n V a l u e   =   t r u e ;  
                 r e t u r n ;  
         }  
         / /   p e r m i t e   c a r a c t e r e s   e n t r e   0   e   9  
         i f ( e v e n t . k e y C o d e   > =   4 8   & &   e v e n t . k e y C o d e   < =   5 7 )  
         {  
                 e v e n t . r e t u r n V a l u e   =   t r u e ;  
                 r e t u r n ;  
         }  
                 C a n c e l E v e n t E x e c u t i o n ( e v e n t ) ;  
         }  
 / *  
 *   C a n c e l a   a   e x e c u ç ã o   d e   u m a   f u n c t i o n   m a p e a d a   p o r   u m   e v e n t o  
 * /  
 f u n c t i o n   C a n c e l E v e n t E x e c u t i o n ( e v e n t )  
 {  
         i f   ( n a v i g a t o r . a p p N a m e   = =   " N e t s c a p e " )  
         {  
                 e v e n t . p r e v e n t D e f a u l t ( ) ;  
         }  
         e l s e  
         {  
                 e v e n t . r e t u r n V a l u e   =   f a l s e ;  
         }  
 }  
  
 
