ÿþf u n c t i o n   c h e c k R u t F i e l d ( r u t , t h e F o r m )  
 {  
 	 v a r   t m p s t r   =   " " ;  
 	 f o r   (   i = 0 ;   i   <   r u t . l e n g t h   ;   i + +   )  
 	 	 i f   (   r u t . c h a r A t ( i )   ! =   '   '   & &   r u t . c h a r A t ( i )   ! =   ' . '   & &   r u t . c h a r A t ( i )   ! =   ' - '   )  
 	 	 	 t m p s t r   =   t m p s t r   +   r u t . c h a r A t ( i ) ;  
 	 r u t   =   t m p s t r ;  
 	 l a r g o   =   r u t . l e n g t h ;  
 / /   [ V A R M + ]  
 	 t m p s t r   =   " " ;  
 	 f o r   (   i = 0 ;   r u t . c h a r A t ( i )   = =   ' 0 '   ;   i + +   ) ;  
 	 	 f o r   ( ;   i   <   r u t . l e n g t h   ;   i + +   )  
 	 	 	 t m p s t r   =   t m p s t r   +   r u t . c h a r A t ( i ) ;  
 	 r u t   =   t m p s t r ;  
 	 l a r g o   =   r u t . l e n g t h ;  
 / /   [ V A R M - ]  
 	 i f   (   l a r g o   <   2   )  
 	 {  
 	 	 a l e r t ( " D e b e   i n g r e s a r   e l   r u t   c o m p l e t o . " ) ;  
 	 	 d o c u m e n t . f r m . r u t . f o c u s ( ) ;  
 	 	 d o c u m e n t . f r m . r u t . s e l e c t ( ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 f o r   ( i = 0 ;   i   <   l a r g o   ;   i + +   )  
 	 {  
 	 	 i f   (   r u t . c h a r A t ( i )   ! =   " 0 "   & &   r u t . c h a r A t ( i )   ! =   " 1 "   & &   r u t . c h a r A t ( i )   ! = " 2 "   & &   r u t . c h a r A t ( i )   ! =   " 3 "   & &   r u t . c h a r A t ( i )   ! =   " 4 "   & &   r u t . c h a r A t ( i )   ! = " 5 "   & &   r u t . c h a r A t ( i )   ! =   " 6 "   & &   r u t . c h a r A t ( i )   ! =   " 7 "   & &   r u t . c h a r A t ( i )   ! = " 8 "   & &   r u t . c h a r A t ( i )   ! =   " 9 "   & &   r u t . c h a r A t ( i )   ! = " k "   & &   r u t . c h a r A t ( i )   ! =   " K "   )  
 	 	 {  
 	 	 	 a l e r t ( " E l   v a l o r   i n g r e s a d o   n o   c o r r e s p o n d e   a   u n   R . U . T   v a l i d o . " ) ;  
 	 	 	 d o c u m e n t . f r m . r u t . f o c u s ( ) ;  
 	 	 	 d o c u m e n t . f r m . r u t . s e l e c t ( ) ;  
 	 	 	 r e t u r n   f a l s e ;  
 	 	 }  
 	 }  
 	 v a r   i n v e r t i d o   =   " " ;  
 	 f o r   (   i = ( l a r g o - 1 ) , j = 0 ;   i > = 0 ;   i - - , j + +   )  
 	 	 i n v e r t i d o   =   i n v e r t i d o   +   r u t . c h a r A t ( i ) ;  
 	 v a r   d r u t   =   " " ;  
 	 d r u t   =   d r u t   +   i n v e r t i d o . c h a r A t ( 0 ) ;  
 	 d r u t   =   d r u t   +   ' - ' ;  
 	 c n t   =   0 ;  
 	 f o r   (   i = 1 , j = 2 ;   i < l a r g o ;   i + + , j + +   )  
 	 {  
 	 	 i f   (   c n t   = =   3   )  
 	 	 {  
 	 	 	 d r u t   =   d r u t   +   ' . ' ;  
 	 	 	 j + + ;  
 	 	 	 d r u t   =   d r u t   +   i n v e r t i d o . c h a r A t ( i ) ;  
 	 	 	 c n t   =   1 ;  
 	 	 }  
 	 	 e l s e  
 	 	 {  
 	 	 	 d r u t   =   d r u t   +   i n v e r t i d o . c h a r A t ( i ) ;  
 	 	 	 c n t + + ;  
 	 	 }  
 	 }  
 	 i n v e r t i d o   =   " " ;  
 	 f o r   (   i = ( d r u t . l e n g t h - 1 ) , j = 0 ;   i > = 0 ;   i - - , j + +   )  
 	 	 i n v e r t i d o   =   i n v e r t i d o   +   d r u t . c h a r A t ( i ) ;  
 	 d o c u m e n t . f r m . r u t . v a l u e   =   i n v e r t i d o ;  
 	 i f   (   c h e c k D V ( r u t , t h e F o r m )   )  
 	 	 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   c h e c k D V (   c r u t , t h e F o r m   )  
 {  
 	 l a r g o   =   c r u t . l e n g t h ;  
 	 i f   (   l a r g o   <   2   )  
 	 {  
 	 	 a l e r t ( " D e b e   i n g r e s a r   e l   r u t   c o m p l e t o . " ) ;  
 	 	 d o c u m e n t . f r m . r u t . f o c u s ( ) ;  
 	 	 d o c u m e n t . f r m . r u t . s e l e c t ( ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 i f   (   l a r g o   >   2   )  
 	 	 r u t   =   c r u t . s u b s t r i n g ( 0 ,   l a r g o   -   1 ) ;  
 	 e l s e  
 	 	 r u t   =   c r u t . c h a r A t ( 0 ) ;  
         	 d v   =   c r u t . c h a r A t ( l a r g o - 1 ) ;  
               d o c u m e n t . f r m . r u t _ a u x . v a l u e = r u t  
               d o c u m e n t . f r m . d v . v a l u e = d v  
  
 	 c h e c k C D V (   d v , t h e F o r m   ) ;  
 	 i f   (   r u t   = =   n u l l   | |   d v   = =   n u l l   )  
 	 	 r e t u r n   0 ;  
 	 v a r   d v r   =   ' 0 ' ;  
 	 s u m a   =   0 ;  
 	 m u l   =   2 ;  
 	 f o r   ( i =   r u t . l e n g t h   - 1   ;   i   > =   0 ;   i - - )  
 	 {  
 	 	 s u m a   =   s u m a   +   r u t . c h a r A t ( i )   *   m u l ;  
 	 	 i f   ( m u l   = =   7 )  
 	 	 	 m u l   =   2 ;  
 	 	 e l s e  
 	 	 	 m u l + + ;  
 	 }  
 	 r e s   =   s u m a   %   1 1 ;  
 	 i f   ( r e s = = 1 )  
 	 	 d v r   =   ' k ' ;  
 	 e l s e   i f   ( r e s = = 0 )  
 	 	 d v r   =   ' 0 ' ;  
 	 e l s e  
 	 {  
 	 	 d v i   =   1 1 - r e s ;  
 	 	 d v r   =   d v i   +   " " ;  
 	 }  
 	 i f   (   d v r   ! =   d v . t o L o w e r C a s e ( )   )  
 	 {  
 	 	 a l e r t ( " E L   r u t   e s   i n c o r r e c t o . " ) ;  
 	 	 d o c u m e n t . f r m . r u t . f o c u s ( ) ;  
 	 	 d o c u m e n t . f r m . r u t . v a l u e   =   " " ;  
 	 	 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   c h e c k C D V (   d v r , t h e F o r m   )  
 {  
 	 d v   =   d v r   +   " " ;  
 	 i f   (   d v   ! =   ' 0 '   & &   d v   ! =   ' 1 '   & &   d v   ! =   ' 2 '   & &   d v   ! =   ' 3 '   & &   d v   ! =   ' 4 '   & &   d v   ! =   ' 5 '   & &   d v   ! =   ' 6 '   & &   d v   ! =   ' 7 '   & &   d v   ! =   ' 8 '   & &   d v   ! =   ' 9 '   & &   d v   ! =   ' k '     & &   d v   ! =   ' K ' )  
 	 {  
 	 	 a l e r t ( " D e b e   i n g r e s a r   u n   d i g i t o   v e r i f i c a d o r   v a l i d o . " ) ;  
 	 	 d o c u m e n t . f r m . r u t . f o c u s ( ) ;  
 	 	 d o c u m e n t . f r m . r u t . s e l e c t ( ) ;  
 	 	 r e t u r n   f a l s e ;  
 	 }  
 	 r e t u r n   t r u e ;  
 } 
