1082 lines
35 KiB
Plaintext
1082 lines
35 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : CCPRRP015
|
|
OBJETIVO : FLASH REPORT
|
|
PROGRAMADOR : Ing. Juan Soto (Johnny)
|
|
FECHA REALIZACION : Abril 24, 1993
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
GLOBALS "ccprgb000.4gl"
|
|
DEFINE moneda SMALLINT
|
|
DEFINE primera,acumulado CHAR(1)
|
|
DEFINE mes1 ARRAY [12] OF CHAR (10)
|
|
FUNCTION ccprrp015()
|
|
|
|
DEFINE mes_ini CHAR(6)
|
|
DEFINE peri2,periodo,act,ant,hoy CHAR(4)
|
|
DEFINE mes_fin CHAR(2)
|
|
DEFINE select_dia,select_zona,select_cliente,select_pilas CHAR(1000)
|
|
DEFINE p_mes,idx_d,registros,cuenta,peri,idx_t,idx_o,idx_e,idx_p,idx_m
|
|
SMALLINT
|
|
DEFINE n_encontre,p_ventas,esta,encontre,salir2,salir1,salir CHAR(1)
|
|
DEFINE tasa1,tasa2,tasa3 DECIMAL(6,2)
|
|
DEFINE fecha1,fecha2,fecha3,fecha4 DATE
|
|
|
|
DEFINE ventas_dia RECORD
|
|
ventas CHAR(1),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad_vend DECIMAL(12,2),
|
|
precio DECIMAL(12,2),
|
|
prima LIKE vetb00002.prima_us
|
|
END RECORD
|
|
|
|
DEFINE vtas_acum RECORD
|
|
ventas CHAR(1),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad_vend DECIMAL(12,2),
|
|
precio DECIMAL(12,2),
|
|
descuento DECIMAL(12,2),
|
|
prima LIKE vetb00002.prima_us
|
|
END RECORD
|
|
|
|
DEFINE ano_ant RECORD
|
|
ventas CHAR(1),
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad_vend DECIMAL(12,2),
|
|
precio DECIMAL(12,2),
|
|
descuento DECIMAL(12,2),
|
|
prima LIKE vetb00002.prima_us
|
|
END RECORD
|
|
|
|
DEFINE ventas RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descrip_esp CHAR(30),
|
|
unidad_med CHAR(4) ,
|
|
sub_control CHAR(1),
|
|
ventas CHAR(1),
|
|
cantidad_vend DECIMAL(12,2),
|
|
valor DECIMAL(12,2),
|
|
cantidad_Pres INTEGER,
|
|
valor_pres DECIMAL(12,2),
|
|
unidad_acum DECIMAL(12,2),
|
|
valor_acum DECIMAL(12,2),
|
|
unidad_ant DECIMAL(12,2),
|
|
valor_ant DECIMAL(12,2),
|
|
codigo CHAR(7),
|
|
grupo_venta CHAR(1)
|
|
END RECORD
|
|
|
|
#WHENEVER ERROR CONTINUE
|
|
|
|
OPTIONS
|
|
FORM LINE 8,
|
|
ERROR LINE 23,
|
|
COMMENT LINE 21
|
|
|
|
OPEN FORM ccfmrp015 FROM "ccfmrp015"
|
|
DISPLAY FORM ccfmrp015
|
|
CALL pantalla()
|
|
DISPLAY "ccprrp015" AT 4,3
|
|
DISPLAY " FLASH REPORT " AT 6,26
|
|
|
|
LET tipo_papel = 2
|
|
CALL msgrp000(tipo_papel)
|
|
|
|
LET primera = "S"
|
|
INPUT BY NAME acumulado,moneda,p_mes,tasa1,tasa2,tasa3 WITHOUT DEFAULTS
|
|
|
|
AFTER FIELD p_mes
|
|
IF p_mes is null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD p_mes
|
|
END IF
|
|
|
|
IF p_mes > 12 THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD p_mes
|
|
END IF
|
|
|
|
LET act = YEAR(today) USING "&&&&"
|
|
LET ant = YEAR(today) - 1 USING "&&&&"
|
|
|
|
SELECT fecha_inicio,fecha_corte INTO fecha1,fecha2 FROM prdtable
|
|
WHERE mes = p_mes AND ano = act
|
|
|
|
SELECT fecha_inicio,fecha_corte INTO fecha3,fecha4 FROM prdtable
|
|
WHERE mes = p_mes AND ano = ant
|
|
|
|
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
|
|
|
|
# Busca Los Movimientos de las Facturas
|
|
|
|
LET periodo = act[3,4],p_mes using "&&"
|
|
LET peri2 = ant[3,4],p_mes using "&&"
|
|
LET peri = periodo
|
|
|
|
# Buscando Pilas vendias En el mes especificado
|
|
|
|
IF acumulado = "N" THEN
|
|
LET select_pilas =
|
|
"SELECT b.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
|
|
" sum(a.cantidad),sum(a.cantidad * a.precio),sum(b.monto_desc), ",
|
|
" b.prima_us ",
|
|
"FROM vetb00003 a,vetb00002 b ",
|
|
"WHERE b.fecha_factura between ? and ? and a.factura = b.factura and ",
|
|
" b.status_t is null and a.status_t is null ",
|
|
"GROUP BY 1,2,3,4,5,9 ORDER BY 1,2,3,4 "
|
|
|
|
DISPLAY "<< Estoy Buscando Ventas Del Mes ... Espere Por Favor. >>"
|
|
AT 19,14 ATTRIBUTE (BOLD,REVERSE)
|
|
|
|
PREPARE busca_act FROM select_pilas
|
|
DECLARE act SCROLL CURSOR FOR busca_act
|
|
OPEN act USING fecha1,fecha2
|
|
END IF
|
|
|
|
# Buscando los meses acumulado donde la variable acumulado sea igual a S
|
|
|
|
IF acumulado = "S" THEN
|
|
LET select_pilas =
|
|
"SELECT b.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
|
|
" sum(a.cantidad),sum(a.cantidad * a.precio),sum(b.monto_desc), ",
|
|
" b.prima_us ",
|
|
"FROM vetb00003 a,vetb00002 b ",
|
|
"WHERE b.fecha_factura<=? AND a.factura=b.factura and b.status_t is null ",
|
|
" and a.status_t is null AND YEAR(b.fecha_factura) = ? ",
|
|
"GROUP BY 1,2,3,4,5,9 ORDER BY 1,2,3,4 "
|
|
|
|
DISPLAY "<< Estoy Buscando Ventas Acumuladas ... Espere Por Favor. >>"
|
|
AT 19,14 ATTRIBUTE (BOLD,REVERSE)
|
|
|
|
PREPARE busca_act1 FROM select_pilas
|
|
DECLARE act1 SCROLL CURSOR FOR busca_act1
|
|
OPEN act1 USING fecha2,act
|
|
END IF
|
|
|
|
# Buscando Pilas vendias del ano anterior
|
|
|
|
IF acumulado = "S" THEN
|
|
LET select_zona =
|
|
"SELECT b.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
|
|
" sum(a.cantidad),sum(a.cantidad * a.precio),sum(b.monto_desc),",
|
|
" b.prima_us ",
|
|
"FROM vetb00003 a,vetb00002 b ",
|
|
"WHERE b.fecha_factura != ? and a.factura=b.factura and ",
|
|
" b.status_t is null and a.status_t is null AND b.fecha_factura < ? ",
|
|
"GROUP BY 1,2,3,4,5,9 ORDER BY 1,2,3,4 "
|
|
|
|
ELSE
|
|
LET select_zona =
|
|
"SELECT b.ventas,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec, ",
|
|
" sum(a.cantidad),sum(a.cantidad * a.precio),sum(b.monto_desc),",
|
|
" b.prima_us ",
|
|
"FROM vetb00003 a,vetb00002 b ",
|
|
"WHERE b.fecha_factura between ? AND ? AND a.factura = b.factura and ",
|
|
" b.status_t is null and a.status_t is null ",
|
|
"GROUP BY 1,2,3,4,5,9 ORDER BY 1,2,3,4 "
|
|
|
|
END IF
|
|
|
|
DISPLAY "<< Estoy Buscando Ventas Ano Anterior ... Espere Por Favor. >>"
|
|
AT 19,14 ATTRIBUTE (BOLD,REVERSE)
|
|
|
|
PREPARE busca_ant FROM select_zona
|
|
DECLARE ant SCROLL CURSOR FOR busca_ant
|
|
OPEN ant USING fecha3,fecha4
|
|
|
|
LET select_cliente =
|
|
"SELECT unique d.cod_n,d.cod_grupo,d.cod_tipo,d.cod_sec,d.descrip_esp, ",
|
|
" d.unidad_med,' ' ",
|
|
"FROM iptb00002 d ",
|
|
"WHERE d.status_t is null ORDER BY 2,3,4,5"
|
|
|
|
|
|
PREPARE busca_movi FROM select_cliente
|
|
DECLARE movi_curs SCROLL CURSOR FOR busca_movi
|
|
OPEN movi_curs
|
|
|
|
START REPORT flash TO "C:\\archivo"
|
|
|
|
DISPLAY " "
|
|
AT 19,14
|
|
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
|
|
AT 19,14 ATTRIBUTE (REVERSE)
|
|
SELECT count(*) INTO registros FROM iptb00002
|
|
|
|
LET n_encontre = null
|
|
LET cuenta = 0
|
|
LET identifica = null
|
|
LET verdad = null
|
|
LET idx = 1
|
|
LET idx_o = 1
|
|
LET idx_d = 1
|
|
LET salir1 = "N"
|
|
LET idx_t = 1
|
|
|
|
|
|
WHILE salir1 != "S"
|
|
FETCH ABSOLUTE idx_t movi_curs INTO ventas.*
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET idx_t = 1
|
|
LET idx = 1
|
|
LET idx_o = 1
|
|
LET idx_p = 1
|
|
LET ventas.ventas = "2"
|
|
IF identifica = "S" THEN
|
|
LET salir1 = "S"
|
|
EXIT WHILE
|
|
ELSE
|
|
LET identifica = "S"
|
|
CONTINUE WHILE
|
|
END IF
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
IF ventas.ventas is null THEN
|
|
LET ventas.ventas = "1"
|
|
END IF
|
|
|
|
IF identifica = "S" THEN
|
|
LET ventas.ventas = "2"
|
|
END IF
|
|
|
|
LET idx_t = idx_t + 1
|
|
LET cuenta = cuenta + 1
|
|
|
|
LET salir = "N"
|
|
WHILE salir != "S"
|
|
|
|
IF acumulado = "N" THEN
|
|
FETCH ABSOLUTE idx act INTO vtas_acum.*
|
|
ELSE
|
|
FETCH ABSOLUTE idx act1 INTO vtas_acum.*
|
|
END IF
|
|
|
|
IF status = notfound THEN
|
|
LET idx = 1
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
LET idx = idx + 1
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
IF vtas_acum.cod_n = ventas.cod_n and
|
|
vtas_acum.cod_grupo = ventas.cod_grupo and
|
|
vtas_acum.cod_tipo = ventas.cod_tipo and
|
|
vtas_acum.cod_sec = ventas.cod_sec and
|
|
vtas_acum.ventas = ventas.ventas THEN
|
|
|
|
LET ventas.unidad_acum = vtas_acum.cantidad_vend
|
|
|
|
IF ventas.ventas = "2" THEN
|
|
LET ventas.valor_acum = (vtas_acum.precio * vtas_acum.prima)
|
|
ELSE
|
|
LET ventas.valor_acum = (vtas_acum.precio - vtas_acum.descuento)
|
|
|
|
END IF
|
|
END IF
|
|
END WHILE
|
|
|
|
LET salir = "N"
|
|
WHILE salir != "S"
|
|
FETCH ABSOLUTE idx_o ant INTO ano_ant.*
|
|
IF status = notfound THEN
|
|
LET idx_o = 1
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
LET idx_o = idx_o + 1
|
|
|
|
LET ventas.unidad_ant = 0
|
|
LET ventas.valor_ant = 0
|
|
|
|
IF ano_ant.cod_n = ventas.cod_n and
|
|
ano_ant.cod_grupo = ventas.cod_grupo and
|
|
ano_ant.cod_tipo = ventas.cod_tipo and
|
|
ano_ant.cod_sec = ventas.cod_sec and
|
|
ano_ant.ventas = ventas.ventas THEN
|
|
LET idx_o = 1
|
|
LET ventas.unidad_ant = ano_ant.cantidad_vend
|
|
|
|
IF ano_ant.prima is null THEN
|
|
LET ano_ant.prima = 1
|
|
END IF
|
|
IF ano_ant.descuento is null THEN
|
|
LET ano_ant.descuento = 0
|
|
END IF
|
|
IF ano_ant.ventas = "2" THEN
|
|
LET ventas.valor_ant = (ano_ant.precio * ano_ant.prima)
|
|
ELSE
|
|
LET ventas.valor_ant = (ano_ant.precio - ano_ant.descuento)
|
|
|
|
END IF
|
|
|
|
EXIT WHILE
|
|
ELSE
|
|
LET ventas.unidad_ant = 0
|
|
LET ventas.valor_ant = 0
|
|
END IF
|
|
END WHILE
|
|
LET ventas.codigo = ventas.cod_n using "&",
|
|
ventas.cod_grupo using "&",
|
|
ventas.cod_tipo using "&&",
|
|
ventas.cod_sec using "&&&"
|
|
|
|
LET ventas.grupo_venta = ventas.codigo[5]
|
|
IF ventas.unidad_acum is null THEN
|
|
LET ventas.unidad_acum = 0
|
|
END IF
|
|
|
|
IF ventas.valor_acum is null THEN
|
|
LET ventas.valor_acum = 0
|
|
END IF
|
|
|
|
IF ventas.valor is null THEN
|
|
LET ventas.valor = 0
|
|
END IF
|
|
IF ventas.unidad_ant is null THEN
|
|
LET ventas.unidad_ant = 0
|
|
END IF
|
|
IF ventas.valor_ant is null THEN
|
|
LET ventas.valor_ant = 0
|
|
END IF
|
|
|
|
IF ventas.cantidad_vend is null THEN
|
|
LET ventas.cantidad_vend = 0
|
|
END IF
|
|
|
|
OUTPUT TO REPORT flash(ventas.*,peri,p_mes,ant,act,tasa1,tasa2,tasa3)
|
|
|
|
IF cuenta >= registros THEN
|
|
LET ventas.ventas = "2"
|
|
END IF
|
|
|
|
LET ventas.cantidad_vend = 0
|
|
LET ventas.valor = 0
|
|
LET ventas.cantidad_pres = 0
|
|
LET ventas.valor_pres = 0
|
|
LET ventas.unidad_acum = 0
|
|
LET ventas.valor_acum = 0
|
|
LET ventas.unidad_ant = 0
|
|
LET ventas.valor_ant = 0
|
|
END WHILE
|
|
FINISH REPORT flash
|
|
CLEAR SCREEN
|
|
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
|
|
|
|
REPORT flash(x,peri1,p_mes1,ant1,act1,tasa_act,tasa_pre,tasa_py)
|
|
DEFINE x RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descrip_esp CHAR(30),
|
|
unidad_med CHAR(4) ,
|
|
sub_control CHAR(1),
|
|
ventas CHAR(1),
|
|
cantidad_vend DECIMAL(12,2),
|
|
valor DECIMAL(12,2),
|
|
cantidad_Pres DECIMAL(12,2),
|
|
valor_pres DECIMAL(12,2),
|
|
unidad_acum DECIMAL(12,2),
|
|
valor_acum DECIMAL(12,2),
|
|
unidad_ant DECIMAL(12,2),
|
|
valor_ant DECIMAL(12,2),
|
|
codigo CHAR(7),
|
|
grupo_venta CHAR(1)
|
|
END RECORD,
|
|
p_mes1 SMALLINT
|
|
|
|
|
|
DEFINE vendedor,imp,imp1 CHAR (1)
|
|
DEFINE nombre,tipo1 CHAR(21)
|
|
DEFINE nombre_mes1,nombre_dia,nombre_mes CHAR(11)
|
|
DEFINE descrip_zone CHAR(30)
|
|
DEFINE doble_on CHAR(2)
|
|
DEFINE doble_off CHAR(2)
|
|
DEFINE negrillas_on CHAR(6)
|
|
DEFINE negrillas_off CHAR(6)
|
|
DEFINE comp_on CHAR(3)
|
|
DEFINE comp_off CHAR(3)
|
|
DEFINE doce CHAR(2)
|
|
DEFINE normal CHAR(2)
|
|
DEFINE hora CHAR(5)
|
|
DEFINE t_cantidad_pres,t_valor_pres,t_t_cantidad_pres,t_t_valor_pres,
|
|
t_t_t_cantidad_pres, t_t_t_valor_pres,g_cantidad_vend,g_valor_vend,
|
|
g_unidad_acum,g_valor_acum,g_g_cantidad_vend,g_g_valor_vend,
|
|
g_g_unidad_acum,g_g_valor_acum,g_g_g_cantidad_vend,g_g_g_valor_vend,
|
|
g_g_g_unidad_acum,g_g_g_valor_acum,g_unidad_ant,g_valor_ant,
|
|
g_g_unidad_ant,g_g_valor_ant,g_g_g_unidad_ant,g_g_g_valor_ant,
|
|
t1_cantidad_pres,t1_valor_pres,g1_cantidad_vend,g1_valor_vend,
|
|
g1_unidad_acum,g1_valor_acum,g1_unidad_ant,g1_valor_ant,
|
|
g_p_b,g_g_p_b,g_g_g_p_b,g_p_b_v,g_g_p_b_v,g_g_g_p_b_v,
|
|
g_p_py,g_g_p_py,g_g_g_p_py,g_p_py_v,g_g_p_py_v,g_g_g_p_py_v,
|
|
g1_p_b,g1_p_b_v,g1_p_py,g1_p_py_v
|
|
DECIMAL(12,2)
|
|
|
|
DEFINE p_b,p_py,p_b_v,p_py_v,tasa_act,tasa_pre,tasa_py DECIMAL(8,2)
|
|
#DEFINE tasas RECORD LIKE prtb00001.*
|
|
DEFINE peri1,d,m,i SMALLINT
|
|
DEFINE ant1,act1 CHAR(4)
|
|
|
|
OUTPUT
|
|
TOP MARGIN 0
|
|
LEFT MARGIN 0
|
|
BOTTOM MARGIN 4
|
|
|
|
ORDER BY x.ventas,x.grupo_venta,x.sub_control,x.codigo
|
|
|
|
FORMAT
|
|
PAGE HEADER
|
|
LET doble_on = ASCII 14
|
|
LET doble_off = ASCII 20
|
|
LET negrillas_on = ASCII 27, ASCII 69
|
|
LET negrillas_off = ASCII 27, ASCII 69
|
|
LET comp_on = ASCII 15
|
|
LET comp_off = ASCII 18
|
|
LET doce = ASCII 27, ASCII 77
|
|
LET normal =ASCII 029
|
|
LET hora = time
|
|
|
|
LET lj = (162 - LENGTH(p_companias.nombre CLIPPED))/2
|
|
PRINT COLUMN 1, comp_on,negrillas_on
|
|
PRINT COLUMN 1, "ccprrp015",
|
|
COLUMN lj, p_companias.nombre CLIPPED,
|
|
COLUMN 155, "Pag. ",pageno using "###"
|
|
PRINT COLUMN 71, "Sistema de Finanzas",
|
|
COLUMN 153, today using "dd/mm/yyyy"
|
|
PRINT COLUMN 64, "Control de productos para la venta",
|
|
COLUMN 158, hora
|
|
|
|
IF acumulado = "N" THEN
|
|
PRINT COLUMN 75, "FLASH REPORT"
|
|
ELSE
|
|
PRINT COLUMN 69, "FLASH REPORT - ACUMULADO"
|
|
END IF
|
|
|
|
SKIP 1 LINES
|
|
|
|
IF moneda = 1 THEN
|
|
PRINT COLUMN 79, "IN RD$"
|
|
ELSE
|
|
PRINT COLUMN 79, "IN US$"
|
|
END IF
|
|
|
|
CALL meses()
|
|
LET nombre_mes = mes1[p_mes1]
|
|
|
|
PRINT COLUMN 1, "Mes de: ",nombre_mes clipped
|
|
PRINT COLUMN 1, "Tasa Actual: ",tasa_act using "###.##"
|
|
|
|
PRINT COLUMN 1, "Tasa Presupuesto: ",tasa_pre using "###.##"
|
|
|
|
PRINT COLUMN 1, "Tasa Anterior: ",tasa_py using "###.##"
|
|
LET primera = "N"
|
|
|
|
PRINT COLUMN 1, "--------------------------------------------------",
|
|
"--------------------------------------------------" ,
|
|
"--------------------------------------------------" ,
|
|
"-------------"
|
|
PRINT COLUMN 58, " R E A L ",
|
|
COLUMN 110, "B U D G E T",
|
|
COLUMN 130, "P R I O R Y E A R"
|
|
|
|
PRINT COLUMN 2, "P r o d u c t o",
|
|
COLUMN 53, "Unidades",
|
|
COLUMN 65, "% Bget.",
|
|
COLUMN 77, "% Py",
|
|
COLUMN 89, "Valor",
|
|
COLUMN 105, "% Bget.",
|
|
COLUMN 116, "% Py",
|
|
|
|
COLUMN 129, "Unidades",
|
|
COLUMN 140, "Valor",
|
|
COLUMN 156, "Unidades",
|
|
COLUMN 169, "Valor"
|
|
|
|
PRINT COLUMN 1, "--------------------------------------------------",
|
|
"--------------------------------------------------" ,
|
|
"--------------------------------------------------" ,
|
|
"-------------", negrillas_off
|
|
|
|
IF t_cantidad_pres is null THEN
|
|
LET t_cantidad_pres = 0
|
|
LET t1_cantidad_pres = 0
|
|
END IF
|
|
|
|
IF t_valor_pres is null THEN
|
|
LET t_valor_pres = 0
|
|
LET t1_valor_pres = 0
|
|
END IF
|
|
|
|
IF t_t_cantidad_pres is null THEN
|
|
LET t_t_cantidad_pres = 0
|
|
END IF
|
|
|
|
IF t_t_valor_pres is null THEN
|
|
LET t_t_valor_pres = 0
|
|
END IF
|
|
|
|
IF t_t_t_cantidad_pres is null THEN
|
|
LET t_t_t_cantidad_pres = 0
|
|
END IF
|
|
|
|
IF t_t_t_valor_pres is null THEN
|
|
LET t_t_t_valor_pres = 0
|
|
END IF
|
|
|
|
BEFORE GROUP OF x.ventas
|
|
|
|
SKIP 1 LINE
|
|
|
|
IF x.ventas = "1" THEN
|
|
LET nombre = "L O C A L"
|
|
|
|
LET g_p_b = 0
|
|
LET g_g_p_b = 0
|
|
LET g_g_g_p_b = 0
|
|
|
|
LET g1_p_b = 0
|
|
LET g1_p_b_v = 0
|
|
LET g1_p_py_v = 0
|
|
LET g1_p_py = 0
|
|
|
|
LET g_p_b_v = 0
|
|
LET g_g_p_b_v = 0
|
|
LET g_g_g_p_b_v = 0
|
|
|
|
|
|
LET g_p_py = 0
|
|
LET g_g_p_py = 0
|
|
LET g_g_g_p_py = 0
|
|
|
|
LET g_p_py_v = 0
|
|
LET g_g_p_py_v = 0
|
|
LET g_g_g_p_py_v = 0
|
|
ELSE
|
|
LET nombre = "E X P O R T A C I O N"
|
|
END IF
|
|
|
|
PRINT COLUMN 7,negrillas_on, nombre,negrillas_off
|
|
|
|
SKIP 1 LINE
|
|
|
|
AFTER GROUP OF x.codigo
|
|
|
|
IF acumulado = "N" THEN
|
|
SELECT sum(cantidad),sum(valor) INTO x.cantidad_pres,x.valor_pres
|
|
FROM vetb00017
|
|
WHERE mes = peri1 and ventas = x.ventas and cod_n = x.cod_n and
|
|
cod_grupo=x.cod_grupo and cod_tipo=x.cod_tipo and cod_sec=x.cod_sec
|
|
ELSE
|
|
SELECT sum(cantidad),sum(valor) INTO x.cantidad_pres,x.valor_pres
|
|
FROM vetb00017
|
|
WHERE mes <= peri1 and ventas = x.ventas and cod_n = x.cod_n and
|
|
cod_grupo = x.cod_grupo and cod_tipo = x.cod_tipo and
|
|
cod_sec = x.cod_sec
|
|
END IF
|
|
|
|
IF x.cantidad_pres is null THEN
|
|
LET x.cantidad_pres = 0
|
|
END IF
|
|
|
|
IF x.valor_pres is null THEN
|
|
LET x.valor_pres = 0
|
|
END IF
|
|
IF x.valor_pres > 0 THEN
|
|
LET x.valor_pres = x.valor_pres
|
|
LET x.cantidad_pres = x.cantidad_pres
|
|
END IF
|
|
|
|
IF moneda = 2 THEN
|
|
LET x.valor_acum = x.valor_acum / tasa_act
|
|
LET x.valor_pres = x.valor_pres / tasa_pre
|
|
LET x.valor_ant = x.valor_ant / tasa_py
|
|
END IF
|
|
|
|
# Calculo del 4.54% para el BUDGET en valor
|
|
LET x.valor_pres = x.valor_pres - (x.valor_pres * 0.0454)
|
|
|
|
# Calculo de 7.72% para el PRIOR YEAR en valor
|
|
LET x.valor_ant = x.valor_ant - (x.valor_ant * 0.0772)
|
|
|
|
# Porciento budget real
|
|
|
|
IF x.unidad_acum != 0 and x.cantidad_pres != 0 THEN
|
|
LET p_b = ((x.unidad_acum / x.cantidad_pres) - 1) * 100
|
|
END IF
|
|
|
|
# Porciento Prior year real
|
|
|
|
IF x.unidad_acum != 0 and x.unidad_ant THEN
|
|
LET p_py = ((x.unidad_acum / x.unidad_ant) - 1) * 100
|
|
END IF
|
|
|
|
# Porciento budget real en valor
|
|
|
|
IF x.valor_acum >= 1 and x.valor_pres >= 1 THEN
|
|
LET p_b_v = ((x.valor_acum / x.valor_pres) - 1) * 100
|
|
END IF
|
|
|
|
# Porciento prior year en valor
|
|
|
|
IF x.valor_acum >= 1 and x.valor_ant >= 1 THEN
|
|
LET p_py_v = ((x.valor_acum / x.valor_ant) - 1) * 100
|
|
END IF
|
|
|
|
IF x.unidad_acum > 0 or x.cantidad_pres > 0 or
|
|
x.unidad_ant > 0 or x.valor_acum > 0 or
|
|
x.valor_ant > 0 or x.valor_pres > 0 THEN
|
|
|
|
PRINT COLUMN 1, x.cod_n using "&","-",x.cod_grupo using "&","-",
|
|
x.cod_tipo using "&&","-",x.cod_sec using "&&&",
|
|
COLUMN 13, x.descrip_esp," ",x.unidad_med clipped,
|
|
COLUMN 51, x.unidad_acum using "###,###,###",
|
|
COLUMN 62, p_b using "###,###.##",
|
|
COLUMN 73, p_py using "###,###.##",
|
|
COLUMN 85, x.valor_acum using "###,###,###.##",
|
|
COLUMN 101, p_b_v using "###,###.##",
|
|
COLUMN 112, p_py_v using "###,###.##",
|
|
COLUMN 124, x.cantidad_pres using "###,###,###",
|
|
COLUMN 136, x.valor_pres using "###,###,###.##",
|
|
COLUMN 152, x.unidad_ant using "###,###,###",
|
|
COLUMN 165, x.valor_ant using "###,###,####.##"
|
|
END IF
|
|
|
|
LET p_b = 0
|
|
LET p_py = 0
|
|
LET p_b_v = 0
|
|
LET p_py_v = 0
|
|
|
|
LET t1_cantidad_pres = t1_cantidad_pres + x.cantidad_pres
|
|
LET t1_valor_pres = t1_valor_pres + x.valor_pres
|
|
|
|
IF g1_valor_vend is null THEN
|
|
LET g1_cantidad_vend = 0
|
|
LET g1_valor_vend = 0
|
|
LET g1_unidad_acum = 0
|
|
LET g1_valor_acum = 0
|
|
LET g1_unidad_ant = 0
|
|
LET g1_valor_ant = 0
|
|
END IF
|
|
|
|
LET g1_p_b = g1_p_b + p_b
|
|
LET g1_p_b_v = g1_p_b_v + p_b_v
|
|
LET g1_p_py = g1_p_py + p_py
|
|
LET g1_p_py_v = g1_p_py_v + p_py_v
|
|
|
|
LET g1_unidad_acum = g1_unidad_acum + x.unidad_acum
|
|
LET g1_valor_acum = g1_valor_acum + x.valor_acum
|
|
LET g1_unidad_ant = g1_unidad_ant + x.unidad_ant
|
|
LET g1_valor_ant = g1_valor_ant + x.valor_ant
|
|
|
|
AFTER GROUP OF x.sub_control
|
|
|
|
IF x.cod_n = 3 THEN
|
|
SKIP 1 LINE
|
|
IF g1_unidad_acum > 0 or t1_cantidad_pres > 0 or
|
|
g1_unidad_ant > 0 THEN
|
|
LET g1_p_b = 0
|
|
LET g1_p_py = 0
|
|
LET g1_p_b_v = 0
|
|
LET g1_p_py_v = 0
|
|
|
|
IF t1_cantidad_pres != 0 and g1_unidad_acum != 0 THEN
|
|
LET g1_p_b = ((g1_unidad_acum / t1_cantidad_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g1_unidad_ant != 0 and g1_unidad_acum != 0 THEN
|
|
LET g1_p_py = ((g1_unidad_acum / g1_unidad_ant) - 1) * 100
|
|
END IF
|
|
|
|
IF t1_valor_pres != 0 and g1_valor_acum != 0 THEN
|
|
LET g1_p_b_v = ((g1_valor_acum / t1_valor_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g1_valor_ant != 0 and g1_valor_acum != 0 THEN
|
|
LET g1_p_py_v = ((g1_valor_acum / g1_valor_ant) - 1) * 100
|
|
END IF
|
|
|
|
PRINT COLUMN 6, "SUB-TOTAL ",x.sub_control clipped,
|
|
COLUMN 51, g1_unidad_acum using "###,###,###",
|
|
COLUMN 62, g1_p_b using "###,###.##",
|
|
COLUMN 73, g1_p_py using "###,###.##",
|
|
COLUMN 85, g1_valor_acum using "###,###,###.##",
|
|
COLUMN 101, g1_p_b_v using "###,###.##",
|
|
COLUMN 112, g1_p_py_v using "###,###.##",
|
|
COLUMN 124, t1_cantidad_pres using "###,###,###",
|
|
COLUMN 136, t1_valor_pres using "###,###,###.##",
|
|
COLUMN 152, g1_unidad_ant using "###,###,###",
|
|
COLUMN 166, g1_valor_ant using "###,###,###.##"
|
|
END IF
|
|
|
|
LET t_cantidad_pres = t_cantidad_pres + t1_cantidad_pres
|
|
LET t_valor_pres = t_valor_pres + t1_valor_pres
|
|
LET t1_valor_pres = 0
|
|
LET t1_cantidad_pres = 0
|
|
|
|
IF g_valor_vend is null THEN
|
|
LET g_cantidad_vend = 0
|
|
LET g_valor_vend = 0
|
|
LET g_unidad_acum = 0
|
|
LET g_valor_acum = 0
|
|
LET g_unidad_ant = 0
|
|
LET g_valor_ant = 0
|
|
END IF
|
|
|
|
LET g_p_b = g1_p_b + g_p_b
|
|
LET g_p_b_v = g1_p_b_v + g_p_b_v
|
|
LET g_p_py = g1_p_py + g_p_py
|
|
LET g_p_py_v = g1_p_py_v + g_p_py_v
|
|
|
|
LET g_unidad_acum = g1_unidad_acum + g_unidad_acum
|
|
LET g_valor_acum = g1_valor_acum + g_valor_acum
|
|
LET g_unidad_ant = g1_unidad_ant + g_unidad_ant
|
|
LET g_valor_ant = g1_valor_ant + g_valor_ant
|
|
|
|
LET g1_p_b = 0
|
|
LET g1_p_b_v = 0
|
|
LET g1_p_py = 0
|
|
LET g1_p_py_v = 0
|
|
|
|
LET g1_cantidad_vend = 0
|
|
LET g1_valor_vend = 0
|
|
LET g1_unidad_acum = 0
|
|
LET g1_valor_acum = 0
|
|
LET g1_unidad_ant = 0
|
|
LET g1_valor_ant = 0
|
|
SKIP 1 LINE
|
|
ELSE
|
|
|
|
LET t_cantidad_pres = t_cantidad_pres + t1_cantidad_pres
|
|
LET t_valor_pres = t_valor_pres + t1_valor_pres
|
|
LET t1_valor_pres = 0
|
|
LET t1_cantidad_pres = 0
|
|
|
|
IF g_valor_vend is null THEN
|
|
LET g_cantidad_vend = 0
|
|
LET g_valor_vend = 0
|
|
LET g_unidad_acum = 0
|
|
LET g_valor_acum = 0
|
|
LET g_unidad_ant = 0
|
|
LET g_valor_ant = 0
|
|
END IF
|
|
|
|
LET g_p_b = g1_p_b + g_p_b
|
|
LET g_p_b_v = g1_p_b_v + g_p_b_v
|
|
LET g_p_py = g1_p_py + g_p_py
|
|
LET g_p_py_v = g1_p_py_v + g_p_py_v
|
|
|
|
LET g_unidad_acum = g1_unidad_acum + g_unidad_acum
|
|
LET g_valor_acum = g1_valor_acum + g_valor_acum
|
|
LET g_unidad_ant = g1_unidad_ant + g_unidad_ant
|
|
LET g_valor_ant = g1_valor_ant + g_valor_ant
|
|
|
|
LET g1_p_b = 0
|
|
LET g1_p_b_v = 0
|
|
LET g1_p_py = 0
|
|
LET g1_p_py_v = 0
|
|
|
|
LET g1_cantidad_vend = 0
|
|
LET g1_valor_vend = 0
|
|
LET g1_unidad_acum = 0
|
|
LET g1_valor_acum = 0
|
|
LET g1_unidad_ant = 0
|
|
LET g1_valor_ant = 0
|
|
END IF
|
|
|
|
|
|
AFTER GROUP OF x.grupo_venta
|
|
|
|
IF x.grupo_venta = "1" THEN
|
|
LET tipo1 = "SUPERCELL"
|
|
END IF
|
|
|
|
IF x.grupo_venta = "2" THEN
|
|
LET tipo1 = "H. DUTY"
|
|
END IF
|
|
|
|
IF x.grupo_venta = "3" THEN
|
|
LET tipo1 = "ALKALINAS"
|
|
END IF
|
|
IF x.grupo_venta = "4" THEN
|
|
LET tipo1 = "LAMPARAS"
|
|
END IF
|
|
IF x.grupo_venta = "5" THEN
|
|
LET tipo1 = "FOCOS"
|
|
END IF
|
|
IF x.grupo_venta = "6" THEN
|
|
LET tipo1 = "BOMBILLOS"
|
|
END IF
|
|
|
|
IF x.grupo_venta = "7" THEN
|
|
LET tipo1 = "EXIBIDORES"
|
|
END IF
|
|
|
|
IF g_unidad_acum > 0 or t_cantidad_pres > 0 or
|
|
g_unidad_ant > 0 THEN
|
|
|
|
LET g_p_b = 0
|
|
LET g_p_py = 0
|
|
LET g_p_b_v = 0
|
|
LET g_p_py_v = 0
|
|
|
|
IF t_cantidad_pres != 0 and g_unidad_acum != 0 THEN
|
|
LET g_p_b = ((g_unidad_acum / t_cantidad_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g_unidad_ant != 0 and g_unidad_acum != 0 THEN
|
|
LET g_p_py = ((g_unidad_acum / g_unidad_ant) - 1) * 100
|
|
END IF
|
|
|
|
IF t_valor_pres != 0 and g_valor_acum != 0 THEN
|
|
LET g_p_b_v = ((g_valor_acum / t_valor_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g_valor_ant != 0 and g_valor_acum != 0 THEN
|
|
LET g_p_py_v = ((g_valor_acum / g_valor_ant) - 1) * 100
|
|
END IF
|
|
|
|
PRINT COLUMN 1, negrillas_on,
|
|
COLUMN 9, "TOTAL ",tipo1 clipped,
|
|
COLUMN 53, g_unidad_acum using "###,###,###",
|
|
COLUMN 64, g_p_b using "###,###.##",
|
|
COLUMN 75, g_p_py using "###,###.##",
|
|
COLUMN 87, g_valor_acum using "###,###,###.##",
|
|
COLUMN 103, g_p_b_v using "###,###.##",
|
|
COLUMN 114, g_p_py_v using "###,###.##",
|
|
COLUMN 126, t_cantidad_pres using "###,###,###",
|
|
COLUMN 138, t_valor_pres using "###,###,###.##",
|
|
COLUMN 154, g_unidad_ant using "###,###,###",
|
|
COLUMN 168, g_valor_ant using "###,###,###.##",
|
|
negrillas_off
|
|
END IF
|
|
|
|
LET t_t_cantidad_pres = t_t_cantidad_pres + t_cantidad_pres
|
|
LET t_t_valor_pres = t_t_valor_pres + t_valor_pres
|
|
LET t_cantidad_pres = 0
|
|
LET t_valor_pres = 0
|
|
|
|
IF g_g_valor_vend is null THEN
|
|
LET g_g_cantidad_vend = 0
|
|
LET g_g_valor_vend = 0
|
|
LET g_g_unidad_acum = 0
|
|
LET g_g_valor_acum = 0
|
|
LET g_g_unidad_ant = 0
|
|
LET g_g_valor_ant = 0
|
|
END IF
|
|
|
|
LET g_g_p_b = g_g_p_b + g_p_b
|
|
LET g_g_p_b_v = g_g_p_b_v + g_p_b_v
|
|
LET g_g_p_py = g_g_p_py + g_p_py
|
|
LET g_g_p_py_v = g_g_p_py_v + g_p_py_v
|
|
|
|
LET g_g_unidad_acum = g_g_unidad_acum + g_unidad_acum
|
|
LET g_g_valor_acum = g_g_valor_acum + g_valor_acum
|
|
LET g_g_unidad_ant = g_g_unidad_ant + g_unidad_ant
|
|
LET g_g_valor_ant = g_g_valor_ant + g_valor_ant
|
|
|
|
LET g_p_b = 0
|
|
LET g_p_b_v = 0
|
|
LET g_p_py = 0
|
|
LET g_p_py_v = 0
|
|
|
|
LET g_cantidad_vend = 0
|
|
LET g_valor_vend = 0
|
|
LET g_unidad_acum = 0
|
|
LET g_valor_acum = 0
|
|
LET g_unidad_ant = 0
|
|
LET g_valor_ant = 0
|
|
SKIP 1 LINE
|
|
|
|
AFTER GROUP OF x.ventas
|
|
|
|
IF x.ventas = "1" THEN
|
|
LET nombre = "L O C A L"
|
|
ELSE
|
|
LET nombre = "E X P O R T A C I O N"
|
|
END IF
|
|
|
|
SKIP 1 LINE
|
|
LET g_g_p_b = 0
|
|
LET g_g_p_py = 0
|
|
LET g_g_p_b_v = 0
|
|
LET g_g_p_py_v = 0
|
|
|
|
IF t_t_cantidad_pres != 0 and g_g_unidad_acum != 0 THEN
|
|
LET g_g_p_b = ((g_g_unidad_acum / t_t_cantidad_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g_g_unidad_ant != 0 and g_g_unidad_ant != 0 THEN
|
|
LET g_g_p_py = ((g_g_unidad_acum / g_g_unidad_ant) - 1) * 100
|
|
END IF
|
|
|
|
IF t_t_valor_pres != 0 and g_g_valor_acum != 0 THEN
|
|
LET g_g_p_b_v = ((g_g_valor_acum / t_t_valor_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g_g_valor_ant != 0 and g_g_valor_acum != 0 THEN
|
|
LET g_g_p_py_v = ((g_g_valor_acum / g_g_valor_ant) - 1) * 100
|
|
END IF
|
|
|
|
PRINT COLUMN 7, negrillas_on,"TOTAL ",nombre clipped,
|
|
COLUMN 53, g_g_unidad_acum using "###,###,###",
|
|
COLUMN 64, g_g_p_b using "###,###.##",
|
|
COLUMN 75, g_g_p_py using "###,###.##",
|
|
COLUMN 87, g_g_valor_acum using "###,###,###.##",
|
|
COLUMN 103, g_g_p_b_v using "###,###.##",
|
|
COLUMN 114, g_g_p_py_v using "###,###.##",
|
|
COLUMN 126, t_t_cantidad_pres using "###,###,###",
|
|
COLUMN 138, t_t_valor_pres using "###,###,###.##",
|
|
COLUMN 154, g_g_unidad_ant using "###,###,###",
|
|
COLUMN 168, g_g_valor_ant using "###,###,###.##",
|
|
negrillas_off
|
|
|
|
|
|
LET t_t_t_cantidad_pres = t_t_t_cantidad_pres + t_t_cantidad_pres
|
|
LET t_t_t_valor_pres = t_t_t_valor_pres + t_t_valor_pres
|
|
|
|
LET t_t_cantidad_pres = 0
|
|
LET t_t_valor_pres = 0
|
|
|
|
IF g_g_g_valor_vend is null THEN
|
|
LET g_g_g_cantidad_vend = 0
|
|
LET g_g_g_valor_vend = 0
|
|
LET g_g_g_unidad_acum = 0
|
|
LET g_g_g_valor_acum = 0
|
|
LET g_g_g_unidad_ant = 0
|
|
LET g_g_g_valor_ant = 0
|
|
END IF
|
|
|
|
LET g_g_g_p_b = g_g_g_p_b + g_g_p_b
|
|
LET g_g_g_p_b_v = g_g_g_p_b_v + g_g_p_b_v
|
|
LET g_g_g_p_py = g_g_g_p_py + g_g_p_py
|
|
LET g_g_g_p_py_v = g_g_g_p_py_v + g_g_p_py_v
|
|
|
|
LET g_g_g_unidad_acum = g_g_g_unidad_acum + g_g_unidad_acum
|
|
LET g_g_g_valor_acum = g_g_g_valor_acum + g_g_valor_acum
|
|
LET g_g_g_unidad_ant = g_g_g_unidad_ant + g_g_unidad_ant
|
|
LET g_g_g_valor_ant = g_g_g_valor_ant + g_g_valor_ant
|
|
|
|
LET g_g_p_b = 0
|
|
LET g_g_p_b_v = 0
|
|
LET g_g_p_py = 0
|
|
LET g_g_p_py_v = 0
|
|
|
|
LET g_g_cantidad_vend = 0
|
|
LET g_g_valor_vend = 0
|
|
LET g_g_unidad_acum = 0
|
|
LET g_g_valor_acum = 0
|
|
LET g_g_unidad_ant = 0
|
|
LET g_g_valor_ant = 0
|
|
|
|
IF x.ventas = "1" THEN
|
|
SKIP TO TOP OF PAGE
|
|
END IF
|
|
|
|
ON LAST ROW
|
|
|
|
SKIP 1 LINE
|
|
IF t_t_t_cantidad_pres != 0 and g_g_g_unidad_acum != 0 THEN
|
|
LET g_g_g_p_b = ((g_g_g_unidad_acum / t_t_t_cantidad_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g_g_g_unidad_ant != 0 and g_g_g_unidad_acum != 0 THEN
|
|
LET g_g_g_p_py = ((g_g_g_unidad_acum / g_g_g_unidad_ant) - 1) * 100
|
|
END IF
|
|
|
|
IF t_t_t_valor_pres != 0 and g_g_g_valor_acum != 0 THEN
|
|
LET g_g_g_p_b_v = ((g_g_g_valor_acum / t_t_t_valor_pres) - 1) * 100
|
|
END IF
|
|
|
|
IF g_g_g_valor_ant != 0 and g_g_g_valor_acum != 0 THEN
|
|
LET g_g_g_p_py_v = ((g_g_g_valor_acum / g_g_g_valor_ant) - 1) * 100
|
|
END IF
|
|
|
|
PRINT COLUMN 7, negrillas_on,"TOTAL GENERAL ",
|
|
COLUMN 53, g_g_g_unidad_acum using "###,###,###",
|
|
COLUMN 64, g_g_g_p_b using "###,###.##",
|
|
COLUMN 75, g_g_g_p_py using "###,###.##",
|
|
COLUMN 87, g_g_g_valor_acum using "###,###,###.##",
|
|
COLUMN 103, g_g_g_p_b_v using "###,###.##",
|
|
COLUMN 114, g_g_g_p_py_v using "###,###.##",
|
|
COLUMN 126, t_t_t_cantidad_pres using "###,###,###",
|
|
COLUMN 138, t_t_t_valor_pres using "###,###,###.##",
|
|
COLUMN 154, g_g_g_unidad_ant using "###,###,###",
|
|
COLUMN 167, g_g_g_valor_ant using "###,###,###.##",
|
|
negrillas_off
|
|
|
|
LET t_t_t_cantidad_pres = 0
|
|
LET t_t_t_valor_pres = 0
|
|
LET g_g_g_cantidad_vend = 0
|
|
LET g_g_g_valor_vend = 0
|
|
LET g_g_g_unidad_acum = 0
|
|
LET g_g_g_valor_acum = 0
|
|
LET g_g_g_unidad_ant = 0
|
|
LET g_g_g_valor_ant = 0
|
|
|
|
LET g_g_g_p_b = 0
|
|
LET g_g_g_p_b_v = 0
|
|
LET g_g_g_p_py = 0
|
|
LET g_g_g_p_py_v = 0
|
|
PRINT comp_off
|
|
END REPORT
|
|
|
|
FUNCTION meses()
|
|
|
|
LET mes1[1] = "Enero"
|
|
LET mes1[2] = "Febrero"
|
|
LET mes1[3] = "Marzo"
|
|
LET mes1[4] = "Abril"
|
|
LET mes1[5] = "Mayo"
|
|
LET mes1[6] = "Junio"
|
|
LET mes1[7] = "Julio"
|
|
LET mes1[8] = "Agosto"
|
|
LET mes1[9] = "Septiembre"
|
|
LET mes1[10] = "Octubre"
|
|
LET mes1[11] = "Noviembre"
|
|
LET mes1[12] = "Diciembre"
|
|
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
|