Gestão de Pessoas - Manual do Usuário > Customizações > Funções > GravaDocumentosEmDisco

GravaDocumentosEmDisco

Grava os documentos do colaborador em disco. Estes documentos serão salvos no mesmo tamanho e formato em que foram gravados no Banco de Dados.

Sintaxe: GravaDocumentosEmDisco(Numero xNumEmp, Numero xTipcol, Numero xNumCad, Alfa xDirArq, Alfa xNomArq, Numero End xRetorno, Alfa End xMsgErr)

Parâmetros:

Nome	Tipo	Descrição
xNumEmp	Numérico	Número da empresa
xTipCol	Numérico	Tipo do colaborador.
xNumCad	Numérico	Cadastro (código) do colaborador.
xDirArq	Alfa	Diretório onde será gravada o documento do colaborador. Obs.: caso não seja informado o diretório, o arquivo será gravado no diretório do executável do sistema.
xNomArq	Alfa	Nome do documento do colaborador.
xRetorno	Numérico	Variável de retorno, onde '0' = Documento gravado com sucesso e '1' = Documento não gravado.
xMsgErr	Alfa	Retorna uma mensagem de erro caso o documento não tenha sido gravada.

Exemplo:

/* Deseja-se salvar os documentos dos colaboradores da empresa 1 no diretório "C:\\Documentos", sendo que os nomes dos arquivos terão o apelido do colaborador + a sequencia do documento + a data do registro + o nome do arquivo, quando constar no banco de dados. */

Definir Alfa xMsgErr;

Definir Alfa xNomFun;

Definir Numero xRetFun;

Se (R034Fun.NumEmp = 1)

Inicio

xNomFun = R034Fun.ApeFun;

GravaDocumentosEmDisco(R034FUN.NumEmp, R034FUN.Tipcol, R034FUN.NumCad, "C:\\Documentos", xNomFun, xRetFun, xMsgErr);

Fim;

Exemplo do nome do arquivo gravado em disco: nomepassado_20-08-12_2_NomeArquivo.png

Utilização: Gerador de Relatórios e Regras