{ ------------------------------------------------------------------------------- PROGRAMA : VEPRRP042 OBJETIVO : Ventas Por Productos PROGRAMADOR : Ing. Juan F. Soto FECHA REALIZACION : Febrero 12, 1998. ------------------------------------------------------------------------------- } GLOBALS "veprgb000.4gl" DEFINE nom_cli CHAR(30) DEFINE fecha_inicial,fecha_final DATE FUNCTION veprrp042() DEFINE p_costo DECIMAL(12,3) DEFINE ventas RECORD sec_vend SMALLINT, monto_desc DECIMAL(10,2), cod_n LIKE vetb00003.cod_n, cod_grupo LIKE vetb00003.cod_n, cod_tipo LIKE vetb00003.cod_n, cod_sec LIKE vetb00003.cod_n, Bruto LIKE vetb00002.sub_total, neto,bruto,vcosto,descuento DECIMAL(12,2), vendedor SMALLINT END RECORD OPTIONS FORM LINE 8, ERROR LINE 23, COMMENT LINE 21 OPEN FORM vefmrp042 FROM "vefmrp042" DISPLAY FORM vefmrp042 CALL pantalla() DISPLAY "veprrp042" AT 4,3 DISPLAY "Ventas Por Productos" AT 6,30 LET tipo_papel = 1 CALL msgrp000(tipo_papel) INPUT BY NAME fecha_inicial,fecha_final BEFORE FIELD fecha_final LET fecha_final = today AFTER FIELD fecha_final IF fecha_final is null THEN LET numero_msg = 16 CALL msg(numero_msg) NEXT FIELD fecha_final END IF 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 criterio ON a.sec_vend,b.cod_n,b.cod_grupo,b.cod_tipo, b.cod_sec IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF # Busca las ventas locales para el rango de fechas especificado LET selec = "SELECT a.sec_vend,", " SUM(b.cantidad*b.precio*.a.porc_desc) ", " b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,SUM(b.cantidad*b.precio) ", " FROM vetb00002 a,vetb00003 b ", " WHERE a.factura = b.factura AND ",criterio CLIPPED," AND ", " a.fecha_factura BETWEEN '",fecha_inicial,"' "," AND '", fecha_final,"' "," AND a.status_t IS NULL GROUP BY 1,2,3,5,6,7,8", " ORDER BY 1,2,3,5,6,7,8 " DISPLAY "<< Buscando Informacion ... Espere Por Favor. >>" AT 19,14 ATTRIBUTE (REVERSE,BOLD) PREPARE comando FROM selec DECLARE facturas CURSOR FOR comando DISPLAY " " AT 20,14 START REPORT ventas_p TO "C:\\archivo" DISPLAY " " AT 19,14 DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>" AT 19,14 ATTRIBUTE (REVERSE) FOREACH facturas INTO ventas.* IF int_flag THEN LET numero_msg = 2 CALL msg(numero_msg) LET int_flag = false RETURN END IF IF ventas.sec_vend = 144 THEN LET ventas.vendedor = 1 ELSE LET ventas.vendedor = 2 END IF OUTPUT TO REPORT ventas_p(ventas.*) END FOREACH FINISH REPORT ventas_p CLEAR SCREEN RUN "type C:\\archivo > %USPRINT%" END FUNCTION REPORT ventas_p(x) END RECORD DEFINE x RECORD sec_vend SMALLINT, monto_desc DECIMAL(10,2), cod_n LIKE vetb00003.cod_n, cod_grupo LIKE vetb00003.cod_n, cod_tipo LIKE vetb00003.cod_n, cod_sec LIKE vetb00003.cod_n, Bruto LIKE vetb00002.sub_total, neto,bruto,vcosto,descuento DECIMAL(12,2), vendedor SMALLINT END RECORD, nombre,apellido CHAR(20) DEFINE doble_on CHAR(2) DEFINE doble_off CHAR(2) DEFINE negrillas_on CHAR(2) DEFINE negrillas_off CHAR(2) DEFINE comp_on CHAR(2) DEFINE comp_off CHAR(2) DEFINE doce CHAR(2) DEFINE normal CHAR(2) DEFINE normall CHAR(3) DEFINE comprimido CHAR(3) DEFINE hora CHAR(5) OUTPUT TOP MARGIN 0 LEFT MARGIN 0 BOTTOM MARGIN 2 ORDER BY x.sec_vend,x.codigo,x.codigo1 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 70 LET comp_on = ASCII 15 LET comp_off = ASCII 18 LET doce = ASCII 27, ASCII 77 LET normal = ASCII 27, ASCII 80 LET normall = ASCII 030 LET hora = time LET lj = (155 - LENGTH(p_companias.nombre CLIPPED))/2 PRINT COLUMN 1, doce,comp_on PRINT COLUMN 1, "veprrp042", COLUMN lj, p_companias.nombre CLIPPED, COLUMN 148, "Pag. ",pageno using "###" PRINT COLUMN 69, "Sistema de Ventas", COLUMN 146, today using "dd/mm/yyyy" LET lj = (155 - LENGTH("Ventas Por Productos"))/2 PRINT COLUMN l, "Ventas Por Productos", COLUMN 151, hora PRINT COLUMN 1, "Del ", fecha_inicial USING "dd/mm/yy"," Al ", fecha_final using "dd/mm/yy" PRINT COLUMN 1, "--------------------------------------------------", "--------------------------------------------------", "--------------------------------------------------------" PRINT COLUMN 1, "Producto", COLUMN 58, "Bruto", COLUMN 68, "Descuento", COLUMN 81, "ITBI", COLUMN 126, "NETO " PRINT COLUMN 1, "--------------------------------------------------", "--------------------------------------------------" , "--------------------------------------------------------" # , negrillas_off BEFORE GROUP OF x.vendedor SKIP 1 LINE IF x.vendedor = 1 THEN PRINT COLUMN 1,doble_on,negrillas_on,"SAN CRISTOBAL", negrillas_off ELSE PRINT COLUMN 1,doble_on,negrillas_on,"SANTO DOMINGO", negrillas_off END IF SKIP 1 LINE BEFORE GROUP OF x.codigo SELECT a.nombre INTO nom_cli FROM vetb00004 a WHERE a.tipo_cliente=x.tipo_cliente and a.sec_cliente=x.sec_cliente and a.status_t is null IF STATUS = NOTFOUND THEN LET STATUS = 0 END IF IF nom_cli IS NULL THEN LET nom_cli = "Cliente no existe. Verifique" END IF PRINT COLUMN 1, negrillas_on,"Cliente: ","(",x.tipo_cliente USING "&&","-", x.sec_cliente USING "&&&&",")",nom_cli,negrillas_off SKIP 1 LINE ON EVERY ROW SELECT a.descrip_esp INTO descripcion FROM iptb00002 a WHERE a.cod_n = x.cod_n AND a.cod_grupo = x.cod_grupo AND a.cod_tipo = x.cod_tipo AND a.cod_sec = x.cod_sec PRINT COLUMN 1, x.cod_n USING "&","-",x.cod_grupo USING "&","-", x.cod_tipo USING "&&","-",x.cod_sec USING "&&&", " ",descripcion[1,30], COLUMN 45, x.cantidad USING "##,##.###", COLUMN 55, x.precio using "##,###.##", COLUMN 65, x.bruto using "##,###,###.##", COLUMN 80, x.descuento using "###,###.##", COLUMN 92, x.neto using "##,###,###.##", COLUMN 106, x.costo using "##,###.##", COLUMN 122, x.vcosto using "###,###.##", COLUMN 143, x.neto - x.vcosto using "###,###,###.##" AFTER GROUP OF x.sec_vend SKIP 1 LINE PRINT COLUMN 1, negrillas_on, COLUMN 33, "Total Vendedor ---> ", COLUMN 65, GROUP SUM(x.bruto) using "##,###,###.##", COLUMN 79, GROUP SUM(x.descuento) using "#,###,###.##", COLUMN 92, GROUP SUM(x.neto) using "##,###,###.##", COLUMN 106, GROUP SUM(x.costo) using "###,###.##", COLUMN 120, GROUP SUM(x.vcosto) using "#,###,###.##", COLUMN 143, GROUP SUM(x.neto-x.vcosto) using "###,###,###.##" PRINT negrillas_off ON LAST ROW PRINT COLUMN 1, "--------------------------------------------------", "--------------------------------------------------" , "--------------------------------------------------------" PRINT COLUMN 33, "Total General Ventas ---> ", COLUMN 65, SUM(x.bruto) using "##,###,###.##", COLUMN 79, SUM(x.descuento) using "#,###,###.##", COLUMN 92, SUM(x.neto) using "##,###,###.##", COLUMN 106, SUM(x.costo) using "###,###.##", COLUMN 120, SUM(x.vcosto) using "#,###,###.##", COLUMN 143, SUM(x.neto - x.vcosto) using "###,###,###.##" PRINT normall END REPORT