Identificador de Regra

GER-000DIRAN02

Módulo: GER - Gerais.

Finalidade: Permitir manipular o diretório de destino de um arquivo anexo de forma que este arquivo possa ser carregado a partir de qualquer local e copiado para o diretório que será armazenado. Quando informado na regra, um diretório diferente do diretório onde o arquivo foi selecionado, o mesmo será copiado para o diretório informado na regra. O tratamento de o arquivo existir ou não(caso deseja) deve ser feito na regra. Caso o arquivo já exista no destino, ele será substituído.

Transação: Não se aplica.

Regra:

A regra será disparada sempre que for inserido um novo anexo, ou for alterado o caminho/arquivo de um anexo já gravado.

Neste exemplo, é buscado do cfg um diretório base e, conforme a rotina dos anexos, é concatenado uma pasta final...
Definir Alfa GERADirAtual;
Definir Alfa GERAArqAtual ;
Definir Alfa GERADirArqNovo;
definir alfa vsDiretorio;
definir Numero GERNRotAnx;
Definir Alfa GERAEstado;

RetornaValorCFG("com.senior.sapiens.diretorioanexos", vsDiretorio); /* Aqui está definido C:\TEMP\ */

Se (GERNRotAnx = 54)
vsDiretorio = vsDiretorio + "Agro
";
senao
Se (GERNRotAnx = 51)
vsDiretorio = vsDiretorio + "Clientes
";

Concatena(vsDiretorio, GERAArqAtual , "", GERADirArqNovo);
/*Aqui concatena o vsDiretorio, com o arquivo para dentro da variável GERADirArqNovo */

Tela: F000ANX.

Variáveis Disponibilizadas:

Variável Tipo Descriição Retorna Valor
GERADirAtual ALFA Diretório atual, onde se encontra o arquivo N
GERAArqAtual ALFA Nome do arquivo. Sem o diretório N
GERAEstado ALFA Operação que está sendo feita (Inclusão ou Alteração) N
GERNRotAnx NUMERO Número da rotina dos anexos. Essa numeração poderá ser identificada através da verificação da lista presente no campo RotAnx da tabela E000ANX no TBS (através do menu Diversos > Campos/Tabelas - atalho F8). N
GERADirArqNovo ALFA Diretório e nome do arquivo para onde deverá ser copiado o aquivo S

Este artigo ajudou você?