Consultor Eletrônico



Kbase 51095: Procedimento para realizar load de definições (.df) em lotes via scripts
Autor   Eloi Rene Pscheidt - CAT
Acesso   Público
Publicação   6/15/2015
Procedimento para realizar load de definições (.df) em lotes via scripts.
Neste exemplo para todos os bancos de um determinado diretório, o seu respectivo .df será importado.
Para cada banco deverá existir um arquivo .df de mesmo nome, ou nome similar, que possa ser composto no script.
Por exemplo, para o banco eai.db deverá existir o arquivo eai.df. Caso exista o arquivo eai-psc.df, o seu nome pode ser
composto da seguinte forma: %~ni-psc.df
Como Usar:
- salvar este programa e se necessário compilar
- via PROENV, navegar até o diretório dos bancos
- executar: for %i in (*.db) do prowin32.exe -db %~ni -1 -p loaddf.p -param ..\dir_deltas\~%ni.df
- será gerado um arquivo texto para cada banco, com o sufixo "-load.txt", contendo as mensagens geradas pelo programa.

/**** salvar como loaddf.p ****/
OUTPUT TO VALUE(LDBNAME(1) + "-load.txt").
FILE-INFO:FILE-NAME = session:PARAMETER.
IF FILE-INFO:FILE-TYPE = ?
THEN PUT UNFORMATTE "arquivo não encontrado" SKIP.
ELSE run prodict\load_df.p (input FILE-INFO:FULL-PATHNAME).
OUTPUT CLOSE.
QUIT.
/**** fim do programa ****/