Página 4 de 4
xHarbour e FastReport
Enviado: 16 Jul 2016 17:41
por asimoes
Essa dll quando faz a impressão só permite 5 páginas por relatório:
xHarbour e FastReport
Enviado: 16 Jul 2016 18:48
por jairfab
Isto acontece apenas como limitação da versão demo.
Na oficial imprime todas as paginas
xHarbour e FastReport
Enviado: 16 Jul 2016 18:50
por asimoes
A questão é $$$ muito cara!
Pra mim não dá
xHarbour e FastReport
Enviado: 17 Jul 2016 18:51
por JoséQuintas
Mas vocês tem certeza que precisam disso?
xHarbour e FastReport
Enviado: 17 Jul 2016 22:15
por fladimir
Eu deixo com os Warnings... não sei resolver mas aki não afetou...
[]´s
xHarbour e FastReport
Enviado: 18 Jul 2016 07:52
por 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.
xHarbour e FastReport
Enviado: 21 Out 2016 12:52
por 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?
xHarbour e FastReport
Enviado: 21 Out 2016 13:25
por 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.
xHarbour e FastReport
Enviado: 21 Out 2016 23:55
por 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.