Histórico da Página

//-------------------------------------------------------------------
/*/{Protheus.doc} ModelDef
Definição do modelo de Dados
@author rodrigo.antonio
@version 1.0
/*/
//-------------------------------------------------------------------
Static Function ModelDef()
Local oModel
Local bCommit := {|oMld| MyCommit(oMld)}
 
Local oStr1:= Nil
oModel := MPFormModel():new("ID_MODEL",/*bPre*/,/*bPost*/,bCommit)
oModel:SetDescription('Teste')
oModel:addFields('FIELD1',,oStr1)
Return oModel
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCommit
Commit do modelo
@author rodrigo.antonio
@version 1.0
/*/
//-------------------------------------------------------------------
Static function MyCommit(oModel)
Local lRet 
//---------------------------------------------------------
// Aqui podemos chamar funções antes do Commit Padrão
//---------------------------------------------------------
__FazAlgoAntesCommit()
//---------------------------------------------------------
// Aqui temos a chamada da funcao padrão de gravação do MVC
//----------------------------------------------------------
lRet := fwformcommit(oModel)
//---------------------------------------------------------
// Aqui podemos chamar funções depois do Commit Padrão
// Verificando sempre se o commit foi realizado.
//---------------------------------------------------------
If lRet
	__FazAlgoDepoisCommit()
End if
Return lRet