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