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