Histórico da Página

...

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

Bloco de código

title	Exemplo do Ponto de Entrada MNTA6101()

#Include 'Protheus.ch'

User Function MNTA6101()



	Local lOk := .F.


	Local nOpcX := 0


	Local cOperacao := "Nao Identificada"


	Local cOpcao := ""
	Local oModel
	Local nOperation
	
	//Carrega variaveis


	If Type("ParamIxb") == "A"


		lOk    := ParamIXB[1]


		nOpcX  := ParamIXB[2]
		oModel := ParamIXB[3]
	EndIf

	nOperation := oModel:GetOperation()
	
	If

nOpcX

nOperation ==

2

MODEL_OPERATION_VIEW
		cOperacao := "Visualizacao"


	ElseIf

nOpcX

nOperation ==

3

MODEL_OPERATION_INSERT
		cOperacao := "Inclusao"


	ElseIf

nOpcX

nOperation ==

4

MODEL_OPERATION_UPDATE
		cOperacao := "Alteracao"


	ElseIf

nOpcX

nOperation ==

5

MODEL_OPERATION_DELETE
		cOperacao := "Exclusao"


	EndIf

	cOpcao := IIf(lOk,"Confirmada","Cancelada")
	Alert("Ponto de Entrada MNTA6101."+CHR(13)+CHR(10)+;
	"Operação: "+cOperacao+CHR(13)+CHR(10)+;
	"Opção: "+cOpcao)

Return Nil

Card

id	2
label	Versão Antiga

Bloco de código

title	Exemplo do Ponto de Entrada MNTA6101()

#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 2

Nova versão 3

Chave