Versão atual:

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

Versão (1):

Ver a versão formatada

MVC com User Function no binário Harpia

Comentário

new question