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

BlackTDN :: dna.tech.conpad1 :: Uma consulta que simplifica suas pesquias. Pesquise qualquer termo, qualquer campo....

 Cansando das pesquisas padrões, que você tem que escolher o campo da pesquisa, que é demorada, e que não facilita a sua vida. Que tal uma pesquisa personalizada, ao estido DNA Tech? Pesquise qualquer campo, qualquer termo, MAIÚSCULAS, MINÚSCULAS, tAnTo FaZ! E em qualquer lugar. Experiemente as soluções "DNA Tech". Ou, se preferir, escolha o campo da pesquisa: Precisa de uma pesquisa Otimizada, personalizada, rápida e eficiente. Que tal experimentar as nossas soluções prontas. Quer algo melhor, entre em contato DNA Tech terá um prazer enorme de criar algo exclusivo, funcional, rápido e a um preço justo.