Histórico da Página

...
Bloco de código
language	vb
theme	RDark
title	Exemplo de MVC
collapse	true

//-------------------------------------------------------------------
/*/{Protheus.doc} JTest001
Cadastro Consulta de Log de aprovação - Modelo MVC de Exemplo
/*/
//-------------------------------------------------------------------
Function JTest001()
	Local oBrowse := FWMBrowse():New()
	
	oBrowse:SetDescription("Log de aprovação") 
	oBrowse:SetAlias("ZZ1")
	oBrowse:SetLocate()
	oBrowse:Activate()

Return Nil

//-------------------------------------------------------------------
/*/{Protheus.doc} ViewDef
Estutura dado telaLog de 

@author Jonatas Martins
@since  06/05/2020
aprovação
/*/
//-------------------------------------------------------------------
Static Function ViewDef()
Local oStructZZ1 := FWFormStruct(2, "ZZ1")
Local oModel     := FWLoadModel("JTest001")
Local oView      := Nil
	
	oView := FWFormView():New()
	oView:SetModel(oModel)
	oView:AddField("JTest001_VIEW", oStructZZ1 , "ZZ1MASTER")
	oView:CreateHorizontalBox("FORMFIELD", 100)
	oView:SetOwnerView("JTest001_VIEW", "FORMFIELD")
	oView:SetDescription("Log de aprovação")
	oView:EnableControlBar(.T.)

Return (oView)

//-------------------------------------------------------------------
/*/{Protheus.doc} ModelDef
Estrutura do modelo de dados do TipoLog de Fechamento

@author Jonatas Martins
@since  06/05/2020Aprovação
/*/
//-------------------------------------------------------------------
Static Function Modeldef()
Local oStructZZ1 := FWFormStruct(1, "ZZ1")
Local oModel     := NIL
	
	oModel:= MPFormModel():New("JTest001", /*Pre-Validacao*/, /*Pos-Validacao*/, /*Commit*/, /*Cancel*/)
	oModel:AddFields("ZZ1MASTER", Nil, oStructZZ1 , /*Pre-Validacao*/, /*Pos-Validacao*/)
	oModel:SetDescription("Log de aprovação")
	oModel:GetModel("ZZ1MASTER"):SetDescription("Log de aprovação")

Return (oModel)
...
Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave
