Fastreport para xHarbour

[Edu]

Boa tarde amigos!

Quero implementar o FastReport para gerar relatórios.

Aguém teria um exemplo simples de como utilizar o FastReport com xHarbour para impressão de um array?

Obrigado!

[alexavel]

Uma forma bem simples e automática de fazer isso amigo

// INICIO DO RELATÓRIO

oFrPrn := frReportManager():new()

oFrPrn:SetIcon(1) //ícone da janela do FRH

oFrPrn:SetTitle( cTitulo ) //título da janela do FRH

oFrPrn:SetTitle( cTipo ) //título da janela do FRH

oFrPrn:SetTitle( cUSUARIO ) //título da janela do FRH

oFrPrn:SetTitle( cImagem1 ) //título da janela do FRH

oFrPrn:LoadLangRes( 'brazil.xml') //arquivo de idioma

// BASE DE DADOS PRINCIPAL COM ARRAY

FOR nI:=1 To Len(aCabec)

cCabec+=aCabec[nI]+IF(nI==Len(aCabec),'',';')

cIFF +="IIF( aField == '"+aCabec[nI]+"',"+str(nI)+","+IF(nI<>Len(aCabec),"",REPLICATE(')', Len(aCabec) ) )

Next

oFrPrn:SetUserDataSet( "TMP_ABASTECE",cCabec,;

{||np := 1}, ; //--> bGoTop

{||np := np + 1}, ; //--> bSkipPlus

{||np := np - 1}, ; //--> bSkipMinus

{||np > Len(TMP_ABASTECE)}, ; //--> bCheckEOF

{|aField|nCol := &cIFF,;

TMP_ABASTECE[np, nCol] } )

oFrPrn:LoadFromFile(RepDir+"R_ABT_001.FR3") // para leitura direta de arquivo FR3

oFrPrn:PreviewOptions:SetAllowEdit( .f. ) // inibe o botão de edição do relatório pelo usuário

IF lDesig

oFrPrn:DesignReport()

oFrPrn:ShowReport()

ELSE

oFrPrn:ShowReport() // aqui para gerar o preview do relatório.

ENDIF

oFrPrn:DestroyFR()

qualquer dúvida meu Skype alessandroavel@ibest.com.br

[Edu]

Obrigado pela ajuda Alexandre!

Só tem um problema, quando eu executo o sistema simplismente fecha e não gera nenhum erro.

Pode explicar isso?

kkk

Abs.

[SISCO]

estou tentando gerar um relatório com dbf, consigo configurar todo os campos no fastreport, mas na hora de imprimir o relatório sai em branco, acredito que ele esteja indo pro final do arquivo, como faço ele ir pro inicio

[Edu]

alexavel,

Consegui abrir o fastreport manager, porém não estou conseguindo exibir os campos do vetor. Poderia explicar este último parâmetro do método: SetUserDataSet() ??

Grato.