Histórico da Página

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

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

#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