Gestão de Pessoas - Manual do Usuário > Customizações > Funções > GravaImagemBanco

GravaImagemBanco

É uma função genérica que permite gravar imagens em qualquer tabela do sistema, sendo que o parâmetro imagem pode ser uma referência passada pelo retorno da função WCheckValImage.

Observação

Ao gravar a imagem na base, independentemente da extensão, ela será automaticamente convertida para o formato JPG. Por conta disso, é possível que a imagem perca um pouco da qualidade.

Sintaxe: GravaImagemBanco(Alfa aTabela, Alfa aCamposChave, Alfa aOutrosCampos, Alfa aCampoImagem, Numero aOrigem, Alfa aArquivo, Alfa end aMensagem);

Parâmetros:

Nome	Tipo	Descrição
aTabela	Alfa	Nome da tabela no banco de dados que armazenará a imagem.
aCamposChave	Alfa	Nome e valores dos campos chave que serão utilizados no SQL separados por ";". (Ex: "NumEmp=1;TipCol=1;NumCad=1").
aOutrosCampos	Alfa	Nome e valores dos campos restantes (exceto a chave e o campo imagem) que serão utilizados no SQL de inclusão separados por ";". Deve-se informar somente campos que sejam obrigatórios ou se desejar os campos opcionais.
aCampoImagem	Alfa	Nome do campo no banco de dados que armazenará a imagem.
aOrigem	Numérico	Origem da imagem (1-arquivo, 2-upload).
aArquivo	Alfa	Quando aOrigem for 1, deve-se indicar o caminho completo do arquivo. Quando aOrigem for 2, deve-se indicar a variável aRetorno da função WCheckValImage.
aMensagem	Alfa	Mensagem de erro, sendo que o valor padrão quando não ocorrer erros será em branco.

Exemplo:

/***** Exemplo passando o caminho completo do arquivo *******/
Definir Alfa aArquivo;
Definir Alfa aMsg;
/* notar que deve ser passado o caminho com duas barras e se for caminho de rede com 4 barras (aArquivo = \\\\servidor\\documentos\\exemplo.jpg";) */
aArquivo = "C:\\Temp\\imagem.jpg";
ret = GravaImagemBanco("R034FOT", "NumEmp=1;TipCol=1;NumCad=1", "DatFot=01/01/2008;FlaFot=1", "FotEmp", 1, aArquivo, aMsg);
Se (ret <> 0)
     WAdicionaListaErros("", aMsg);

/***** Exemplo usando upload de arquivos *******/
Definir Alfa aNomeFoto;
Definir Alfa aMsg;
WCheckValImage("R122CEX_Foto", "Foto do Candidato", aNomeFoto, "S", "jpg", 200);
Se (aNomeFoto <> "")
     ret = GravaImagemBanco("R034FOT", "NumEmp=1;TipCol=1;NumCad=1", "DatFot=01/01/2008;FlaFot=1", "FotEmp", 2, aNomeFoto, aMsg);
Se (ret <> 0)
    WAdicionaListaErros("", aMsg);

Utilização: Regras do sistema.