Perguntas Execução de User Function

Mais
8 anos 3 dias atrás #31461 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

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 3 dias atrás #31462 por admin
Respondido por admin no tópico Execução de User Function
Vanessa tenta isso.

If InExec("Funcao2")
MsgAlert("Rotina de integração de pedidos já está em execução")
Return
EndIF

Por favor Acessar ou Registrar para participar da conversa.

Mais
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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 3 dias atrás #31470 por lalberto
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 ?

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.

Mais
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
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

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