Perguntas criando o primeiro relatório

Boa tarde a todos.
Estou aprendendo a liguagem ADVPL na unha e estou apanhando para criar um simples relatório.

Tenho isso aqui...


" #include "rwmake.ch"
#define PAPER_A4

user function relcli diego wigney

Private nTitulo := "Relatório de clientes"
Private nLin := 80
Private nCabec1 := "Nome do cliente Endereço do Cliente "
// xxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxx

If nLin > 55
nCabec(nTitulo,nCabec1)
nLin := 3
Endif

imprime := .T.
lAbortPrint := .T.
If lAbortPrint
@nLin,00 PSAY "*** CANCELADO PELO OPERADOR ***"
Endif

Private limite := 80
Private tamanho := "P"

wnrel := SetPrint(nTitulo,nCabec1,Tamanho,.T.)

SET DEVICE TO SCREEN

If aReturn := .T.
SET PRINTER TO
OurSpool(wnrel)
Endif "

Sei que esta faltando muito, mas eu preciso apenas lançar no relatório os clientes que tenho no banco de dados.

Sei que é o SA1 mas não estou conseguindo encontrar o parametro para lançar esta consulta do banco no relatório.


ME salvem!

Boa tarde, você pode fazer isto de várias formas, pode utilizar os comandos dbselec.., SQL, Embebed SQL e ai vai. Pelo que vi no seu fonte, falta bem coisa ai.
Já pensou em utilizar FWMSPrinter ou Embebed SQL?

Em anexo dois exemplos de relatorios, basta mudar as tabelas.

Diego boa tarde.

Para quem está aprendendo, recomendo também dar uma olhada no TMSPRINTER (Relatórios Gráficos).

Segue um exemplo em anexo onde o mesmo tem apenas três funções:

Execução do Relatório;
Cabeçalho;
Rodapé.

Segue exemplo em anexo.

Att.

Clístenis