A herança é um princípio da POO que permite a criação de novas classes a partir de outras previamente criadas, neste exemplo abordarei um modelo de classe derivada LbGetDados que herda as características da MsNewGetDados permitindo a implementação de novas funcionalidades.
Métodos da classe derivada "Filha".
✔️ LbGetDados():New() Método construtor da classe filha, segue com os mesmos parâmetros da classe pai com a diferença de poder ignorar a passagem do parãmetro "oWnd", deixando que a classe se responsabilize pela criação da janela - Onwer "Dialog".
✔️ LbGetDados():SetSizePerc() Ajusta tamanho da janela recebendo valor em %.
✔️ LbGetDados():SetStyle() Aplica um estilo pré-definido (6 opções).
✔️ LbGetDados():SetLineColor() Permite informar um valor RGB para ser atribuido à Getdados.
✔️ LbGetDados():SetbOk() Define bloco de código para botão Ok da EnchoiceBar.
✔️ LbGetDados():SetbCancel() Define bloco de codigo para botão Cancelar da EnchoiceBar.
✔️ LbGetDados():SetButtons() Insere botões adicionais na EnchoiceBar
✔️ LbGetDados():ActiveDialog() Ativa a janela da getdados caso tenha optado pela janela padrão.
1. Compilar o fonte do LbGetDados.prw do diretório /src.
2. Executar a rotina de exemplo "U_Example()" dentro do ambiente. ERP
ATENÇÃO: A classe pai MsNewGetDados está depreciada, e por conta disso, não recebe mais atualizações porém o intuito deste exemplo é didático.
A Totvs recomenda a utilização do MVC Protheus.
Projeto desenvolvido em: