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
- Conhecer o utilitário TDSCli (TDS em linha de comando)
- Comandos MS-DOS
- Comandos e estrutura do arquivo de lote (.bat)
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>