Files
MBS/PROYECTO/ctdir/ctprrp032.ace
T

56 lines
1.5 KiB
Plaintext

database marmotech end
output report to printer end
select a.cod_prod,
a.cod_n,
a.cod_grupo,
a.cod_tipo,
a.cod_sec,
a.cantidad,
b.unidad_med usm,
b.descripcion,
c.unidad_med ump,
c.descrip_esp
from cttb00011 a,cttb00001 b,intb00001 c
where a.cod_prod = b.cod_prod 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
b.status_t is null
order by 1
end
FORMAT
PAGE HEADER
PRINT COLUMN 1, "ctprrp032.ace",
COLUMN 20, " M A R M O T E C H, S. A.",
COLUMN 70, "Pag. ",pageno USING "<<<"
PRINT COLUMN 20, "FORMULACION SEMI-ELABORADOS",
COLUMN 70, TODAY USING "DD/MM/YYYY"
SKIP 1 LINE
BEFORE GROUP OF 1
PRINT COLUMN 1,"SEMI-ELABORADO: ",cod_prod USING "####"," ",descripcion," ",
usm
PRINT COLUMN 1, "========================================================",
"====================="
PRINT COLUMN 3, "MATERIALES",
COLUMN 75, "CANTIDAD"
PRINT COLUMN 1, "========================================================",
"====================="
SKIP 1 LINE
ON EVERY ROW
PRINT COLUMN 3, cod_n USING "&","-",
cod_grupo USING "&","-",
cod_tipo USING "&&","-",
cod_sec USING "&&&"," ",
descrip_esp," ",ump,
COLUMN 70, cantidad USING "#,###.####"
AFTER GROUP OF 1
SKIP 1 LINE
END