Pular para o conteúdo principal

Postagens

Mostrando postagens de abril, 2011

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

Protheus :: Chamando Funções do Menu Diretamente e sem a Necessidade de Login

Por
Ferne$ perguntou: "...é possível abrir alguma rotina do sistema sem solicitar login ao usuário, como por exemplo a rotina MATA010..." Sim Ferne$, é possível sim. Abaixo um Exemplo para a Chamada à função MATA010 sem a necessidade de Login no sistema. #INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" /*/ Funcao: MATA010Ex Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Executar a Funcao MATA010 diretamente sem a necessidade de LOGIN no Protheus Sintaxe: 1 ) U_MATA010Ex ( Chamada diretamente na Tela de Entrada do Sistema ) ; ou 2 ) totvsclient.exe -q -p=u_MATA010Ex -a=01;01 -c=rnp_local -e=rnp -m -l ( Chamada Via Linha de Comando ) /*/ User Function MATA010Ex( cEmpFil ) Local aEmpFil Local bWindowInit := { || __Execute( "MATA010()" , "xxxxxxxxxxxxxxxxxxxx" , "MATA010" , "SIGAFAT" , "SIGAFAT", 1 , .T. ) } Local cEmp Local cFil Local cMod Local cModName := "SIGAFAT" DEFA
30 comentários
Leia mais

Protheus :: Executando aplicações externas no "Server" utilizando WaitRunSrv

Por
WaitRunSrv() é uma função da "biblioteca" de funções do Protheus que tem a finalidade de executar uma aplicação externa no "Server. Sua sintaxe é: WaitRunSrv( cCommandLine , lWaitRun , cPath ) : lSuccess Onde: cCommandLine : Instrução a ser executada lWaitRun : Se deve aguardar o término da Execução Path : Onde, no server, a função deverá ser executada Retorna : .T. Se conseguiu executar o Comando, caso contrário, .F. Poderíamos utilizá-la, por exemplo, para chamar uma aplicação em java no servidor do Protheus para a geração de um relatório pelo IReport exportando o conteúdo para .pdf ou .xls e depois trazer o conteúdo ao "client" do Protheus para apresentá-lo ao usuário, ou ainda para a execução de um script em "PowerShell", ou a chamada a qualquer outro aplicativo que se encontra no server. Um exemplo de uso (apenas didático, pois de fato não têm sentido usá-la para essa finalidade) seria: WaitRunSrv( "attrib d:\sv
11 comentários
Leia mais

Protheus :: Filtrando a mBrowse de acordo com a Legenda de Cores

Por
O Filtro da mBrowse, baseado na Legenda de Cores, é algo que já deveria existir no sistema padrão. Ele facilitaria muito a vida do usuário mas, infelizmente, isso não é uma verdade. Quem sabe, após este "post", a totvs/microsiga não decida implementa-lo em versões futuras do protheus/by you. Enquanto isso não se torna realidade, vou postar aqui uma dica e disponibilizar um exemplo de código fonte de: "Como Implementar o Filtro da mBrowse baseado na Legenda de Cores". Dada a característica da implementação atual das cores e legenda na mBrowse, esse, acredito eu, seja o maior "POG" que já implementei usando Advpl. Ele é funcional, é elegante, mas não deixa de ser um "POG". Ele passa a ser um "POG" à partir do momento que tenho que "roubar" (parafraseando Wilson de Godoy) a Legenda de cores bem como a regra de sua implementação usando "tratamento de erro" para criar uma função de propósito geral (pois servirá para to
6 comentários
Leia mais

Protheus :: Opções de Filtro na mBrowse

Por
Algumas maneiras de Filtrar os registros a serem apresentados na mBrowse Opção 1: Usando a Função FilBrowse() para filtrar os registros antes da apresentação da mBrowse /*/ Exemplo 1 ) Usando a Funcao FilBrowse() /*/ User Function MbrFEx1() Local aIndex := {} Local cFiltro := "RA_SEXO == 'F'" //Expressao do Filtro Private aRotina := {; { "Pesquisar" , "PesqBrw" , 0 , 1 },; { "Visualizar" , "AxVisual" , 0 , 2 },; { "Incluir" , "AxInclui" , 0 , 3 },; { "Alterar" , "AxAltera" , 0 , 4 },; { "Excluir" , "AxDeleta" , 0 , 5 }; } Private bFiltraBrw := { || FilBrowse( "SRA" , @aIndex , @cFiltro ) } //Determina a Expressao do Filtro Private cCadastro := "Exemplo de Filtro da mBrowse usando FilBrowse" Eval( bFiltraBrw ) //Efetiva o Filtro antes da Chamada a mBrowse mBrowse( 6 , 1 , 22 , 75 ,
22 comentários
Leia mais

Oatmeal ensina como consertar qualquer computador

Por
Oatmeal ensina como consertar qualquer computador : " Cada computador é um computador. Mas quando eles dão problema, o procedimento só varia com o sistema operacional. Ao menos na visão bem humorada do sempre incisivo Oatmeal. Não se ofendam, soldados do pinguim, é só uma brincadeirinha. Tradução e adaptação para o Gizmodo Brasil: Fabio Bracht. Original: The Oatmeal []s иαldσ dj
Postar um comentário
Leia mais

Vida de Programador: Esses clientes…

Por
Vida de Programador: Esses clientes… : []s иαldσ dj
Postar um comentário
Leia mais

PowerShell :: Totvs/Protheus Script Restart/Stop services

Por
Um exemplo de "script" em PowerShell para a "tortuosa" tarefa de parar ou reiniciar todos os serviços do totvs/protheus. ############################################################################### #Autor: Marinaldo de Jesus # #Arquivo: totvsRestartServices.ps1 # #Uso: Parar ou Forçar o Reinicio de todos os serviços do totvs/protheus # #Sintaxe: 1 ) Restart -> PS C:\> .\totvsRestartServices # # 2 ) Stop -> PS C:\> .\totvsRestartServices stop # ############################################################################### param( [string]$sOperation = "restart" ) [Boolean]$bRestart = $sOperation.ToLower().Contains("restart") [array]$aServices = "ctreeServer", "PROTHEUS 10 PRODUCAO MASTER", "PROTHEUS 10 PRODUCAO SLAVE01", "PROTHEUS 10 PRODUCAO SLAVE02", "PROTHEUS 10 PRODUCAO SLAVE03", "PROTHE
1 comentário
Leia mais