{ ------------------------------------------------------------------------------- PROGRAMA : VEPRRP013 OBJETIVO : Analisis de Ventas Comparativo en Unidades PROGRAMADOR : Lic. Abner Montalvo Zapata FECHA REALIZACION : Enero 20, 1993 ------------------------------------------------------------------------------- } GLOBALS "veprgb000.4gl" DEFINE idx_zona, idx_mes_actual, idx_mes_ant, idx_pres_mes, idx_pres_mes_a, idx_mes_ant_a, idx_mes_actual_a SMALLINT DEFINE salir_zona, salir_mes_actual, salir_mes_ant, salir_pres_mes, salir_pres_mes_a, salir_mes_ant_a,salir, salir_mes_actual_a CHAR(1) DEFINE select_mes_actual, select_mes_actual_a, select_vzonas, select_mes_ant, select_mes_ant_a, select_pres_mes, selec1,select_pres_mes_a CHAR(1000) DEFINE mes_actual RECORD zona CHAR(3), ano CHAR(4), mes SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, cant_act DECIMAL(14,2), cant_pres DECIMAL(14,2) END RECORD DEFINE captura RECORD ano INTEGER, mes INTEGER, ventas CHAR(1) END RECORD DEFINE registro RECORD cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT END RECORD DEFINE ano_act, mes_act, ano_ant CHAR(2) DEFINE mes_inicio CHAR(4) DEFINE desc_mes1,desc_mes2,mes_nombre CHAR(13) DEFINE zzona CHAR(3) FUNCTION veprrp013() # WHENEVER ERROR CONTINUE OPTIONS FORM LINE 8, ERROR LINE 23, COMMENT LINE 21, PROMPT LINE 14 OPEN FORM vefmrp013 FROM "vefmrp013" DISPLAY FORM vefmrp013 CALL pantalla() DISPLAY "veprrp013" AT 4,3 DISPLAY "Analisis de Ventas en Unidades" AT 6,25 LET tipo_papel = 1 CALL msgrp000(tipo_papel) INPUT BY NAME captura.* AFTER FIELD ano IF captura.ano is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD ano END IF AFTER FIELD mes IF captura.mes is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD mes END IF SELECT a.descrip INTO desc_mes1 FROM mestable a WHERE a.mes = 1 SELECT a.descrip INTO desc_mes2 FROM mestable a WHERE a.mes = captura.mes AFTER FIELD ventas IF captura.ventas is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD ventas END IF AFTER INPUT IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF IF captura.ano is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD ano END IF IF captura.mes is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD mes END IF IF captura.ventas is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD ventas END IF EXIT INPUT END INPUT IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF CONSTRUCT criterio ON b.zona FROM zona IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF LABEL pide: PROMPT "1- Unisys 1354 2- IBM PRO"C:\\archivo" " FOR tipo_imp IF tipo_imp != 1 AND tipo_imp != 2 THEN LET numero_msg = -1301 CALL msg(numero_msg) GOTO pide END IF # Busca las ventas reales del mes LET ano_act = captura.ano USING "&&&&" LET mes_act = captura.mes USING "&&" LET idx_zona = captura.mes LET idx_zona = idx_zona - 1 IF idx_zona = 0 THEN LET idx_zona = 99 END IF LET ano_ant = idx_zona using "&&" DECLARE busca CURSOR FOR SELECT UNIQUE c.cod_grupo,c.cod_tipo,c.cod_sec FROM iptb00002 c WHERE c.cod_n = 3 AND c.status_t IS NULL ORDER BY 1,2,3 OPEN busca LET select_mes_actual = "SELECT b.zona,e.ano,e.mes,c.cod_grupo,c.cod_tipo,c.cod_sec, ", " sum(c.cantidad) ", "FROM vetb00002 b, vetb00003 c, prdtable e ", "WHERE e.ano BETWEEN ?-1 AND ? and e.mes <= ? and c.cod_n = 3 AND ", " b.fecha_factura between e.fecha_inicio and e.fecha_corte and ", " b.factura = c.factura and b.ventas = ? and ",criterio clipped, " GROUP by 1,2,3,4,5,6 ORDER by 4,5,6,1,2,3 " DISPLAY "<< Buscando Informaciones del Mes del Ano Actual >>" AT 19,14 ATTRIBUTE (REVERSE) PREPARE busca_mes_actual FROM select_mes_actual DECLARE reg_mes_actual SCROLL CURSOR FOR busca_mes_actual OPEN reg_mes_actual USING captura.ano,captura.ano,captura.mes,captura.ventas IF tipo_imp = 2 THEN START REPORT reporte_13 TO "C:\\archivo" ELSE START REPORT reporte_13 TO PIPE "lp -dcentral" END IF DISPLAY "<< Reporte Generandose ... Espere Por Favor >>" AT 19,14 LET salir = "N" WHILE salir = "N" FETCH busca INTO registro.* IF STATUS = NOTFOUND THEN LET salir = "S" 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 = 1 LET salir_mes_actual = "N" WHILE salir_mes_actual = "N" FETCH ABSOLUTE idx reg_mes_actual INTO mes_actual.* IF STATUS = NOTFOUND THEN LET salir_mes_actual = "S" LET idx = 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 = idx + 1 IF registro.cod_grupo = mes_actual.cod_grupo AND registro.cod_tipo = mes_actual.cod_tipo AND registro.cod_sec = mes_actual.cod_sec THEN LET mes_actual.cant_pres = 0 SELECT SUM(a.cantidad*(b.porciento/100)) INTO mes_actual.cant_pres FROM vetb00017 a,vetb00016 b WHERE a.cod_n = 3 AND a.cod_grupo = mes_actual.cod_grupo AND a.cod_tipo=mes_actual.cod_tipo AND a.cod_sec=mes_actual.cod_sec AND a.cod_n = b.cod_n AND a.cod_grupo = b.cod_grupo AND a.cod_tipo = b.cod_tipo AND a.cod_sec = b.cod_sec AND a.ano=mes_actual.ano AND a.mes=b.mes AND a.mes=mes_actual.mes AND a.ventas = captura.ventas AND b.zona = mes_actual.zona IF mes_actual.cant_pres IS NULL THEN LET mes_actual.cant_pres = 0 END IF IF mes_actual.cant_act IS NULL THEN LET mes_actual.cant_act = 0 END IF OUTPUT TO REPORT reporte_13(mes_actual.*) END IF END WHILE END WHILE FINISH REPORT reporte_13 CLEAR SCREEN RUN "type C:\\archivo > %USPRINT%" END FUNCTION REPORT reporte_13(x) DEFINE x RECORD zona CHAR(3), ano CHAR(4), mes SMALLINT, cod_grupo SMALLINT, cod_tipo SMALLINT, cod_sec SMALLINT, cant_act DECIMAL(14,2), cant_pres DECIMAL(14,2) END RECORD DEFINE a SMALLINT DEFINE vendedor,imp,imp1 CHAR (1) DEFINE descrip_venta CHAR(22) DEFINE doble_on CHAR(3) DEFINE doble_off CHAR(3) DEFINE negrillas_on CHAR(6) DEFINE negrillas_off CHAR(6) DEFINE comp_on CHAR(3) DEFINE comp_off CHAR(3) DEFINE doce CHAR(6) DEFINE normal CHAR(6) DEFINE hora CHAR(5) DEFINE mes CHAR(15) OUTPUT TOP MARGIN 0 LEFT MARGIN 0 BOTTOM MARGIN 2 ORDER BY x.zona,x.ano,x.mes,x.cod_grupo,x.cod_tipo,x.cod_sec FORMAT PAGE HEADER IF tipo_imp = 2 THEN LET doble_on = ASCII 14 LET doble_off = ASCII 20 LET negrillas_on = ASCII 27, ASCII 69 LET negrillas_off = ASCII 27, ASCII 70 LET comp_on = ASCII 15 LET comp_off = ASCII 18 LET doce = ASCII 27, ASCII 77 LET normal = ASCII 27, ASCII 80 ELSE LET doble_on = ASCII 001 LET doble_off = ASCII 002 LET negrillas_on = ASCII 027, ASCII 098 LET negrillas_off = ASCII 027, ASCII 099 LET comp_on = ASCII 31 LET comp_off = ASCII 29 LET doce = ASCII 30 LET normal = ASCII 029 END IF LET hora = time LET lj = (126 - LENGTH(p_companias.nombre CLIPPED))/2 PRINT COLUMN 1, comp_on,negrillas_on PRINT COLUMN 1,"veprrp013", COLUMN lj, p_companias.nombre CLIPPED, COLUMN 119, "Pag. ",pageno using "###" PRINT COLUMN 40, " Sistema de Ventas ", COLUMN 119, today using "dd/mm/yy" PRINT COLUMN 40, " Analisis de Ventas en Unidades", COLUMN 122, hora PRINT COLUMN 1, negrillas_off # SKIP 1 LINE AFTER GROUP OF x.zona IF captura.ventas = "1" THEN SELECT descrip INTO descrip5 FROM vetb00008 WHERE cod_zona = x.zona ELSE SELECT nom_pais INTO descrip5 FROM cotb00018 WHERE cod_pais = x.zona END IF IF descrip5 IS NULL THEN LET descrip5 = "SIN DESCRIPCION" END IF PRINT COLUMN 3, negrillas_on IF captura.ventas = "1" THEN PRINT COLUMN 1, "ZONA : "; END IF IF captura.ventas = "2" THEN PRINT COLUMN 1, "PAIS : "; END IF PRINT COLUMN 8, descrip5 PRINT COLUMN 1, "MES : ", desc_mes2 CLIPPED, " DEl ",captura.ano USING "&&&&", negrillas_off PRINT COLUMN 1, "|", "----------------------------------------", "----------------------------------------", "----------------------------------------", "-----|" PRINT COLUMN 1, "|", COLUMN 19, "|", COLUMN 29, "*** HEAVY DUTY ***", COLUMN 55, "|", COLUMN 66, "*** SUPER CELL ***", COLUMN 91, "|", COLUMN 99, "*** EXTRA POWER ***", COLUMN 127, "|" PRINT COLUMN 1, "|", COLUMN 19, "|", COLUMN 20, "----------------------------------------", "----------------------------------------", "---------------------------|" PRINT COLUMN 1, "|", COLUMN 19, "|", COLUMN 25, "D", COLUMN 37, "C", COLUMN 49, "AA", COLUMN 55, "|", COLUMN 61, "D", COLUMN 73, "C", COLUMN 85, "AA", COLUMN 91, "|", COLUMN 97, "D", COLUMN 109, "C", COLUMN 121, "AA", COLUMN 127, "|" PRINT COLUMN 1, "|", "----------------------------------------", "----------------------------------------", "----------------------------------------", "-----|" PRINT COLUMN 1, "|PRESUPUESTO ", captura.ano USING "&&&&", COLUMN 19, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=1 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 31, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=2 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 43, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=3 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 55, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=1 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 67, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=2 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 79, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=3 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 91, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=1 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 103, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=2 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 115, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=3 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 127, "|" PRINT COLUMN 1, "|", COLUMN 19, "|", COLUMN 20, "----------------------------------------", "----------------------------------------", "---------------------------|" PRINT COLUMN 1, "|REALES ",captura.ano USING "&&&&", COLUMN 19, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 31, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 43, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 55, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 67, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 79, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 91, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 103, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 115, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes=captura.mes using "###,###,###", COLUMN 127, "|" PRINT COLUMN 1, "|", COLUMN 19, "|", COLUMN 20, "----------------------------------------", "----------------------------------------", "---------------------------|" PRINT COLUMN 1, "|REALES ",captura.ano-1 USING "&&&&", COLUMN 19, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 200 AND x.cod_sec<=299 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 31, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 200 AND x.cod_sec<=299 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 43, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 200 AND x.cod_sec<=299 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 55, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 100 AND x.cod_sec<=199 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 67, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 100 AND x.cod_sec<=199 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 79, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 100 AND x.cod_sec<=199 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 91, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 300 AND x.cod_sec<=399 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 103, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 300 AND x.cod_sec<=399 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 115, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 300 AND x.cod_sec<=399 AND x.ano=captura.ano-1 AND x.mes=captura.mes using "###,###,###", COLUMN 127, "|" PRINT COLUMN 1, "|", "----------------------------------------", "----------------------------------------", "----------------------------------------", "-----|" SKIP 1 LINE PRINT COLUMN 3, negrillas_on, "ACUMULADO MES : ", desc_mes1 CLIPPED,"-",desc_mes2 CLIPPED, " DEl ",captura.ano USING "&&&&", negrillas_off PRINT COLUMN 1, "|", "----------------------------------------", "----------------------------------------", "----------------------------------------", "-----|" PRINT COLUMN 1, "|PRESUPUESTO ", captura.ano USING "&&&&", COLUMN 19, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=1 AND x.cod_sec >= 200 AND x.cod_sec<=299 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 31, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=2 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 43, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=3 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 55, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=1 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 67, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=2 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 79, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=3 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 91, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=1 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 103, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=2 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 115, "|", GROUP SUM(x.cant_pres) WHERE x.cod_grupo=3 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 127, "|" PRINT COLUMN 1, "|", COLUMN 19, "|", COLUMN 20, "----------------------------------------", "----------------------------------------", "---------------------------|" PRINT COLUMN 1, "|REALES ",captura.ano USING "&&&&", COLUMN 19, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 31, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 43, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 200 AND x.cod_sec <= 299 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 55, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 67, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 79, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 100 AND x.cod_sec <= 199 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 91, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 103, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 115, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 300 AND x.cod_sec <= 399 AND x.ano=captura.ano AND x.mes<=captura.mes using "###,###,###", COLUMN 127, "|" PRINT COLUMN 1, "|", COLUMN 19, "|", COLUMN 20, "----------------------------------------", "----------------------------------------", "---------------------------|" PRINT COLUMN 1, "|REALES ",captura.ano-1 USING "&&&&", COLUMN 19, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 200 AND x.cod_sec<=299 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 31, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 200 AND x.cod_sec<=299 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 43, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 200 AND x.cod_sec<=299 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 55, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 100 AND x.cod_sec<=199 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 67, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 100 AND x.cod_sec<=199 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 79, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 100 AND x.cod_sec<=199 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 91, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=1 AND x.cod_sec >= 300 AND x.cod_sec<=399 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 103, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=2 AND x.cod_sec >= 300 AND x.cod_sec<=399 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 115, "|", GROUP SUM(x.cant_act) WHERE x.cod_grupo=3 AND x.cod_sec >= 300 AND x.cod_sec<=399 AND x.ano=captura.ano-1 AND x.mes<=captura.mes using "###,###,###", COLUMN 127, "|" PRINT COLUMN 1, "|", "----------------------------------------", "----------------------------------------", "----------------------------------------", "-----|" SKIP TO TOP OF PAGE ON LAST ROW PRINT comp_off END REPORT