Versão atual:

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

Versão (1):

Ver a versão formatada

Criando menu para abrir a tela axcadastro

Comentário

new question