Usar função AxAltera a partir de um MSDIALOG

Olá pessoal, gostaria de saber se alguém tem um exemplo de uso da função AxAltera com um MSDIALOG. Estou usando um MSDIALOG que tem um botão "editar" que chama uma função para alterar um registro de uma tabela customizada com a AxAltera. Tem um detalhe estranho que percebi: após confirmar a alteração do registro com a AxAltera e voltar para a tela do MSDIALOG, ao clicar para sair do Dialog (botão ok), o mesmo é fechado mas logo em seguida a User Function principal é chamada novamente automaticamente e executa tudo novamente. Isso só ocorre quando eu confirmo a alteração com a AxAltera.

Segue o trecho do código que usa a AxAltera:

// Botões do MSDIALOG

@ 004, 300 BUTTON oButton1 PROMPT "OK" SIZE 037, 012 OF oPanel3 ACTION oDlg:End() PIXEL
@ 004, 340 BUTTON oButton1 PROMPT "Editar" SIZE 037, 012 OF oPanel3 ACTION Editar() PIXEL
@ 004, 380 BUTTON oButton1 PROMPT "Incluir" SIZE 037, 012 OF oPanel3 ACTION Incluir() PIXEL
@ 004, 420 BUTTON oButton1 PROMPT "Desativar" SIZE 037, 012 OF oPanel3 ACTION Desativa() PIXEL

// Função para alteração do registro

Static Function Editar()

    Local _aArea := GetArea() 
    Local nOpcao as numeric

    DbSelectArea("ZV9")
    ZV9->(DbSetOrder(1))

    if MsSeek(xFilial("ZV9") + aWBrowse2[oWBrowse2:nAt, 6] + aWBrowse2[oWBrowse2:nAt, 7] + aWBrowse2[oWBrowse2:nAt, 8]) 
        // Chama a tela de alteração
        nOpcao := AxAltera('ZV9', ZV9->(RecNo()), 4)

        if nOpcao == 1
            FWAlertSuccess("Editado com sucesso", "Sucesso")
        else
            FWAlertWarning("Endereço não editado", "Atenção")
        endif
    endif

    ZV9->(DbCloseArea())
    RESTAREA(_aArea)    

Return

Depois de realizar a alteração, ao clicar no botão ok o MSDIALOG fecha, porém a função principal é executada sozinha e monta o MSDIALOG novamente.