Senhores, Bom Dia.
Criei uma tela MVC modelo 1, com uma tabela customizada chamada ZZ4 que tenho no meu ambiente, essa tabela é compartilhada, só que ao abrir a rotina a tabela aparece em branco sem os dados cadastrados, o que poderia ser?
Segue abaixo o código:
//Bibliotecas
#Include "Totvs.ch"
#Include "FWMVCDef.ch"
//Variveis Estaticas
Static cTitulo := "Servicos Para Franquias"
Static cAliasMVC := "ZZ4"
/*/{Protheus.doc} User Function CadZZ4
Cadastro tabela ZZ4
@author LUiz A.
@since 16/11/2023
@version 1.0
@type function
/*/
User Function CadZZ4()
Local aArea := FWGetArea()
Local oBrowse
Private aRotina := {}
//Definicao do menu
aRotina := MenuDef()
//Instanciando o browse
oBrowse := FWMBrowse():New()
oBrowse:SetAlias(cAliasMVC)
oBrowse:SetDescription(cTitulo)
oBrowse:DisableDetails()
//Ativa a Browse
oBrowse:Activate()
FWRestArea(aArea)
Return Nil
/*/{Protheus.doc} MenuDef
Menu de opcoes na funcao CadZZ4
@author LUiz A.
@since 16/11/2023
@version 1.0
@type function
/*/
Static Function MenuDef()
Local aRotina := {}
//Adicionando opcoes do menu
ADD OPTION aRotina TITLE "Visualizar" ACTION "VIEWDEF.CadZZ4" OPERATION 1 ACCESS 0
ADD OPTION aRotina TITLE "Incluir" ACTION "VIEWDEF.CadZZ4" OPERATION 3 ACCESS 0
ADD OPTION aRotina TITLE "Alterar" ACTION "VIEWDEF.CadZZ4" OPERATION 4 ACCESS 0
ADD OPTION aRotina TITLE "Excluir" ACTION "VIEWDEF.CadZZ4" OPERATION 5 ACCESS 0
ADD OPTION aRotina TITLE "Copiar" ACTION "VIEWDEF.CadZZ4" OPERATION 9 ACCESS 0
Return aRotina
/*/{Protheus.doc} ModelDef
Modelo de dados na funcao CadZZ4
@author Luiz A.
@since 16/11/2023
@version 1.0
@type function
/*/
Static Function ModelDef()
Local oStruct := FWFormStruct(1, cAliasMVC)
Local oModel
Local bPre := Nil
Local bPos := Nil
Local bCancel := Nil
//Cria o modelo de dados para cadastro
oModel := MPFormModel():New("CadZZ4M", bPre, bPos, /*bCommit*/, bCancel)
oModel:AddFields("ZZ4MASTER", /*cOwner*/, oStruct)
oModel:SetDescription(cTitulo)
oModel:GetModel("ZZ4MASTER"):SetDescription( "Dados de - " + cTitulo)
oModel:SetPrimaryKey({'ZZ4_FILIAL,ZZ4_COD'})
Return oModel
/*/{Protheus.doc} ViewDef
Visualizacao de dados na funcao CadZZ4
@author LUiz A.
@since 16/11/2023
@version 1.0
@type function
/*/
Static Function ViewDef()
Local oModel := FWLoadModel("CadZZ4")
Local oStruct := FWFormStruct(2, cAliasMVC)
Local oView
//Cria a visualizacao do cadastro
oView := FWFormView():New()
oView:SetModel(oModel)
oView:AddField("VIEW_ZZ4", oStruct, "ZZ4MASTER")
oView:CreateHorizontalBox("TELA" , 100 )
oView:SetOwnerView("VIEW_ZZ4", "TELA")
Return oView