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. |
<div class="Code"><p>/* 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. */</p><p></p><p>Definir Alfa xMsgErr;</p><p>Definir Alfa xNomFun;</p><p>Definir Numero xRetFun;</p><p>Se (R034Fun.NumEmp = 1)</p><p>Inicio</p><p style="margin-left: 1cm;margin-bottom: 1.12em;margin-top: 1.12em;">xNomFun = R034Fun.ApeFun;</p><p style="margin-left: 1cm;margin-bottom: 1.12em;margin-top: 1.12em;">GravaDocumentosEmDisco(R034FUN.NumEmp, R034FUN.Tipcol, R034FUN.NumCad, "C:\\Documentos", xNomFun, xRetFun, xMsgErr);</p><p>Fim;</p></div>
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
