xHarbour e FastReport

[asimoes]

Essa dll quando faz a impressão só permite 5 páginas por relatório:

[jairfab]

Isto acontece apenas como limitação da versão demo.
Na oficial imprime todas as paginas

[asimoes]

A questão é $$$ muito cara!
Pra mim não dá

[JoséQuintas]

Mas vocês tem certeza que precisam disso?

[fladimir]

Eu deixo com os Warnings... não sei resolver mas aki não afetou...

[]´s

[asimoes]

Quantos aos Warnings, eu consegui também testar o demo, agora o demo é uma versão trial da lib, só imprime 5 páginas e com mensagem nos relatórios.
Teria que comprar, esse é o problema, não tenho os euros pra bancar este investimento, então vou ficar com a solução "de grátis" feita por mim.

[NiltonGM]

Asimoes,

Vc já conseguiu a versão completa deste componente 'FastReport' ? Tudo que achei na web é para Borland Delphi 4, PascalScript, C++Script, BasicScript, JScript. Não tem ninguém no fórum que use essa biblioteca completa para Harbour/HMG?

[JoséQuintas]

Exatamente o que espera dela? Não serve criar seu próprio gerador?

Bom, um relatório é feito de colunas, com título, valor, formatação, tamanho, uma do lado da outra
*Criado durante o post, sem teste, só pra dar uma idéia.

Código: Selecionar todos

#define REL_TITULO 1
#define REL_CAMPO 2
#define REL_PICTURE 3
#define REL_TAMANHO 4
#define REL_TOTAL 5 

aColunas := { ;
   { "CODIGO", "CODCLI", "999999", 6, .F. }, ;
   { "NOME", "NOMCLI", "", 30, .F. }, ;
   { "ENDERECO", "ENDCLI", "", 30, .F. }, ;
   { "VALOR", "VALCLI", "@E 999,999,999.99", .T. }

aTotais := Array( Len( aColunas ) )
Afill( aTotais, 0 )

nPage := 0
nLin   := 99
DO WHILE ! Eof()
   IF nLin > 65
       @ 0, 0 SAY "RELATORIO"
       @ 1, 0 SAY ""
       FOR EACH oElement IN aColunas
         @ pRow(), pCol() + 2 SAY Padc( oElement[ REL_TITULO ], oElement[ REL_TAMANHO ] )
      NEXT
     @ 2, 0 SAY Replicate( "-", 132 )
      nLin := 4
   ENDIF
   @ nLin, 0 SAY ""
   FOR EACH oElement IN aColunas
      @ Prow(), pCol() + 2 SAY Pad( Transform( FieldGet( FIeldNum( oElement[ REL_CAMPO ] ) ), oElement[ REL_PICTURE ] ), oElement[ REL_TAMANHO ] )
      IF oElement[ REL_TOTAL ]
         aTotais[ oElement:__EnumIndex ] += FieldGet( FieldNum( oElement[ REL_CAMPO ] ) )
       ENDIF
   NEXT
   nLin += 1
   SKIP
ENDDO
@ nLin, 0 SAY ""
FOR EACH oElement IN aColunas
   IF oElement[ REL_TOTAL ]
      @ pRow(), pCol() + 2 SAY aTotais[ oElement:__EnumIndex ] PICTURE oElement[ REL_PICTURE ]
   ELSE
      @ PRow(), Pcol() + 2 SAY Space( oElement[ REL_TAMANHO ] )
   ENDIF
NEXT

Mesma configuração poderia ser usada pra PDF, XLS, etc.

[wmanesco]

Acredito que a grande vantagem do Fast é por que ele é muito robusto e completo. Cria relatórios de todos os tipos, inclusive gráficos e com uma interface bem agrádavel. Já vi utilização da lib completa em sistema utilizando harbour + fivewin.