Pular para o conteúdo principal

Postagens

Mostrando postagens de dezembro, 2011

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

APP – Desenvolvimento de APP`s iOS

Para aqueles que desejam se aventurar pelo mundo do desenvolvimento de APP`s, segue um info-grafico bem humorado criado por Frédéric Descamps que ja esta envolvido nesse mundo desde a criação da APP Store. Lembrando que para se aventurar com sucesso nesse mundo, é essencial conhecer muito bem as API´s no ambiente COCOA… e tambem encarar de frente Object-C… Vale a pena tentar!!!! SmartClient nativo no iPhone e iPad???? Sim… em breve!!! How to Make A Successful App! One App Developer’s Humorous Take On How To Build A Successful App For iOS Rodrigo “OverFail”

Protheus :: Advpl :: DropBox :: O Comentário que virou “Post”.

  BaseDic CompaDic ExporDic FSBitMap FSEnvMail FSFontes Todas as Ferramentas São ferramentas úteis (não 100% funcionais) mas que vão auxiliar no seu dia a dia (quebra galho e aceleradores). Assim que arrumar um tempo comentarei sobre cada uma; mostrando as vantagens e desvantagens em utilizá-las bem como as sugestões para torná-las 100% úteis e funcionais. []s иαldσ dj

BlackTDN :: Feliz Natal e Boas Festas :: via PowerShell

  ‘(18029799997931744,139752119745773792|%{"{0,60}"-f [Convert]::ToString($_, 2).Replace("0"," ")})-split”(.{12}|Mh)”|?{$_}’|%{iex $_;-join[char[]]$_[[char[]]"nOBB7[4oBCaenRa"]} ou, se preferir algo mais animado….( Powershell – Oh Christmas Tree, Oh Christmas tree – One more change :: By Sean Kearneyon ) # PowershellTree-V-whatever.PS1 #Clear the Screen clear-host #Move it all down the line write-host # Assign two special characters into an array for potential "LIGHTS" $starchar=[char][byte]15, "*" # Number of rows Deep for the Tree- from 2 to whatever fits on the screen, after 30 it gets funky $Rows = 30 # These variables are for the Bouncing Marquee at the bottom # Column, number of Columns to move (relative to size of tree) # and Direction it will move $BottomRow=$Rows+4 $BottomColumn=0 $BottomMaxCol=($Rows) $Direction=1 # Standard console Colours # Just for fun I added in all the possible Console

BlackTDN

Protheus :: Advpl :: PreProcessor Output (File Extension PPO)

Fiquei devendo a saída do Pré-Processador ou ( PreProcessor OutPut ). Arquivos com extensão .ppo são aqueles gerados pelo Pré-Processador. No “velho” Clipper esses arquivos eram compilados e armazenados em arquivos .obj e depois “ligados” pelo “linker”. No “novo” Harbour a saída do pré-processador é utilizada para a geração do código em C (que depois é compilada pelo compilador C de sua preferência) e, posteriormente, “linkados”. Já no Proteus, como não existe “Compilação” de fato a saída do Pré-Processador é armazenada no RPO de forma integral mas compactada. No Protheus não existe “ligação”. O código é Interpretado pelo “Interpretador do Protheus.” Curioso em ver a saída do Pré-Processador? Siga os Links… hbxlsxml\xmlClass\ppo ; hbxlsxml\tests\ppo ; hbxlsxml\customClass\ppo ; e hbxlsxml\pttests\ppo Compare-os usando WinMerge ou apdiff e veja o trabalho do Pré-Processador. []s иαldσ dj

Protheus :: TOTVS :: BlackTDN

Depois de ouvirmos varios pedidos, chegou o momento de algo maior, algo que nao se vê nos foruns disponiveis na net, algo que vai alem de tudo que viram ate hoje… E numa conversa entre eu (OverFail) e Mestre Lee (Naldo Dj) surgiu o mais novo monstro… BlackTDN Em breve divulgaremos maiores detalhes do que sera de fato o BlackTDN… conteudos.. acessos… Sugiro que os foruns disponiveis hoje, procurem mudar os conteúdos e sejam muito mais do que apenas “porta-duvidas”, e até mesmo o “famoso” TDN seja bem mais do q é hoje, pois tudo apos o nascimento do BlackTDN sera bem diferente.   Coming Soon… www.blacktdn.com.br Rodrigo “OverFail” – Marinaldo de Jesus (Naldo Dj) & “Astros” Convidados 01/2012

Protheus :: Advpl :: TCInternal()

