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. |
Exemplo 1:
/* 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 */
Se (R034Fun.NumEmp = 1)
Definir Alfa xNomFun;
xNomFun = R034Fun.ApeFun;
Definir Alfa x
GravaFotoColaboradorEmDisco(R034FUN.NumEmp, R034FUN.Tipcol, R034FUN.NumCad,
"C:\\Fotos", xNomFun, xRetFun, xMsgErr);
Exemplo 2:
/* 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 */
GravaFotoColaboradorEmDisco(1, 1, 1, "", "João", xRetFun, xMsgErr);
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
