Ponto de Entrada – MTA650E

Exemplo do Ponto de Entrada MTA650E.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  MTA650E                                                                                       |
 | Desc:  Antes da Exclusão da OP                                                                       |
 | Links: http://tdn.totvs.com/pages/releaseview.action?pageId=6089302                                  |
 *------------------------------------------------------------------------------------------------------*/

User Function MTA650E()
	Local aArea:=GetArea()
	Local lRet :=.F.

	lRet := MsgYesNo("Deseja continuar?", "Atenção")

	RestArea(aArea)
Return lRet

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

– Pesquisa no TDN