Fala ae Anonimo! Em um dos posts anteriores.. comenterei sobre o uso de algumas funções para nao ocorrer o consumo de licenças no TOP / DBAccess… e logo na sequencia houve um pedido “anonimo” para postar o uso da TCInternal() na atualização de campos / dicionario de dados… Postado ao som de : Delinquent Habits – Here Come The Horns Como prometido… segue abaixo o codigo contendo o uso:   #include "protheus.ch" /* Funcao: UPDGema Autor: Rodrigo OverFail Data: 21/12/2011 Funcionalidade: Exemplo para uso da TCInternal() */ User Function UpdGema() cArqEmp     := "SigaMat.Emp" nModulo        := 05 __cInterNet := Nil PRIVATE cMessage PRIVATE aArqUpd     := {} PRIVATE aREOPEN     := {} Private __lPyme  := .F. #IFDEF TOP     TCInternal(5,'*OFF') //-- Desliga Refresh no Lock do Top #ENDIF Set Dele On GEMOpenSM0(.T.) DbGoTop() lHistorico     := MsgYesNo("Atualização das tabelas e campos de exemplo UPDGema, Confirma?", "Update") lEmpenho

Protheus :: Advpl :: HelpInDark Function

HelpInDark( lSet ) –> lLastSet é uma função em ADVPL associada à função de Help Padrão. É Usada normalmente para “esconder” o Help de sistema mas pode ser útil para uma “permuta” entre o Help do Sistema com um Help Customizado. Local lInDark := HelpInDark( .T. )    //Desabilita a apresentação do Help IF ( .not. CheckSX3(“E2_CCD”)  )     HelpInDark( .F. )                       //Habilita a apresentação do Help     Help( "" , 1 " , "NDJE2CCD" )    //Apresenta o Help Customizado EndIF HelpInDark( lInDark )                    //Restaura o estado anterior Para a criação do Help “Customizado” acesse o Ambiente “Configurador” opção “Manutenção de Help:     []s иαldσ dj

Dica de Leitura :: Otimização de consultas

Para quem gosta de leitura técnica (ou quer relembrar os tempos da Faculdade), uma boa dica é o material do Professor Nielsen Cassiano Simões do Instituto de Computação da  Universidade Federal do Mato Grosso, que disponibiliza, em sua biblioteca a apresentação “ Otimização de consultas ”. Se for curioso, verá que existem, além deste, muitos outros materiais interessantes. []s иαldσ dj

PDFCreator :: Gerando Marca D´agua

