- 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.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 10 meses atrás - 11 anos 10 meses atrás #9791
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.
Faz Isso:
Aadd( aRegs,{cPerg,"11",OemToAnsi(PadR("Listar Itens",19)+'?') ,'','','mv_chk','C',03,0,0,'G','OPCIT()','mv_par11','' ,'','','','','' ,'','','','','' ,'','','','','','','','','','','','','','' ,'' ,'',''})
Static Function OPCIT()
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()
Lembrando que o Parâmetro será preenchido da seguinte Forma:
se selecionar a opção 1
ficara 1**
se for a 2
ficara *2*
se for a 3
ficara **3
se nenhum ***
se todos
123
Abraços.
Aadd( aRegs,{cPerg,"11",OemToAnsi(PadR("Listar Itens",19)+'?') ,'','','mv_chk','C',03,0,0,'G','OPCIT()','mv_par11','' ,'','','','','' ,'','','','','' ,'','','','','','','','','','','','','','' ,'' ,'',''})
Static Function OPCIT()
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()
Lembrando que o Parâmetro será preenchido da seguinte Forma:
se selecionar a opção 1
ficara 1**
se for a 2
ficara *2*
se for a 3
ficara **3
se nenhum ***
se todos
123
Abraços.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Ultima edição: 11 anos 10 meses atrás por lalberto.
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 #9811
por alexpeixe
Respondido por alexpeixe no tópico Gerar Relatório com Opção de seleção.
Bom dia.
Ainda não consigo trazer os registros selecionados. Talvez eu não tenha conseguido me expressar bem e transmitir o processo passo a passo. Sendo assim anexo as imagens/figuras de como funciona para melhor entendimento.
Desde já agradeço a atenção.
Ainda não consigo trazer os registros selecionados. Talvez eu não tenha conseguido me expressar bem e transmitir o processo passo a passo. Sendo assim anexo as imagens/figuras de como funciona para melhor entendimento.
Desde já agradeço a atenção.
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 - 11 anos 10 meses atrás #9826
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.
Faça esta alteração e veja se funfa.
cQry += "SC5.C5_NUM = SC6.C6_NUM AND "
cQry += "SC5.C5_MARK = '" + cMarca + "' AND "
cQry += "SC5.C5_NUM = SC6.C6_NUM AND "
cQry += "SC5.C5_MARK = '" + cMarca + "' AND "
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Ultima edição: 11 anos 10 meses atrás por lalberto.
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 #9827
por alexpeixe
Respondido por alexpeixe no tópico Re: Gerar Relatório com Opção de seleção.
Hum ainda não, coloquei o código e apresentou erro alegando que a variável cMarca não existe:
THREAD ERROR (CRESTAGIO03, CRINTELLIGENCE) 22/01/2013 14:09:52
variable does not exist CMARCA on IMPRIMEREL(RFATR003.PRW) 22/01/2013 14:01:20 line : 140
[TOTVS build: 7.00.120420A-20120726]
Called from {||IMPRIMEREL()}(RFATR003.PRW) 22/01/2013 14:01:20 line : 79
Called from eval line : 1912
Called from { || EVAL( BACTION, @LSTOP ),LSTOP := .T. , ODLG:END() }(APLIB080.PRW) 05/11/2012 18:44:53 line : 1912
Called from ::MSDIALOG:ACTIVATE
THREAD ERROR (CRESTAGIO03, CRINTELLIGENCE) 22/01/2013 14:09:52
variable does not exist CMARCA on IMPRIMEREL(RFATR003.PRW) 22/01/2013 14:01:20 line : 140
[TOTVS build: 7.00.120420A-20120726]
Called from {||IMPRIMEREL()}(RFATR003.PRW) 22/01/2013 14:01:20 line : 79
Called from eval line : 1912
Called from { || EVAL( BACTION, @LSTOP ),LSTOP := .T. , ODLG:END() }(APLIB080.PRW) 05/11/2012 18:44:53 line : 1912
Called from ::MSDIALOG:ACTIVATE
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 #9828
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.
Na linha 44 adicione esta syntax.
Private cMarca := GetMark()
Private cMarca := GetMark()
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.
- 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.081 segundos