Pular para o conteúdo principal

Postagens

Mostrando postagens de abril, 2012

Postagem em destaque

BlackTDN :: Social :: Rifa Festival da Arte Capoeira Projeto Eu Sou Ninja

Angariar fundos para cobrir os custos logísticos do "Festival da Arte Capoeira" e apoiar o projeto Eu Sou Ninja em sua missão de promover a integração social e cultural na comunidade de Jacaraípe. Com a criação da rifa, buscamos envolver a comunidade de forma ativa no financiamento do evento, permitindo que todos contribuam para o sucesso do festival e para a continuidade das atividades do projeto. Prêmio: Copia da minha biblioteca pessoal de AdvPL/TLpp ..etc Participe da Rifa Eu já contribui. Só falta você! ```cmd Pasta de C:\GitHub\naldodj-tlpp 13/04/2024 19:17 . 19/03/2024 13:49 .. 05/01/2024 12:22 2.742 .gitattributes 14/11/2023 16:02 83 .gitignore 02/12/2023 20:08 .vscode 05/01/2024 12:05 bin 13/04/2024 19:18 4.121 ChangeLog.txt 27/12/2023 02:05 include 14/11/2023 16:02 27.030 LICENSE.txt 14/11/2023 16:02 0 makepatch.lst 14/11/2

BlackTDN :: Tips & Tricks ~ ADVPL Estendendo a Class dbTree

Tive certa dificuldade, não por falta de conhecimento, em estender “naturalmente” a classe dbTree. Violação de acesso foi o principal problema que encontrei. Mas um pouco de criatividade e temos a derivada de dbTree. Usei como referência a extensão criada por Renato de Biachi. Segue o exemplo: 1: #include "protheus.ch" 2: #include "dbtree.ch" 3:   4: #xtranslate USER PROCEDURE <p> => PROCEDURE U_<p> 5:   6: #xcommand DEFINE TExTree [<oTree>]; 7: [ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ; 8: [ <dlg:OF,DIALOG> <oWnd> ] ; 9: [ ON CHANGE <uChange> ] ; 10: [ ON RIGHT CLICK <uRClick> ] ; 11: [ <lCargo: CARGO> ] ; 12: [ <lDisable: DISABLE> ] ; 13: => ; 14: <oTree> := TExTree():New(<nTop>,<nLeft>,<nBottom>,<nRight>,<oWnd>,&l