Tecnologia > Ferramentas de Apoio > LSP - Linguagem Senior de Programação > Funções > Específicas do Gerador de Relatórios > CarregaImgControle

CarregaImgControle

Esta função carrega uma imagem do banco ou arquivo para um controle imagem do modelo.

Sintaxe: CarregaImgControle(Alfa NomeDoControleImagem, Numero Arquivo0Banco1Variavel2, Alfa CaminhoCampoNome, Alfa SQL, Numero SqlSenior2);

Parâmetros:

Nome Tipo Descrição
NomeDoControleImagem Alfa Variável alfa com o nome do controle imagem do modelo que carregará a imagem
Arquivo0Banco1Variavel2 Numero

Variável numérica com o tipo de localização do arquivo.

  • Se o valor for 0 (zero), carregará a imagem de um arquivo passado em CaminhoCampoNome, por exemplo, c:\Fig.BMP;
  • Se o valor for 1, carregará a imagem do banco do campo passado em CaminhoCampoNome;
  • Se o valor for 2, carregará a imagem de uma variável de sistema passada em CaminhoCampoNome , esta variável deverá conter uma imagem ICO, BMP ou EMF associada;
CaminhoCampoNome Alfa Descrição do caminho do arquivo, do nome da tabela e campo, por exemplo, R300CHR.FIGFUN, através da cláusula Where passada em SQL ou nome da variável de sistema que contém a imagem a ser carregada, por exemplo, ImgBMPGerador
Sql Alfa Cláusula Where para buscar a imagem da tabela
SqlSenior2 Numero Se for passado 0 (zero), o comando deverá ser passado em sintaxe SQLSenior1, e se for passado 1, a sintaxe deverá obedecer ao padrão SQLSenior2

Exemplos:

Imagem BMP a partir de um arquivo:

 CarregaImgControle ("Imagem001", 0, "C:\\temp\\Teste.BMP", "", 0);

Imagem a partir do banco:

Definir Alfa xSQL;
Definir Alfa P1;
Definir Alfa P2;
Definir Alfa P3;
Definir Alfa D1;

IntParaAlfa (R034FOT.NUMEMP, P1);
IntParaAlfa (R034FOT.TIPCOL, P2);
IntParaAlfa (R034FOT.NUMCAD, P3);

ConverteDataBanco (R034FOT.DATFOT, D1);
P1 = "R034FOT.NUMEMP = " + P1;
P2 = " AND R034FOT.TIPCOL = " + P2;
P3 = " AND R034FOT.NUMCAD = " + P3;
D1 = " AND R034FOT.DATFOT = " + D1;
xSQL = P1 + P2 + P3 + D1;

CarregaImgControle ("Imagem002", 1, "R034FOT.FotEmp", xSQL, 1);

Imagem ICO a partir de uma variável:

CarregaImgControle ("Imagem002", 2, "ImgICOGerador", "", 0);

Imagem EMF a partir de uma variável:

CarregaImgControle ("Imagem003", 2, "ImgEMFGerador", "", 0);

Nota

Função disponível para os sistemas Gestão Empresarial PME | GO UP, Gestão Empresarial | ERP, Gestão de Pessoas | HCM e Ronda Senior.

Este artigo ajudou você?