Monto_escrito

Autor: edison (edison)

codigo que permite pasar un valor númerico a cadena de caracteres, por ejemplo cuando en una empresa se generan recibos o cheques con valores.

FUNCTION montoesc
PARAMETERS cifra
private all *
****************INICIALIZACION DE VARIABLES*************************
literal = \' \'
STORE 0.01 TO minimo
STORE 999999999999.99 TO maximo
STORE \' \' TO val_literal
*
*******ARREGLO QUE CONTIENE MILESMILLONES, MILLONES, MILES Y PESOS**
DIMENSION num_a_lite(4,2)
STORE \'\' TO num_a_lite
*
****PARA CONTENER EL VALOR DE LOS CENTAVOS****
STORE \'CON \'       TO parte_con
STORE \'/100 MCTE.\' TO parte_100
*
*****CARGA UNAS TABLAS PARA UTILIZAR EN LA IMPRESION DEL MONTO
DIMENSION tabla_unid(9)
STORE \'UN \'        TO tabla_unid(1)
STORE \'DOS \'       TO tabla_unid(2)
STORE \'TRES \'      TO tabla_unid(3)
STORE \'CUATRO \'    TO tabla_unid(4)
STORE \'CINCO \'     TO tabla_unid(5)
STORE \'SEIS \'      TO tabla_unid(6)
STORE \'SIETE \'     TO tabla_unid(7)
STORE \'OCHO \'      TO tabla_unid(8)
STORE \'NUEVE \'     TO tabla_unid(9)
*
***************
DIMENSION tabla_dece(9)
STORE \'DIEZ \'      TO tabla_dece(1)
STORE \'VEINTE \'    TO tabla_dece(2)
STORE \'TREINTA \'   TO tabla_dece(3)
STORE \'CUARENTA \'  TO tabla_dece(4)
STORE \'CINCUENTA \' TO tabla_dece(5)
STORE \'SESENTA \'   TO tabla_dece(6)
STORE \'SETENTA \'   TO tabla_dece(7)
STORE \'OCHENTA \'   TO tabla_dece(8)
STORE \'NOVENTA \'   TO tabla_dece(9)
*
***************
DIMENSION tab_11_15 (5)
STORE \'ONCE \'      TO tab_11_15(1)
STORE \'DOCE \'      TO tab_11_15(2)
STORE \'TRECE \'     TO tab_11_15(3)
STORE \'CATORCE \'   TO tab_11_15(4)
STORE \'QUINCE \'    TO tab_11_15(5)
*****************************FIN INICIALIZACION***************
*
**********************************************
**********PROGRAMA PRINCIPAL******************
**********************************************
*
IF (cifra < minimo .OR. cifra > maximo) 
   literal = iif(cifra=0,[CERO PESOS CON 00/100 MCTE.],[**])
ELSE   
   DO conv_a_l
ENDIF   
RETURN(literal)
**********FIN PROGRAMA PRINCIPAL**************
**********************************************
PROCEDURE conv_a_l

*
cifra_alfa = trans(cifra,[@L 999999999999.99])
fraccion  = RIGHT(cifra_alfa,2)
milmillon = SUBSTR(cifra_alfa,1,3)
millon    = SUBSTR(cifra_alfa,4,6)
miles     = SUBSTR(cifra_alfa,7,9)
pesos     = SUBSTR(cifra_alfa,10,12)
centenas  = 0
decenas   = 0
unidades  = 0
i         = 0

IF milmillon > \'000\'
   I = I + 1
   STORE \'MIL \' TO num_a_lite(I,2)
   if millon = [000]
      num_a_lite(I,2)=num_a_lite(I,2)+[MILLONES ]   
   endif   
   if millon+miles+pesos = [000000000]
      num_a_lite(I,2)=num_a_lite(I,2)+[DE ]   
   endif
   DO ce_de_un WITH milmillon
   DO num_a_le
   STORE val_literal TO num_a_lite(I,1)
ENDIF

IF millon > \'000\'
   I = I + 1
   *
   ** ALMACENA TITULO DE MILLON**
   DO CASE
      CASE millon+miles+pesos = \'001000000\'
         STORE \'MILLON DE \' TO num_a_lite(I,2)
      CASE millon=[001] .and. miles+pesos # [000000]
         STORE \'MILLON \' TO num_a_lite(I,2)
      case millon # [001] .and. miles+pesos=[000000]
         STORE \'MILLONES DE \' TO num_a_lite(I,2)
      case millon # [001] .and. miles+pesos#[000000]
         STORE \'MILLONES \' TO num_a_lite(I,2)
   endcase
   ******    
   DO ce_de_un WITH millon
   DO num_a_le 
   STORE val_literal TO num_a_lite(I,1)
