Olá pessoal…
Na vídeo aula de hoje vou mostrar conceitos de Pontos de Entrada e como desenvolver um (no caso utilizei como exemplo, o de validação no cadastro de produtos).
Fonte de exemplo:
//Bibliotecas
#Include "Protheus.ch"
/*-------------------------------------------------*
| P.E.: A010TOK |
| Autor: Daniel Atilio |
| Data: 13/12/2015 |
| Descr.: Função que valida o cadastro de produto |
*-------------------------------------------------*/
User Function A010TOK()
Local aArea := GetArea()
Local aAreaB1 := SB1->(GetArea())
Local lRet := .T.
//Mostrando a pergunta
lRet := MsgYesNo("Confirma o cadastro do <b>"+M->B1_DESC+"</b>?", "Atenção")
RestArea(aAreaB1)
RestArea(aArea)
Return lRet
Se quiser fazer o download desse código ou do conteúdo mostrado na vídeo aula, acesse nosso GitHub pelo link github.com/dan-atilio/AdvPL (Exemplos > Vídeo Aulas > 016 – Utilizando Pontos de Entrada).
Bom pessoal, por hoje é só.
Abraços e até a próxima.
