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