Cross Segmentos - TOTVS Backoffice (Linha Protheus) - SIGAFAT - Ponto de Entrada M410LDEL

Ponto de Entrada que permite adicionar validações para o tratamento de exclusão de um item do PV.

Observação

O ponto de entrada M410lDel é executado duas vezes, é chamado na função A410ValDel e esta por sua vez é chamada via MSGetDados na posição 17 (cDelOk). De acordo com equipe de Framework este é o comportamento devido que ocorre desde a versão 10, onde a execução da função chamada no parâmetro 17 da msgetdados é executada no delok do browse e no bloco de delete do browse.
Pode-se utilizar a função PROCNAME() para validar a fila da chamada e assim só executar uma vez.

Exemplo

#INCLUDE 'PROTHEUS.CH'

User Function M410LDEL()

    Local lRet := .F.

    If MsgYesNo("Confirma a exclusao da linha?", "PE M410LDEL")
        lRet := .T.
        Alert("Passou pelo Ponto de Entrada M410LDEL, a linha sera excluida") //Clicou no Sim
    Else
        lRet := .F.
        Alert("Passou pelo Ponto de Entrada M410LDEL, a linha nao sera excluida") //Clicou no Não
    EndIf

Return(lRet)