*===================================================================
 * Fuente       : CHRTONUM                                           
 * Autor        : Bienvenido Luna, Rep. Dom. 21-06-2006              
 * Descripción  : Convierte una cadena de caracteres a número.                  
 *===================================================================
 *** Variables                                                       
D TotalAmt        S             16A   Inz(\'1,000,500.56\')            
D CashAmt         S             16A   Inz(\'1500.65\')                 
D CheckAmt        S             16A   Inz(\'$ 1,700.88\')              
D Percent         S              9A   Inz(\'05.50000%\')               
D Number1         S             15P 2 Inz(*Zeros)                    
D Number2         S             15P 2 Inz(*Zeros)                    
D Number3         S             15P 2 Inz(*Zeros)                    
D Number4         S              7P 5 Inz(*Zeros)                    
 *===================================================================
 * Modulo Principal                                                          
 *===================================================================
 * Use XLATE para convertir los caracteres especiales en blancos en       
 * la cadena fuente y luego utilice %FLOAT para convertir la cadena         
 * en número. %FLOAT no toma en cuenta los blancos.                 
 *===================================================================
C     \',%$\':\'   \'   Xlate     TotalAmt      TotalAmt                   
C                   Eval      Number1=%Float(TotalAmt)                 
                                                                       
C     \',%$\':\'   \'   Xlate     CashAmt       CashAmt                    
C                   Eval      Number2=%Float(CashAmt)                  
                                                                       
C     \',%$\':\'   \'   Xlate     CheckAmt      CheckAmt                   
C                   Eval      Number3=%Float(CheckAmt)                 
                                                                       
C     \',%$\':\'   \'   Xlate     Percent       Percent                    
C                   Eval      Number4=%Float(Percent)                
                                                      
C                   Move      *On           *InLr     
 *===================================================================
 * Final
 *===================================================================