Pular para o conteúdo principal

Postagens

Postagem em destaque

🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️

🚀 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
Postagens recentes

BlackTDN :: A Épica Jornada de Customizar o TMS

# A Épica Jornada de Customizar o TMS Ah, a gloriosa tarefa de customizar o TMS (Transport Management System)! Imagine-se um intrépido explorador, adentrando uma selva densa e inóspita de código macarrônico, onde cada linha de código é um enigma a ser desvendado e cada função é uma cilada traiçoeira pronta para capturar sua sanidade. ## Capítulo 1: A Primeira Impressão Você começa com entusiasmo, abrindo o código fonte. De repente, o desespero bate. É como abrir um baú de tesouro e encontrar... um ninho de cobras! Variáveis sem nomes significativos, funções anônimas, comentários enigmáticos (quando existem), e aquela sensação de que cada linha foi escrita por alguém diferente... em dias de lua cheia. ## Capítulo 2: A Estrutura Labiríntica Você decide se aventurar mais fundo. Abre um arquivo, depois outro, e mais outro... Cada um parece ter sido escrito em uma dimensão diferente. Alguns seguem convenções da Idade da Pedra, outros foram aparentemente influenciados por algum estilo

BlackTDN :: Convertendo Planilha Excel em JSON (Parte I)

  Dia desses precisei importar uma planilha Excel para o TOTVS Microsiga Protheus. Mas, infelizmente e ainda, a linguagem AdvPL não fornece suporte para a leitura de arquivos provenientes do Excel. Sendo assim, e, sabendo que AdvPL suporta JSON, porque não converter a planilha em JSON e importar os dados a partir dai. Pronto. Pesquisando encontrei a  Convert-ExcelSheetToJson , feita em PowerShell por Chris Brown. Mas, ao testá-la, verifiquei que era muito lenta para o propósito. Sendo assim, fiz um "fork" do seu projeto e criei uma versão "+ rápida", que aí sim, serviu ao meu propósito a Excel2JSON .  No próximo "post" veremos como aplicar esta funcionalidade ao Totvs Microsiga Protheus. Ex.: []s NaldoDJ

BlackTDN :: DNA Tech :: Restart Services

 Quem nunca precisou...., e...., p...q...p... . Então..... Ei-lo.

BlackTDN :: GitHub :: TLPP :: Linguist-language[xBase]

 Seu código tlpp aparece "pálido" na visualização do GitHub? Que tal torná-lo (+) "colorido". Para isso configure, no seu projeto Git, o arquivo .gitattributes de forma que o GitHub reconheça que .tlpp é um arquivo "codado" no padrão xBase. Veja.:   Exemplos aqui

BlackTDN :: DNA Tech Editor xBase/SQL

DNA Tech Editor xBase/SQL   O Harbour  permite criar, testar, e executar código xBase online. Ex.: Senti falta de algo semelhante no Protheus. Então, decidi implementar algumas melhorias no DNA Tech Editor xBase/SQL . Por enquanto apenas para ser executado no smartclient, mas futuramente.... quem sabe! ***Exemplo de Código criado no DNA Tech Editor xBase/SQL ```xBase #pragma @__BeginText@ { "Includes" : "C:\\totvs\\includes;C:\\GitHub\\naldodj-tlpp\\include", "MainFunction" : "u_DNaEdtTst()" } #pragma @__EndText@ #include "totvs.ch" static Function __Teste(n) as variant return(MsgInfo(n,ProcName())) function u_DNaEdtTst() as variant local n,d:=10 as numeric __cInternet:=NIL for n:=1 to d __Teste(n) next n dna.tech.dirtools():BrowseFiles("Includes","c:\totvs\includes\","*.*") return(nil) ``` ... ***Um outro Exemplo de Código criado no DNA Tech Editor

BlackTDN :: DNA.TECH x TOTVS Framework (Rinha de Framework) :: FWFileReader():FullRed() x dna.tech.fileTools():FullContentBinaryFile() x dna.tech.cTools():ReadMemo()

#DNA.TECH x TOTVS Framework (Rinha de Framework) ***Nem Sempre utilizar um recurso do Framework irá garantir a melhor performance.*** Hoje iremos comparar a Classe FWFileReader():FullRed() do Framework da TOTVS com Funções/métodos criados por este que vos escreve. A vítima da vez é: FWFileReader :FullRed() Vamos comparar FWFileReader():FullRead() x dna.tech.fileTools():FullContentBinaryFile() x dna.tech.cTools():ReadMemo(cFile) O Código que usaremos para comparação está transcrito abaixo. ```xBase #pragma @__COMPSTR__@ cEOL:=chr(13)+chr(10) cFile:=cGetFile("*.*|*.*","*.*",1,"C:\",.F.,16,.F.,.F.) cTimeIni:=Time() cHashFWFileReader:="" lFWFileReader:=.T. MsAguarde(; {||; if(lFWFileReader,oFWFileReader:=FWFileReader():New(cFile),nil); ,if(lFWFileReader,oFWFileReader:Open(),nil); ,cContentFWFileReader:=if(lFWFileReader,oFWFileReader:FullRead(),"DEU RUIM"); ,if(lFWFileReader,oFWFileReader:Close(