Ponto de entrada que realiza personalizações na tela de Abastecimento Manual (MNTA655)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada executado na rotina de Abastecimento Manual (MNTA655) que realiza personalizações após a confirmação ou cancelamento da tela |
Programa Fonte: | MNTA655.prx |
Localização: | SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento Manual |
Função: | MNTA6555() |
Retorno: | .T. |
Exemplo do Ponto de Entrada MNTA6555()
#Include 'Protheus.ch' #Include 'RWMake.ch' User Function MNTA6555() Local lOk := ParamIXB[1] Local nOpcao := ParamIXB[2] Local cMsgOk := "" Local cMsgOpcao := "" //Define se o usuario confirmou ou cancelou a tela cMsgOk := If(lOk,"Sim","Não") //Define qual foi a opcao de acao do usuario sobre a tela Do Case Case nOpcao == 2 cMsgOpcao := "Visualização" Case nOpcao == 3 cMsgOpcao := "Inclusão" Case nOpcao == 4 cMsgOpcao := "Alteração" Case nOpcao == 5 cMsgOpcao := "Exclusão" OtherWise cMsgOpcao := "Não identificada." EndCase //Mensagem em tela MsgInfo("Chamada do Ponto de Entrada MNTA6555."+CRLF+CRLF+; "A tela foi confirmada? "+CRLF+"- "+cMsgOk+CRLF+CRLF+; "Qual foi a ação do usuário na tela? "+CRLF+"- "+cMsgOpcao,"P.E. MNTA6555") Return .T.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas