Histórico da Página

...

Exemplo: 

#include "Protheus.ch"
#include "FWMVCDEF.CH"

Static lFlag := .F.

User Function CTBA080()
Local aParam := PARAMIXB
Local xRet := .T.
Local oObj := ''
Local cIdPonto := ''

...

If aParam <> NIL
oObj := aParam[1]
cIdPonto := aParam[2]
cIdModel := aParam[3]

lIsGrid := ( oObj:ClassName()=="FWFORMGRID" ) //.F. //( Len( aParam ) == 5 .And. aParam[5] != NIL )

If lIsGrid
nQtdLinhas := oObj:GetQtdLine()
nLinha := oObj:nLine
EndIf

If cIdPonto == 'MODELPOS'

lFlag := !lFlag

If lFlag

If oObj:GetOperation() == MODEL_OPERATION_INSERT
// para inclusão;
cMsg := 'P E Validação total do modelo (MODELPOS).Exemplo do metodo GetOperation INCLUSAO (NECESSARIO include FWMVCDEF.CH.' + CRLF
cMsg += 'ID ' + cIdModel + CRLF
If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
Help( ,, 'Help',, 'OPERACAO INCLUSAO .F.', 1, 0 )
EndIf


ElseIf oObj:GetOperation() == MODEL_OPERATION_UPDATE
// para alteração;
cMsg := 'P E Exemplo do metodo GetOperation ALTERACAO (NECESSARIO include FWMVCDEF.CH.' + CRLF
cMsg += 'ID ' + cIdModel + CRLF
If !( xRet := ApMsgYesNo( cMsg + ' Cadastro '+If(oObj:GetValue( 'CT5MASTER', 'CT5_STATUS' ) == '1',"Ativo","Desabilitado")+- Continua ?' ) )
Help( ,, 'Help',, 'OPERACAO ALTERACAO .F.', 1, 0 )
EndIf

ElseIf oObj:GetOperation() == MODEL_OPERATION_DELETE
//para exclusao
cMsg := 'P E Exemplo do metodo GetOperation EXCLUSAO (NECESSARIO include FWMVCDEF.CH.' + CRLF
cMsg += 'ID ' + cIdModel + CRLF
If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
Help( ,, 'Help',, 'OPERACAO EXCLUSAO .F.', 1, 0 )
EndIf

Else
cMsg := 'P E Exemplo do metodo GetOperation Visualizacao (NECESSARIO include FWMVCDEF.CH.' + CRLF
cMsg += 'ID ' + cIdModel + CRLF
If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
Help( ,, 'Help',, 'Visualizacao .F.', 1, 0 )
EndIf

EndIf

cMsg := 'P E Validação total do modelo (MODELPOS).' + CRLF
cMsg += 'ID ' + cIdModel + CRLF
If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
Help( ,, 'Help',, 'O MODELPOS retornou .F.', 1, 0 )
EndIf

EndIf

ElseIf cIdPonto == 'FORMPOS'
/*
cMsg := 'Chamada na validação total do formulário (FORMPOS).' + CRLF
cMsg += 'ID ' + cIdModel + CRLF

cClasse := oObj:ClassName()

If cClasse == 'FWFORMGRID'
cMsg += 'É um FORMGRID com ' + Alltrim( Str( nQtdLinhas ) ) + ;
' linha(s).' + CRLF
cMsg += 'Posicionado na linha ' + Alltrim( Str( nLinha ) ) + CRLF
ElseIf cClasse == 'FWFORMFIELD'
cMsg += 'É um FORMFIELD' + CRLF
EndIf
If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) )
Help( ,, 'Help',, 'O FORMPOS retornou .F.', 1, 0 )
EndIf
*/

...

ElseIf cIdPonto == 'MODELCANCEL'
/*
cMsg := 'Chamada no Botão Cancelar (MODELCANCEL).' + CRLF + 'Deseja Realmente Sair ?'
If !( xRet := ApMsgYesNo( cMsg ) )
Help( ,, 'Help',, 'O MODELCANCEL retornou .F.', 1, 0 )
EndIf
*/

ElseIf cIdPonto == 'MODELVLDACTIVE'
/*
cMsg := 'Chamada na validação da ativação do Model.' + CRLF + ;
'Continua ?'
If !( xRet := ApMsgYesNo( cMsg ) )
Help( ,, 'Help',, 'O MODELVLDACTIVE retornou .F.', 1, 0 )
EndIf
*/
ElseIf cIdPonto == 'BUTTONBAR'
/*
ApMsgInfo('Adicionando Botão na Barra de Botões (BUTTONBAR).' + CRLF + 'ID ' + cIdModel )
xRet := { {'Salvar', 'SALVAR', { || Alert( 'Salvou' ) }, 'Este botão Salva' } }
*/

EndIf

EndIf

Return xRet