jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
9ac3f70a1338cd60509df9f1d4bbc19a6bf4c34e
MBS/PROYECTO/nodir/noprrp008.13062006
T

1100 lines
33 KiB
Plaintext
Raw Blame History

{
------------------------------------------------------------------------
FORMULARIO : NOPRRP008
OBJETIVO : Reporte para imprimir volantes
PROGRAMADOR : Ing. Juan Soto.
FECHA REALIZACION : Noviembre 5, 1993
------------------------------------------------------------------------
}
DATABASE marmotech
GLOBALS
DEFINE cheque_ini,cheque_fin,no_cheque,emp_ant INTEGER
DEFINE idx_40,idx_x,k,l,t,i,idx,numero_msg SMALLINT
DEFINE meses ARRAY[12] OF CHAR(15)
DEFINE valor_letras CHAR(90)
DEFINE unidades1 ARRAY[19] OF CHAR(10)
DEFINE decenas ARRAY[81] OF CHAR(20)
DEFINE centenas ARRAY[10] OF CHAR(20)
DEFINE miles ARRAY[9] OF CHAR(2)
DEFINE salir,cuarta CHAR(1)
DEFINE selec21,selec20,selec10 CHAR(500)
DEFINE criterio10 CHAR(200)
DEFINE segunda,primera,siguie CHAR(1)
DEFINE p_valor DECIMAL(12,2),
formulario CHAR(70)
DEFINE emp_neto RECORD
num_emp SMALLINT,
valor DECIMAL(12,2)
END RECORD
DEFINE arr_mov ARRAY[24] OF RECORD
num_emp INTEGER,
cod_mov1 SMALLINT,
descrip1 CHAR(10),
cantidad1 DECIMAL(8,2),
valor1 DECIMAL(8,2),
acumulado1 DECIMAL(10,2),
cod_mov2 SMALLINT,
descrip2 CHAR(10),
cantidad2 DECIMAL(8,2),
valor2 DECIMAL(8,2),
acumulado2 DECIMAL(10,2),
cod_mov3 SMALLINT,
descrip3 CHAR(10),
cantidad3 DECIMAL(8,2),
valor3 DECIMAL(8,2),
acumulado3 DECIMAL(10,2)
END RECORD
DEFINE c_entra RECORD
num_nomi INTEGER,
tipo_emp CHAR(1),
nombre_tipo CHAR(20)
END RECORD
DEFINE datos_peri RECORD
tipo_emp CHAR(1),
fecha_d DATE,
fecha_a DATE
END RECORD
DEFINE cientos ARRAY[9] OF CHAR(20)
DEFINE decimas ARRAY[99] OF CHAR(20)
END GLOBALS
FUNCTION noprrp008()
DEFINE acumula RECORD
cod_mov LIKE notb00008.cod_mov,
num_emp LIKE notb00008.num_emp,
valor DECIMAL(12,2)
END RECORD
DEFINE datos_cheque RECORD
num_emp LIKE adtb00003.num_emp,
departamento LIKE adtb00003.departamento,
nivel_emp LIKE adtb00003.nivel_emp,
cod_puesto LIKE adtb00003.cod_puesto,
nom1_emp LIKE adtb00003.nom1_emp,
apell1_emp LIKE adtb00003.nom1_emp,
nom2_emp LIKE adtb00003.nom1_emp,
apell2_emp LIKE adtb00003.nom1_emp,
cod_mov LIKE notb00008.cod_mov,
descrip_mov LIKE notb00002.segundo_enc,
tipo_d CHAR(1),
cantidad LIKE notb00008.cantidad,
valor LIKE notb00008.valor,
nombre CHAR(80),
numero INTEGER,
fecha DATE,
acumulado DECIMAL(12,2),
neto DECIMAL(12,2)
END RECORD
OPTIONS
FORM LINE 9,
ERROR LINE 24,
COMMENT LINE 22
# Desplegue de pantalla y de formulario para la captura de informacion
CALL pantalla()
OPEN FORM nofmrp008 FROM "nofmrp008"
DISPLAY FORM nofmrp008
DISPLAY "noprrp008" AT 4,2
DISPLAY "Cheques de Nomina" AT 6,31
INITIALIZE c_entra TO null
#Captura de informacion para el reporte: banco,numero de nomina,cheque_no
INPUT BY NAME c_entra.*
AFTER FIELD tipo_emp
IF c_entra.tipo_emp = "Q" THEN
LET c_entra.nombre_tipo = "QUINCENAL"
END IF
IF c_entra.tipo_emp = "S" THEN
LET c_entra.nombre_tipo = "SEMANAL"
END IF
IF c_entra.tipo_emp = "V" THEN
LET c_entra.nombre_tipo = "VENDEDORES"
END IF
DISPLAY BY NAME c_entra.nombre_tipo ATTRIBUTE (BOLD)
SELECT tipo_emp,fecha_del,fecha_al INTO datos_peri.* FROM notb00010
WHERE num_nomi = c_entra.num_nomi and
tipo_emp = c_entra.tipo_emp and
status_t is null
IF status = notfound THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD tipo_emp
END IF
DISPLAY BY NAME datos_peri.* ATTRIBUTE(BOLD)
AFTER INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
EXIT INPUT
END INPUT
CONSTRUCT BY NAME criterio10 ON a.departamento,a.num_emp
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
DISPLAY "Busqueda Neto... Espere Por Favor" AT 19,14
ATTRIBUTE(REVERSE,BOLD)
{
DISPLAY "Busqueda Acumulados... Espere Por Favor" AT 19,14
ATTRIBUTE(REVERSE,BOLD)
LET selec20 =
"SELECT a.cod_mov,a.num_emp,sum(a.valor) FROM notb00008 a ",
" WHERE a.fecha <= ? and ",criterio10 clipped,
" GROUP BY 1,2 ",
" ORDER BY 2,1 "
PREPARE comando30 FROM selec20
DECLARE busca20 SCROLL CURSOR FOR comando30
OPEN busca20 USING datos_peri.fecha_a
}
LET selec10 =
"SELECT a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
"a.nom1_emp,a.apell1_emp,a.nom2_emp,a.apell2_emp, ",
"b.cod_mov,c.ch_encabeza,b.clase_mov,b.cantidad,b.valor ",
"FROM adtb00003 a,notb00008 b, notb00002 c ",
"WHERE a.num_emp = b.num_emp and ",
"b.num_nomi = ? and ",
"b.tipo_emp = ? and ",
"b.cod_mov = c.cod_mov and ",
criterio10 clipped,
"ORDER BY 2,1,9"
PREPARE comando FROM selec10
DECLARE busca CURSOR FOR comando
OPEN busca USING c_entra.num_nomi,c_entra.tipo_emp
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
START REPORT cheque TO "C:\\archivo"
DISPLAY "Cheques Generandose... Espere Por Favor" AT 19,14
ATTRIBUTE(REVERSE,BOLD)
LET i = 1
LET idx = 1
LET siguie = "S"
LET emp_ant = 0
LET cuarta = "N"
CALL arr_letras()
WHILE STATUS != NOTFOUND
FETCH busca INTO datos_cheque.*
IF status = notfound THEN
EXIT WHILE
END IF
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
LET datos_cheque.nombre = datos_cheque.nom1_emp clipped," ",
datos_cheque.nom2_emp clipped," ",
datos_cheque.apell1_emp clipped," ",
datos_cheque.apell2_emp clipped
LET datos_cheque.acumulado = 0
# Busqueda de acumulados
SELECT sum(valor) INTO datos_cheque.acumulado FROM notb00008
WHERE num_emp = datos_cheque.num_emp and
cod_mov = datos_cheque.cod_mov and
fecha <= datos_peri.fecha_a
{
LET salir = "N"
LET idx_x = 1
WHILE salir != "S"
FETCH ABSOLUTE idx_x busca20 INTO acumula.*
IF status = notfound THEN
LET idx_x = 1
EXIT WHILE
END IF
LET idx_x = idx_x + 1
IF datos_cheque.cod_mov = acumula.cod_mov and
datos_cheque.num_emp = acumula.num_emp THEN
LET datos_cheque.acumulado = acumula.valor
LET idx_x = 1
EXIT WHILE
END IF
END WHILE
}
IF datos_cheque.cod_mov = 12 THEN
SELECT valor INTO p_valor FROM notb00008
WHERE num_nomi = c_entra.num_nomi and tipo_emp = c_entra.tipo_emp and
num_emp = datos_cheque.num_emp and
cod_mov = 110
LET datos_cheque.valor = datos_cheque.valor + p_valor
END IF
# Busque del valor neto del empleado para que el programa tenga la oportunidad
# de buscar el valor en letras del cheque
SELECT sum(a.valor) INTO datos_cheque.neto FROM notb00008 a
WHERE
a.num_nomi = c_entra.num_nomi and
a.tipo_emp = c_entra.tipo_emp and
a.cod_mov not in (100,101,102,50) and
a.num_emp = datos_cheque.num_emp and
a.departamento = datos_cheque.departamento
#-------------------------------------------------------------------------
OUTPUT TO REPORT cheque(datos_cheque.*)
LET siguie = "N"
END WHILE
FINISH REPORT cheque
RUN "type C:\\archivo > %USPRINT%"
END FUNCTION
REPORT cheque(x)
DEFINE x RECORD
num_emp LIKE adtb00003.num_emp,
departamento LIKE adtb00003.departamento,
nivel_emp LIKE adtb00003.nivel_emp,
cod_puesto LIKE adtb00003.cod_puesto,
nom1_emp LIKE adtb00003.nom1_emp,
apell1_emp LIKE adtb00003.nom1_emp,
nom2_emp LIKE adtb00003.nom1_emp,
apell2_emp LIKE adtb00003.nom1_emp,
cod_mov LIKE notb00008.cod_mov,
descrip_mov LIKE notb00002.segundo_enc,
tipo_d CHAR(1),
cantidad LIKE notb00008.cantidad,
valor LIKE notb00008.valor,
nombre CHAR(80),
numero INTEGER,
fecha DATE,
acumulado DECIMAL(12,2),
neto DECIMAL(12,2)
END RECORD,
pp SMALLINT
DEFINE col1,col2,col3,segunda,imp CHAR(1)
DEFINE ano CHAR(4)
DEFINE nombre_mes CHAR(10)
DEFINE orden,fact CHAR(30)
DEFINE subraya_on,subraya_off CHAR(3)
DEFINE comp_on,comp_off,negrillas_on,negrillas_off,italica,
italica_of,doce_on,doce_of CHAR(2)
DEFINE l,k,in_mes INTEGER,
t_monto,t_desc,p_monto DECIMAL(12,2)
OUTPUT
TOP MARGIN 1
LEFT MARGIN 0
PAGE LENGTH 22
FORMAT
BEFORE GROUP OF x.num_emp
LET doce_on = ASCII 27, ASCII 77
LET doce_of = ASCII 27, ASCII 80
LET italica = ASCII 27, ASCII 52
LET italica_of = ASCII 27, ASCII 53
LET negrillas_on = ASCII 27, ASCII 71
LET negrillas_off = ASCII 27, ASCII 72
LET comp_on = ASCII 15
LET comp_off = ASCII 18
LET subraya_on = ASCII 27, ASCII 45, ASCII 1
LET subraya_off = ASCII 27, ASCII 45, ASCII 0
LET t_desc = 0
LET t_monto = 0
LET in_mes = month(today)
CALL busca_mes()
LET nombre_mes = meses[in_mes]
PRINT COLUMN 1, comp_on,negrillas_on,
COLUMN 5, "Nomina: ",negrillas_off,c_entra.num_nomi
USING "<<<<"," ",c_entra.nombre_tipo,
COLUMN 70, "del ",datos_peri.fecha_d using "dd/mm/yy"
PRINT COLUMN 1,negrillas_on,
COLUMN 5, "Empleado: ",negrillas_off,
"(",x.num_emp using "&&&",")",
x.nombre[1,30],
COLUMN 70, "al ",datos_peri.fecha_a using "dd/mm/yy",
comp_off
{
# Determina el valor neto del empleado, se hizo asi porque los datos estan
# almacenado de forma codificada por movimiento y el valor neto del
# empleado no se determinaria si no se buscan todos sus movimientos
SELECT SUM(valor) INTO p_monto FROM notb00008
WHERE num_emp = x.num_emp and
num_nomi = c_entra.num_nomi and
cod_mov not in(100,101,102)
}
LET p_monto = x.neto
LET ano = year(today) using "&&&&"
PRINT COLUMN 3,
"|------ INGRESOS ----------|",
"|----------- DESCUENTOS -----------|"
PRINT COLUMN 5, comp_on,"COD",
COLUMN 18, "HORAS",
COLUMN 25, "MONTO",
COLUMN 40, "ACUMULADO",
COLUMN 53, "COD",
COLUMN 64, "MONTO",
COLUMN 77, "ACUMULADO",
negrillas_off
LET imp = "N"
LET k = 0
SKIP 1 LINES
ON EVERY ROW
IF x.tipo_d = "I" or x.tipo_d = "P" or
x.tipo_d = "E" THEN
IF idx > 1 THEN
FOR k = 1 TO 9
IF arr_mov[k].cod_mov1 is null or
arr_mov[k].cod_mov1 = 0 THEN
LET i = k
EXIT FOR
END IF
END FOR
END IF
LET arr_mov[i].num_emp = x.num_emp
LET arr_mov[i].cod_mov1 = x.cod_mov
LET arr_mov[i].descrip1 = x.descrip_mov
LET arr_mov[i].cantidad1 = x.cantidad
LET arr_mov[i].valor1 = x.valor
LET arr_mov[i].acumulado1 = x.acumulado
LET i = i + 1
LET primera = "S"
END IF
IF x.tipo_d = "S" or
x.tipo_d = "R" or
x.tipo_d = "D" THEN
IF idx <= 12 THEN
IF primera = "S" THEN
LET primera = "N"
LET i = 1
END IF
FOR k = 1 TO 9
IF arr_mov[k].cod_mov2 is null or
arr_mov[k].cod_mov2 = 0 THEN
LET i = k
EXIT FOR
END IF
END FOR
LET arr_mov[i].num_emp = x.num_emp
LET arr_mov[i].cod_mov2 = x.cod_mov
LET arr_mov[i].descrip2 = x.descrip_mov
LET arr_mov[i].cantidad2 = null
LET arr_mov[i].valor2 = x.valor
LET arr_mov[i].acumulado2 = x.acumulado
LET i = i + 1
LET segunda = "S"
END IF
IF idx > 12 THEN
IF segunda = "S" THEN
LET segunda = "N"
LET i = 1
END IF
FOR k = 1 TO 9
IF arr_mov[k].cod_mov3 is null or
arr_mov[k].cod_mov3 = 0 THEN
LET i = k
EXIT FOR
END IF
END FOR
LET arr_mov[i].num_emp = x.num_emp
LET arr_mov[i].cod_mov3 = x.cod_mov
LET arr_mov[i].descrip3 = x.descrip_mov
LET arr_mov[i].cantidad3 = null
LET arr_mov[i].valor3 = x.valor
LET arr_mov[i].acumulado3 = x.acumulado
LET i = i + 1
END IF
END IF
LET idx = idx + 1
AFTER GROUP OF x.num_emp
LET col1 = "S"
LET l = 5
LET k = 0
FOR i = 1 TO idx
#-----------------------------------------------------------------------------
# Impresion de movimientos en columnas
#------------------------------------------------------------------------------
IF arr_mov[i].cod_mov2 != 0 or
arr_mov[i].cod_mov1 != 0 or
arr_mov[i].cod_mov3 != 0 THEN
LET k = k + 1
IF arr_mov[i].cod_mov1 = 0 THEN
LET arr_mov[i].cod_mov1 = null
END IF
IF arr_mov[i].cod_mov3 = 0 THEN
LET arr_mov[i].cod_mov3 = null
END IF
IF arr_mov[i].cod_mov2 = 0 THEN
LET arr_mov[i].cod_mov2 = null
END IF
PRINT COLUMN l, arr_mov[i].cod_mov1 using "&&",
COLUMN l+3, arr_mov[i].descrip1,
COLUMN l+11, arr_mov[i].cantidad1 using "###.##",
COLUMN l+20, arr_mov[i].valor1 using "##,###.##",
COLUMN l+36, arr_mov[i].acumulado1 using "###,###.##","|",
COLUMN l+39, arr_mov[i].cod_mov2 using "&&",
COLUMN l+42, arr_mov[i].descrip2,
#COLUMN l+52, arr_mov[i].cantidad2 using "###.##",
COLUMN l+51, arr_mov[i].valor2 using "##,###.##",
COLUMN l+74, arr_mov[i].acumulado2 using "##,###.##","|",
COLUMN l+78, arr_mov[i].cod_mov3 using "&&",
COLUMN l+81, arr_mov[i].descrip3 ,
#COLUMN l+91, arr_mov[i].cantidad3 using "###.##",
COLUMN l+91, arr_mov[i].valor3 using "#,###.##",
COLUMN l+104, arr_mov[i].acumulado3 using "##,###.##"
IF imp = "S" THEN
LET l = 5
END IF
{
IF imp = "N" THEN
LET imp = "S"
PRINT COLUMN 1, comp_off,
COLUMN 19, x.nombre[1,35],
COLUMN 54, p_monto using "$$$,$$#.##",
COLUMN 64, comp_on;
LET l = l - 42
END IF
}
{
IF k = 3 THEN
CALL conv_numero(p_monto)
PRINT COLUMN 2,comp_off, valor_letras[1,56],
COLUMN 60, comp_on;
LET l = l - 39
END IF
}
# Totaliza los ingresos
IF arr_mov[i].valor1 > 0 THEN
LET t_monto = t_monto + arr_mov[i].valor1
END IF
IF arr_mov[i].valor2 > 0 THEN
LET t_monto = t_monto + arr_mov[i].valor2
END IF
IF arr_mov[i].valor3 > 0 THEN
LET t_monto = t_monto + arr_mov[i].valor3
END IF
# Totaliza los descuentos
IF arr_mov[i].valor1 < 0 THEN
LET t_desc = t_Desc + arr_mov[i].valor1
END IF
IF arr_mov[i].valor2 < 0 THEN
LET t_desc = t_desc + arr_mov[i].valor2
END IF
IF arr_mov[i].valor3 < 0 THEN
LET t_desc = t_desc + arr_mov[i].valor3
END IF
END IF
END FOR
{
IF k = 1 THEN
SKIP 2 LINE
CALL conv_numero(p_monto)
PRINT COLUMN 2,comp_off, valor_letras[1,50],comp_on," "
END IF
IF k = 2 THEN
SKIP 1 LINE
CALL conv_numero(p_monto)
PRINT COLUMN 2,comp_off, valor_letras[1,50],comp_on," "
END IF
}
SKIP 1 LINE
PRINT COLUMN 5, "Ingresos: ", t_monto using "$$$,$$#.##",
COLUMN 58, "Descuentos: ", t_desc using "$$$,$$#.##",
COLUMN 90, "A Cobrar : ", p_monto using "$$$,$$#.##",comp_off
# Limpieza del arreglo
FOR i = 1 TO idx
LET arr_mov[i].cod_mov1 = null
LET arr_mov[i].descrip1 = null
LET arr_mov[i].cantidad1 = null
LET arr_mov[i].valor1 = null
LET arr_mov[i].acumulado1 = null
LET arr_mov[i].cod_mov2 = null
LET arr_mov[i].descrip2 = null
LET arr_mov[i].cantidad2 = null
LET arr_mov[i].valor2 = null
LET arr_mov[i].acumulado2 = null
LET arr_mov[i].cod_mov3 = null
LET arr_mov[i].descrip3 = null
LET arr_mov[i].cantidad3 = null
LET arr_mov[i].valor3 = null
LET arr_mov[i].acumulado3 = null
END FOR
LET i = 1
LET idx = 1
FOR pp = 1 TO 80
PRINT "-";
END FOR
PRINT "-"
SKIP TO TOP OF PAGE
END REPORT
# Funcion para convertir de valor a letras
FUNCTION convierte(valor_origen)
DEFINE valor_origen DECIMAL(12,2)
DEFINE consegui CHAR(1)
DEFINE p,miles,m,k,a,b,d,c,entero,unidades_mi,unidades_m,unidad,mil,millon,
unid_c,u INTEGER
DEFINE cheles DECIMAL (7,2)
CALL letras()
LET valor_letras = null
LET consegui = "N"
LET entero = valor_origen
LET cheles = (valor_origen - entero) * 100
LET unidad = entero / 100
LET unidad = entero - (unidad * 100)
LET a = entero / 1000
LET a = entero - (a * 1000)
LET d = entero - 19
IF d >= 82 THEN
LET c = entero / 100
# Para Controlar los miles y los cientos
IF c <= 9 THEN
LET valor_letras = valor_letras clipped," ",centenas[c] clipped
ELSE
LET c = entero / 1000
LET b = entero / 1000000
END IF
IF d > 19 THEN
LET d = unidad - 19
END IF
IF unidad > 0 and unidad < 20 THEN
LET d = unidad
LET valor_letras = valor_letras clipped," ",unidades1[d] clipped
LET consegui = "S"
END IF
ELSE
IF d > 0 AND d <= 81 THEN
LET valor_letras = valor_letras clipped," ",decenas[d] clipped
LET consegui = "S"
END IF
END IF
# Para controlar los miles
IF entero > 999 THEN
LET unidades_m = a / 100
LET unidades_m = a - (unidades_m * 100)
LET valor_letras = null
IF c = 1 THEN
LET valor_letras = "MIL"
END IF
IF c > 1 and c <= 19 THEN
LET valor_letras = valor_letras clipped," ",unidades1[c] clipped," ","MIL"
END IF
IF c >= 20 and c <= 999 THEN
IF c < 82 THEN
LET c = c - 19
LET valor_letras = valor_letras clipped," ",decenas[c] clipped
ELSE
LET k = c / 100
LET valor_letras = valor_letras clipped," ",centenas[k] clipped
LET unid_c = c - (k * 100)
IF unid_c >= 20 THEN
LET unid_c = unid_c - 19
LET valor_letras = valor_letras clipped," ",decenas[unid_c] clipped
END IF
END IF
LET valor_letras = valor_letras clipped," ","MIL"
END IF
LET c = a
IF c > 100 THEN
LET c = c / 100
LET valor_letras = valor_letras clipped," ",centenas[c] clipped
END IF
IF c = 100 THEN
LET valor_letras = valor_letras clipped," ",decenas[81] clipped
END IF
IF unidades_m > 0 and unidades_m <= 19 THEN
LET a = unidades_m
LET valor_letras = valor_letras clipped, " ",unidades1[a] clipped
{ ELSE
LET a = unidades_m - 19
LET valor_letras = valor_letras clipped, " ",unidades1[a] clipped}
END IF
END IF
# Para Controlar cantidades en millones
IF entero > 999999 THEN
LET c = 0
LET miles = entero - 1000000
LET m = miles / 1000
LET p = miles - (m * 1000)
LET u = m / 100
LET u = m - (u * 100)
LET unidades_mi = p
LET unidades_mi = unidades_mi / 100
LET unidades_mi = p - (unidades_mi * 100)
LET valor_letras = null
IF b = 1 THEN
LET valor_letras = "UN MILLON"
END IF
IF b > 1 and b <= 19 THEN
LET valor_letras = valor_letras clipped," ",unidades1[b] clipped," ",
"MILLONES"
END IF
IF b >= 20 and b <= 999999 THEN
IF b < 82 THEN
LET b = b - 19
LET valor_letras = valor_letras clipped," ",decenas[b] clipped," ",
"MILLONES"
ELSE
LET k = b / 100
LET valor_letras = valor_letras clipped," ",centenas[k] clipped," ",
"MILLONES"
END IF
END IF
LET b = m
IF b > 100 THEN
LET b = b / 100
LET valor_letras = valor_letras clipped," ",centenas[b] clipped
IF u > 0 and u <= 19 THEN
IF u = 1 THEN
LET unidades1[1] = "UN"
END IF
LET valor_letras = valor_letras clipped," ",unidades1[u] clipped
END IF
LET valor_letras = valor_letras clipped," ","MIL"
END IF
IF p > 100 THEN
LET p = p / 100
LET valor_letras = valor_letras clipped," ",centenas[p] clipped
END IF
IF unidades_mi > 0 and unidades_mi < 19 THEN
LET m = unidades_mi
LET valor_letras = valor_letras clipped, " ",unidades1[m] clipped
END IF
END IF
IF unidad > 0 and unidad < 20 AND consegui = "N" THEN
LET d = unidad
LET valor_letras = valor_letras clipped," ",unidades1[d] clipped
END IF
IF unidad >= 20 AND d <= 81 AND consegui = "N" THEN
LET valor_letras = valor_letras clipped," ",decenas[d] clipped
END IF
LET valor_letras = valor_letras clipped," ","CON"," ",
cheles using "&&", "/100"
END FUNCTION
FUNCTION letras()
LET unidades1[1] = "UNO"
LET unidades1[2] = "DOS"
LET unidades1[3] = "TRES"
LET unidades1[4] = "CUATRO"
LET unidades1[5] = "CINCO"
LET unidades1[6] = "SEIS"
LET unidades1[7] = "SIETE"
LET unidades1[8] = "OCHO"
LET unidades1[9] = "NUEVE"
LET unidades1[10] = "DIEZ"
LET unidades1[11] = "ONCE"
LET unidades1[12] = "DOCE"
LET unidades1[13] = "TRECE"
LET unidades1[14] = "CATORCE"
LET unidades1[15] = "QUINCE"
LET unidades1[16] = "DIESISEIS"
LET unidades1[17] = "DIESISIETE"
LET unidades1[18] = "DIESIOCHO"
LET unidades1[19] = "DIESINUEVE"
LET decenas[1] = "VEINTE"
LET decenas[2] = "VEINTE Y UNO"
LET decenas[3] = "VEINTE Y DOS"
LET decenas[4] = "VEINTE Y TRES"
LET decenas[5] = "VEINTE Y CUATRO"
LET decenas[6] = "VEINTE Y CINCO"
LET decenas[7] = "VEINTE Y SEIS"
LET decenas[8] = "VEINTE Y SIETE"
LET decenas[9] = "VEINTE Y OCHO"
LET decenas[10] = "VEINTE Y NUEVE"
LET decenas[11] = "TREINTA"
LET decenas[12] = "TREINTA Y UNO"
LET decenas[13] = "TREINTA Y DOS"
LET decenas[14] = "TREINTA Y TRES"
LET decenas[15] = "TREINTA Y CUATRO"
LET decenas[16] = "TREINTA Y CINCO"
LET decenas[17] = "TREINTA Y SEIS"
LET decenas[18] = "TREINTA Y SIETE"
LET decenas[19] = "TREINTA Y OCHO"
LET decenas[20] = "TREINTA Y NUEVE"
LET decenas[21] = "CUARENTA"
LET decenas[22] = "CUARENTA Y UNO"
LET decenas[23] = "CUARENTA Y DOS"
LET decenas[24] = "CUARENTA Y TRES"
LET decenas[25] = "CUARENTA Y CUATRO"
LET decenas[26] = "CUARENTA Y CINCO"
LET decenas[27] = "CUARENTA Y SEIS"
LET decenas[28] = "CUARENTA Y SIETE"
LET decenas[29] = "CUARENTA Y OCHO"
LET decenas[30] = "CUARENTA Y NUEVE"
LET decenas[31] = "CINCUENTA"
LET decenas[32] = "CINCUENTA Y UNO"
LET decenas[33] = "CINCUENTA Y DOS"
LET decenas[34] = "CINCUENTA Y TRES"
LET decenas[35] = "CINCUENTA Y CUATRO"
LET decenas[36] = "CINCUENTA Y CINCO"
LET decenas[37] = "CINCUENTA Y SEIS"
LET decenas[38] = "CINCUENTA Y SIETE"
LET decenas[39] = "CINCUENTA Y OCHO"
LET decenas[40] = "CINCUENTA Y NUEVE"
LET decenas[41] = "SESENTA"
LET decenas[42] = "SESENTA Y UNO"
LET decenas[43] = "SESENTA Y DOS"
LET decenas[44] = "SESENTA Y TRES"
LET decenas[45] = "SESENTA Y CUATRO"
LET decenas[46] = "SESENTA Y CINCO"
LET decenas[47] = "SESENTA Y SEIS"
LET decenas[48] = "SESENTA Y SIETE"
LET decenas[49] = "SESENTA Y OCHO"
LET decenas[50] = "SESENTA Y NUEVE"
LET decenas[51] = "SETENTA"
LET decenas[52] = "SETENTA Y UNO"
LET decenas[53] = "SETENTA Y DOS"
LET decenas[54] = "SETENTA Y TRES"
LET decenas[55] = "SETENTA Y CUATRO"
LET decenas[56] = "SETENTA Y CINCO"
LET decenas[57] = "SETENTA Y SEIS"
LET decenas[58] = "SETENTA Y SIETE"
LET decenas[59] = "SETENTA Y OCHO"
LET decenas[60] = "SETENTA Y NUEVE"
LET decenas[61] = "OCHENTA"
LET decenas[62] = "OCHENTA Y UNO"
LET decenas[63] = "OCHENTA Y DOS"
LET decenas[64] = "OCHENTA Y TRES"
LET decenas[65] = "OCHENTA Y CUATRO"
LET decenas[66] = "OCHENTA Y CINCO"
LET decenas[67] = "OCHENTA Y SEIS"
LET decenas[68] = "OCHENTA Y SIETE"
LET decenas[69] = "OCHENTA Y OCHO"
LET decenas[70] = "OCHENTA Y NUEVE"
LET decenas[71] = "NOVENTA"
LET decenas[72] = "NOVENTA Y UNO"
LET decenas[73] = "NOVENTA Y DOS"
LET decenas[74] = "NOVENTA Y TRES"
LET decenas[75] = "NOVENTA Y CUATRO"
LET decenas[76] = "NOVENTA Y CINCO"
LET decenas[77] = "NOVENTA Y SEIS"
LET decenas[78] = "NOVENTA Y SIETE"
LET decenas[79] = "NOVENTA Y OCHO"
LET decenas[80] = "NOVENTA Y NUEVE"
LET decenas[81] = "CIEN"
LET centenas[1] = "CIENTO"
LET centenas[2] = "DOCIENTOS"
LET centenas[3] = "TRESCIENTOS"
LET centenas[4] = "CUATROCIENTOS"
LET centenas[5] = "QUINIENTOS"
LET centenas[6] = "SEISCIENTOS"
LET centenas[7] = "SETECIENTOS"
LET centenas[8] = "OCHOCIENTOS"
LET centenas[9] = "NOVECIENTOS"
END FUNCTION
FUNCTION busca_mes()
LET meses[1] = "ENERO"
LET meses[2] = "FEBRERO"
LET meses[3] = "MARZO"
LET meses[4] = "ABRIL"
LET meses[5] = "MAYO"
LET meses[6] = "JUNIO"
LET meses[7] = "JULIO"
LET meses[8] = "AGOSTO"
LET meses[9] = "SEPTIEMBRE"
LET meses[10] = "OCTUBRE"
LET meses[11] = "NOVIEMBRE"
LET meses[12] = "DICIEMBRE"
END FUNCTION
#--------------------------------------------------------------------
# Rutina para convertir de numeros a letras. Abner Montalvo
#--------------------------------------------------------------------
FUNCTION conv_numero(numero)
DEFINE numero DECIMAL(12,2)
DEFINE millon, cmillon, udmillon INTEGER
DEFINE mil, cmil, udmil, cheles INTEGER
DEFINE centena, ccentena, udcentena INTEGER
#-----------------------------------------------------------
# Separacion del Numero
#-----------------------------------------------------------
LET millon = numero / 1000000
LET cmillon = millon / 100
LET udmillon = millon - cmillon * 100
LET mil = numero - millon * 1000000
LET mil = mil / 1000
LET cmil = mil / 100
LET udmil = mil - cmil * 100
LET centena = numero - (millon*1000000 + mil*1000)
LET ccentena = centena / 100
LET udcentena = centena - ccentena * 100
LET cheles = (numero - (millon*1000000 + mil*1000 + centena)) * 100
LET valor_letras = null
#-----------------------------------------------------------
# Conversion de Millones
#-----------------------------------------------------------
IF cmillon > 0 THEN
LET valor_letras = cientos[cmillon] CLIPPED
IF cmillon = 1 AND udmillon <> 0 THEN
LET valor_letras = valor_letras CLIPPED,"TO "
END IF
IF udmillon = 0 THEN
IF cmillon = 1 THEN
LET valor_letras = valor_letras CLIPPED," MILLON "
ELSE
LET valor_letras = valor_letras CLIPPED," MILLONES "
END IF
END IF
END IF
IF udmillon > 0 THEN
LET valor_letras = valor_letras CLIPPED," ",decimas[udmillon] CLIPPED
IF udmillon = 1 THEN
LET valor_letras = valor_letras CLIPPED," MILLON "
ELSE
LET valor_letras = valor_letras CLIPPED," MILLONES "
END IF
END IF
#-----------------------------------------------------------
# Conversion de Miles
#-----------------------------------------------------------
IF cmil > 0 THEN
LET valor_letras = valor_letras CLIPPED," ",cientos[cmil] CLIPPED
IF cmil = 1 AND udmil <> 0 THEN
LET valor_letras = valor_letras CLIPPED,"TO "
END IF
END IF
IF udmil > 0 THEN
LET valor_letras = valor_letras CLIPPED," ",decimas[udmil] CLIPPED
END IF
IF cmil > 0 OR udmil > 0 THEN
LET valor_letras = valor_letras CLIPPED," MIL "
END IF
#-----------------------------------------------------------
# Conversion de Centenas y Decenas
#-----------------------------------------------------------
IF ccentena > 0 THEN
LET valor_letras = valor_letras CLIPPED," ",cientos[ccentena] CLIPPED
IF ccentena = 1 AND udcentena <> 0 THEN
LET valor_letras = valor_letras CLIPPED,"TO "
END IF
END IF
IF udcentena > 0 THEN
LET valor_letras = valor_letras CLIPPED," ",decimas[udcentena] CLIPPED
END IF
IF cmillon > 0 OR udmillon > 0 OR
cmil > 0 OR udmil > 0 OR
ccentena > 0 OR udcentena > 0 THEN
LET valor_letras = valor_letras CLIPPED," CON ",cheles USING "&&","/100"
END IF
#DISPLAY numero USING "###,###,##&.&&" AT 11,1
#DISPLAY valor_letras AT 12,1
#SLEEP 3
END FUNCTION
FUNCTION arr_letras()
#-----------------------------------------------------------
# Asignacion de Valores a los arreglos
#-----------------------------------------------------------
LET cientos[1] = "CIEN"
LET cientos[2] = "DOSCIENTOS"
LET cientos[3] = "TRESCIENTOS"
LET cientos[4] = "CUATROCIENTOS"
LET cientos[5] = "QUINIENTOS"
LET cientos[6] = "SEISCIENTOS"
LET cientos[7] = "SETECIENTOS"
LET cientos[8] = "OCHOCIENTOS"
LET cientos[9] = "NOVECIENTOS"
LET decimas[1] = "UN"
LET decimas[2] = "DOS"
LET decimas[3] = "TRES"
LET decimas[4] = "CUATRO"
LET decimas[5] = "CINCO"
LET decimas[6] = "SEIS"
LET decimas[7] = "SIETE"
LET decimas[8] = "OCHO"
LET decimas[9] = "NUEVE"
LET decimas[10] = "DIEZ"
LET decimas[11] = "ONCE"
LET decimas[12] = "DOCE"
LET decimas[13] = "TRECE"
LET decimas[14] = "CATORCE"
LET decimas[15] = "QUINCE"
LET decimas[16] = "DIECISEIS"
LET decimas[17] = "DIECISIETE"
LET decimas[18] = "DIECIOCHO"
LET decimas[19] = "DIECINUEVE"
LET decimas[20] = "VEINTE"
LET decimas[21] = "VEINTE Y UNO"
LET decimas[22] = "VEINTE Y DOS"
LET decimas[23] = "VEINTE Y TRES"
LET decimas[24] = "VEINTE Y CUATRO"
LET decimas[25] = "VEINTE Y CINCO"
LET decimas[26] = "VEINTE Y SEIS"
LET decimas[27] = "VEINTE Y SIETE"
LET decimas[28] = "VEINTE Y OCHO"
LET decimas[29] = "VEINTE Y NUEVE"
LET decimas[30] = "TREINTA"
LET decimas[31] = "TREINTA Y UNO"
LET decimas[32] = "TREINTA Y DOS"
LET decimas[33] = "TREINTA Y TRES"
LET decimas[34] = "TREINTA Y CUATRO"
LET decimas[35] = "TREINTA Y CINCO"
LET decimas[36] = "TREINTA Y SEIS"
LET decimas[37] = "TREINTA Y SIETE"
LET decimas[38] = "TREINTA Y OCHO"
LET decimas[39] = "TREINTA Y NUEVE"
LET decimas[40] = "CUARENTA"
LET decimas[41] = "CUARENTA Y UNO"
LET decimas[42] = "CUARENTA Y DOS"
LET decimas[43] = "CUARENTA Y TRES"
LET decimas[44] = "CUARENTA Y CUATRO"
LET decimas[45] = "CUARENTA Y CINCO"
LET decimas[46] = "CUARENTA Y SEIS"
LET decimas[47] = "CUARENTA Y SIETE"
LET decimas[48] = "CUARENTA Y OCHO"
LET decimas[49] = "CUARENTA Y NUEVE"
LET decimas[50] = "CINCUENTA"
LET decimas[51] = "CINCUENTA Y UNO"
LET decimas[52] = "CINCUENTA Y DOS"
LET decimas[53] = "CINCUENTA Y TRES"
LET decimas[54] = "CINCUENTA Y CUATRO"
LET decimas[55] = "CINCUENTA Y CINCO"
LET decimas[56] = "CINCUENTA Y SEIS"
LET decimas[57] = "CINCUENTA Y SIETE"
LET decimas[58] = "CINCUENTA Y OCHO"
LET decimas[59] = "CINCUENTA Y NUEVE"
LET decimas[60] = "SESENTA"
LET decimas[61] = "SESENTA Y UNO"
LET decimas[62] = "SESENTA Y DOS"
LET decimas[63] = "SESENTA Y TRES"
LET decimas[64] = "SESENTA Y CUATRO"
LET decimas[65] = "SESENTA Y CINCO"
LET decimas[66] = "SESENTA Y SEIS"
LET decimas[67] = "SESENTA Y SIETE"
LET decimas[68] = "SESENTA Y OCHO"
LET decimas[69] = "SESENTA Y NUEVE"
LET decimas[70] = "SETENTA"
LET decimas[71] = "SETENTA Y UNO"
LET decimas[72] = "SETENTA Y DOS"
LET decimas[73] = "SETENTA Y TRES"
LET decimas[74] = "SETENTA Y CUATRO"
LET decimas[75] = "SETENTA Y CINCO"
LET decimas[76] = "SETENTA Y SEIS"
LET decimas[77] = "SETENTA Y SIETE"
LET decimas[78] = "SETENTA Y OCHO"
LET decimas[79] = "SETENTA Y NUEVE"
LET decimas[80] = "OCHENTA"
LET decimas[81] = "OCHENTA Y UNO"
LET decimas[82] = "OCHENTA Y DOS"
LET decimas[83] = "OCHENTA Y TRES"
LET decimas[84] = "OCHENTA Y CUATRO"
LET decimas[85] = "OCHENTA Y CINCO"
LET decimas[86] = "OCHENTA Y SEIS"
LET decimas[87] = "OCHENTA Y SIETE"
LET decimas[88] = "OCHENTA Y OCHO"
LET decimas[89] = "OCHENTA Y NUEVE"
LET decimas[90] = "NOVENTA"
LET decimas[91] = "NOVENTA Y UNO"
LET decimas[92] = "NOVENTA Y DOS"
LET decimas[93] = "NOVENTA Y TRES"
LET decimas[94] = "NOVENTA Y CUATRO"
LET decimas[95] = "NOVENTA Y CINCO"
LET decimas[96] = "NOVENTA Y SEIS"
LET decimas[97] = "NOVENTA Y SIETE"
LET decimas[98] = "NOVENTA Y OCHO"
LET decimas[99] = "NOVENTA Y NUEVE"
END FUNCTION
Reference in New Issue View Git Blame Copy Permalink