36 lines
1.1 KiB
Plaintext
36 lines
1.1 KiB
Plaintext
database marmotech end
|
|
define variable fecha date end
|
|
input
|
|
prompt for fecha using "Entre Fecha: " end
|
|
output report to printer
|
|
left margin 0
|
|
end
|
|
|
|
select cod_prod,
|
|
descripcion,
|
|
unidad_med
|
|
from cttb00001 where status_t is null order by 1 end
|
|
|
|
format
|
|
PAGE HEADER
|
|
PRINT COLUMN 1, "ctprrp031.ace",
|
|
COLUMN 20, " M A R M O T E C H, S. A.",
|
|
COLUMN 70, "Pag. ",pageno USING "<<<"
|
|
PRINT COLUMN 20, "CONTEO FISICO SEMI-ELABORADOS",
|
|
COLUMN 70, TODAY USING "DD/MM/YYYY"
|
|
PRINT COLUMN 20, " AL ",fecha USING "dd/mm/yyy"
|
|
SKIP 1 LINE
|
|
PRINT COLUMN 1, "====================================================",
|
|
"================================="
|
|
PRINT COLUMN 1,"SEMI-ELABORADOS",
|
|
COLUMN 70, "CONTEO"
|
|
PRINT COLUMN 1, "====================================================",
|
|
"================================="
|
|
ON EVERY ROW
|
|
PRINT COLUMN 1, cod_prod USING "####",
|
|
COLUMN 10,descripcion," ",unidad_med,
|
|
COLUMN 70,"______________"
|
|
SKIP 1 LINE
|
|
END
|
|
|