#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 nOperation == MODEL_OPERATION_VIEW
cOperacao := "Visualizacao"
ElseIf nOperation == MODEL_OPERATION_INSERT
cOperacao := "Inclusao"
ElseIf nOperation == MODEL_OPERATION_UPDATE
cOperacao := "Alteracao"
ElseIf nOperation == 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
#INCLUDE "MNTA080.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
User Function MNTA0613() //Função responsável pela chamada dos pontos de entrada da rotina MNTA0613 - Cadastro de Postos.
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
cOpcao xRet := IIf(lOk,"Confirmada","Cancelada")
Alert("Ponto de Entrada MNTA6101."+CHR(13)+CHR(10)+;
"Operação: "+cOperacao+CHR(13)+CHR(10)+;
"Opção: "+cOpcao) .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. |