ÿþ/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  
   *                                                                                                                                   *  
   *   F u n ç õ e s   J a v a S c r i p t   p a r a   m a n i p u l a ç ã o   d o   d o   c a d a s t r o   d e   u s u á r i o s     *  
   *                                                                                                                                   *  
   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f C o n s i s t e         v a l i d a   c o n s i s t ê n c i a s   f í s i c a s   d a   t e l a   d e   i n c l u s ã o       |  
   |                             d e   u s u á r i o s                                                                                 |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
  
   f u n c t i o n   f C o n s i s t e ( )   {  
 	                 v a r   s T a m = d o c u m e n t . f r m I n c U s u a r i o . t x t S e n h a . v a l u e ;    
 	                 v a r   s T i p o   =   d o c u m e n t . f r m I n c U s u a r i o . c b o T i p o U s u a r i o . v a l u e ;    
 	 	 	 i f ( T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t I d e n t i f i c a c a o . v a l u e )   = =   ' ' )   {  
 	 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   a   i d e n t i f i c a ç ã o   d o   u s u á r i o . ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t I d e n t i f i c a c a o . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 } 	 	 	 	  
 	 	 	 i f ( T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t N o m e . v a l u e )   = =   ' ' )   {  
 	 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   o   n o m e   d o   u s u á r i o . ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t N o m e . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 }  
 	 	 	 i f ( T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t S e n h a . v a l u e )   = =   ' ' )   {  
 	 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   a   s e n h a   d o   u s u á r i o . ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t S e n h a . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 }  
 	 	 	 i f ( s T a m . l e n g t h   <   6 )   {  
 	 	 	 	 a l e r t ( ' S e n h a   d e v e   t e r   n o   m í n i m o   6   c a r a c t e r e s . ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t S e n h a . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 } 	 	 	 	 	  
 	 	 	 i f ( T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e )   = =   ' ' )   {  
 	 	 	 	 a l e r t ( ' C o n f i r m a ç ã o   d a   s e n h a   n ã o   i n f o r m a d a ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t C o n f i r m a S e n h a . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 }  
 	 	 	 i f ( T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t S e n h a . v a l u e ) ! = T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e ) )   {  
 	 	 	 	 a l e r t ( ' C o n f i r m a ç ã o   d a   s e n h a   n ã o   c o n f e r e   c o m   a   s e n h a   i n f o r m a d a ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t C o n f i r m a S e n h a . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 }  
 	 	 	 i f ( T r i m ( s T i p o )   = =   ' ' )   {  
 	 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   o   t i p o   d o   u s u á r i o . ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . c b o T i p o U s u a r i o . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 }  
 	 	 	  
 	 	 	 i f   ( s T i p o = = ' C '   & &   d o c u m e n t . f r m I n c U s u a r i o . c h k M a s t e r . c h e c k e d )   {  
 	 	 	 	 a l e r t ( ' U s u á r i o   d o   t i p o   c l i e n t e   n ã o   p o d e   s e r   m a s t e r . ' ) ;  
 	 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . c h k M a s t e r . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ;  
 	 	 	 }  
 	 	 	  
 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t S e n h a . v a l u e     =   f E n c o d e 2 ( T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t S e n h a . v a l u e . t o U p p e r C a s e ( ) ) ) ;  
 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e     =   f E n c o d e 2 ( T r i m ( d o c u m e n t . f r m I n c U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e . t o U p p e r C a s e ( ) ) ) ;  
 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . a c t i o n   =   " p a n _ u s u a r i o s _ i n c 0 1 . a s p x ? o p e r a = e x e c " ; 	 	 	  
 	 	 	 d o c u m e n t . f r m I n c U s u a r i o . s u b m i t ( ) ;  
   }  
    
   / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f C o n s i s t e A         v a l i d a   c o n s i s t ê n c i a s   f í s i c a s   d a   t e l a   d e   a l t e r a ç ã o     |  
   |                               d e   u s u á r i o s                                                                                 |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
  
   f u n c t i o n   f C o n s i s t e A ( )   {  
 	                 v a r   s T a m = d o c u m e n t . f r m A l t U s u a r i o . t x t S e n h a . v a l u e ;    
 	                 v a r   s T i p o   =   d o c u m e n t . f r m A l t U s u a r i o . c b o T i p o U s u a r i o . v a l u e ;    
 	 	 	 i f ( T r i m ( d o c u m e n t . f r m A l t U s u a r i o . t x t N o m e . v a l u e )   = =   ' ' )   {  
 	 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   o   n o m e   d o   u s u á r i o . ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . t x t N o m e . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 }  
 	 	 	 i f ( T r i m ( d o c u m e n t . f r m A l t U s u a r i o . t x t S e n h a . v a l u e )   ! =   ' ' )   {  
 	 	 	 	  
 	 	 	 	 	 i f ( s T a m . l e n g t h   <   6 )   {  
 	 	 	 	 	 	 a l e r t ( ' S e n h a   d e v e   t e r   n o   m í n i m o   6   c a r a c t e r e s . ' ) ; 	 	  
 	 	 	 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . t x t S e n h a . f o c u s ( ) ;  
 	 	 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 	 	 } 	 	 	 	 	  
 	 	 	 	 	 i f ( T r i m ( d o c u m e n t . f r m A l t U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e )   = =   ' ' )   {  
 	 	 	 	 	 	 a l e r t ( ' C o n f i r m a ç ã o   d a   s e n h a   n ã o   i n f o r m a d a ' ) ; 	 	  
 	 	 	 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . t x t C o n f i r m a S e n h a . f o c u s ( ) ;  
 	 	 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 	 	 }  
 	 	 	 	 	 i f ( T r i m ( d o c u m e n t . f r m A l t U s u a r i o . t x t S e n h a . v a l u e ) ! = T r i m ( d o c u m e n t . f r m A l t U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e ) )   {  
 	 	 	 	 	 	 a l e r t ( ' C o n f i r m a ç ã o   d a   s e n h a   n ã o   c o n f e r e   c o m   a   s e n h a   i n f o r m a d a ' ) ; 	 	  
 	 	 	 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . t x t C o n f i r m a S e n h a . f o c u s ( ) ;  
 	 	 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 	 	 }  
 	 	 	 } 	 	  
 	 	 	 i f ( T r i m ( s T i p o )   = =   ' ' )   {  
 	 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   o   t i p o   d o   u s u á r i o . ' ) ; 	 	  
 	 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . c b o T i p o U s u a r i o . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 	 }  
 	 	 	  
 	 	 	 i f   ( s T i p o = = ' C '   & &   d o c u m e n t . f r m A l t U s u a r i o . c h k M a s t e r . c h e c k e d )   {  
 	 	 	 	 a l e r t ( ' U s u á r i o   d o   t i p o   c l i e n t e   n ã o   p o d e   s e r   m a s t e r . ' ) ;  
 	 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . c h k M a s t e r . f o c u s ( ) ;  
 	 	 	 	 r e t u r n   f a l s e ;  
 	 	 	 }  
 	 	 	  
 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . t x t S e n h a . v a l u e     =   f E n c o d e 2 ( T r i m ( d o c u m e n t . f r m A l t U s u a r i o . t x t S e n h a . v a l u e . t o U p p e r C a s e ( ) ) ) ;  
 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e     =   f E n c o d e 2 ( T r i m ( d o c u m e n t . f r m A l t U s u a r i o . t x t C o n f i r m a S e n h a . v a l u e . t o U p p e r C a s e ( ) ) ) ;  
 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . a c t i o n   =   " p a n _ u s u a r i o s _ a l t 0 1 . a s p x " ; 	 	 	  
 	 	 	 d o c u m e n t . f r m A l t U s u a r i o . s u b m i t ( ) ;  
   }  
    
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f T r o c a S e n h a     E f e t u a   v a l i d a ç õ e s   d o s   c a m p o s   d a   t e l a   d e                         |  
   |                             d e   t r o c a   d e   s e n h a                                                                     |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /    
   f u n c t i o n   f T r o c a S e n h a ( )   {  
                 v a r   s T a m = d o c u m e n t . f r m T r o c a S e n h a . t x t N o v a S e n h a . v a l u e ;    
 	 	 i f ( T r i m ( d o c u m e n t . f r m T r o c a S e n h a . t x t S e n h a A t u a l . v a l u e )   = =   ' ' )   {  
 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   a   s e n h a   a t u a l . ' ) ; 	 	  
 	 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t S e n h a A t u a l . f o c u s ( ) ;  
 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 } 	 	 	 	 	  
 	 	 i f ( T r i m ( d o c u m e n t . f r m T r o c a S e n h a . t x t N o v a S e n h a . v a l u e )   = =   ' ' )   {  
 	 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   a   n o v a   s e n h a . ' ) ; 	 	  
 	 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t N o v a S e n h a . f o c u s ( ) ;  
 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 } 	                                                            
 	 	 i f ( s T a m . l e n g t h   <   6 )   {  
 	 	 	 a l e r t ( ' N o v a   s e n h a   d e v e   t e r   n o   m í n i m o   6   c a r a c t e r e s . ' ) ; 	 	  
 	 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t N o v a S e n h a . f o c u s ( ) ;  
 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 } 	 	 	 	 	 	 	 	  
 	 	 i f ( T r i m ( d o c u m e n t . f r m T r o c a S e n h a . t x t C o n f i r m a N o v a S e n h a . v a l u e )   = =   ' ' )   {  
 	 	 	 a l e r t ( ' P o r   f a v o r ,   c o n f i r m e   a   n o v a   s e n h a . ' ) ; 	 	  
 	 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t C o n f i r m a N o v a S e n h a . f o c u s ( ) ;  
 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 } 	 	 	 	  
 	 	 i f ( T r i m ( d o c u m e n t . f r m T r o c a S e n h a . t x t N o v a S e n h a . v a l u e ) ! = T r i m ( d o c u m e n t . f r m T r o c a S e n h a . t x t C o n f i r m a N o v a S e n h a . v a l u e ) )   {  
 	 	 	 a l e r t ( ' C o n f i r m a ç ã o   d a   n o v a   s e n h a   n ã o   c o n f e r e   c o m   a   n o v a   s e n h a   i n f o r m a d a ' ) ; 	 	  
 	 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t C o n f i r m a N o v a S e n h a . f o c u s ( ) ;  
 	 	 	 r e t u r n   f a l s e ; 	  
 	 	 } 	 	 	 	  
 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t S e n h a A t u a l . v a l u e   =   f E n c o d e 2 ( d o c u m e n t . f r m T r o c a S e n h a . t x t S e n h a A t u a l . v a l u e . t o U p p e r C a s e ( ) ) ;  
 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t N o v a S e n h a . v a l u e   =   f E n c o d e 2 ( d o c u m e n t . f r m T r o c a S e n h a . t x t N o v a S e n h a . v a l u e . t o U p p e r C a s e ( ) ) ;  
 	 	 d o c u m e n t . f r m T r o c a S e n h a . t x t C o n f i r m a N o v a S e n h a . v a l u e   =   f E n c o d e 2 ( d o c u m e n t . f r m T r o c a S e n h a . t x t C o n f i r m a N o v a S e n h a . v a l u e . t o U p p e r C a s e ( ) ) ; 	 	 	 	  
 	 	 d o c u m e n t . f r m T r o c a S e n h a . a c t i o n   =   " p a n _ t r o c a _ s e n h a . a s p x ? o p e r a = e x e c " ; 	 	 	 	  
 	 	 d o c u m e n t . f r m T r o c a S e n h a . s u b m i t ( ) ;  
  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f L o g i n     E f e t u a   v a l i d a ç õ e s   d o s   c a m p o s   d a   t e l a   d e                                   |  
   |                   d e   d e   l o g i n   d a   p a g i n a   i n t e r n e t                                                     |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /    
 f u n c t i o n   f L o g i n ( )   {  
 	 i f ( T r i m ( d o c u m e n t . f r m l o g i n . t x t U s e r . v a l u e )   = =   ' ' )   {  
 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   o   u s u á r i o . ' ) ; 	 	  
 	 	 d o c u m e n t . f r m l o g i n . t x t U s e r . f o c u s ( ) ;  
 	 	 r e t u r n   f a l s e ; 	  
 	 }  
 	 	  
 	 i f ( T r i m ( d o c u m e n t . f r m l o g i n . t x t P w d . v a l u e )   = =   ' ' )   {  
 	 	 a l e r t ( ' P o r   f a v o r ,   i n f o r m e   a   s e n h a . ' ) ; 	 	  
 	 	 d o c u m e n t . f r m l o g i n . t x t P w d . f o c u s ( ) ;  
 	 	 r e t u r n   f a l s e ; 	  
 	 } 	  
 	 d o c u m e n t . f r m l o g i n . t x t P w d . v a l u e           =   f E n c o d e 2 ( T r i m ( d o c u m e n t . f r m l o g i n . t x t P w d . v a l u e . t o U p p e r C a s e ( ) ) ) ;          
         d o c u m e n t . f r m l o g i n . a c t i o n = " l o g i n . a s p x "  
 	 d o c u m e n t . f r m l o g i n . t a r g e t   =   " _ t o p " ;  
 	 d o c u m e n t . f r m l o g i n . s u b m i t ( ) ;  
  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f P u b l i c a     P u b l i c a   e m   c a m p o   h i d d e n   n a   p á g i n a   o   v a l o r   d e   u m   r a d i o   |  
   |                       b u t t o n   s e l e c i o n a d o 	 	                                                               |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /    
 f u n c t i o n   f P u b l i c a ( c V a l o r )   {  
 	 d o c u m e n t . f r m L i s t a . C o d i g o . v a l u e = c V a l o r ;    
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f D e t a l h a r :   E x i b e   a   p á g i n a   d e   d e t a l h e   c o m   o s   d a d o s   d o   u s u á r i o         |  
   |                         s e l e c i o n a d o 	 	 	 	 	 	 	 	 	               |                                      
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f D e t a l h a r ( )   { 	 	 	  
  
 	 v a r   i C o d U s u a r i o   =   c o n t e u d o . f r m L i s t a . C o d i g o . v a l u e ; 	 	 	  
 	  
 	 i f   ( i C o d U s u a r i o = = ' ' )   {  
 	 	   a l e r t ( ' P o r   f a v o r ,   s e l e c i o n e   u m   i t e m   d a   l i s t a . ' ) ;                    
                   r e t u r n   f a l s e ;  
         }          
         d o c u m e n t . f r m P o r t a l . a c t i o n = " p a n _ u s u a r i o s _ d e t 0 1 . a s p x ? o p e r a = "   +   i C o d U s u a r i o        
         d o c u m e n t . f r m P o r t a l . s u b m i t ( ) ;          
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f E x c l u i r :     E f e t u a   a   e x c l u s ã o   d o   u s u á r i o s   s e l e c i o n a d o                         |  
   |                                             	 	 	 	 	 	 	 	 	               |                                      
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f E x c l u i r ( )   { 	 	 	  
  
 	 v a r   i C o d U s u a r i o   =   c o n t e u d o . f r m L i s t a . C o d i g o . v a l u e ; 	 	 	  
 	  
 	 i f   ( i C o d U s u a r i o = = ' ' )   {  
 	 	   a l e r t ( ' P o r   f a v o r ,   s e l e c i o n e   u m   i t e m   d a   l i s t a . ' ) ;                    
                   r e t u r n   f a l s e ;  
         }                        
 	 d o c u m e n t . f r m P o r t a l . a c t i o n = " p a n _ u s u a r i o s _ e x c 0 1 . a s p x ? o p e r a = "   +   i C o d U s u a r i o        
         d o c u m e n t . f r m P o r t a l . s u b m i t ( ) ;         	  
 	  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f A l t e r a r :     E x i b e   a   p á g i n a   c o m   o s   d a d o s   d o   u s u á r i o     s e l e c i o n a d o     |  
   |                         p a r a   a l t e r a ç ã o   	 	 	 	 	 	 	 	               |                                      
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f A l t e r a r ( )   { 	 	 	  
  
 	 v a r   i C o d U s u a r i o   =   c o n t e u d o . f r m L i s t a . C o d i g o . v a l u e ; 	 	 	  
 	  
 	 i f   ( i C o d U s u a r i o = = ' ' )   {  
 	 	   a l e r t ( ' P o r   f a v o r ,   s e l e c i o n e   u m   i t e m   d a   l i s t a . ' ) ;                    
                   r e t u r n   f a l s e ;  
         }          
         d o c u m e n t . f r m P o r t a l . a c t i o n = " p a n _ u s u a r i o s _ a l t 0 1 . a s p x ? o p e r a = "   +   i C o d U s u a r i o        
         d o c u m e n t . f r m P o r t a l . s u b m i t ( ) ;          
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f D e t a l h a r :   E x i b e   a   p á g i n a   d e   c o n t r o l e   d e   a c e s s o   a   u s u á r i o s             |  
   |                         p a r a   o   u s u á r i o   s e l e c i o n a d o 	                                               |                                      
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f A c e s s o ( )   { 	 	 	  
  
 	 v a r   i C o d U s u a r i o   =   c o n t e u d o . f r m L i s t a . C o d i g o . v a l u e ; 	 	 	  
 	  
 	 i f   ( i C o d U s u a r i o = = ' ' )   {  
 	 	   a l e r t ( ' P o r   f a v o r ,   s e l e c i o n e   u m   i t e m   d a   l i s t a . ' ) ;                    
                   r e t u r n   f a l s e ;  
         }          
         d o c u m e n t . f r m P o r t a l . a c t i o n = " p a n _ u s u a r i o s _ a c e s s o 0 1 . a s p x ? o p e r a = "   +   i C o d U s u a r i o        
         d o c u m e n t . f r m P o r t a l . s u b m i t ( ) ;          
 }  
  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f M a r c a S A c e s s o   :   M a r c a   o u   d e s m a r c a   s e l e ç ã o   d e   t o d o s   o s   i t e n s   d a     |  
   | 	 	 	 	       l i s t a   s e m   a c e s s o 	 	 	 	 	 	 	 	       |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f M a r c a S A c e s s o ( )  
 {  
 	  
 	 v a r   v a z i o   =   t e s t e i r a 0 2 . f r m L i s t a . v a z i o . v a l u e ; 	  
 	 i f   ( v a z i o = = ' 0 ' )  
 	 	 r e t u r n   f a l s e ;  
 	 	  
 	 v a r   i Q t I t e n s = t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . l e n g t h ;  
 	 v a r   i C t = 0 ;  
  
 	 i f   ( i s N a N ( i Q t I t e n s ) )  
 	 {  
 	 	 v a r   i Q t I t e n s = 0 ; 	 	  
 	 	 i f   ( d o c u m e n t . f r m P o r t a l . c h k M a r c a T o d o s S A c e s s o . c h e c k e d )  
 	 	 {  
 	 	 	 t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . c h e c k e d = t r u e ;  
 	 	 }  
 	 	 e l s e  
 	 	 {  
 	 	 	 t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . c h e c k e d = f a l s e ;  
 	 	 }  
 	 }  
  
 	 f o r (   i C t = 0 ;   i C t   <   i Q t I t e n s ;   i C t + +   ) 	  
 	 {  
 	 	 i f   ( d o c u m e n t . f r m P o r t a l . c h k M a r c a T o d o s S A c e s s o . c h e c k e d )  
 	 	 {  
 	 	 	 t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s [ i C t ] . c h e c k e d = t r u e ;  
 	 	 }  
 	 	 e l s e  
 	 	 {  
 	 	 	 t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s [ i C t ] . c h e c k e d = f a l s e ; 	 	  
 	 	 }  
 	 } 	  
 } 	  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f M a r c a C A c e s s o   :   M a r c a   o u   d e s m a r c a   s e l e ç ã o   d e   t o d o s   o s   i t e n s   d a     |  
   | 	 	 	 	       l i s t a   c o m   a c e s s o 	 	 	 	 	 	 	 	       |  
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f M a r c a C A c e s s o ( )  
 {  
 	  
 	 v a r   v a z i o   =   t e s t e i r a 0 3 . f r m L i s t a . v a z i o . v a l u e ; 	  
 	 i f   ( v a z i o = = ' 0 ' )  
 	 	 r e t u r n   f a l s e ;  
 	 	  
 	 v a r   i Q t I t e n s = t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . l e n g t h ;  
 	 v a r   i C t = 0 ;  
  
 	 i f   ( i s N a N ( i Q t I t e n s ) )  
 	 {  
 	 	 v a r   i Q t I t e n s = 0 ;  
 	 	 i f   ( d o c u m e n t . f r m P o r t a l . c h k M a r c a T o d o s C A c e s s o . c h e c k e d )  
 	 	 {  
 	 	 	 t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . c h e c k e d = t r u e ;  
 	 	 }  
 	 	 e l s e  
 	 	 {  
 	 	 	 t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . c h e c k e d = f a l s e ;  
 	 	 }  
 	 }  
  
 	 f o r (   i C t = 0 ;   i C t   <   i Q t I t e n s ;   i C t + +   ) 	  
 	 {  
 	 	 i f   ( d o c u m e n t . f r m P o r t a l . c h k M a r c a T o d o s C A c e s s o . c h e c k e d )  
 	 	 {  
 	 	 	 t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s [ i C t ] . c h e c k e d = t r u e ;  
 	 	 }  
 	 	 e l s e  
 	 	 {  
 	 	 	 t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s [ i C t ] . c h e c k e d = f a l s e ; 	 	  
 	 	 }  
 	 } 	  
 } 	  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f I n c l u i r M o d u l o :   V e r i f i c a   o s   m ó d u l o s   s e m   a c e s s o   c l i c a d o s   p a r a           |  
   |                                 p a s s a r   a   s e r   c o m   a c e s s o . 	 	 	 	 	 	       |                                      
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f I n c l u i r M o d u l o ( )    
 { 	 	  
  
 	 v a r   v a z i o   =   t e s t e i r a 0 2 . f r m L i s t a . v a z i o . v a l u e ; 	  
 	 i f   ( v a z i o = = ' 0 ' )  
 	 	 r e t u r n   f a l s e ;  
 	  
 	 v a r   i Q t I t e n s = t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . l e n g t h ;  
 	 v a r   i C t = 0 ;  
 	 v a r   c M o d u l o s = ' ' ;  
  
 	 i f   ( i s N a N ( i Q t I t e n s ) )  
 	 {  
 	 	 v a r   i Q t I t e n s   =   0 ;  
 	 	 i f   ( t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . c h e c k e d )   	  
 	 	 {  
 	 	 	 i f   ( c M o d u l o s = = ' ' )  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   T r i m ( t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . v a l u e ) ;  
 	 	 	 }  
 	 	 	 e l s e  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   c M o d u l o s   +   ' ; '   +   T r i m ( t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . v a l u e ) ;  
 	 	 	 }  
 	 	 }  
 	 }  
 	  
 	 f o r (   i C t = 0 ;   i C t   <   i Q t I t e n s ;   i C t + +   ) 	  
 	 {  
 	 	 i f   ( t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s [ i C t ] . c h e c k e d )  
 	 	 {  
 	 	 	 i f   ( c M o d u l o s = = ' ' )  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   T r i m ( t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s [ i C t ] . v a l u e ) ;  
 	 	 	 }  
 	 	 	 e l s e  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   c M o d u l o s   +   ' ; '   +   T r i m ( t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s [ i C t ] . v a l u e ) ;  
 	 	 	 }  
 	 	 }  
 	 } 	  
  
 	 i f   ( c M o d u l o s = = ' '   & &   i s N a N ( t e s t e i r a 0 2 . f r m L i s t a . c h k A c e s s o s . l e n g t h )   ! =   t r u e )  
 	 {  
 	 	   a l e r t ( ' P o r   f a v o r ,   s e l e c i o n e   u m   i t e m   d a   l i s t a . ' ) ;  
                   r e t u r n   f a l s e ;  
 	 } 	  
  
 	 d o c u m e n t . f r m P o r t a l . a c t i o n = " p a n _ u s u a r i o s _ a c e s s o 0 1 . a s p x ? i n c l u s a o = "   +   c M o d u l o s ;  
 	 d o c u m e n t . f r m P o r t a l . s u b m i t ( ) ;        
  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f E x c l u i r M o d u l o :   V e r i f i c a   o s   m ó d u l o s   c o m   a c e s s o   c l i c a d o s   p a r a         |  
   |                                   p a s s a r   a   s e r   s e m   a c e s s o . 	 	 	 	 	 	       |                                      
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /  
 f u n c t i o n   f E x c l u i r M o d u l o ( )    
 { 	 	  
  
 	 v a r   v a z i o   =   t e s t e i r a 0 3 . f r m L i s t a . v a z i o . v a l u e ; 	  
 	 i f   ( v a z i o = = ' 0 ' )  
 	 	 r e t u r n   f a l s e ; 	  
 	  
 	 v a r   i Q t I t e n s = t e s t e i r a 0 3 . f r m L i s t a . v a z i o . v a l u e ;  
 	 v a r   i C t = 0 ;  
 	 v a r   c M o d u l o s = ' ' ; 	  
 	  
 	 / /  
 	 i f   ( i Q t I t e n s   = =   1 )   { 	  
 	 	  
 	 	  
 	 	 i f   ( t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . c h e c k e d )   {  
 	 	 	 d o c u m e n t . f r m P o r t a l . a c t i o n = " p a n _ u s u a r i o s _ a c e s s o 0 1 . a s p x ? e x c l u s a o = "   +   t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . v a l u e ;  
 	 	 	 d o c u m e n t . f r m P o r t a l . s u b m i t ( ) ;        
 	 	 	 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 f   ( i s N a N ( i Q t I t e n s ) )  
 	 {  
 	 	 v a r   i Q t I t e n s   =   0 ;  
 	 	 i f   ( t e s t e i r a 0 2 . f r m L i s t a . c h k S A c e s s o s . c h e c k e d )   	  
 	 	 {  
 	 	 	 i f   ( c M o d u l o s = = ' ' )  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   T r i m ( t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . v a l u e ) ;  
 	 	 	 }  
 	 	 	 e l s e  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   c M o d u l o s   +   ' ; '   +   T r i m ( t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . v a l u e ) ;  
 	 	 	 }  
 	 	 }  
 	 }  
 	  
 	 f o r (   i C t = 0 ;   i C t   <   i Q t I t e n s ;   i C t + +   ) 	  
 	 {  
 	 	 i f   ( t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s [ i C t ] . c h e c k e d )  
 	 	 {  
 	 	 	 i f   ( c M o d u l o s = = ' ' )  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   T r i m ( t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s [ i C t ] . v a l u e ) ;  
 	 	 	 }  
 	 	 	 e l s e  
 	 	 	 {  
 	 	 	 	 c M o d u l o s   =   c M o d u l o s   +   ' ; '   +   T r i m ( t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s [ i C t ] . v a l u e ) ;  
 	 	 	 }  
 	 	 }  
 	 } 	  
  
 	 i f   ( c M o d u l o s = = ' '   & &   i s N a N ( t e s t e i r a 0 3 . f r m L i s t a . c h k S A c e s s o s . l e n g t h )   ! =   t r u e )  
 	 {  
 	 	   a l e r t ( ' P o r   f a v o r ,   s e l e c i o n e   u m   i t e m   d a   l i s t a . ' ) ;  
                   r e t u r n   f a l s e ;  
 	 } 	  
  
 	 d o c u m e n t . f r m P o r t a l . a c t i o n = " p a n _ u s u a r i o s _ a c e s s o 0 1 . a s p x ? e x c l u s a o = "   +   c M o d u l o s ;  
 	 d o c u m e n t . f r m P o r t a l . s u b m i t ( ) ;        
  
 }  
  
 / * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *  
   |   f S u b m i t O n E n t e r :         T e s t a   s e   a   t e c l a   p r e s s i o n a d a   é   E n t e r   o u             |  
   |                                         b a r r a   d e   e s p a ç o .   S e   f o r   s u b m e t e   o   f o r m               |  
   |                                         e f e t u a n d o   o   p r o c e d i m e n t o   d e   l o g i n                         |    
   * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /    
   f u n c t i o n   f S u b m i t O n E n t e r ( ) {  
 	 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 = = 1 3   | |   T e c l a = = 3 2 )     {  
 	 	 	 f L o g i n ( ) ;  
 	 	 	 r e t u r n   t r u e ;  
 	 	 } 	 	  
 	 }  
 	 r e t u r n   f a l s e ;  
 }  
  
 
