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