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	Descripción
xNumEmp	Numérico	Número da empresa.
xTipCol	Numérico	Tipo de empleado.
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.

Ejemplo 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);

Ejemplo 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.

Utilización: Generador de Reportes y Reglas.