Existem duas maneiras para a geração de Marcas D´agua em arquivos PDF  usando o PDFCreator. A primeira  é definindo o texto a ser impresso como “Marca D´agua” Ao gerarmos um relatório, usando como impressora o PDFCreator, teremos: A segunda opção, para a geração da Marca D´agua, é usar o Script (em VB) desenvolvido por Frank Heindörfer e que se encontra em Scripts\RunProgramAfterSaving\AddWatermarkToPDF.vbs da instalação padrão do PDFCreator. Esse script utiliza o aplicativo pdftk.exe do PDFLabs para inserir a Marca D´agua. Seu uso é bem simples. Primeiro, baixe o programa pdftk.exe e descompacte-o, de preferência, em \windows\system32  para que possa ser executado via linha  de comando sem a necessidade de mapeamento do “path”. Abra o PDFCreator e em “Ações” selecione a “aba” “Ações depois de Salvar”;   Abra o “script” para edição e ; modifique os valores das constantes PathToPdftk (indica o diretório de instalação do pdftk.exe)  e WatermarkPDF (indica o arquivo

Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL (Making-of :: pré-processador)

Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL ; Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL (Round 2, Figth!) ; Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL (You Win!) ; e Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL (Making-of :: operador de Hash) Os “Bastidores da série: Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADPL apresenta, alguém que nunca vemos;  quase ninguém sabe da existência, mas que faz boa parte do serviço. Poderia-mos chamá-lo de “o maquiador”, “o arrumador”, “o resolvedor”, … , mas é, na verdade, o “Pré-Processador”. Como muitos, o compilador nem sabe de sua existência. O compilador só vê aquilo que lhe interessa: O Programa a ser compilado. O Compilador não conhece comandos, diretivas, arquivos include. Seu vocabulário é restrito ao dialeto da linguagem. É a Estrela do filme. Já o Pré-Processador o Duble. O Pré-Processador vive nos Bastidores como a um serviçal. Aguardando as mensagens enviadas ao Compilador

PowerShell :: NaldosNextBirthday

Function NaldosNextBirthday(){   $Now = [DateTime]::Now   [Datetime]([string] ($now.Year + 1) + "-12-15T00:00:00") – $Now } While ( $True ){     NaldosNextBirthday;     Start-Sleep -Seconds 1     cls }    Function NaldosNextBirthday(){   $Now = [DateTime]::Now   [Datetime]([string] ($now.Year + 1) + "-12-15T00:00:00") – $Now } While ( $True ){     NaldosNextBirthday;     Start-Sleep -Milliseconds 100     cls }    Function NaldosNextBirthday(){   $Now          = [DateTime]::Now   $ZeroDay    = ( [Datetime]([string] ($now.Year + 1) + "-12-15T00:00:00") – $Now )   if ( $ZeroDay.Day -eq 0 ){     Write-Host -ForegroundColor Yellow -BackgroundColor Black "Naldo";     Write-Host -ForegroundColor Yellow -BackgroundColor Black "";     Write-Host -ForegroundColor Yellow -BackgroundColor Black "Feliz Aniversário!";     Write-Host -ForegroundColor Yellow -BackgroundColor Black "happy birthday!";     Write-Host

Protheus :: Teste o seu Português

 

Protheus :: Teste sua Lógica

  Tendo, como referência, a seguinte pergunta: “Periodos Abonados Nao Devem ser Modificados ou Eliminados.”, qual seria a sua resposta Lógica? “Sim” para ratificar a opção “Não devem ser Modificados ou Eliminados” negando, de fato a alteração e/ou exclusão da informação ou; “Não” para negar a opção “Não devem ser Modificados ou Eliminados” permitindo, a alteração e/ou exclusão da informação. (rs) []s иαldσ dj

Protheus :: Advpl TOP (DBAccess) :: TCInternal() Pedido Anonimo...

Eis que em 13/12/2011... Naldo recebeu um pedido:           "Anônimo disse... Boa tarde Naldo!! Você poderia colocar um artigo sobre o comando TCINTERNAL ou ensinar a criar campos e deletar no sx2, sx3 e six através um prw..." Mesmo o post sendo meu... e o pedido feito para o Naldo Lee.. hehehe... nao negamos desafio nao! E agora o bicho vai pegar... Guenta a ponta "Anonimo"... amanha seu pedido sera realizado... Ah... e um grande abraço em especial aos manos : Wellington Bis e Rafael VETI... que acompanham o blog de perto e sabem usar o que aprendem aqui no dia a dia de suas atividades... Claro... claro.... tambem nao podia me esquecer de mandar um abraço para a equipe de desenvolvimento do TOII que soube levar numa boa a "lavada cronometrada" na disputa de desempenho com a integração PowerShell... []'s Rodrigo "OverFail"

Protheus :: Advpl TOP (DBAccess) :: Será que o configurador é pra marreco???

Fala ae minha gente, Hoje apos uma manha cheia de risadas e indo almoçar junto com o grande brother Wellington Bis, começa a rolar o assunto do blog: - "Pô mano.. blog do Naldo é foda e tal... ja me salvou varias vezes..." Respondo: - "Hehehe... póis é... no blog só tem monstrao... Naldo, Eu (OverFail), RLeg... Regazzo..." E ja bateu a vontade louca de mandar mais uma loucura... da mesma linha de ontem... porem faltava um som para embalar o desenrolar do post... entao nada melhor do que faze-lo ao som: Beastie Boys - Licensed to iLL - No Sleep Till Brooklyn ... é o q ha! Vamos ao codigo... O foco da brincadeira é demonstrar uma maneira de alterar a estrutura de um campo "a quente" no protheus, sem o uso do configurador... utilizando pra isso a função TCALTER()...                                           Segue o codigo: #include "protheus.ch" #DEFINE NL CHR(13)+CHR(10) // Exemplo de como ajustar o tamanho de um campo

Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL (Making-of :: operador de Hash)

Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL ; Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL (Round 2, Figth!) ; e Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL (You Win!) Os “Bastidores da série: Protheus :: Advpl :: Duelo de Titãs :: Harbour x ADVPL”, irão revelar o poder por trás do pré-processador ADVPL. Nosso astro Principal: “ ptxlsxml.ch ”. O Operador de Hash (ao som de Ice T “Colors ”). Antes de mais nada, para que tudo fosse possível, foi necessária uma “pequena” adaptação no código original do Harbour pois o operador de Hash => não é suportado pela linguagem ADVPL. O operador de Hash do Harbour, a exemplo do operador de Array {} (ADVPL/Harbour) tem uma função equivalente. Para o operador {} temos a função Array() e, para =>, do Harbour, teremos hb_hash(). Sem isso seria impossível a utilização do código Harbour em ADVPL. As alterações em relação ao operador => foram: Para o Programa: xlsxml.prg Para o programa: xlsxml_s