variable does not exist

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
compartilhar
  • William, por favor, poderia anexar o error.log completo ou ao menos a stack completa?

    Daniel Mendes   04 de Aug de 2022
  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 cadastro ou faça a sua própria pergunta.