preciso de um exemplo de impressão com dados estraidos de um selec na tabelas para passar
para o do report
eu utilizava dbf agora estou em mysql
harbour x minigui
Obs.: abaixo codigo
Grato,
jcsprog
*--------------------------------------------------------------*
Function Grid_Clientes()
*--------------------------------------------------------------*
Local oRow
Local i
Local oQuery
LOCAL nCounter:= 0
LOCAL oQueryUp
DELETE ITEM ALL FROM Browse_1 Of clien_2
oQuery := oServer:Query( "Select fanta,tel,descr From cliente ORDER BY FANTA" )
For i := 1 To oQuery:LastRec()
nCounter++
oRow := oQuery:GetRow(i)
ADD ITEM { oRow:fieldGet(1), oRow:fieldGet(2), oRow:fieldGet(3)} TO Browse_1 Of clien_2
oQuery:Skip(1)
Next
oQuery:Destroy()
clien_2.Browse_1.value:=1
clien_2.Browse_1.SetFocus
Return NIL
*------------------------------------------------------------------------------*
Procedure ImpriCLI
*------------------------------------------------------------------------------*
Local Reccli
Reccli := cli->(RecNo())
DO REPORT ;
TITLE 'CIEC Vidros e Espelhos Convexos Ltda';
HEADERS {'','','','',''} , {'Fantasia','Razao Social','Cidade','Uf','Contato'};
FIELDS {'cli->fanta','cli->descr','CLI->CIDADE','CLI->UF','CLI->NCONT'};
WIDTHS {20,30,20,5,20} ;
TOTALS {.F.,.F.,.F.,.F.,.F.} ;
WORKAREA cli ;
LPP 50 ;
CPL 80 ;
LMARGIN 5 ;
PREVIEW
cli->(DbGoTo(Reccli))
Return
Nota de Moderação:
