Crystal Reports – Como buscar uma imagem de arquivo para ser exibida no relatório

Olá caros sqlnautas, gostaria de retornar aqui com mais uma dica importante sobre imagens no crystal reports. Imagine o seguinte cenário: você está montando um relatório em crystal reports que deverá exibir imagens que, ao invés de estarem armazenadas no banco de dados, estão em arquivos no disco rígido do servidor, e no banco de dados você só tem a localização deste arquivo, o que é muito comum, pois armazenar arquivos em banco de dados é extremamente desaconselhável quando se pensa em performance.

O que precisamos fazer, é utilizar uma ferramenta muito simples, chamada BULK INSERT. Este comando é utilizado para importar dados em massa provenientes de arquivos para o banco de dados. Mas nós não vamos armazenar esta imagens, e sim converter os arquivos de imagem em formato BLOB, ou image. O conceito é simples: realizo o bulk insert do arquivo dentro de uma tabela temporária, que retorna um select ao crystal reports com a coluna image da tabela:

 

Code Snippet

1. -- exec spcAmplaPedidoCompraImagem 3, 2685
2. alter proc spcAmplaPedidoCompraImagem  
3.   @cd_empresa int
4. , @nr_pedido int
5.  
6. as
7.  
8.   declare @nr_documento int
9.   declare @revisao int
10.   declare @vcd_item char(13)
11.   declare @vdocumento varchar(4000)
12.   declare @sql varchar(8000)
13.   
14.   -- ***************
15.   -- SQL Burger 2011
16.   -- Procedure que retorna as imagens provenientes de arquivos
17.   -- para exibição em relatório crystal reports.
18.   -- ***************
19.   
20.   -- Inicio a montagem de uma query dinâmica, necessária para a execução
21.   -- do comando bulkinsert com parâmetros dinâmicos, provenientes da tabela
22.   -- que possui a localização dos arquivos.
23.   select @sql = '
24.  
25.   create table #tmpImagem (imagem image)
26.   
27.   '
28.   
29.   -- Insiro em uma tabela auxiliar todos os itens do pedido de compra
30.   -- para verificar quais possuem documentos que deverão ser impressos
31.   -- junto com o pedido.
32.   create table #tmpItem (cd_item char(13) collate database_Default null)
33.   
34.   insert into #tmpItem
35.     select cd_item from pedidocitem
36.      where cd_empresa = @cd_empresa
37.        and nr_pedido = @nr_pedido
38.        
39.   insert into #tmpItem
40.     select cd_item from AdhEPTRomaneioPedidoCompra
41.      where cd_empresa = @cd_empresa
42.        and nr_pedido = @nr_pedido
43.        
44.   -- Faço join da tabela temporária de itens com a de documentos
45.   -- configurados a serem impressos nos pedidos de compra, e valido
46.   -- se o arquivo está ativo e dentro da validade.
47.   declare cp1 cursor local fast_forward read_only for
48.     select distinct a.cd_item, b.documento
49.       from #tmpItem a, itemdocumentorev b
50.      where a.cd_item = b.cd_item
51.        and b.imprime_pc = 'S'
52.        and b.cd_situacao = 'A' -- ativos apenas
53.        and b.dt_validade >= convert(char(10), getdate(), 120)
54.      order by a.cd_Item
55.        
56.   open cp1
57.   
58.   while 1 = 1
59.   begin
60.     fetch next from cp1 into @vcd_item, @vdocumento
61.     if @@fetch_status <> 0 break
62.     
63.     -- Para cada arquivo retornado, monto na query dinâmica o comando bulk insert
64.     -- que irá inserir o stream da imagem na tabela #tmpImagem, criada no começo
65.     -- do procedimento.
66.     select @sql = @sql + '  insert into #tmpImagem (imagem)
67.       select Bulkcolumn
68.         from OPENROWSET(
69.                BULK N''' + rtrim(@vdocumento) + ''', SINGLE_BLOB
70.                        ) as picture      
71.     '
72.   
73.   end
74.   close cp1
75.   deallocate cp1
76.   
77.   -- No final, retorno as imagens.
78.   select @sql = @sql + '
79.   
80.     select imagem from #tmpImagem
81.     
82.   '
83.   
84.   -- Executo a query dinâmica
85.   exec (@sql)

 

A string que contem a query dinâmica (@sql) foi executada da seguinte forma:

 

Code Snippet

1. create table #tmpImagem (imagem image)
2.  
3.   insert into #tmpImagem (imagem)
4.     select Bulkcolumn
5.       from OPENROWSET(
6.              BULK N'C:\MSSQL\Novo\4002-109 Base Fixação Encoder0001.jpg', SINGLE_BLOB
7.                      ) as picture      
8.     insert into #tmpImagem (imagem)
9.     select Bulkcolumn
10.       from OPENROWSET(
11.              BULK N'C:\MSSQL\Novo\4004-057 Suporte Sensor Ótico0001.jpg', SINGLE_BLOB
12.                      ) as picture      
13.     insert into #tmpImagem (imagem)
14.     select Bulkcolumn
15.       from OPENROWSET(
16.              BULK N'C:\MSSQL\Novo\4004-061 Suporte Direito Bandeja0001.jpg', SINGLE_BLOB
17.                      ) as picture      
18.     insert into #tmpImagem (imagem)
19.     select Bulkcolumn
20.       from OPENROWSET(
21.              BULK N'C:\MSSQL\Novo\4004-064 Suporte Esquerdo Bandeja0001.jpg', SINGLE_BLOB
22.                      ) as picture      
23.     insert into #tmpImagem (imagem)
24.     select Bulkcolumn
25.       from OPENROWSET(
26.              BULK N'C:\MSSQL\Novo\4004-119B Placa Fixação Servo0001.jpg', SINGLE_BLOB
27.                      ) as picture      
28.   
29.  
30.   select imagem from #tmpImagem

 

Para cada arquivo, ele montou a string executando o bulk insert de cada imagem. No final, o select retornando as imagens da temporária. O resultado do procedimento, via query no SQL Server:

 

 

Já no relatório crystal reports, ao importar esta coluna do tipo IMAGE, aparecerá no seu relatório:

 

 

Easy, don’t you think ? =)

 

Até a próxima!!