Luiz Fernando Posted October 6, 2017 Report Share Posted October 6, 2017 Pessoal sera que tem como dentro do código do MASTERDATA saber se é o ultimo registro procedure DetailData2OnBeforePrint(Sender: TfrxComponent); begin if (é ultimo registro) then cControle:='2' end; Obg Quote Link to comment Share on other sites More sharing options...
evandro Posted October 7, 2017 Report Share Posted October 7, 2017 Olá, Com o OnAfterPrint não resolve? Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 7, 2017 Author Report Share Posted October 7, 2017 Olá, Com o OnAfterPrint não resolve? Ola Evandro, ele passa por esta opção a cada registro, eu precisava de uma comparação somente no ulltimo registro. Obg Quote Link to comment Share on other sites More sharing options...
miragerr Posted October 9, 2017 Report Share Posted October 9, 2017 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. Theotokos 1 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 9, 2017 Author Report Share Posted October 9, 2017 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 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 10, 2017 Author Report Share Posted October 10, 2017 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 Quote Link to comment Share on other sites More sharing options...
miragerr Posted October 11, 2017 Report Share Posted October 11, 2017 Ola amigo, boa noite Creio que nesta situação você pode usar um SUB-REPORT, se voce tem o FR3 da NFe, verá que lá tem um SUB-RELATORIO para as DUPLICATAS/FATURAS que só imprime se existir dados, com certeza ira lhe ajudar. Quote Link to comment Share on other sites More sharing options...
Theotokos Posted October 11, 2017 Report Share Posted October 11, 2017 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 ? Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 11, 2017 Author Report Share Posted October 11, 2017 j atentou colocar a tabela de contas pagar cliente em um SubdetailData1 após detailData1 ? Ola Rone, já tentei sim, fazendo desta forma bagunça mais ainda, pq dai cada item do pedido exibe todas parcelas. Obg Luiz Fernando Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted October 15, 2017 Author Report Share Posted October 15, 2017 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. Quote Link to comment Share on other sites More sharing options...
fladimir Posted October 16, 2017 Report Share Posted October 16, 2017 Parabéns e obrigado por compartilhar Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.