{ ------------------------------------------------------------------------------- PROGRAMA : IPPRRP011 OBJETIVO : Acumulado de los movimientos por productos PROGRAMADOR : Juan Fco. Soto FECHA REALIZACION : Abril 1997 DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO ------------------------------------------------------------------------------- } GLOBALS "ipprgb000.4gl" DEFINE pone_valor SMALLINT DEFINE nombre_valor,nombre_ve,nombre_v CHAR(20) DEFINE v_ventas,cod_cia CHAR(1) DEFINE p_ano CHAR(4), costo_inicial DEC(12,2), fecha_ini_per date MAIN DEFER INTERRUPT CALL STARTLOG("IPRP011.TXT") CALL ARG_VAL(1) RETURNING usuarios CALL ARG_VAL(2) RETURNING clave CALL ARG_VAL(3) RETURNING impresor CONNECT to "smarmotech" USER usuarios USING clave SELECT * INTO p_companias.* FROM companias CALL ipprrp011() END MAIN FUNCTION ipprrp011() DEFINE salir CHAR(1) DEFINE select_ac,select_ant,select_p CHAR(1000) DEFINE idx_ac,ano,idx_a,idx_c SMALLINT DEFINE fecha_2 CHAR(8) ####### Definicion de las variables del registro a imprimir ###### DEFINE acumulado RECORD producto CHAR(60), consumo DECIMAL(12,5), valor DECIMAL(12,2), cod_mov SMALLINT, descrip_mov LIKE iptb00005.descrip_mov, estado_mov CHAR(1), precio DECIMAL(12,4), codigo CHAR(7) END RECORD # WHENEVER ERROR CONTINUE OPTIONS FORM LINE 8, ERROR LINE 23, COMMENT LINE 21 ##### Abriendo el formulario ###### OPEN FORM ipfmrp011 FROM "ipfmrp011" DISPLAY FORM ipfmrp011 # CALL pantalla() DISPLAY "ipprrp011" AT 4,3 DISPLAY "Resumen Actividades del Mes" AT 6,26 LET tipo_papel = 1 CALL msgrp000(tipo_papel) ###### Aceptando los valores para la condicion de busqueda ##### INPUT BY NAME datos_cons.fech_in, datos_cons.fech_fi AFTER FIELD fech_in IF datos_cons.fech_in IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD fech_in END IF AFTER FIELD fech_fi IF datos_cons.fech_fi IS NULL THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD fech_fi END IF END INPUT LET p_ano = year(datos_cons.fech_fi) IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF ##### Valores para condicion de busqueda CONSTRUCT criterio ON c.cod_mov,c.cod_n,c.cod_grupo, c.cod_tipo,c.cod_sec FROM cod_mov,cod_n,cod_grupo, cod_tipo,cod_sec ##### Facilidad para cancelar los proceso presionando DELETE o SUPR IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF LET fecha_ini_per = datos_cons.fech_in -1 ####### Proceso para selecionar la informacion a imprimir SELECT SUM(a.cantidad_2*(b.material+b.labor+b.gastos)) INTO costo_inicial FROM iptb00006 a,iptb00004 b,iptb00002 c WHERE 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.cod_n = c.cod_n AND a.cod_grupo = c.cod_grupo AND a.cod_tipo = c.cod_tipo AND a.cod_Sec = c.cod_sec AND c.status_t IS NULL AND # c.control_existencia = 'SI' AND a.fecha <= fecha_ini_per AND b.ano = p_ano AND b.mes_fin = '12' AND a.status_t IS NULL LET select_ac = "SELECT ", " CAST(d.cod_cia AS CHAR(2))+ f.descripcion, sum(c.cantidad_2),SUM(c.cantidad_2*(e.material+e.labor+e.gastos)),b.cod_mov,b.descrip_mov,b.status_mov ", "FROM iptb00006 c,iptb00005 b,iptb00002 d,iptb00004 e,iptb00022 f ", "WHERE d.cod_cia = f.cod_cia AND c.cod_mov = b.cod_mov and (c.cod_n = d.cod_n and ", " c.cod_grupo = d.cod_grupo and c.cod_tipo = d.cod_tipo and ", " c.cod_sec = d.cod_sec) and ", " (c.cod_n = e.cod_n AND c.cod_grupo = e.cod_grupo AND c.cod_tipo = e.cod_tipo AND ", " c.cod_sec = e.cod_sec) AND e.ano = ",p_ano, " AND c.fecha between ? and ? and c.status_t is null and ", # " d.control_existencia = 'SI' AND ", criterio clipped," GROUP BY b.cod_mov,b.descrip_mov,b.status_mov,d.cod_cia,f.descripcion ", " ORDER BY d.cod_cia,b.status_mov " DISPLAY "<< Buscando Informacion... Espere Por Favor>>" AT 19,11 ATTRIBUTE (REVERSE,BOLD) PREPARE busca FROM select_ac DECLARE curs_b CURSOR FOR busca OPEN curs_b USING datos_cons.fech_in,datos_cons.fech_fi DISPLAY " " AT 19,8 DISPLAY "<< Reporte Generandose... Espere Por Favor>>" AT 19,11 ATTRIBUTE (REVERSE,BOLD) CALL selectoutput() RETURNING r_output CALL configureoutput(r_output) RETURNING handler START REPORT resumen TO XML HANDLER handler ###### Loop para enviar el registro de busqueda al registro de impresion FOREACH curs_b INTO acumulado.* ### Si no encuentra registro suspende el loop de impresion IF acumulado.precio is null THEN LET acumulado.precio = 0 END IF #### Selecionando los demas gastos en que se incurren en una factura # de importacion OUTPUT TO REPORT resumen (acumulado.*) END FOREACH FINISH REPORT resumen END FUNCTION ##### REPORTE ###### REPORT resumen(x) DEFINE x RECORD producto CHAR(60), consumo DECIMAL(12,5), valor DECIMAL(12,2), cod_mov SMALLINT, descrip_mov LIKE iptb00005.descrip_mov, estado_mov CHAR(1), precio DECIMAL(12,2), codigo CHAR(7) END RECORD DEFINE l SMALLINT DEFINE c_ano1 char(4) 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(2) DEFINE doce CHAR(3) DEFINE normal CHAR(2) DEFINE hora CHAR(5) DEFINE total_p,total_c DECIMAL(12,2) DEFINE primera CHAR(1) OUTPUT TOP MARGIN 0 LEFT MARGIN 0 BOTTOM MARGIN 0 RIGHT MARGIN 0 PAGE LENGTH 100 ###### Realizando el diseno del reporte FORMAT FIRST PAGE HEADER #### Igulando las variable a los efectos de impresion { LET doble_on = ASCII 14 LET doble_off = ASCII 002 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 30 LET normal = ASCII 27, ASCII 80} LET hora = time LET l = (136 - LENGTH(p_companias.nombre CLIPPED))/2 ##### Proceso de impresion del encabezado PRINT COLUMN 1, comp_on PRINT COLUMN 1, "ipprrp011", COLUMN l, p_companias.nombre CLIPPED, COLUMN 129, "Pag. ",pageno using "###" PRINT COLUMN 51, "Sistema de Inventario de Productos", COLUMN 129, today using "dd/mm/yyyy" PRINT COLUMN 51, " Resumen Actividades del Mes", COLUMN 132, hora SKIP 1 LINES PRINT COLUMN 2, "Desde ",datos_cons.fech_in using "dd/mm/yyyy", COLUMN 21, "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy" PRINT COLUMN 1, "COMPANIA: ",nombre_v, 2 spaces, "OPERACION: ",nombre_ve, 2 spaces, "VALORIZACION: ",nombre_valor PRINT COLUMN 1, "--------------------------------------------------", "--------------------------------------------------", "-----------------------------------" PRINT COLUMN 1, "Producto", COLUMN 52, "Cantidad", COLUMN 86, "Valor", COLUMN 115,"Total" PRINT COLUMN 1, "--------------------------------------------------", "--------------------------------------------------", "-----------------------------------" SKIP 1 LINE PRINT "INVENTARIO INICIAL AL ",datos_cons.fech_in-1 USING "dd/mm/yyyy"," ",costo_inicial USING "----,---,---,-##.##" LET total_p = costo_inicial SKIP 2 LINES BEFORE GROUP OF x.producto LET total_C = 0 ON EVERY ROW LET total_c = total_c + x.valor LET total_p =total_p + x.valor PRINT COLUMN 10 , x.cod_mov USING "&&"," ",x.descrip_mov CLIPPED, COLUMN 54 , x.consumo USING "---,---,-##.###", COLUMN 84, x.valor USING "--,---,---,-##.##", 2 SPACES, total_p USING "---,---,---,-##.##" SKIP 1 LINE AFTER GROUP OF x.producto PRINT COLUMN 87, "=============" PRINT COLUMN 10, "TOTAL ",x.producto CLIPPED, COLUMN 87, total_c USING "---,---,---.##" SKIP 1 LINE ON LAST ROW ##### Impresion del total general PRINT COLUMN 92, "----------", 6 spaces, "-------------" PRINT COLUMN 10, "TOTALES : ", COLUMN 84, SUM(x.valor) using "-,---,---,-##.###", 4 spaces,total_p using "---,---,---,-##.##" PRINT COLUMN 92, "==========", 6 spaces, "=============" PRINT COLUMN 1, comp_off END REPORT