ÿþf u n c t i o n   V a l i d a t e _ T e x t o A l f a N u m e r i c o (  
         p i o C o n t r o l ,  
         p i i M i n L e n g t h ,  
         p i i M a x L e n g t h ,  
         p i s C o n t r o l L a b e l ,  
         p i s B u s i n e s s M e s s a g e 	  
 )  
 {  
         v a r   i L e n g t h ;  
         v a r   b S u c c e s s ;  
         v a r   s S e l f M e s s a g e ;  
  
         v a r   v a l T e x t o S i m p l e   =   / ^ [ A - Z a - z 0 - 9 Ñ ñ   . ] * $ / ;  
  
  
         b S u c c e s s   =   t r u e ;  
         i L e n g t h   =   p i o C o n t r o l . v a l u e . l e n g t h ;  
  
  
         i f   ( i L e n g t h   <   p i i M i n L e n g t h )   {  
                 s S e l f M e s s a g e   =   " D e b e n   h a b e r   p o r   l o   m e n o s   "   +   p i i M i n L e n g t h   +   "   c a r a c t e r e s . " ;  
                 b S u c c e s s   =   f a l s e ;  
         }  
  
         e l s e   i f   ( i L e n g t h   >   p i i M a x L e n g t h )   {  
                 s S e l f M e s s a g e   =   " D e b e n   h a b e r   c o m o   m á x i m o   "   +   p i i M a x L e n g t h   +   "   c a r a c t e r e s . " ;  
                 b S u c c e s s   =   f a l s e ;  
         }  
  
         e l s e   i f   ( ! v a l T e x t o S i m p l e . t e s t ( p i o C o n t r o l . v a l u e ) )   {  
                 s S e l f M e s s a g e   =   " L a   c a d e n a   d e b e   c o n t e n e r   d e   l a   A - Z   y   d e l   0 - 9 . " ;  
                 b S u c c e s s   =   f a l s e ;  
         } 	 	  
  
         i f   ( b S u c c e s s   = =   f a l s e )   {  
                 a l e r t ( ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
                 +   s S e l f M e s s a g e   +   ' \ n \ n '  
                 +   p i s B u s i n e s s M e s s a g e ) ;  
                 p i o C o n t r o l . s e l e c t ( ) ;  
                 p i o C o n t r o 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   V a l i d a t e _ T e x t o S i m p l e (  
         p i o C o n t r o l ,  
         p i i M i n L e n g t h ,  
         p i i M a x L e n g t h ,  
         p i s C o n t r o l L a b e l ,  
         p i s B u s i n e s s M e s s a g e 	  
 )  
 {  
         v a r   i L e n g t h ;  
         v a r   b S u c c e s s ;  
         v a r   s S e l f M e s s a g e ;  
  
         v a r   v a l T e x t o S i m p l e   =   / ^ [ A - Z a - z 0 - 9 Ñ ñ á é í ó ú Á É Í Ó Ú   . , ; : ( ) = / _ - ] * $ / ;  
  
         / / V e r i f i c a m o s   s i   e l   c o n t r o l   e s t a   a c t i v o  
         i f   ( p i o C o n t r o l . c l a s s N a m e   = =   ' c l s C o n t r o l D i s a b l e d '   | |    
                 p i o C o n t r o l . c l a s s N a m e   = =   ' C o n t r o l D i s a b l e d ' ) {  
                 r e t u r n   ( t r u e ) ;  
         }  
         v a r   b C t r l O p c i o n a l   =   f a l s e ;  
         i f   ( p i o C o n t r o l . c l a s s N a m e   = =   ' c l s C o n t r o l O p c i o n a l '   | |    
                 p i o C o n t r o l . c l a s s N a m e   = =   ' C o n t r o l O p t i o n a l ' ) {  
                 b C t r l O p c i o n a l   =   t r u e ;  
         }    
          
         b S u c c e s s   =   t r u e ;  
         i L e n g t h   =   p i o C o n t r o l . v a l u e . l e n g t h ;  
          
         i f   ( i L e n g t h   <   p i i M i n L e n g t h )   {                  
                         s S e l f M e s s a g e   =   " D e b e n   h a b e r   p o r   l o   m e n o s   "   +   p i i M i n L e n g t h   +   "   c a r a c t e r e s . " ;  
                         b S u c c e s s   =   f a l s e ;      
                          
                         i f   ( b C t r l O p c i o n a l )   {  
                                 i f   ( i L e n g t h = = 0 )   {  
                                         s S e l f M e s s a g e   =   " " ;  
                                         b S u c c e s s   =   t r u e ;  
                                 }                                  
                         }            
         }  
  
         e l s e   i f   ( i L e n g t h   >   p i i M a x L e n g t h )   {  
                 s S e l f M e s s a g e   =   " D e b e n   h a b e r   c o m o   m á x i m o   "   +   p i i M a x L e n g t h   +   "   c a r a c t e r e s . " ;  
                 b S u c c e s s   =   f a l s e ;  
         }  
  
         e l s e   i f   ( ! v a l T e x t o S i m p l e . t e s t ( p i o C o n t r o l . v a l u e ) )   {  
                 s S e l f M e s s a g e   =   " S e   i n g r e s ó   u n   c a r a c t e r   n o   p e r m i t i d o . . . " ;  
                 b S u c c e s s   =   f a l s e ;  
         } 	 	  
  
         i f   ( b S u c c e s s   = =   f a l s e )   {  
                 a l e r t ( ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
                 +   s S e l f M e s s a g e   +   ' \ n \ n '  
                 +   p i s B u s i n e s s M e s s a g e ) ;  
                 p i o C o n t r o l . s e l e c t ( ) ;  
                 p i o C o n t r o 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   V a l i d a t e _ N u m e r o (  
 	 p i o C o n t r o l ,  
 	 p i l M i n V a l u e ,  
 	 p i l M a x V a l u e ,  
 	 p i s C o n t r o l L a b e l ,  
 	 p i s B u s i n e s s M e s s a g e ,  
 	 p i s E m p t y I s V a l i d  
 )  
 {  
 	 v a r   l V a l u e ;  
 	 v a r   b S u c c e s s ;  
 	 v a r   s S e l f M e s s a g e ; 	  
 	 v a r   v a l N u m e r o E n t e r o S i n S i g n o     =   / ^ \ d + $ /  
 	 v a r   p i b N o M e s s a g e   =   f a l s e ;  
 	  
 	 i f   ( ( p i o C o n t r o l . v a l u e   = =   " " )   & &   ( p i s E m p t y I s V a l i d   = =   ' E M P T Y _ I S _ V A L I D ' ) )   {  
 	 	 r e t u r n   ( t r u e ) ;  
 	 }  
  
 	 b S u c c e s s   =   t r u e ;  
 	 l V a l u e   =   p i o C o n t r o l . v a l u e  
 	  
 	 i f   ( p i l M a x V a l u e   = =   0 )  
 	 	 s S e l f M e s s a g e   =   " I n g r e s e   u n   n ú m e r o   v á l i d o   m a y o r   o   i g u a l   a   "   +   p i l M i n V a l u e ;  
 	 e l s e  
 	 	 s S e l f M e s s a g e   =   " I n g r e s e   u n   n ú m e r o   v á l i d o   e n t r e   "   +   p i l M i n V a l u e   +   "   y   "   +   p i l M a x V a l u e   +   " . " ;  
  
  
 	 i f   ( ! v a l N u m e r o E n t e r o S i n S i g n o . t e s t ( l V a l u e ) )   {  
 	 	 b S u c c e s s   =   f a l s e ;  
 	 } 	 	  
  
 	 e l s e   i f   ( l V a l u e   <   p i l M i n V a l u e )   {  
 	 	 b S u c c e s s   =   f a l s e ;  
 	 }  
 	  
 	 e l s e   i f   ( p i l M a x V a l u e > 0   & &   l V a l u e   >   p i l M a x V a l u e )   {  
 	 	 	 b S u c c e s s   =   f a l s e ;  
 	 	 }  
  
 	 i f   ( b S u c c e s s   = =   f a l s e )   {  
 	 	 i f   ( p i b N o M e s s a g e   = =   f a l s e ) {  
 	 	 	 	 	 a l e r t ( ' E r r o r   x   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
 	 	 	 	 	 	 +   s S e l f M e s s a g e   +   ' \ n \ n '  
 	 	 	 	 	 	 +   p i s B u s i n e s s M e s s a g e ) ;  
  
 	 	 }  
 	 	 e l s e {  
 	 	 	 g s E r r o r M e s s a g e   =   ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
 	 	 	 	 	 +   s S e l f M e s s a g e   +   ' \ n \ n '  
 	 	 	 	 	 +   p i s B u s i n e s s M e s s a g e  
 	 	 }  
  
 	 	 p i o C o n t r o l . s e l e c t ( ) ;  
 	 	 p i o C o n t r o 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   V a l i d a t e _ F i l e U p l o a d (  
         p i o C o n t r o l ,  
         p i s C o n t r o l L a b e l ,  
         p i s B u s i n e s s M e s s a g e 	  
 )  
 {  
         v a r   i L e n g t h ;  
         v a r   b S u c c e s s ;  
         v a r   s S e l f M e s s a g e ;  
  
         v a r   v a l T e x t o S i m p l e   =   / ^ [ A - Z a - z 0 - 9   . ] * $ / ;  
          
         b S u c c e s s   =   t r u e ;  
  
         i f   ( ! v a l T e x t o S i m p l e . t e s t ( p i o C o n t r o l . v a l u e ) )   {  
                 s S e l f M e s s a g e   =   " S e   i n g r e s ó   u n   c a r a c t e r   n o   p e r m i t i d o . . . " ;  
                 b S u c c e s s   =   f a l s e ;  
         } 	 	  
  
         i f   ( b S u c c e s s   = =   f a l s e )   {  
                 a l e r t ( ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
                 +   s S e l f M e s s a g e   +   ' \ n \ n '  
                 +   p i s B u s i n e s s M e s s a g e ) ;  
                 p i o C o n t r o l . s e l e c t ( ) ;  
                 p i o C o n t r o 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   V a l i d a t e _ C o m b o (  
         p i o C o n t r o l ,  
         p i s C o n t r o l L a b e l ,  
         p i s B u s i n e s s M e s s a g e 	  
 )  
 {  
         v a r   i L e n g t h ;  
         v a r   b S u c c e s s ;  
         v a r   s S e l f M e s s a g e ;  
        
         b S u c c e s s   =   t r u e ;  
  
         i f   ( p i o C o n t r o l . v a l u e   = =   " " )   {  
                 s S e l f M e s s a g e   =   " N o   s e   h a   s e l e c c i o n a d o   n i n g u n a   o p c i ó n " ;  
                 b S u c c e s s   =   f a l s e ;  
         } 	 	  
  
         i f   ( b S u c c e s s   = =   f a l s e )   {  
                 a l e r t ( ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
                 +   s S e l f M e s s a g e   +   ' \ n \ n '  
                 +   p i s B u s i n e s s M e s s a g 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   V a l i d R a n g o F e c h a s (  
         p i o T e x t B o x I n i ,  
         p i o T e x t B o x F i n ,          
 	 p i s C o n t r o l L a b e l ,  
 	 p i s B u s i n e s s M e s s a g e          
 )  
 {  
         v a r   s F e c I n i   =   G e t F e c h a Y Y Y Y M M D ( p i o T e x t B o x I n i . v a l u e ) ;  
         v a r   s F e c F i n   =   G e t F e c h a Y Y Y Y M M D ( p i o T e x t B o x F i n . v a l u e ) ;  
         v a r   b S u c c e s s   =   t r u e ;  
  
         i f   ( s F e c I n i   = =   N U L L ( )   & &   b S u c c e s s   = =   t r u e )   {  
                 b S u c c e s s   =   f a l s e ;  
                 s S e l f M e s s a g e   =   " L a   F e c h a   I n i c i a l   n o   p u e d e   e s t a r   v a c i a . " ;    
         }  
  
         i f   ( s F e c F i n   = =   N U L L ( )   & &   b S u c c e s s   = =   t r u e )   {  
                 b S u c c e s s   =   f a l s e ;  
                 s S e l f M e s s a g e   =   " L a   F e c h a   F i n a l   n o   p u e d e   e s t a r   v a c i a . " ;    
         }  
  
         i f   ( s F e c I n i   >   s F e c F i n   & &   b S u c c e s s   = =   t r u e )   {  
                 b S u c c e s s   =   f a l s e ;  
                 s S e l f M e s s a g e   =   " L a   F e c h a   I n i c i a l   n o   p u e d e   s e r   m a y o r   q u e   l a   F e c h a   F i n a l . " ;    
         }  
  
         i f   ( b S u c c e s s   = =   f a l s e )   {  
                 a l e r t ( ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
                                 +   s S e l f M e s s a g e   +   ' \ n \ n '  
                                 +   p i s B u s i n e s s M e s s a g 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   S t r i n g _ R e m o v e A c c e n t (  
 	 p i s S t r i n g  
 )  
 {  
 	 v a r   s T e m p ;  
 	 v a r   o T e m p l a t e   =   / [ Á É Í Ó Ú á é í ó ú ] / ;  
 	  
 	 s T e m p   =   p i s S t r i n g ;  
 	  
 	 w h i l e   ( o T e m p l a t e . t e s t ( s T e m p ) )  
 	 {  
 	 	 / /   l e t r a s   m i n u s c u l a s  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " á " , " a " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " é " , " e " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " í " , " i " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " ó " , " o " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " ú " , " u " ) ;  
  
 	 	 / /   l e t r a s   m a y u s c u l a s  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " Á " , " A " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " É " , " E " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " Í " , " I " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " Ó " , " O " ) ;  
 	 	 s T e m p   =   s T e m p . r e p l a c e ( " Ú " , " U " ) ;  
 	 }  
  
 	 r e t u r n   s T e m p ;  
 }  
  
 f u n c t i o n   S t r i n g _ A l l T r i m (  
 	 p i s S t r i n g  
 )  
 {  
 	 v a r   a r r S t r i n g s ;  
 	 v a r   s T e m p ;  
 	 v a r   i ;  
 	  
 	 a r r S t r i n g s   =   p i s S t r i n g . s p l i t ( "   " ) ;  
 	 s T e m p   =   " " ;  
 	 f o r   ( i = 0 ;   i < a r r S t r i n g s . l e n g t h ;   i + + )    
 	 	 i f   ( a r r S t r i n g s [ i ]   ! =   " " )    
 	 	 	 s T e m p   + =   a r r S t r i n g s [ i ]   +   "   " ;  
  
 	 r e t u r n   s T e m p ;  
 }  
  
 f u n c t i o n   S t r i n g _ R e m o v e D o t s A n d S p a c e s (  
 	 p i s S t r i n g  
 )  
 {  
 	 v a r   s T e m p   =   p i s S t r i n g ;  
 	 v a r   s T e m p 2 ;  
 	 v a r   a r r S t r i n g s ;  
  
 	 a r r S t r i n g s   =   s T e m p . s p l i t ( "   " ) ;  
 	 s T e m p 2   =   " " ;  
 	 f o r   ( i = 0 ;   i < a r r S t r i n g s . l e n g t h ;   i + + )    
 	 	 i f   ( a r r S t r i n g s [ i ]   ! =   " " )    
 	 	 	 s T e m p 2   + =   a r r S t r i n g s [ i ] ;  
  
 	 w h i l e   ( s T e m p 2 . s e a r c h ( " [ . ] { 2 } " )   >   - 1 )   {  
 	 	 s T e m p 2   =   s T e m p 2 . r e p l a c e ( " . . " ,   " . " ) ;  
 	 }  
  
 	 r e t u r n   ( s T e m p 2 ) ;  
 }  
  
 f u n c t i o n   B o o l e a n _ X o r (  
 	 p i b O p e r a t o r 1 ,  
 	 p i b O p e r a t o r 2  
 )  
 {  
  
 	 r e t u r n   (  
 	 	 ( ! p i b O p e r a t o r 1   & &   p i b O p e r a t o r 2   )    
 	 	 | |    
 	 	 ( p i b O p e r a t o r 1   & &   ! p i b O p e r a t o r 2 )  
 	 	 ) ;  
  
 }  
  
 f u n c t i o n   V a l i d a t e _ E m a i l (  
 	 p i o C o n t r o l , 	  
 	 p i s C o n t r o l L a b e l ,  
 	 p i s B u s i n e s s M e s s a g e ,  
 	 p i s E m p t y I s V a l i d ,  
 	 p i b N o M e s s a g e  
 )  
 {  
 	 v a r   b S u c c e s s ;  
 	 v a r   s S e l f M e s s a g e ;  
 / / 	 v a r   o T e m p l a t e   =   / ^ [ A - Z _ 0 - 9 - ] + @ [ A - Z _ 0 - 9 - \ . ] + \ . [ A - Z - ] + \ . ? [ A - Z - ] ? $ / ;  
 	 v a r   o T e m p l a t e   =   / ^ [ A - Z _ 0 - 9 - . ] + @ [ A - Z _ 0 - 9 - \ . ] + \ . [ A - Z - ] + \ . ? [ A - Z - ] ? $ / ;  
  
 	 v a r   s T e m p ;  
 	  
 	 v a r   i M A X _ E M A I L _ L E N G T H   =   1 0 0 ;  
  
 	 s T e m p   =   p i o C o n t r o l . v a l u e . t o U p p e r C a s e ( ) ;  
 	 s T e m p   =   S t r i n g _ A l l T r i m ( s T e m p ) ;  
 	 s T e m p   =   S t r i n g _ R e m o v e A c c e n t ( s T e m p ) ;  
 	 s T e m p   =   S t r i n g _ R e m o v e D o t s A n d S p a c e s ( s T e m p ) ;  
  
  
  
 	 i f   ( t y p e o f ( p i b N o M e s s a g e )   = =   " u n d e f i n e d " )  
 	 	 p i b N o M e s s a g e   =   f a l s e ;  
  
 	 i f   ( t y p e o f ( p i s E m p t y I s V a l i d )   = =   " u n d e f i n e d " )  
 	 	 p i s E m p t y I s V a l i d   =   ' ' ;  
  
 	 i f   ( ! B o o l e a n _ X o r ( p i s E m p t y I s V a l i d   = =   ' E M P T Y _ I S _ V A L I D ' ,   p i s E m p t y I s V a l i d   = =   ' ' ) )  
 	 	 i f   ( p i b N o M e s s a g e   = =   f a l s e ) {  
 	 	 	 	 a l e r t ( ' E r r o r   e n   V a l i d a t e _ E m a i l \ n \ n '  
 	 	 	 	 	 +   ' p i s E m p t y I s V a l i d   =   [ '   +   p i s E m p t y I s V a l i d   +   ' ]   n o   e s   v á l i d o \ n '  
 	 	 	 	 	 +   ' p i o C o n t r o l   =   [ '   +   p i o C o n t r o l . i d   +   ' ] ' ) ;  
 	 	 }  
 	 	 e l s e {  
 	 	 	 g s E r r o r M e s s a g e   =   ' E r r o r   e n   V a l i d a t e _ E m a i l \ n \ n '  
 	 	 	 	 +   ' p i s E m p t y I s V a l i d   =   [ '   +   p i s E m p t y I s V a l i d   +   ' ]   n o   e s   v á l i d o \ n '  
 	 	 	 	 +   ' p i o C o n t r o l   =   [ '   +   p i o C o n t r o l . i d   +   ' ] '  
 	 	 }  
  
 	 i f   ( ( s T e m p   = =   " " )   & &   ( p i s E m p t y I s V a l i d   = =   ' E M P T Y _ I S _ V A L I D ' ) )   {  
 	 	 r e t u r n   ( t r u e ) ;  
 	 }  
  
 	 b S u c c e s s   =   t r u e ;  
 	  
 	 i f   ( s T e m p . l e n g t h   >   i M A X _ E M A I L _ L E N G T H )  
 	 {  
 	 	 s S e l f M e s s a g e   =   " E l   e m a i l   n o   d e b e   t e n e r   m á s   d e   "   +   i M A X _ E M A I L _ L E N G T H   +   "   c a r a c t e r e s . " ;  
 	 	 b S u c c e s s   =   f a l s e ;  
 	 }  
 	 e l s e   i f   ( ! o T e m p l a t e . t e s t ( s T e m p ) )  
 	 {  
 	 	 s S e l f M e s s a g e   =   " L a   d i r e c c i ó n   e s   i n v á l i d a .   \ n "   +  
 	 	 	 	 	 	 " S ó l o   s e   p e r m i t e n   l o s   c a r a c t e r e s :   \ n "   +  
 	 	 	 	 	 	 " A - Z   ( e x c e p t o   Ñ ) ,   0 - 9 ,   @ ,   . ,   - , _ "  
  
 	 	 b S u c c e s s   =   f a l s e ;  
 	 }  
  
 	 s T e m p   =   s T e m p . s u b s t r ( 0 , i M A X _ E M A I L _ L E N G T H ) ;  
 	  
 	 p i o C o n t r o l . v a l u e   =   s T e m p . t o L o w e r C a s e ( ) ;  
  
 	 i f   ( !   b S u c c e s s )   {  
 	 	 i f   ( t y p e o f ( p i s B u s i n e s s M e s s a g e )   = =   " u n d e f i n e d " )  
 	 	 p i s B u s i n e s s M e s s a g e   =   ' ' ; 	 	  
 	 	 i f   ( p i b N o M e s s a g e   = =   f a l s e ) {  
 	 	 	 	 a l e r t ( ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
 	 	 	 	 	 	 +   s S e l f M e s s a g e   +   ' \ n \ n '  
 	 	 	 	 	 	 +   p i s B u s i n e s s M e s s a g e ) ;  
 	 	 }  
 	 	 e l s e {  
 	 	 	 g s E r r o r M e s s a g e   =   ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
 	 	 	 	 	 +   s S e l f M e s s a g e   +   ' \ n \ n '  
 	 	 	 	 	 +   p i s B u s i n e s s M e s s a g e  
 	 	 }  
  
 	 	 p i o C o n t r o l . s e l e c t ( ) ;  
 	 	 p i o C o n t r o 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   V a l i d a t e _ T e x t o C l a v e (  
         p i o C o n t r o l ,  
         p i i M i n L e n g t h ,  
         p i i M a x L e n g t h ,  
         p i s C o n t r o l L a b e l ,  
         p i s B u s i n e s s M e s s a g e 	  
 )  
 {  
         v a r   i L e n g t h ;  
         v a r   b S u c c e s s ;  
         v a r   s S e l f M e s s a g e ;  
  
         v a r   v a l T e x t o S i m p l e   =   / ^ [ A - Z a - z 0 - 9 Ñ ñ á é í ó ú Á É Í Ó Ú   . , ; : ( ) = / _ - ] * $ / ;  
  
         / / V e r i f i c a m o s   s i   e l   c o n t r o l   e s t a   a c t i v o  
         i f   ( p i o C o n t r o l . c l a s s N a m e   = =   ' c l s C o n t r o l D i s a b l e d ' ) {  
                 r e t u r n   ( t r u e ) ;  
         }  
         v a r   b C t r l O p c i o n a l   =   f a l s e ;  
         i f   ( p i o C o n t r o l . c l a s s N a m e   = =   ' c l s C o n t r o l O p c i o n a l ' ) {  
                 b C t r l O p c i o n a l   =   t r u e ;  
         }    
  
  
         b S u c c e s s   =   t r u e ;  
         i L e n g t h   =   p i o C o n t r o l . v a l u e . l e n g t h ;  
          
         i f   ( i L e n g t h   <   p i i M i n L e n g t h )   {                  
                         s S e l f M e s s a g e   =   " D e b e n   h a b e r   p o r   l o   m e n o s   "   +   p i i M i n L e n g t h   +   "   c a r a c t e r e s . " ;  
                         b S u c c e s s   =   f a l s e ;      
                          
                         i f   ( b C t r l O p c i o n a l )   {  
                                 i f   ( i L e n g t h = = 0 )   {  
                                         s S e l f M e s s a g e   =   " " ;  
                                         b S u c c e s s   =   t r u e ;  
                                 }                                  
                         }            
         }  
  
         e l s e   i f   ( i L e n g t h   >   p i i M a x L e n g t h )   {  
                 s S e l f M e s s a g e   =   " D e b e n   h a b e r   c o m o   m á x i m o   "   +   p i i M a x L e n g t h   +   "   c a r a c t e r e s . " ;  
                 b S u c c e s s   =   f a l s e ;  
         }  
  
         i f   ( b S u c c e s s   = =   f a l s e )   {  
                 a l e r t ( ' E r r o r   e n   [ ' +   p i s C o n t r o l L a b e l   +   ' ] . \ n \ n '  
                 +   s S e l f M e s s a g e   +   ' \ n \ n '  
                 +   p i s B u s i n e s s M e s s a g e ) ;  
                 p i o C o n t r o l . s e l e c t ( ) ;  
                 p i o C o n t r o 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 ) ;  
 }  
  
 
