Histórico da Página

...

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina	Nome Técnico
MNTA610	Postos

Rotina(s) envolvida(s)	Nome Técnico
MNTA6101	Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

...

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:

Nome

Tipo

Descrição

ParamIXB[1]

Lógico

Corresponde à confirmação ou cancelamento da tela de operações

ParamIXB[2]

Numérico

Corresponde ao número da operação realizada, sendo:

2 - Visualização;

3 - Inclusão;

4 - Alteração;

5 - Exclusão.

ParamIXB[3]

Objeto

Carrega o modelo ativo da rotina

Retorno:

Nulo

Deck of Cards

startHidden	false
history	false
id	sample
effectType	fade
loopCards	true

Card

default	true
id	1
label	Versão Atual

Aviso
Os detalhes abaixo aplicam-se às versões posteriores ou igual à (DATA da release 12.1.37) 01/11/2021 do fonte MNTA610MNTA613.PRX

Bloco de código

title	Exemplo dos Ponto de Entrada na rotina MNTA613MNTA0613()
linenumbers	true

#INCLUDE "MNTA080.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

// Função responsável pela chamada dos pontos de entrada da rotina MNTA0613 - Cadastro de Postos.
// Antiga MNTA610 e
User Function MNTA0613() 
 
Local aParam   := PARAMIXB //Parâmetros passados pelo ponto de entrada.
Local xRet     := .T. //Retorno da função.
Local cOperacao := "Nao Identificada"
Local oObj     := '' //Objeto que receberá o modelo.
Local cIdPonto := '' //Identificador da chamada do ponto de entrada.
Local cIdModel := '' //Identificador do modelo utilizado.
Local cModel   := '' //Identifica o modelo utilizado e receberá o seu identificador.
Local cMsg     := ''
Local nOperation
 
If aParam <> NIL //Identifica que foram enviado os parâmetros.
    oObj     	:= aParam[1] //Modelo ativado.
    cIdPonto 	:= aParam[2] //Determina o ponto de chamada.
    cIdModel 	:= aParam[3] //Identificador do modelo.
	nOperation 	:= oModel:GetOperation()
 
    If cIdPonto == 'FORMPOS' //Pós-Valid
         
        cMsg := 'Chamada na validação total do formulário.' + CRLF + 'Deseja Continuar ?'
             
        If !( xRet := ApMsgYesNo( cMsg ) )
            Help( ,, 'Help',, 'O FORMPOS retornou .F.', 1, 0 )
        EndIf

		 xRet := .F. //Determina o retorno .F., barrando a validação do modelo.
 
    ElseIf cIdPonto == 'MODELCANCEL' //Botão cancelar
 
        cMsg := 'Chamada no Botão Cancelar (MODELCANCEL).' + CRLF + 'Deseja Realmente Sair ?'
             
        If !( xRet := ApMsgYesNo( cMsg ) )
            Help( ,, 'Help',, 'O MODELCANCEL retornou .F.', 1, 0 )
        EndIf
 
    EndIf
 
EndIf
 
Return xRet //Retorno do ponto de entrada.

Card

id	2
label	Versão Antiga

Bloco de código

title	Exemplo do Ponto de Entrada MNTA6101()
linenumbers	true

#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

...

Árvore de páginas

Versões comparadas

Versão antiga 8

Nova versão Atual

Chave