Histórico da Página
Ponto de entrada que realiza operação após o fechamento (confirma/cancela) da tela de Cadastro de Postos (MNTA610)
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 Postos (MNTA610) que realiza operação após o fechamento (confirma/cancela) da tela de cadastro. O ponto de entrada disponibiliza a operação realizada como variável. | |||||||||
Programa Fonte: | MNTA610.prx | |||||||||
| Localização: | SIGAMNT: Atualizações/Controle de Combustíveis/Cadastro Postos/Postos | |||||||||
Função: | MNTA6101() | |||||||||
| Parâmetros: |
| |||||||||
Retorno: | Nulo |
| Bloco de código | ||
|---|---|---|
| ||
#Include 'Protheus.ch'
User Function MNTA6101()
Local lOk := .F.
Local nOpcX := 0
Local cOperacao := "Nao Identificada"
Local cOpcao := ""
//Carrega variaveis
If Type("ParamIxb") == "A"
lOk := ParamIXB[1]
nOpcX := ParamIXB[2]
EndIf
If nOpcX == 2
cOperacao := "Visualizacao"
ElseIf nOpcX == 3
cOperacao := "Inclusao"
ElseIf nOpcX == 4
cOperacao := "Alteracao"
ElseIf nOpcX == 5
cOperacao := "Exclusao"
EndIf
cOpcao := If(lOk,"Confirmada","Cancelada")
Alert("Ponto de Entrada MNTA6101."+CHR(13)+CHR(10)+;
"Operação: "+cOperacao+CHR(13)+CHR(10)+;
"Opção: "+cOpcao)
Return Nil |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas