Mostrando relatório na grade de dados

Aqui vamos demonstrar como trazer um relatório gerado para a grade de dados, de acordo com as informações da instância atual.

Para saber mais sobre relatório com informações de uma grade: clique aqui

Atividade 1

Primeiro crie um formulário do tipo grade de dados:

Descrição: "Dados"
Variável: /*G_DADOS*/" - tipo: “Grade de dados”

Na grade, crie as seguintes colunas:

Descrição: “FANTASIA” - Tipo: “Texto”
Descrição: “EMAIL” - Tipo: “Texto”
Descrição: “DEPARTAMENTO” - Tipo: “Texto”

OBS: É nesta grade que será carregada as informações que irão constar no protocolo.

Eventos:

1 - Variáveis - Definir valor variável

Definir o valor da variável /*IDPROCESSO*/, de acordo com a variável do sistema.

2 - Estrutura de repetição - Carregar

Variável armazenar: ”/*G_DADOS*/”

Definir o evento ao entrar com o seguinte SQL:

SELECT C.FANTASIA, 
       C.EMAIL, 
       D.DESCRICAO AS DEPARTAMENTO
  FROM CLIFOREMP C
  JOIN DEPARTAMENTOS D ON (C.IDDEPARTAMENTO = D.IDDEPARTAMENTO)
 WHERE C.EMAIL <> '.' 
   AND C.INATIVO = 'N'
   AND C.TIPOCLIFOREMP = 2
 ORDER BY C.FANTASIA

3 - GED - Salvar protocolo

Definir ao sair, colocando o “Tipo de documento” e o “Protocolo” desejado.

Crie as seguintes variáveis:

/*IDARQUIVO*/
/*IDVERSAO*/

E vincule-as nos respectivos campos do evento. Com este evento, o sistema irá salvar o relatório na instância atual.

Atividade 2

Crie um formulário do tipo grade para armazenar/apresentar o protocolo

Descrição: “Relatório”
Variável: “/*G_RELATORIO*/” - Tipo: “Grade de dados”

Crie a coluna da grade:

Descrição: “IDARQUIVO” - Tipo “Arquivo”

Informar o tipo de documento correspondente

Eventos:

1 - Estrutura de repetição - Carregar

Evento ao sair com o seguinte SQL de consulta:

SELECT IDARQUIVO
  FROM GED_ARQUIVO
 WHERE IDORIGEM = 0/*IDPROCESSO*/

Variável armazenar: “/*G_RELATORIO*/”

Aqui ele vai pegar todos os arquivos (no caso, o relatório) que estão salvos na instância e mostrar na grade.