TOTVSTEC

Árvore de páginas

NOTA: Os arquivos aqui disponibilizados são um exemplo de como escreve-los e utilizá-los. Será necessário efetuar adaptações as suas necessidades e estilo de programação.
Fique a vontade para modifica-los conforme a sua necessidade ou gosto.

Pré-requisitos
Passos iniciais
  • Crie uma pasta para armazenar os arquivos, por exemplo C:\TDSUtils
  • Defina as variáveis de ambiente
    • TDS_HOME=<pasta de instalação do TDS>
    • TDS_APPRE=%TDS_HOME%
    • TDS_CLI="%TDS_HOME%\jre\bin\java" -jar "%TDS_HOME%\tdscli.jar"
  • Acesse a linha de comando e verifique se esta configurado corretamente (tela001)
  • Crie os arquivos com o nome sugerido na linha de comentário

Arquivo para compilação

@echo off

rem compila.bat

rem Usos:

rem A. Um único arquivo

rem  C:\TDSUtils>compila <caminho do arquivo>

rem B. Grupo de arquivos em uma pasta

rem C:\TDSUtils>for %a in ("<pasta do arquivo>\*.pr?") do compile %a

rem configuração para o TDSCli

set TDS_SERVERTYPE=advpl

set TDS_SERVER=127.0.0.1

set TDS_PORT=1932

set TDS_BUILD=7.00.111010P

set TDS_ENVIRONMENT=envCodeBase

set TDS_INCLUDES=m:\protheus\include;m:\ver110\include

set TDS_USER=admin

set TDS_PSW=%2

rem ajusta o parametro

set PROGRAM=%~1

%TDS_CLI% compile program="%PROGRAM%" psw=%2

Exemplos de uso

C:\TDSUtils>compila "C:\TOTVS\TOTVS Developer Studio\workshop\Novo_Projeto\escolheNum.prw"

Conectando no servidor "127.0.0.1", porta "1932"

Conectado...

Arquivo [escolheNum.prw] nπo precisa ser compilado [SKIPED]

C:\TDSUtils>

 

 

C:\TDSUtils>for %a in ("C:\TOTVS\TOTVS Developer Studio\workshop\Novo_Projeto\*.pr?") do compila %a

Conectando no servidor "127.0.0.1", porta "1932"

Conectado...

Arquivo [escolheNum.prw] nπo precisa ser compilado [SKIPED]

Conectando no servidor "127.0.0.1", porta "1932"

Conectado...

Arquivo [teste.prw] nπo precisa ser compilado [SKIPED]

Arquivo para geração de pacote de atualização

@echo off

rem geraPtm.bat

rem Usos:

rem A. Um único ambiente

rem  C:\TDSUtils>geraPtm <nome do ambiente> <lista de recursos>

rem B. Vários ambientes

rem C:\TDSUtils>for %a in (<lista de ambiente>) do geraPtm %a <lista de recursos>

rem configuração para o TDSCli

set TDS_SERVERTYPE=advpl

set TDS_SERVER=127.0.0.1

set TDS_PORT=1932

set TDS_BUILD=7.00.111010P

set TDS_INCLUDES=m:\protheus\include;m:\ver110\include

set TDS_USER=admin

set TDS_PSW=

set TDS_SAVELOCAL=c:\TDSUtils

set TDS_patchType=PTM

%TDS_CLI% patchgen environment="%1" fileResource="%2" psw=

 

Exemplos de uso

C:\TDSUtils>geraptm envcodebase escolheNum.prw,teste.prw

Conectando no servidor "127.0.0.1", porta "1932"

Conectado...

Patch gerado localmente com sucesso

 

C:\TDSUtils>for %a in (envcodebase envmssql) do geraptm %a escolheNum.prw,teste.

prw

 

C:\TDSUtils>geraptm envcodebase escolheNum.prw,teste.prw

Conectando no servidor "127.0.0.1", porta "1932"

Conectado...

Patch gerado localmente com sucesso

 

C:\TDSUtils>geraptm envmssql escolheNum.prw,teste.prw

Conectando no servidor "127.0.0.1", porta "1932"

Conectado...

Patch gerado localmente com sucesso

 

C:\TDSUtils>dir

 Volume in drive C has no label.

 Volume Serial Number is 7C28-FC82

 

 Directory of C:\TDSUtils

 

16/05/2013  04:05    <DIR>          .

16/05/2013  04:05    <DIR>          ..

16/05/2013  03:48               360 compila.bat

16/05/2013  04:04               352 geraPtm.bat

16/05/2013  04:04            21.934 ttdp110.ptm

16/05/2013  04:05            20.641 tttp110.ptm

               4 File(s)         43.287 bytes

               2 Dir(s)  74.076.913.664 bytes free

 

C:\TDSUtils>

 

 

 

  • Sem rótulos