Gerara relatorio apartir de um Selec

jcsprog · Mensagem por **jcsprog** » 03 Mai 2013 16:54

Ola pessoal

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

Código: Selecionar todos

*--------------------------------------------------------------*
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