- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Duvida Relatorio Contas a Pagar
×
Linguagem de Programação ADVPL
Perguntas Duvida Relatorio Contas a Pagar
- douglasedp
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
9 anos 7 meses atrás #27873
por douglasedp
Duvida Relatorio Contas a Pagar foi criado por douglasedp
Pessoal, Bom Dia
Estou criando um relatório usando TReport() que mostra todos os títulos a pagar quebrando por fornecedores e totalizando no campo E2_VALOR em cada quebra. Acontece que apesar de eu ja ter conseguido fazer isso o layout nao está da forma que eu gostaria. Preciso que o totalizador dos fornecedores saia acima da linha , e a linha seria somente para separar os fornecedores.
Segue código e print do relatório impresso, para que se possivel possam me ajudar.
Cordialmente,
Douglas Eduardo
Estou criando um relatório usando TReport() que mostra todos os títulos a pagar quebrando por fornecedores e totalizando no campo E2_VALOR em cada quebra. Acontece que apesar de eu ja ter conseguido fazer isso o layout nao está da forma que eu gostaria. Preciso que o totalizador dos fornecedores saia acima da linha , e a linha seria somente para separar os fornecedores.
Segue código e print do relatório impresso, para que se possivel possam me ajudar.
oReport := TReport():New("RCOMR01","Titulos a Pagar ",cPerg,{|oReport| PrintReport(oReport)},"Impressão de cadastro de produtos em TReport simples.")
oReport:SetLandscape(.T.)
oSecCab := TRSection():New( oReport , "Titulos", {"QRY"} )
TRCell():New( oSecCab, "E2_FORNECE" , "QRY")
TRCell():New( oSecCab, "E2_NUM" , "QRY")
TRCell():New( oSecCab, "E2_PARCELA" , "QRY")
TRCell():New( oSecCab, "E2_TIPO" , "QRY")
TRCell():New( oSecCab, "E2_EMISSAO" , "QRY")
TRCell():New( oSecCab, "E2_VENCTO" , "QRY")
TRCell():New( oSecCab, "E2_VENCREA" , "QRY")
TRCell():New( oSecCab, "E2_VALOR" , "QRY")
TRCell():New( oSecCab, "E2_HIST" , "QRY")
oBreak := TRBreak():New(oSecCab,oSecCab:Cell("E2_FORNECE"),"------> TOTAL")
TRFunction():New(oSecCab:Cell("E2_VALOR"),NIL,"SUM",oBreak)
Cordialmente,
Douglas Eduardo
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Duvida Relatorio Contas a Pagar
Tempo para a criação da página:0.093 segundos