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;