English
Español
GravaFotoColaboradorEmDisco
Grava a foto do colaborador em disco. Esta foto será salva no mesmo tamanho em que foi gravada no Banco de Dados, sempre no formato JPEG (*.JPG).
Sintaxe: GravaFotoColaboradorEmDisco(Numero xNumEmp, Numero xTipcol, Numero xNumCad, Alfa xDirArq, Alfa xNomArq, Numero End xRetorno, Alfa 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 a foto 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 da foto do colaborador. |
xRetorno | Numérico | Retorno, onde ‘0’ = Foto gravada com sucesso e ‘1’ = Foto não gravada. |
xMsgErr | Alfa | Retorna uma mensagem de erro caso a foto não tenha sido gravada. |
<div class="Code"><p>/* Deseja-se salvar a foto dos colaboradores da empresa 1 no diretório "C:\Fotos", sendo o nome do arquivo igual ao apelido do colaborador */</p><p>Se (R034Fun.NumEmp = 1)<br></br>Definir Alfa xNomFun;<br></br>xNomFun = R034Fun.ApeFun;<br></br>Definir Alfa x<br></br><br></br>GravaFotoColaboradorEmDisco(R034FUN.NumEmp, R034FUN.Tipcol, R034FUN.NumCad, "C:\\Fotos", xNomFun, xRetFun, xMsgErr);</p></div>
<div class="Code"><p>/* Deseja-se salvar a foto do colaborador 1 da empresa 1 no diretório do executável do sistema, com o nome do arquivo = João */</p><p>GravaFotoColaboradorEmDisco(1, 1, 1, "", "João", xRetFun, xMsgErr);</p></div>
Observação: mesmo não sendo informado o diretório do arquivo, é necessário informar as aspas.
Utilização: Gerador de Relatórios e Regras.
English
Español
