Files
MBS/PROYECTO/tedirbk/tedir/comision.ace
T

61 lines
1.8 KiB
Plaintext

database rayovac@demo_se end
DEFINE VARIABLE negrillas_on CHAR(2)
VARIABLE negrillas_off CHAR(2)
END
OUTPUT REPORT TO "jh" END
SELECT
a.sec_vend,
a.cod_n,
a.cod_grupo,
a.cod_tipo,
a.cod_sec,
a.porc_ventas,
a.porc_cobros,
b.nom1_emp,
b.apell1_emp,
c.descrip_esp
FROM cctb00008 a,adtb00003 b,intb00001 c
WHERE a.sec_vend = b.num_emp AND (b.status_t IS NULL OR b.status_t = "I") 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
ORDER BY 1,2,3,4,5
END
FORMAT
PAGE HEADER
LET negrillas_on = ASCII 27, ASCII 69
LET negrillas_off = ASCII 27, ASCII 70
PRINT COLUMN 1, "comision.ace",
COLUMN 19, "R A Y .O. V A C D O M I N I C A N A, S. A.",
COLUMN 70, "Pag. ",pageno USING "<<<"
PRINT COLUMN 19, " VALIDACION COMISIONES",
COLUMN 70, TODAY USING "DD/MM/YY"
PRINT COLUMN 70, TIME
SKIP 1 LINE
PRINT "----------------------------------------------------------------",
"------------------------------"
PRINT COLUMN 40, "PORCENTAJE",
COLUMN 60, "PORCENTAJE"
PRINT COLUMN 1, "ARTICULOS",
COLUMN 40, "VENTAS",
COLUMN 60, "COBROS"
PRINT "----------------------------------------------------------------",
"------------------------------"
BEFORE GROUP OF 1
PRINT negrillas_on
PRINT "VENDEDOR:",sec_vend using "<<<"," ",nom1_emp CLIPPED," ",apell1_emp
PRINT negrillas_off
ON EVERY ROW
PRINT COLUMN 1,cod_n USING "&","-",cod_grupo USING "&","-",cod_tipo USING "&&",
"-",cod_sec USING "&&&"," ",descrip_esp,
COLUMN 40,porc_ventas USING "###.####",
COLUMN 60,porc_cobros USING "###.####"
AFTER GROUP OF 2
PRINT "----------------------------------------------------------------",
"------------------------------"
END