by Kleyber » Wed Apr 12, 2006 2:57 pm
Goosfancito,
DEFINE FONT oFont1 NAME "Courier New" SIZE 0,-10
DEFINE FONT oFont2 NAME "Arial" SIZE 0,-12 BOLD
DEFINE FONT oFont3 NAME "Courier New" SIZE 0,-10
REPORT oReport NAME "Relatório Geral do Estoque" ;
TITLE cEmpres,;
"Relatório Geral do Estoque",;
"",;
"" ;
FONT oFont1,;
oFont2,;
oFont3 ;
PEN oPen1,;
oPen2 ;
HEADER "Página.: "+str(oReport:nPage,3), ;
"Data: "+dtoc(date()), ;
"Hora: "+time() RIGHT ;
PREVIEW
.....
.....
GROUP ON left(PRO->codi,2) ;
HEADER "Grupo..: "+GRU->codg+" - "+GRU->nome ;
FOOTER "Total..: "+str(oReport:aGroups[1]:nCounter) ;
FONT 2
Saludos,