MVC com User Function no binário Harpia

Framework - Linha Protheus LIB
, ,
1

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

2

Felipe,

Infelizmente identificamos alguns comportamentos incorretos no binário Harpia quanto a utilização de fontes customizados.

Estamos trabalhando na correção dessa situação, mas no momento, ainda não existe correção ou paliativo, peço desculpas.

Obs.: Conforme eu for atualizado sobre a situação, vou atualizar a resposta por aqui.

Olá,

A correção já foi feita no binário e ele encontra-se como RC, para obtê-lo antes da expedição oficial, é necessário abrir um chamado na TOTVS para a equipe de Tecnologia (TEC), eles podem assim disponibilizar pontualmente um appserver com essa correção.

Em breve a expedição oficial do appserver liberará essa correção à todos.

3

Olá Daniel, obrigado pelo esclarecimento, fico no aguardo da sua comunicação. Abraço!

4

Felipe, a correção já foi feita, porém ainda não foi expedida, para adquiri-la, é necessário abrir um chamado na TOTVS para a equipe de Tecnologia (TEC) para que eles liberem pontualmente um binário RC para você.