Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode (17) :: Comparando Implementações do Desafio "Letter Combinations of a Phone Number" em Harbour e TOTVS TLPP

_Créditos das imagens: ChatGPT_ # LeetCode (17) :: Comparando Implementações do Desafio "Letter Combinations of a Phone Number" em Harbour e TOTVS TLPP O desafio [**"Letter Combinations of a Phone Number"**](https://leetcode.com/problems/letter-combinations-of-a-phone-number/description/) (Combinações de Letras de um Número de Telefone) é um problema clássico de programação que envolve a geração de todas as combinações possíveis de letras que um número de telefone pode representar, com base no mapeamento tradicional dos teclados de telefone. Abaixo, comparamos duas implementações desse desafio: uma em **Harbour** e outra em **TOTVS TLPP** (TOTVS Language Plus Plus). ## O Desafio Dada uma string contendo dígitos de 2 a 9, retorne todas as combinações possíveis de letras que esses dígitos podem representar. O mapeamento dos dígitos para as letras é o mesmo dos teclados de telefone tradicionais: - 2: "abc" - 3: "def" - 4: "ghi" - 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