× Linguagem de Programação ADVPL

Perguntas MSDIALOG NÃO FECHA

Mais
9 anos 6 dias atrás #29590 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....

Por favor Acessar ou Registrar para participar da conversa.

Mais
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())}))

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.094 segundos
Joomla templates by a4joomla