Jump to content
Fivewin Brasil

Ajuda com Fastreport


Luiz Fernando

Recommended Posts

Ola... Boa noite

Não sei o que voce quer fazer, mais uso assim em alguns relatorios

 

VAR X_ACUMULADO, MEDIAESTIM, MEDIA : REAL;
    DATABASE_NAME : STRING;
    DIA_INICIO, MES_INICIO, ANO_INICIO, MES, ANO, MES_USA, I : INTEGER;
procedure DadosMestre1OnBeforePrint(Sender: TfrxComponent);
begin
  IF (APURACAO.EOF = FALSE) THEN BEGIN
     X_ACUMULADO    := X_ACUMULADO + <APURACAO."RECEITABRUTA">;
     Memo11.TEXT    := <APURACAO."MESMOVTO">;
     Memo12.TEXT    := FORMATFLOAT('#,##0.00', <APURACAO."RECEITABRUTA">);
     Memo13.TEXT    := FORMATFLOAT('#,##0.00', <APURACAO."PARCELADESONERADA">);
     Memo14.TEXT    := FORMATFLOAT('#,##0.00', <APURACAO."TRIBUTO1">);
     Memo15.TEXT    := FORMATFLOAT('#,##0.00', <APURACAO."TRIBUTO2">);
     Memo16.TEXT    := FORMATFLOAT('#,##0.00', <APURACAO."TRIBUTO3">);
     Memo23.TEXT    := FORMATFLOAT('#,##0.00', <APURACAO."ICMS_RECOLHER">);
     Memo22.TEXT    := FORMATFLOAT('#,##0.00', X_ACUMULADO);
  END
  ELSE BEGIN
     Memo11.TEXT    := '  /    ';
     Memo12.TEXT    := '';
     Memo13.TEXT    := '';
     Memo14.TEXT    := '';
     Memo15.TEXT    := '';
     Memo16.TEXT    := '';
     Memo23.TEXT    := '';
     Memo22.TEXT    := '';
  END;
  APURACAO.Next;
end;

 

Veja se ajuda.

Link to comment
Share on other sites

Ola Jackson, engraçado que meu fastreport não aceita este comando 

 IF (APURACAO.EOF = FALSE)

Vou explicar o que preciso aqui talvez algum colega tenha outra solução, tenho três tabelas VENDAS, PEDIDOS e PARCELA, preciso imprimir um extrato de cobrança para varios clientes de uma unica vez.ele precisa rodar todos itens(tabela pedido) somente depois disto rodar todas parcelas(tabela parcela), mais a cada a pedido ele mostra todas tabelas, por isto queria fazer uma comparação somente se final que satisfaça o GROUPHEADER imprimir as parcelas, conforme a imagem do link abaixo. 

https://uploaddeimagens.com.br/imagens/fivewin-png[/IMG]

https://uploaddeimagens.com.br/imagens/fivewin-png

Na imagem abaixo esta como esta saindo, observe que para cada pedido sai a relação de titulos a pagar, precisava que isto saisse um unica vez para cada cliente no final do extrato.

https://uploaddeimagens.com.br/imagens/imagem2-png--132

Obg

Link to comment
Share on other sites

Depois de 687 relatorio feito com fastreport , é a primeira situação que não consigo achar solução

TABELA  1) Masterdata       ( aqui é só cabeçalho imprime uma unica vez a cada cliente )   funcionando ok

TABELA  2) DetailData1      ( aqui roda todos itens comprado varios pedidos por cliente )  funcionando ok

depois disto, antes de rodar o próximo cliente, precisava rodar uma terceira TABELA que seria a contas pagar do cliente 

 

Link to comment
Share on other sites

 

Depois de 687 relatorio feito com fastreport , é a primeira situação que não consigo achar solução

TABELA  1) Masterdata       ( aqui é só cabeçalho imprime uma unica vez a cada cliente )   funcionando ok

TABELA  2) DetailData1      ( aqui roda todos itens comprado varios pedidos por cliente )  funcionando ok

depois disto, antes de rodar o próximo cliente, precisava rodar uma terceira TABELA que seria a contas pagar do cliente 

 

j atentou colocar a tabela de contas pagar cliente em um SubdetailData1 após detailData1 ?

 

Link to comment
Share on other sites

Pessoal depois de 10 dias consegui fazer o relatório , o segredo foi criar a 4 tabela(array) com os dados dos clientes que ira sair no extrato, desta forma o MASTERDATA sempre sera um único registro por cliente, agora é só acertar a estética do formulário. 

https://uploaddeimagens.com.br/imagens/fivewin3-png

Obrigado a todos.

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...