ENDIF

IF miles > \'000\'
   I = I + 1
   STORE \'MIL \' TO num_a_lite(I,2)
   DO ce_de_un WITH miles
   DO num_a_le
   STORE val_literal TO num_a_lite(I,1)
ENDIF

IF pesos > \'000\'
   I = I + 1
   DO ce_de_un WITH pesos
   DO num_a_le
   STORE val_literal TO num_a_lite(I,1)
ENDIF

nu_conv_a_l=[]
IF milmillon+millon+miles+pesos == [000000000000]
   nu_conv_a_l= fraccion + parte_100
ELSE
   *
   ***************FORMA EL MONTO ESCRITO*****************
   *
   ** NU_CONV_A_L CONTIENE EL MONTO ESCRITO SIN TENER
   ** EN CUENTA LA LONGITUD DE LA LINEA A IMPRIMIR, OSEA,
   ** PARA IMPRIMIR EN UNA SOLA LINEA.
   *
   ******************************************************
   nu_conv_a_l = num_a_lite(1,1) + num_a_lite(1,2) +;
                 num_a_lite(2,1) + num_a_lite(2,2) +;
                 num_a_lite(3,1) + num_a_lite(3,2) +;
                 num_a_lite(4,1) 
   nu_conv_a_l = nu_conv_a_l + \'PESOS \' + parte_con + fraccion + parte_100 
ENDIF
literal=nu_conv_a_l
RETURN
*
*
***********************************************************************
PROCEDURE ce_de_un
*****************************************
**DIVIDE UN VALOR EN UNIDADES,DECENAS Y CENTENAS**
*****************************************
PARAMETERS valor
centenas = SUBSTR(m->valor,1,1)
decenas = SUBSTR(m->valor,2,1)
unidades = SUBSTR(m->valor,3,1)
RETURN
*
PROCEDURE num_a_le
*****************************************
**ALMACENA LOS VALORES EN FORMA LITERAL**
*****************************************
STORE \'\' TO val_lit_cen, val_lit_dec, val_lit_uni
IF centenas > \'0\'
   IF centenas = \'1\'
      IF decenas = \'0\' .AND. unidades = \'0\'
         STORE \'CIEN \' TO val_lit_cen
      ELSE
         STORE \'CIENTO \' TO val_lit_cen
      ENDIF
   ELSE
      IF centenas = \'5\'
         STORE \'QUINIENTOS \' TO val_lit_cen
      ELSE
         IF centenas = \'7\'
            STORE \'SETECIENTOS \' TO val_lit_cen
         ELSE
            IF centenas = \'9\'
               STORE \'NOVECIENTOS \' TO val_lit_cen
            ELSE
               val_lit_cen = trim(tabla_unid(VAL(centenas)))+\'CIENTOS \'
            ENDIF
         ENDIF
      ENDIF 
   ENDIF
ENDIF            
IF decenas > \'0\'
   IF unidades = \'0\'
      STORE tabla_dece(VAL(decenas)) TO val_lit_dec
   ELSE
      IF decenas > \'2\'
         val_lit_dec = tabla_dece(VAL(decenas)) + \'Y \'
      ELSE
         IF decenas = \'1\'
            IF unidades <= \'5\'
               STORE tab_11_15(VAL(unidades)) TO val_lit_dec
            ELSE
               IF unidades = \'8\'
                  STORE \'DIECIOCHO \' TO val_lit_dec
               ELSE
                  STORE \'DIECI\' TO val_lit_dec
               ENDIF
            ENDIF 
         ELSE
            IF unidades = \'8\'
               STORE \'VEINTIOCHO \' TO val_lit_dec
            ELSE 
               IF unidades = \'1\'
                  STORE \'VEINTIUN \' TO val_lit_dec
               ELSE
                  STORE \'VEINTI\' TO val_lit_dec
               ENDIF
            ENDIF
         ENDIF
      ENDIF
   ENDIF
ENDIF
IF unidades > \'0\'
   IF decenas <> \'1\' .OR. ((unidades > \'5\').AND.(unidades <> \'8\'))
      IF (decenas <> \'2\') .OR. ((unidades <> \'8\') .AND. (unidades <> \'1\'))
         STORE tabla_unid(VAL(unidades)) TO val_lit_uni
      ENDIF
   ENDIF
ENDIF
val_literal = val_lit_cen + val_lit_dec + val_lit_uni
val_literal = LTRIM(val_literal)
RETURN
*
*****************************************************************

Utilidades

	Leer comentarios (5)
	Escribir comentario
	Puntuación: No disponible
	Votar
	Recomendar este código
	Estadísticas

Patrocinados

Hospedaje web y servidores dedicados linux por Ferca Network