Tela MVC Modelo 1

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
compartilhar
  • Luiz, você cadastrou uma informação e não apareceu(nunca vi acontecer)? ou importou dados ? Acredito que seja o segundo caso, acredito que o campo _FILIAL não está batendo com o compartilhamento da tabela , corrige um registro no apsdu e testa

    Leandro Lemos   16 de Nov de 2023
  • Leandro,

    A tabela já existia com alguns dados preenchidos, ela está compartilhada tanto na empresa, como na filial e unidade de negócio.

    Vou verificar aqui, valeu.

    Luiz Alberto   16 de Nov de 2023
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl mvc ou faça a sua própria pergunta.