Começa a integrar com HTML seu sistema. Faz algum relatório.
cArq := CriaArqImpressao('estoque001.html')
? '<html><head>'
? '</head><title>ESTOQUE POR GRUPO</title>'
?? '<meta http-equiv = "Content-Type" content="text/html; charset=iso-8859-1">'
? '<STYLE type=text/css>'
? 'table,th,td{'
? ' FONT: 8pt "Courier New";'
? ' border:none ' //1px solid #888;'
? ' border-collapse:collapse;'
? ' color:#000000;'
? '}'
? '<font face="Arial" size=3 color=#000000><b>'+em->empresa+'</b></Font>'
? '<br><font size=3> Estoque Por Ordem De Grupo </font>'
? '<br>'+trim(cidade_)+' '+str(day(date()),2)+" de "+cmonth(date())+' de '+str(year(date()),4)+' '+ampm(time())
? '<table border="0" bgcolor=#000000 cellpadding=1 cellspacing="1">'
? '<tr bgcolor="#FFCCCC"><td colspan=5 align=center> Grupo: '+eq->cod_grupo+' Grupo Não Localizado'+'</tr>'
? '<tr bgcolor="#FFCCCC">'
?? '<td> Referência'
?? '<td> Mercadoria'
?? '<td> Quantidade'
?? '<td> A Vista'
?? '<td> A Prazo </tr>'
Do while !eq->(eof())
? '<tr bgcolor="#FFFFCC"><td>'+eq->cod_mercad
?? '<td>'+pad(eq->mercadoria,30)
?? '<td align=right>'+transform(eq->quantidade,PictQuan())
?? '<td align=right>'+transform(eq->avista,'@E 99,999,999.99')
?? '<td align=right>'+transform(eq->prazo,'@E 99,999,999.99')+'</tr>'
eq->(dbskip())
enddo
FecharImpres()
eq->(dbgotop())
hwg_Shellexecute(cArq,"open",nil,cDirSist,1)
return nil
*******************************
Function CriaArqImpressao(cArq)
*******************************
*
*
IF File(cArq)
DO WHILE !Empty(fErase(cArq))
hwg_msgyesno("Falha apagando o arquivo: "+cArq)
ENDDO
ENDIF
set printer to &cArq
set print on
set console off
set Printer on
Return cArq
*********************
Function FecharImpres
*********************
*
*
set margin to 0
set print off
set printer to
set console on
set Printer off
return .t.
Com HTML vc pode até simular o velho relatório da época do clipper usando a fonte COURIER 8 80,132 colunas.
Isso na tela! e impresso também.
Destrava ai o pensamento, com HTML vc tem TODAS as possibilidades de tamanho, fonte, cores, "designer" sem limites. Nos relatórios e não ficará velho os comandos, não tem como HTML deixar de existir.
Saudações,
Itamar M. Lins Jr.