🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️ Olá pessoal, Espero que este post encontre todos vocês bem! É com grande entusiasmo que compartilho que estou expandindo meus serviços como Desenvolvedor AdvPL para novos desafios e colaborações. Com mais de duas décadas de experiência sólida, minha jornada profissional tem sido enriquecedora, com a oportunidade de participar de projetos empolgantes ao longo dos anos. Agora, estou ansioso para trazer minha experiência e habilidades para novas equipes e projetos, trabalhando de forma remota. Minha expertise abrange não apenas AdvPL, mas também outras tecnologias-chave, incluindo JS, SQL, Infraestrutura e Otimização de Processos. Acredito que essa combinação de conhecimentos me permite oferecer soluções abrangentes e eficazes para uma variedade de necessidades de desenvolvimento. Acredito que a tecnologia tem o poder de transformar negócios e impulsionar o sucesso, e estou comprometido em ajudar meus clientes a alcançar seu
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