English
Español
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
English
Español
