Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

MVC com User Function no binário Harpia

Olá,

Com o binário mais recente (Harpia) os meus programas em MVC não estão sendo reconhecidos quando tento chamá-los direto via FwExecView ou FWLoadModel. Os programas são todos como User Function. Por exemplo:

Tenho um programa em MVC que utiliza a tabela SB1 de produtos, o qual defino o model e view da seguinte maneira:

User Function CXNF004()
Return
// ------------------------------------------------------------------------
// Modelo de dados
// ------------------------------------------------------------------------
Static Function ModelDef()
Local oModel   := MPFormModel():New("CXNFSB1",,,{|oModel| CommitMdl(oModel) })
Local oStruSB1 := FWFormStruct(1, "SB1")

    oModel:AddFields("SB1FIELDS", /*cOwner*/, oStruSB1)

Return oModel
// ------------------------------------------------------------------------
// Componentes de visualização
// ------------------------------------------------------------------------
Static Function ViewDef()
Local oModel   := ModelDef()
Local oView    := FWFormView():New()
Local oStruSB1 := FWFormStruct(2, "SB1")

    oView:SetModel(oModel)
    oView:AddField("SB1VIEW", oStruSB1, "SB1FIELDS")

Return oView

Uso a estrutura acima para chamar a inclusão de um produto da seguinte forma:

oModelSB1 := FWLoadModel("CXNF004")
oModelSB1:SetOperation(MODEL_OPERATION_INSERT)
oModelSB1:Activate()

Fazendo dessa forma nos binários antigos funciona, ele reconhece e retorna o modelo, apenas no Harpia que não. Teriam algum direcionamento de como devo fazer a definição e chamada?

Grato, Felipe

compartilhar
  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 mvc ou faça a sua própria pergunta.