Criando menu para abrir a tela axcadastro

Framework - Linha Protheus LIB
, ,
1

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

:warning: Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.

2

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

3

Verifique em seu menu se o Tipo da função está como Função de Usuário.

Em Programa você deve informar qual nome da função de usuário que deve ser chamada, e não o nome do fonte. Exemplo: MODELOUM.

item_menu.PNG

:warning: Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.

4

Obrigado era o nome que estava errado mesmo no configurador.