Dadinel

#include "protheus.ch"

user function DnlTmpTbl()
local oTable as object
local aFields as array
local nConnect as numeric
local lCloseConnect as logical
local cAlias as char
local cTableName as char
local cAreaQuery as char

Dadinel

static function MenuDef()
local aRotina as array

aRotina := {}

aAdd(aRotina, {"Pesquisar", "AxPesqui", 0, 1})
aAdd(aRotina, {"Visualizar", "AxVisual", 0, 2})
aAdd(aRotina, {"Incluir", "AxInclui", 0, 3})
aAdd(aRotina, {"Alterar", "AxAltera", 0, 4})
aAdd(aRotina, {"Excluir", "AxDeleta", 0, 5})

Dadinel

static function MenuDef()
local aRotina as array

aRotina := {}

aAdd(aRotina, {"Pesquisar", "AxPesqui", 0, 1})
aAdd(aRotina, {"Visualizar", "AxVisual", 0, 2})
aAdd(aRotina, {"Incluir", "AxInclui", 0, 3})
aAdd(aRotina, {"Alterar", "AxAltera", 0, 4})
aAdd(aRotina, {"Excluir", "AxDeleta", 0, 5})

Dadinel

static function MenuDef()
local aRotina as array
local aSubVisl as array
local aSubAlter as array

aRotina := {}
aSubVisl := {}
aSubAlter := {}

aAdd(aSubVisl, {"Pesquisar", "AxPesqui", 0, 1})

Dadinel

static function MenuDef()
local aRotina as array

aRotina := {}

ADD OPTION aRotina TITLE "Pesquisar" ACTION "AxPesqui" OPERATION 1 ACCESS 0
ADD OPTION aRotina TITLE "Visualizar" ACTION "AxVisual" OPERATION 2 ACCESS 0
ADD OPTION aRotina TITLE "Incluir" ACTION "AxInclui" OPERATION 3 ACCESS 0
ADD OPTION aRotina TITLE "Alterar" ACTION "AxAltera" OPERATION 4 ACCESS 0
ADD OPTION aRotina TITLE "Excluir" ACTION "AxDeleta" OPERATION 5 ACCESS 0

Dadinel

user function DNL_SED()
local oBrowse as object

oBrowse := FWLoadBrw("DNL_SED")
oBrowse:Activate()
oBrowse:DeActivate()
oBrowse:Destroy()
FreeObj(oBrowse)
oBrowse := nil

Dadinel

static function BrowseDef()
local oBrowse as object

oBrowse := FWMBrowse():New()
oBrowse:SetAlias("SED")
oBrowse:SetDescription("Testando o MVC - Tabela SED")

return oBrowse

Dadinel

static function ModelDef()
local oModel as object
local oStruct as object

oModel := MPFormModel():New( "MODEL_SED", /*bPre*/ , /*bPos*/, /*bCommit*/, /*bCancel*/ )
oStruct := FwFormStruct( 1, "SED", /*bFiltro*/ )

oModel:AddFields( "FIELDS_SED", /*Owner*/ , oStruct, /*bPre*/ , /*bPos*/ , /*bLoad*/ )

return oModel

Dadinel

static function ViewDef()
local oView as object
local oStruct as object
local oModel as object

oView := FwFormView():New()
oModel := FwLoadModel("DNL_SED")
oStruct := FwFormStruct( 2, "SED", /*bFiltro*/ )

oView:SetModel(oModel)

Dadinel

static function MenuDef()
local aRotina as array

aRotina := {}

Add Option aRotina Title "Pesquisar" Action "PesqBrw" Operation OP_PESQUISAR Access 0
Add Option aRotina Title "Visualizar" Action "ViewDef.DNL_SED" Operation OP_VISUALIZAR Access 0
Add Option aRotina Title "Incluir" Action "ViewDef.DNL_SED" Operation OP_INCLUIR Access 0
Add Option aRotina Title "Alterar" Action "ViewDef.DNL_SED" Operation OP_ALTERAR Access 0
Add Option aRotina Title "Excluir" Action "ViewDef.DNL_SED" Operation OP_EXCLUIR Access 0