- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Totalizador TReport
×
Linguagem de Programação ADVPL
Perguntas Totalizador TReport
- marcomorati
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25155
por marcomorati
Totalizador TReport foi criado por marcomorati
Prezados, Boa tarde,
Depois de inúmeras tentativas e solicitações de ajudas(inclusive de membros do fórum), eu não estou conseguindo exibir os totalizadores no TReport, já li vários assuntos a respeito, porém, sem sucesso, caso alguém possa me ajudar.
Estou anexando o código-fonte, como ele é tirado hoje e como o cliente deseja.
Depois de inúmeras tentativas e solicitações de ajudas(inclusive de membros do fórum), eu não estou conseguindo exibir os totalizadores no TReport, já li vários assuntos a respeito, porém, sem sucesso, caso alguém possa me ajudar.
Estou anexando o código-fonte, como ele é tirado hoje e como o cliente deseja.
Por favor Acessar ou Registrar para participar da conversa.
- RodrigoCesar
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 3
- Obrigados Recebidos: 0
10 anos 2 meses atrás - 10 anos 2 meses atrás #25158
por RodrigoCesar
Respondido por RodrigoCesar no tópico Totalizador TReport
Opa, usei isso num fonte parecido com o seu, veja se ajuda (isso é antes do return do Static Function ReportDef() ):
oBreak := TRBreak():New(oSection1,oSection1:Cell("AFU_DATA"),"Total da Data") //TRBreak() Faz a quebra por AFU_DATA
//oBreak := TRBreak():New(oSection1,oSection1:Cell("AF8_DESCRI"),"Total do Projeto") //TRBreak() Faz a quebra por AFU_PROJET
TRFunction():New(oSection1:Cell("AFU_HQUANT"),"AFU_HQUANT" ,"SUM",oBreak,,PesqPict("AFU", "AFU_HQUANT"),,.T.,.F.) //Função de totalizador dentro do oBreak
TRFunction():New(oSection1:Cell("AFU_DATA"),"AFU_DATA" ,"COUNT",oBreak,"Qtd. Apontamentos",PesqPict("AFU", "AFU_DATA"),,.F.,.T.) //Função de totalizador dentro do oBreak
oBreak := TRBreak():New(oSection1,oSection1:Cell("AFU_DATA"),"Total da Data") //TRBreak() Faz a quebra por AFU_DATA
//oBreak := TRBreak():New(oSection1,oSection1:Cell("AF8_DESCRI"),"Total do Projeto") //TRBreak() Faz a quebra por AFU_PROJET
TRFunction():New(oSection1:Cell("AFU_HQUANT"),"AFU_HQUANT" ,"SUM",oBreak,,PesqPict("AFU", "AFU_HQUANT"),,.T.,.F.) //Função de totalizador dentro do oBreak
TRFunction():New(oSection1:Cell("AFU_DATA"),"AFU_DATA" ,"COUNT",oBreak,"Qtd. Apontamentos",PesqPict("AFU", "AFU_DATA"),,.F.,.T.) //Função de totalizador dentro do oBreak
Ultima edição: 10 anos 2 meses atrás por RodrigoCesar.
Por favor Acessar ou Registrar para participar da conversa.
- marcomorati
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25160
por marcomorati
Respondido por marcomorati no tópico Totalizador TReport
Brother,
Não deu erro dessa vez, mas também não trouxe os valores
Mas desde já agradeço pelo auxilio.
Não deu erro dessa vez, mas também não trouxe os valores
Mas desde já agradeço pelo auxilio.
Por favor Acessar ou Registrar para participar da conversa.
- RodrigoCesar
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 3
- Obrigados Recebidos: 0
10 anos 2 meses atrás - 10 anos 2 meses atrás #25163
por RodrigoCesar
Respondido por RodrigoCesar no tópico Totalizador TReport
Bom, olha o fonte ai pra ver se não tá faltando nada. Qualquer coisa posta o código que você alterou ai.. como vc deixou.
Ultima edição: 10 anos 2 meses atrás por RodrigoCesar. Razão: Não foi o arquivo.
Por favor Acessar ou Registrar para participar da conversa.
- marcomorati
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25179
por marcomorati
Respondido por marcomorati no tópico Totalizador TReport
Rodrigo,
Deu certo sim, agora preciso ajustar para converter em horas,
obrigado pela ajuda.
Deu certo sim, agora preciso ajustar para converter em horas,
obrigado pela ajuda.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Totalizador TReport
Tempo para a criação da página:0.114 segundos