- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Execução de User Function
Perguntas Execução de User Function
- vmaraujo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
8 anos 3 dias atrás #31461
por vmaraujo
Execução de User Function foi criado por vmaraujo
Bom dia,
Atualmente temos 02 funções customizadas que funcionam perfeitamente, preciso fazer uma customização da seguinte maneira.
Ao gravar registros da função 01 verifico se usuário está com função 02 aberta, caso não, exibe mensagem de alerta e pergunta se deseja abrir, se o usuário escolher SIM quero abrir a função 02 em uma nova janela como se estivesse escolhendo a rotina no menu, não achei como fazer isso, alguém pode ajudar???
Agradeço desde já...
Obrigada
Vanessa
Atualmente temos 02 funções customizadas que funcionam perfeitamente, preciso fazer uma customização da seguinte maneira.
Ao gravar registros da função 01 verifico se usuário está com função 02 aberta, caso não, exibe mensagem de alerta e pergunta se deseja abrir, se o usuário escolher SIM quero abrir a função 02 em uma nova janela como se estivesse escolhendo a rotina no menu, não achei como fazer isso, alguém pode ajudar???
Agradeço desde já...
Obrigada
Vanessa
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
- vmaraujo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
8 anos 3 dias atrás #31468
por vmaraujo
Respondido por vmaraujo no tópico Execução de User Function
Isso eu consegui,
só que usei
MSGYESNO ("mensagem")
chamei U_Funcao2()
Abre a tela da funcao2 porém, em cima da tela da funcao1, o que preciso é que abra em outra janela igual quando acesso as rotinas pelo menu.
só que usei
MSGYESNO ("mensagem")
chamei U_Funcao2()
Abre a tela da funcao2 porém, em cima da tela da funcao1, o que preciso é que abra em outra janela igual quando acesso as rotinas pelo menu.
Por favor Acessar ou Registrar para participar da conversa.
- vmaraujo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
8 anos 3 dias atrás #31469
por vmaraujo
Respondido por vmaraujo no tópico Execução de User Function
Isso eu consegui,
só que usei
MSGYESNO ("mensagem")
chamei U_Funcao2()
Abre a tela da funcao2 porém, em cima da tela da funcao1, o que preciso é que abra em outra janela igual quando acesso as rotinas pelo menu.
só que usei
MSGYESNO ("mensagem")
chamei U_Funcao2()
Abre a tela da funcao2 porém, em cima da tela da funcao1, o que preciso é que abra em outra janela igual quando acesso as rotinas pelo menu.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
8 anos 3 dias atrás #31470
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 Execução de User Function
Vanessa sinceramente não estou entendendo, porque não printa as telas num arquivo do word, compacta e anexa aqui.
vc quer que a função 1 seja fechada ? para abrir a função 2 ?
vc quer que a função 1 seja fechada ? para abrir a função 2 ?
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.
- vmaraujo
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
8 anos 3 dias atrás #31472
por vmaraujo
Respondido por vmaraujo no tópico Execução de User Function
User function funcao1()
/* todo os comandos da funçao
U_FUNCAO2()
Return
User Function funcao2()
aInfo := GetUserInfoArray()
for i := 1 to Len(aInfo)
If 'EMISSAO' $ AINFO[11] //Emissão
lEmissao := .T.
endif
If 'MONITOR' $ AINFO[11] //Monitor
lMonitor := .T.
endif
next
If lEmissao .and. !lMonitor
MsgYesNo("A tela de emissão está ativa mas o Monitor não, deseja Ativar","Aviso")
U_MONITOR() //Aqui abre a tela do monitor porém, sobrepoe a tela emissão, preciso que fique igual ao anexo em telas diferentes .
Endif
Return
/* todo os comandos da funçao
U_FUNCAO2()
Return
User Function funcao2()
aInfo := GetUserInfoArray()
for i := 1 to Len(aInfo)
If 'EMISSAO' $ AINFO[11] //Emissão
lEmissao := .T.
endif
If 'MONITOR' $ AINFO[11] //Monitor
lMonitor := .T.
endif
next
If lEmissao .and. !lMonitor
MsgYesNo("A tela de emissão está ativa mas o Monitor não, deseja Ativar","Aviso")
U_MONITOR() //Aqui abre a tela do monitor porém, sobrepoe a tela emissão, preciso que fique igual ao anexo em telas diferentes .
Endif
Return
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Execução de User Function
Tempo para a criação da página:0.179 segundos