Pular para o conteúdo principal

Postagens

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

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 :: 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(

BlackTDN :: Evidênciar que a LF Soluções possui Analistas Capacitados e Proficientes no desenvolvimento utilizando as Linguagens AdvPL e TLPP

  Evidênciar que a LF Soluções possui Analistas Capacitados e Proficientes no desenvolvimento utilizando as Linguagens AdvPL e TLPP