{"id":1905,"date":"2019-03-25T17:37:11","date_gmt":"2019-03-25T20:37:11","guid":{"rendered":"http:\/\/xexeu.elipse.com.br\/pt\/kb36292-alterando-figura-do-relatorio-em-tempo-de-execucao\/"},"modified":"2021-04-14T08:59:46","modified_gmt":"2021-04-14T11:59:46","slug":"kb36292-alterando-figura-do-relatorio-em-tempo-de-execucao","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/kb36292-alterando-figura-do-relatorio-em-tempo-de-execucao\/","title":{"rendered":"KB-36292: Alterando figura do Relat\u00f3rio em tempo de execu\u00e7\u00e3o."},"content":{"rendered":"
\n

Descri\u00e7\u00e3o:<\/span><\/p>\n<\/div>\n

\u00c9 poss\u00edvel alterar as figuras do Relat\u00f3rio em tempo de execu\u00e7\u00e3o antes de realizar a impress\u00e3o?<\/div>\n
\n<\/div>\n
Solu\u00e7\u00e3o:<\/span><\/div>\n
<\/div>\n
Sim; para isto, siga os procedimentos abaixo:<\/div>\n
\n

1. Adicione um Hist\u00f3rico com um campo associado a um Tag Interno que ser\u00e1 respons\u00e1vel por receber o caminho da imagem, e configure-o para n\u00e3o gravar mais registros (tempo de grava\u00e7\u00e3o = 0);
\n2. No Relat\u00f3rio, adicione um objeto Figura e um Campo de Dados;
\n3. Na Consulta do Relat\u00f3rio que tamb\u00e9m cont\u00e9m seus dados, deve-se utilizar a seguinte l\u00f3gica:<\/p>\n

SELECT TabelaTemperatura.E3TimeStamp,TabelaTemperatura.Temperatura1,<\/span>\r\nTabelaTemperatura.Temperatura2 ,(select(LocalImagem) from TabLocalImagem) as Imagem<\/span><\/span>\r\nFROM TabelaTemperatura <\/span>\r\nWHERE ( TabelaTemperatura.E3TimeStamp\u00a0 > #<%DataInicial%>#\u00a0 AND\u00a0\u00a0 TabelaTemperatura.E3TimeStamp < #<%DataFinal%># ) <\/span>\r\nORDER BY TabelaTemperatura.E3TimeStamp\u00a0 ASC<\/span><\/pre>\n
4. Nomeie a propriedade DataField <\/i>do Campo de Dados adicionado anteriormente como Imagem e configure sua propriedade Visible<\/i> para False (vari\u00e1vel criada na aba SQL da Consulta);
\n5.\u00a0 No Relat\u00f3rio, deve-se escrever o seguinte script para passar o caminho da imagem para o objeto Figura do Relat\u00f3rio:<\/p>\n
Sub OnFormat<\/span>

Set NomeFigura = Report.Sections(\"PageHeader\").Controls(\"Field1\")<\/span>
Set Imagem = Report.Sections(\"PageHeader\").Controls(\"Image1\")<\/span>
Imagem.Picture = LoadPicture(NomeFigura)<\/span>

End Sub<\/span><\/pre>\n
6. Antes de realizar a impress\u00e3o, deve-se passar o caminho da imagem para o registro do Hist\u00f3rico criado na primeira etapa:<\/p>\n