- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- Fechar Janela aRotina após confirmação
Perguntas Fechar Janela aRotina após confirmação
- GUI_DONEL
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
2 anos 11 meses atrás #33224
por GUI_DONEL
Fechar Janela aRotina após confirmação foi criado por GUI_DONEL
Boa noite.
Poderiam dar um help, estou com o fonte a seguir, após confirmar o msexecauto retorna para a tela da função UNI110, preciso que após confirmar a SC, finalize a janela UNI110.
User Function MT110ROT()
Local aRotina := PARAMIXB
ADD OPTION aRotina TITLE "Solicitar de Outra Filial" ACTION "U_UNI110()" OPERATION 3 ACCESS 0
Return aRotina
User Function UNI110()
Local aRet := {}
Local aPergs := {}
Local cFilBkp := Space(TamSx3("C1_FILIAL")[1])
Public cFilAtu := ''
Public cBkpFil
aAdd( aPergs ,{1,"Filial:" ,cFilBkp,,'.T.',"SM0",'.T.',50,.T.})
If ParamBox(aPergs ,"Selecione",aRet)
If cFilAnt <> aRet[1]
cBkpFil := cFilAnt
cFilAtu := aRet[1]
MSExecAuto({|x,y,z| MATA110(x,y,z)},,,3,1)
Else
MsgStop("Obrigatório selecionar filial diferente da filial atual.","Selecione outra filial - "+ProcName())
EndIf
EndIf
Return
Poderiam dar um help, estou com o fonte a seguir, após confirmar o msexecauto retorna para a tela da função UNI110, preciso que após confirmar a SC, finalize a janela UNI110.
User Function MT110ROT()
Local aRotina := PARAMIXB
ADD OPTION aRotina TITLE "Solicitar de Outra Filial" ACTION "U_UNI110()" OPERATION 3 ACCESS 0
Return aRotina
User Function UNI110()
Local aRet := {}
Local aPergs := {}
Local cFilBkp := Space(TamSx3("C1_FILIAL")[1])
Public cFilAtu := ''
Public cBkpFil
aAdd( aPergs ,{1,"Filial:" ,cFilBkp,,'.T.',"SM0",'.T.',50,.T.})
If ParamBox(aPergs ,"Selecione",aRet)
If cFilAnt <> aRet[1]
cBkpFil := cFilAnt
cFilAtu := aRet[1]
MSExecAuto({|x,y,z| MATA110(x,y,z)},,,3,1)
Else
MsgStop("Obrigatório selecionar filial diferente da filial atual.","Selecione outra filial - "+ProcName())
EndIf
EndIf
Return
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Pontos de Entrada
- Fechar Janela aRotina após confirmação
Tempo para a criação da página:0.096 segundos