Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode :: Comparando Implementações Harbour e TLPP para o Desafio Longest Palindromic Substring

_Créditos das imagens: ChatGPT_ ### LeetCode :: Comparando Implementações Harbour e TLPP para o Desafio Longest Palindromic Substring Resolver o problema do [Longest Palindromic Substring](https://leetcode.com/problems/longest-palindromic-substring/description/) é um exercício clássico de programação, que desafia desenvolvedores a encontrar a maior substring palindrômica dentro de uma string. Recentemente, exploramos soluções tanto em Harbour quanto em TLPP (Total Language Protheus Programming). Neste artigo, comparamos as implementações nessas duas linguagens, destacando suas semelhanças, diferenças e funcionalidades específicas. #### Implementações em Harbour ##### Versão 5.1 Essa solução utiliza a técnica de expansão a partir do centro do palíndromo. Cada caractere ou par de caracteres consecutivos é considerado um possível "centro". O algoritmo expande em ambas as direções enquanto os caracteres forem iguais, retornando o maior palíndromo encontrado. ##### Versão 5....

BlackTDN :: Batch Script para múltiplos UPDDISTR

Quem nunca precisou aplicar vários "Distris", principalmente com o advento do e-Social. Abaixo, e anexo, um exemplo de como fazê-lo utilizando alguns "Windows batch scripts".

1) Na pasta \systemload\ crie a seguinte estrutura de diretórios:

\systemload\hlpdf\
conterá todos os arquivos hlpdf???.txt

\systemload\sdfbra\
 conterá todos os arquivos sdf???.txt

\systemload\sx2_unq\
conteá todos os arquivos sx2.unq

\systemload\sxsbra\
conterá todos os arquivos sxs???.txt

2) Os arquivos deverão estar ordenados por data de criação e sufixados com uma sequencia numérica de forma a garantir a ordenação e paridade. Ex.:

\systemload\hlpdf\
hlpdfpor.txt.d01
hlpdfpor.txt.d02
hlpdfpor.txt.d03
hlpdfpor.txt.d04
hlpdfpor.txt.d05
hlpdfpor.txt.d06
hlpdfpor.txt.d07
hlpdfpor.txt.d09

\systemload\sdfbra\
sdfbra.txt.d01
sdfbra.txt.d02
sdfbra.txt.d03
sdfbra.txt.d04
sdfbra.txt.d05
sdfbra.txt.d06
sdfbra.txt.d07
sdfbra.txt.d08
sdfbra.txt.d09
sdfbra.txt.d10
sdfbra.txt.d11
sdfbra.txt.d14
sdfbra.txt.d15
sdfbra.txt.d16
sdfbra.txt.d17

\systemload\sx2_unq\
sx2.unq.d07
sx2.unq.d08
sx2.unq.d12
sx2.unq.d13
sx2.unq.d14
sx2.unq.d15

Observe que  o sufixo, após a extensão do arquivo, é que determina a paridade. A numeração determina a ordem de aplicação.

Para a aplicação sequencial, a pasta \systemload\ deverá estar vazia contendo, apenas, os seguintes scripts:

sdfbra.bat
sdfhlp.bat
sdfrmv.bat
sdfunq.bat
 E executar  sdfbra.bat. Os pacotes serão aplicados, sequencialmente, conforme ordenação.

Obs.: Antes de executar o "script" sdfbra.bat edite-o e altere as variáveis de ambiente abaixo listadas:

SET UPDDISTR_DRV=E:
SET UPDDISTR_PTH=E:\Totvs\Microsiga\protheus_data\systemload\
SET UPDDISTR_EXE=E:\Totvs\Microsiga\protheus11\bin\smartclient\Smartclient.exe
SET UPDDISTR_EMP=01
SET UPDDISTR_FIL=01
SET UPDDISTR_CON=slave1
SET UPDDISTR_ENV=totvs

onde:

SET UPDDISTR_DRV=Drive base para aplicalção do UPDDISTR
SET UPDDISTR_PTH=Path indicando a systemload
SET UPDDISTR_EXE=Path indicando o caminho para o smarticlient.exe
SET UPDDISTR_EMP=Empresa
SET UPDDISTR_FIL=Filial
SET UPDDISTR_CON=conexão
SET UPDDISTR_ENV=Ambiente.



Para baixar os "scripts" clique aqui.


[]s
иαldσ dj 




Comentários

  1. No meu caso, minha base possui 96 empresas, tenho muita dificuldade pois cada uma utiliza sua propria SX e para aplicar um UPDDISRT demora seculos, existe a possibilidade de executar vários UPDDISTR simultâneo para cada empresa?

    ResponderExcluir
  2. Marinaldo,

    Poderia enviar um email com teu contato, estou precisando falar contigo sobre a possibilidade de você prestar um serviço para nós.

    ResponderExcluir
    Respostas
    1. Fábio, quer falar comigo? Mande mail para mail@blacktdn.com.br

      Excluir
  3. Não esta funcionando o código que vc postou

    ResponderExcluir

Postar um comentário

Postagens mais visitadas