×
Linguagem de Programação ADVPL
Perguntas MSDIALOG NÃO FECHA
- thiagoa_sousa
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 10
- Obrigados Recebidos: 0
9 anos 6 dias atrás #29590
por thiagoa_sousa
MSDIALOG NÃO FECHA foi criado por thiagoa_sousa
Ola pessoal, mais uma vez estou aqui para tirar duvidas a respeito da manipulação dos objetos utilizados para criar uma interface gráfica utilizando ADVPL. A dúvida de hoje é:
Como eu faço para fechar uma janela após clicar clicar em um botão.
A janela que eu criei é essa aqui:
DEFINE MSDIALOG oDlgPar TITLE "Parametrizacao" FROM 000, 000 TO 320, 477 COLORS 0, 16777215 PIXEL
@ 003, 003 GROUP oOptSlct TO 035, 096 PROMPT "Escolha uma opção" OF oDlgPar COLOR 0, 16777215 PIXEL
@ 013, 006 RADIO oRadMenu1 VAR nRadMenu1 ITEMS "Todos os Produtos","Selecione o Produto" SIZE 063, 019 OF oDlgPar COLOR 0, 16777215 ON CHANGE iif(nRadMenu1==1,oGetPrdNot:Disable(),oGetPrdNot:Enable()) PIXEL
fGetPrdNot(aItens)
@ 037, 004 GROUP oGroup2 TO 156, 231 PROMPT "Selecao de Produtos" OF oDlgPar COLOR 0, 16777215 PIXEL
@ 137, 137 BUTTON btnImp PROMPT "Imprimir" SIZE 037, 012 OF oDlgPar ACTION (oDlgPar:End(),iif(nRadMenu1==1,impZebra(aItens),altQuant())) PIXEL
@ 137, 190 BUTTON btnCancel PROMPT "Cancelar" SIZE 037, 012 OF oDlgPar ACTION oDlgPar:End() PIXEL
ACTIVATE MSDIALOG oDlgPar CENTERED
Como vocês podem ver, eu tenho dois botões, um para cancelar e um para imprimir. O botão cancelar esta funcionando normalmente. Já o botão imprimir, quando eu clico nele, a janela nao fecha. Gostaria de saber se estou fazendo alguma coisa errada no momento em que eu coloco a ação no botão imprimir.
Desde já agradeço a todos vocês e aguardo retorno....
Como eu faço para fechar uma janela após clicar clicar em um botão.
A janela que eu criei é essa aqui:
DEFINE MSDIALOG oDlgPar TITLE "Parametrizacao" FROM 000, 000 TO 320, 477 COLORS 0, 16777215 PIXEL
@ 003, 003 GROUP oOptSlct TO 035, 096 PROMPT "Escolha uma opção" OF oDlgPar COLOR 0, 16777215 PIXEL
@ 013, 006 RADIO oRadMenu1 VAR nRadMenu1 ITEMS "Todos os Produtos","Selecione o Produto" SIZE 063, 019 OF oDlgPar COLOR 0, 16777215 ON CHANGE iif(nRadMenu1==1,oGetPrdNot:Disable(),oGetPrdNot:Enable()) PIXEL
fGetPrdNot(aItens)
@ 037, 004 GROUP oGroup2 TO 156, 231 PROMPT "Selecao de Produtos" OF oDlgPar COLOR 0, 16777215 PIXEL
@ 137, 137 BUTTON btnImp PROMPT "Imprimir" SIZE 037, 012 OF oDlgPar ACTION (oDlgPar:End(),iif(nRadMenu1==1,impZebra(aItens),altQuant())) PIXEL
@ 137, 190 BUTTON btnCancel PROMPT "Cancelar" SIZE 037, 012 OF oDlgPar ACTION oDlgPar:End() PIXEL
ACTIVATE MSDIALOG oDlgPar CENTERED
Como vocês podem ver, eu tenho dois botões, um para cancelar e um para imprimir. O botão cancelar esta funcionando normalmente. Já o botão imprimir, quando eu clico nele, a janela nao fecha. Gostaria de saber se estou fazendo alguma coisa errada no momento em que eu coloco a ação no botão imprimir.
Desde já agradeço a todos vocês e aguardo retorno....
Por favor Acessar ou Registrar para participar da conversa.
- mfeliperx
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
5 anos 3 semanas atrás #32767
por mfeliperx
Respondido por mfeliperx no tópico MSDIALOG NÃO FECHA
No seu ACTION use um bloco de código juntamente com a função eval().
Exemplo:
ACTION (eval({||oDlgPar:End(),iif(nRadMenu1==1,impZebra(aItens),altQuant())}))
Exemplo:
ACTION (eval({||oDlgPar:End(),iif(nRadMenu1==1,impZebra(aItens),altQuant())}))
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.094 segundos