Estou tentando criar uma rotina de cadastro MVC para a tabela TN3 e usei o mesmo modelo que já funciona para outras tabelas. Quando eu acesso a rotina, ela exibe os dados - inclusive de acordo com o filtro implementado, mas quando eu clico para INCLUIR exibe um erro em outro fonte.
variable does not exist AHEADER on MDT620EPWH(MDTA620.PRX) 19/07/2021 14:04:23 line : 908
Quando eu uso o mesmo código passando uma outra tabela qualquer como referência, o fonte funciona perfeitamente. Alguma ideia do que possa estar acontecendo? Abraços!
#Include 'Protheus.ch'
#include 'parmtype.ch'
#Include 'FWMVCDef.ch'
Static cTitulo := "Cadastro de EPI"
user function CADTN3()
Local aArea := GetArea()
Local oBrowse := FWMBrowse():New()
oBrowse:SetAlias("TN3")
oBrowse:SetDescription(cTitulo)
oBrowse:SetFilterDefault("TN3_FORNEC=='002516' .AND. TN3_LOJA=='01'")
oBrowse:Activate()
RestArea(aArea)
Return Nil
Static Function MenuDef()
Local aRotina := {}
ADD OPTION aRotina TITLE 'Visualizar' ACTION 'VIEWDEF.CADTN3' OPERATION 2 ACCESS 0
ADD OPTION aRotina TITLE 'Incluir' ACTION 'VIEWDEF.CADTN3' OPERATION 3 ACCESS 0
ADD OPTION aRotina TITLE 'Alterar' ACTION 'VIEWDEF.CADTN3' OPERATION 4 ACCESS 0
ADD OPTION aRotina TITLE 'Excluir' ACTION 'VIEWDEF.CADTN3' OPERATION 5 ACCESS 0
Return aRotina
Static Function ModelDef()
Local oModel := MPFormModel():New("MODEL_TN3",/*bPre*/, /*bPos*/,/*bCommit*/,/*bCancel*/)
Local oStTN3 := FWFormStruct(1, "TN3")
oModel:AddFields("FORMTN3",/*cOwner*/,oStTN3)
oModel:SetPrimaryKey({'TN3_FILIAL'})
Return oModel
Static Function ViewDef()
Local oModel := FWLoadModel("CADTN3")
Local oStTN3 := FWFormStruct(2, "TN3")
Local oView := FWFormView():New()
oStTN3:SetProperty('TN3_CODEPI', MVC_VIEW_LOOKUP , "SB1")
oView:SetModel(oModel)
oView:AddField("VIEW_TN3", oStTN3, "FORMTN3")
oView:CreateHorizontalBox("TELA",100)
oView:SetOwnerView('VIEW_TN3','TELA')
Return oView
William, por favor, poderia anexar o error.log completo ou ao menos a stack completa?
— Daniel Mendes 04 de Aug de 2022