NOFUNCW Opção não disponível no Protheus

Meu fonte deu um erro de função, sendo que antes o mesmo já era usado. A função está presente no fonte, o que pode ter acontecido?

Trecho do fonte e print em anexo.

User Function RFINA008()

Private oProcess := MsNewProcess():New({|| Atualiza(oDlg) } , "Atualizando.....","Aguarde...",.T.) 

  DEFINE MSDIALOG oDlg TITLE "Excluir" FROM 000, 000  TO 120, 140 COLORS 0, 16777215 PIXEL

    DEFINE SBUTTON oSButton1 FROM 041, 008 TYPE 01 OF oDlg ENABLE ACTION oProcess:Activate()
    DEFINE SBUTTON oSButton2 FROM 041, 034 TYPE 02 OF oDlg ENABLE ACTION CLOSE(oDlg)

  ACTIVATE MSDIALOG oDlg CENTERED


return

Static Function Atualiza(oDlg)
    Receb()
    Pagar()
    movi()
    CLOSE(oDlg)
Return

criado 30 de Jan de 2023
atilyx
37 pontos
editado 30 de Jan de 2023

Anexos

erro.png

Capturar.PNG

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.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
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.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

up 0 down
Olá!

Já vi acontecer isso quando você não declara o include "rwmake.ch". Mas você pode simplesmente usar o método End da classe MsDialog, exemplo:
```
oDlg:end()
```
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 30 de Jan de 2023
  Everton Alves
  432 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações
up 0 down
Olá,

O erro está informando que a função Close não existe.

Você faz uso dessa função em dois pontos do seu fonte.

Uma solução, seria criar uma função estática em seu fonte chamada Close:
```
static function Close(oDlg)
oDlg:End()
return
```
É possível que isso corrija o erro e já resolva o seu problema, agora é necessário entender se essa função fazia somente isso, fechar a dialog, pois se ela apenas fechasse a dialog, você pode simplesmente chamar o método End do objeto nos pontos que você chamava a função Close, como no botão:
```
DEFINE SBUTTON oSButton2 FROM 041, 034 TYPE 02 OF oDlg ENABLE ACTION oDlg:End()
```
E na função Atualiza:
```
movi()
oDlg:End()
```
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 30 de Jan de 2023
  Daniel Mendes
  15877 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Não é a resposta que estava procurando? Procure outras perguntas com as tags devforum protheus advpl erro funcao fonte fontes ou faça a sua própria pergunta.