Ponto de Entrada – FA070CA4

Exemplo do Ponto de Entrada FA070CA4.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  FA070CA4                                                                                      |
 | Desc:  Permite cancelar a baixa do Contas a Pagar                                                    |
 | Links: http://tdn.totvs.com/display/public/mp/FA070CA4+-+Permite+cancelar+baixa+--+11877             |
 *------------------------------------------------------------------------------------------------------*/

User Function FA070CA4()
	LOCAL lRet := .t.
	LOCAL aAreaA6 := SA6->(GetArea())
	LOCAL aArea := GetArea()
	
	lRet := MsgYesNo("Deseja continuar?", "Atenção")
	
	restarea(aAreaA6)
	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

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.