Criando menu para abrir a tela axcadastro

Criei uma tela axcadastro bem simples conforme exemplos que vi na internet, compilo normalmente, adiciono o projeto "modelo1.prw" no menu do sigafat.xnu e quando vou acessar essa tela aparece essa mensagem: "Problema: Função de usuário não esta compilada no repositório. Solução: Compile a função e instale no repositório ou contate o administrador de sistemas"

Segue código:

INCLUDE 'PROTHEUS.CH'

INCLUDE 'RWMAKE.CH'

USER FUNCTION MODELOUM()

Local cAlias := "SA1" Local cTitulo := "Cadastro de clientes MODELO 1" Local cFunExc := "U_MODELUMA()" Local cFunAlt := "U_MODELUMB()"

AxCadastro(cAlias, cTitulo, cFunExc, cFunAlt)

RETURN

USER function MODELUMA()

Local lRet := MsgBox("Tem certeza que deseja excluir o registro selecionado?","Confirmação","YESNO")

RETURN lRet

USER function MODELUMB()

Local lRet := .F. Local cMsg := ""

IF INCLUI cMsg := "Confirma a inclusão do Registro?" Else cMsg := "Confirma a alteração do Registro?" Endif

lRet := MsgBox(cMsg, "Confirmação", "YESNO")

RETURN lRet

compartilhar
  • Poderia enviar um print de como está cadastrada a sua rotina no menu?

    Giordano Trabach Xavier   23 de Sep 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!

2 respostas

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl menu ou faça a sua própria pergunta.