- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gerar Relatório com Opção de seleção.
×
Linguagem de Programação ADVPL
Perguntas Gerar Relatório com Opção de seleção.
- alexpeixe
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 27
- Obrigados Recebidos: 0
11 anos 10 meses atrás #9783
por alexpeixe
Gerar Relatório com Opção de seleção. foi criado por alexpeixe
Olá, estou tentando gerar um relatório que traz um filtro(por data de até, cliente de até, etc) e após esse resultado traga um campo de seleção ao lado, no qual irei selecionar os registros desejados e irá por fim retornar o relatório com os itens selecionados. Os ValidPerg() estão todos Ok, mas não consigo trazer o relatório com os itens que selecionei (sou novato em Advpl rsrs). Anexo o código até o momento, valeu.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 10 meses atrás #9784
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Gerar Relatório com Opção de seleção.
Aadd( aRegs,{ cPergunta, '11',OemToAnsi(PadR("Listar Itens",19)+'?') ,'','','mv_chk','C',03,0,0,'G','AGRR100A()','mv_par11','' ,'','','','','' ,'','','','','' ,'','','','','','','','','','','','','','' ,'' ,'',''})
Function AGRR100A()
Local cTitulo := 'Itens do Compromisso'
Local cReadAtu := &(Alltrim(ReadVar()))
Local cReadRet := Alltrim(ReadVar())
Local cItens := '123'
Local aItens := {'1-Fixações','2-Financeiro','3-Faturamento'}
If f_Opcoes(@cReadAtu,cTitulo,aItens,cItens,,,.f.,1,3)
&cReadRet := cReadAtu
Endif
&cReadRet := cReadAtu
Return()
Function AGRR100A()
Local cTitulo := 'Itens do Compromisso'
Local cReadAtu := &(Alltrim(ReadVar()))
Local cReadRet := Alltrim(ReadVar())
Local cItens := '123'
Local aItens := {'1-Fixações','2-Financeiro','3-Faturamento'}
If f_Opcoes(@cReadAtu,cTitulo,aItens,cItens,,,.f.,1,3)
&cReadRet := cReadAtu
Endif
&cReadRet := cReadAtu
Return()
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 10 meses atrás #9785
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Gerar Relatório com Opção de seleção.
Ou
Aadd( aRegs,{ cPergunta, '12',OemToAnsi(PadR('Sintético/Analítico',19)+'?'),'','','mv_chl','N',01,0,0,'C','' ,'mv_par12','Sintético','','','','','Analítico','','','','','' ,'','','','','','','','','','','','','','' ,'S','',''})
Aadd( aRegs,{ cPergunta, '12',OemToAnsi(PadR('Sintético/Analítico',19)+'?'),'','','mv_chl','N',01,0,0,'C','' ,'mv_par12','Sintético','','','','','Analítico','','','','','' ,'','','','','','','','','','','','','','' ,'S','',''})
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- alexpeixe
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 27
- Obrigados Recebidos: 0
11 anos 10 meses atrás #9787
por alexpeixe
Respondido por alexpeixe no tópico Re: Gerar Relatório com Opção de seleção.
Valeu Alberto, mas ainda não rolou. Acrescentei as linhas mas ainda está me trazendo somente um resultado, e nem é o que eu estou selecionando.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 10 meses atrás #9789
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Gerar Relatório com Opção de seleção.
põe o código que vc fez ai pra eu dar uma olhada.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- alexpeixe
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 27
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gerar Relatório com Opção de seleção.
Tempo para a criação da página:0.088 segundos