Pular para o conteúdo principal

Postagens

Mostrando postagens de maio, 2012

Postagem em destaque

BlackTDN :: Social :: Rifa Festival da Arte Capoeira Projeto Eu Sou Ninja

Por
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
Postar um comentário
Leia mais

BlackTDN :: dbAccess ODBC (Generic) e SQLite

Por
Este final de semana andei “brincando” com SQLite . “Integrei-a” ao dbAccess usando ODBC (Generic) algumas surpresas e configurações específicas a serem feitas. Brinquedo novo. Merece um post e uma nova Classe ADVPL ao estilo BlackTDN: TSQLite. Melhor seria se dbAccess o suportasse “nativamente”. Vejamos até onde consigo brincar. coming soon … []s иαldσ dj
1 comentário
Leia mais

BlackTDN :: TDN Confluence ~ Page Not Found

Por
De fato, o comentário do nosso amigo anônimo está corretíssimo. O TDN “Desconfluenciou-se”. Confluence = Confluência . Mas o Novo TDN não converge , diverge . Uma pena a TOTVS não ter redirecionado/convergido os Links do “Antigo” TDN para o “Novo” TDN. Receberá um grande “PAGE NOT FOUND” se tentar seguir os LINKS do “Antigo” TDN. Usamos, em BlackTDN, muitas referências externas a links do TDN e esses terão que ser revistos (que trabalhão). O mais engraçado de tudo é a imagem: Parece a “convergência de dois rios” mas se olhar mais atentamente ou fixar os olhos perceberá uma “TESOURA” e “TESOURA” faz o quê? SEPARA/DIVERGE.   []s иαldσ dj
11 comentários
Leia mais

BlackTDN :: SoundTrack ~ O Rappa - Minha Alma ( A Paz Que Eu Não Quero )

Por
Postar um comentário
Leia mais

BlackTDN :: ADVPL ~ Class TFTPClient : Combo IV (O Destrinchar Parte 2)

Por
… Continuação: BlackTDN :: ADVPL ~ Class TFTPClient : Combo III (O Destrinchar Parte 1) . Uma mera formalidade, uma vez que poderia ter criado uma User Function. Ou uma Function U_<f>. User Function f() é traduzida, pelo pré-processador, para  u_f(). Lembrando que uma função retorna valor e uma procedure não (demonstrado como compatibilidade histórica) na realidade, no Protheus não existe a distinção entre Função e Procedure (1).   Observemos o conteúdo do arquivo de cabeçalho “protheus.ch” Algumas diretivas de tradução para o pré-processador encontradas no arquivo de cabeçalho “protheus.ch”. Dentre elas: #xtranslate USER Function <cNome> => Function U_<cNome> Para corroborar a afirmativa em (1) observe o seguinte fragmento de código: O espaço de nomes é o mesmo: Seja uma Function ou uma Procedure. Se tentarmos compilar o código ocorrerá a seguinte exceção: Compilando arquivos...    c:\temp\xprocname.prw...    (no projeto FTPSample) Erro de
Postar um comentário
Leia mais

BlackTDN :: SoundTrack ~ Red Hot Chili Peppers - Californication

Por
Postar um comentário
Leia mais

BlackTDN :: Tips & Tricks ~ ADVPL : Embedded SQL – %exp:cExp% TAG

Por
Às vezes podemos ser enganados por sutilizas da linguagem e perder um bom tempo tentando entender o motivo do erro. Observem os códigos abaixo: Embedded SQL :: %exp:cExp% : Exemplo 1 1: #include "protheus.ch" 2: #include "tbiconn.ch" 3:   4: #xtranslate USER PROCEDURE <p> => PROCEDURE U_<p> 5:   6: USER PROCEDURE SqlEmb() 7:   8: Local aLastQuery 9:   10: Local cLike 11: Local cQuery 12: Local cError 13: Local cTCSqlError 14: 15: Local cAlias 16: Local bError 17: Local bErrorBlock 18: 19: Local oError 20:   21: RpcSetType(3) 22: PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" 23:   24: bError := { |e| oError := e , BREAK(e) } 25: bErrorBlock := ErrorBlock( bError ) 26: 27: cLike := "F%" 28: cAlias := GetNextAlias() 29:
9 comentários
Leia mais