Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} JTest001
Consulta de Log de aprovação - JMODTST
Modelo MVC de ExemploTeste
/*/
//-------------------------------------------------------------------
Function JTest001JMODTST()
	    Local oBrowse := FWMBrowseFwLoadBrw("JMODTST"):New

    oBrowse:Activate()
	
	oBrowse:SetDescription("Log de aprovação") 
	oBrowse:SetAlias("ZZ1")
	oBrowse:SetLocate()
	oBrowse:Activate()

Return Nil
Return Nil

//-------------------------------------------------------------------
/*/{Protheus.doc} MenuDef
Menu Funcional

/*/
//-------------------------------------------------------------------
Static Function MenuDef()
	Local aRotina := {}
Return (aRotina)

//-------------------------------------------------------------------
/*/{Protheus.doc} ViewDef
Estutura do LogModelo de aprovaçãoexemplo
/*/
//-------------------------------------------------------------------
Static Function ViewDef()
	Local oStructZZ1oStructFKF := FWFormStruct(2, "ZZ1Z01")
	Local oModel     := FWLoadModel("JTest001JMODTST")
	Local oView      := Nil
	
	oView := FWFormView():New()
	oView:SetModel(oModel)
	oView:AddField("JTest001JMODTST_VIEW", oStructZZ1 oStructFKF, "ZZ1MASTERZ01MASTER")
	oView:CreateHorizontalBox("FORMFIELD", 100)
	oView:SetOwnerView("JTest001JMODTST_VIEW", "FORMFIELD")
	oView:SetDescription("LogTeste deRotinas aprovaçãoCustomizadas") 
	oView:EnableControlBar(.T.)

Return (oView)

//-------------------------------------------------------------------
/*/{Protheus.doc} ModelDef
Estrutura do modelo do Log Modelo de Aprovaçãoexemplo
/*/
//-------------------------------------------------------------------
Static Function Modeldef()
	Local oStructZZ1oStructFKF := FWFormStruct(1, "ZZ1Z01")
	Local oModel     := NIL
	
	oModel:= MPFormModel():New("JTest001JMODTST", /*Pre-Validacao*/, {|oModel| JMODTSTOK(oModel)}/*Pos-Validacao*/, /*Commit*/, /*Cancel*/)
	oModel:AddFields("ZZ1MASTERZ01MASTER", Nil, oStructZZ1 oStructFKF, /*Pre-Validacao*/, /*Pos-Validacao*/)
	oModel:SetDescription("LogTeste deRotinas aprovaçãoCustomizadas") 
	oModel:GetModel("ZZ1MASTERZ01MASTER"):SetDescription("LogTeste deRotinas aprovação"Customizadas") 

	oModel:SetPrimaryKey({'Z01_FILIAL','Z01_IDDOC'})

Return (oModel)

//-------------------------------------------------------------------
/*/{Protheus.doc} JMODTSTOK
Exemplo de Validação de modelo

/*/
//-------------------------------------------------------------------
Static function JMODTSTOK(oModel)
Local lRet      := .T.
Local nOpc      := oModel:GetOperation()
Local oModelZ01 := oModel:GetModel("Z01MASTER")

	If nOpc < 5
		If Upper(AllTrim(oModelZ01:GetValue("Z01_TXTOBG"))) == "ERROR"
			lRet := JurMsgErro(EncodeUTF8("Erro de validação do campo"))
		EndIf
	EndIf

Return lRet