...
Para a utilização da tela é necessário realizar as configurações do Contas a Pagar para Escritórios de Advocacia - PagPFS.
Para utilizar o cadastro de Rotinas Customizadas é necessário criar uma opção de Menu chamando a função PFSAPPCROT.
...
As regras de When (X3_WHEN) ou Gatilhos (SX7) não serão reproduzidas na tela de cadastro.
...
...
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
//-------------------------------------------------------------------
/*/{Protheus.doc} JTest001
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 do Log de 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 do Log de Aprovaçã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) |
