Telescope Script Engine

• Consultar dados
• Exportar informações
• Montar relatórios personalizados
• Montar consultas personalizadas
• Criar operações customizados

Regras gerais

• A linguagem é organizada em comandos.
• O comando é sempre iniciado por uma palavra-chave e encerrado com um ";"
• Linhas que não são encerradas com ";" são automaticamente continuadas pela linha seguinte.

SELECT - Apresentação de consultas SQL em forma de tabela

SELECT login, nome_completo
from usuarios
order by login;

DISPLAY - Apresentação de consultas SQL em forma de formulário

DISPLAY login, nome_completo
from usuarios
order by login;

TRANSPOSE - Apresentação de consultas SQL em forma de uma matriz transposta

PIVOT - Apresentação de consultas SQL em uma matriz

PIVOT coluna1 [, coluna2 ...]
BY coluna
USING SELECT ...
GROUP BY coluna1 [, coluna2...]
ORDER BY coluna, coluna1 [, coluna2...];

pivot codigo, projeto
by data
using select p.titulo as projeto
, p.atividade as codigo
, a.data
, sum(tempo) as tempo
from apropriacao_horas a
join atividades o on o.id = a.atividade_id
join atividades p on p.id = o.pai_id
where a.data > now()::date - 3
group by a.data, p.titulo, p.atividade
order by a.data, p.atividade::numeric, p.titulo ;

set pivot-column-summary true;
set pivot-row-summary true;

Observações:

• A ordenação das linhas e colunas é determinada pelo SQL. Por isso, deve-se ordenar primeiro pela coluna pivotada.
• Atualmente, a PIVOT tem suporte para apenas uma coluna pivotada.
• Atualmente, a PIVOT tem suporte para apenas um resultado agregado.
• Este comando suporta Regras de inferência de propriedades e características por expressão

EXPORT - Exportar dados

EXPORT * from tipos_pedidos;

set SPLIT_LINES 500;
export * from usuarios;

PREPARE - Repetição de comandos

prepare ins preferencias set preferencia = ${1}, valor = ${2};
+ 'ABC.PT001', 'S';
+ 'ABC.PT002', 'B';
+ 'ABC.PT003', 'N';
+ 'ABC.PT004', 'M';
+ 'ABC.PT005', '40';

ITEM - Definir item

ITEM nome dominio [, propriedade = valor , propriedade = valor ... ] ;

• label
• format
• prefix
• suffix
• height
• width
• null-text
• options
• style

ITEM valor decimal_value, label='Valor total', width=12, prefix='R$', null-text='Não informado';
ITEM situacao opcao, label='Situação', options='C=Cancelado,E=Entregue,M=Manutenção,P=Pendente';

ITEMS - Definir conjunto de items conforme entidade

ITEMS entidade [, entidade ...] ;

ITEMS pedidos, itens_pedidos;

FOR ... LOOP ... END-LOOP

FOR variavel IN comando-sql LOOP
   ...
   ... ${variavel.coluna} ...
   ...
END-LOOP;

FOR rec IN
    select * 
    from pedidos
    order by data_emissao desc
    limit 20
LOOP
    display '<h1>Pedido ${rec.pedido}</h1>';
    
    display tipo.tipo_pedido
    , cli.pessoa || ' - ' || cli.nome_completo as cliente
    , ped.data_emissao
    from pedidos ped
    join pessoas cli on cli.id = ped.cliente_id
    join tipos_pedidos tipo on tipo.id = ped.tipo_pedido_id
    where ped.id = ${rec.id};
    
    select sequencia, quantidade, p.produto, p.descricao
    from itens_pedidos i
    join produtos p on p.id = i.produto_id
    where pedido_id = ${rec.id}
    order by sequencia;

END-LOOP;

IF ... THEN ... [ELSE ...] END-IF

IF ${valor} < 0 THEN
   ...
END-IF;

IF exists (select 1 from usuarios where login = 'admin') THEN
   ...
ELSE
   ...
END-IF;

Geração de gráficos

Manipulação de planilhas

INS, UPD e DEL - Operações com entidades

INS - Inclusão

INS nome-da-entidade
[SET] coluna = expressao
[, coluna = expressao ...]
[FROM tabela
 [JOIN ...]
 [WHERE ...]];

SELECT expressao as coluna
[, expressao as coluna ...]
FROM ...
JOIN ...
WHERE ...
[ GROUP BY ...]
[ ORDER BY ...]

INS atividades
set titulo = 'Alterar senha'
, tipo_atividade_id = t.id
, responsavel_id = u.pessoa_id
from usuarios u
join tipos_atividades t on t.tipo_atividade = 'Tarefa'
where u.ativo = 'S';

UPD - Alteraçao

UPD nome-da-entidade
[SET] coluna = expressao
[, coluna = expressao ...]
[FROM tabela
 [JOIN ...][
[WHERE ...];

UPD atividades
set tempo_executado = sum(a.tempo)
, id = a.atividade_id
FROM apropriacao_horas a
GROUP BY a.atividade_id;

DEL - Exclusão

DEL nome-da-entidade
WHERE condicao
[ORDER BY ...]
[LIMIT ...];

Comentários --

CONNECT - Conexão a outros bancos de dados

CONNECT nome-do-banco;

CONNECT propriedades-de-conexão;

CONNECT firebird;

connect driver=org.firebirdsql.jdbc.FBDriver
, url=jdbc:firebirdsql://localhost:3050/C:/tmp/togni.fdb
, user=sysdba
, password=masterkey
, encoding=ISO8859_1
, charset=ISO8859_1
, lc_ctype=ISO8859_1;

CREATE-COPY - Copiar dados de outros bancos (ou não)

CREATE-COPY tabela-local
[CONNECT nome-banco]
[KEYS coluna [, coluna] ]
AS SELECT expressao as coluna [, expressao as coluna] ...
FROM tabela
[JOIN ... ]
[WHERE ... ]
[GROUP BY ...]
;

SUM - Definir somatórios

SUM [item [, item ...]] ;

SUM valor_total;

SELECT pedido, valor_total
from pedidos
where tipo_pedido_id = 27634;

SUM;

DML - Execuçao e geração de scripts DML

• CREATE TABLE
• ALTER TABLE
• ...

COMMIT - Confirma as alterações realizadas

commit;

ROLLBACK - Descarta a transação

CONFIG pref=valor, pref=valor, ...

LET

let user = last;

PLAY-SOUND - Emitir um sinal sonoro

• Emitir um som de erro:

play-sound error;

• Emitir um som de advertência:

play-sound warning;

• Emitir um som de sucesso:

play-sound success;

• Emitir um mp3 qualquer:

play-sound https://file-examples.com/wp-content/uploads/2017/11/file_example_MP3_700KB.mp3;

Execução de blocos

SERVICE e RUN

service CAD_USUARIOS;
run LIST;

SLEEP - Aguardar um tempo

• Aguardar 500ms:

sleep 1000;

• Aguardar 5 segundos;

sleep 5s;

• Aguardar 1 minuto;

sleep 1min;

PARMS item=valor, item=valor, ... ;

service CAD_USUARIOS;
parms q_login=R%;
run LIST;

SHOW

show [chave] [,chave...];

show RT.UI.CUSTOM_CSS;

show *.CSS;

show PROJET.CAD_OCORRENCIAS.*

show CONFIG.DB.*;

FORMAT-SQL

DML-INSERT e DML-UPDATE

DML-INSERT|DML-UPDATE TABELA [WHERE ...] [ORDER BY ...] [LIMIT] [OFFSET]

• TABELA - Nome da tabela a ser utilizada. Esta tabela deverá ter obrigatoriamente uma coluna nome ID e que deve ser chave primária.
• WHERE - Condição de filtro dos registros atuais
• ORDERS BY - Ordenação com a qual deseja gerar os comandos
• LIMIT, OFFSET - Paginação dos registros desejados.

dml-insert preferencias where preferencia like 'APP.%';
dml-update atividades where id=2878487;

Comando SET

SET variavel [AS] expressão;

set id as id from colecoes where colecao = 'PADRAO';
select * from itens_colecoes where colecao_id = ${id};

set lista as * from colecoes where colecao = 'PADRAO';
display '<h1>${lista.colecao}</h1>';

set db.lc_numeric to 'pt_BR';

set db.lc_numeric 'pt_br';
echo to_char(12.35876, '9990D00');

12,36

Comando ASSIGN

ASSIGN * from usuarios where login = 'admin';
echo '${nome_completo}';

Comando FIND

FIND nome-variavel nome-entidade WHERE condicao;

FIND usr usuarios where login = 'admin';

Comando IF-NOT-FOUND

if-not-found comando

update ... where id=...;
if-not-found insert into ...;

Comando DML-SAVE

dml-save naturezas_operacoes;

update ... where id=...;
if-not-found insert into ...;

Comando ERROR

ERROR mensagem [ FROM tabela ] [ WHERE condicao ];

error 'Não pode continuar';

error 'Usuário ' || login || ' já é super-usuário!'
from usuarios
where ativo = 'S'
and super_usuario = 'S';

error 'Já existem ' || count(1) || ' super-usuários ativos!'
from usuarios where ativo = 'S' and super_usuario = 'S';

Comando FILE-UPLOAD

file-upload nome-arquivo

file-upload /2018/03/08/cba5b8de-1aaa-4fb9-a682-5881249c1a19.jpg

Comando FILE-DOWNLOAD

file-download nome-arquivo

file-download /2018/03/08/cba5b8de-1aaa-4fb9-a682-5881249c1a19.jpg

Comando RETURN

return [ expressao ];

Comandos para testes unitários

Uso de macros

select * from usuarios where login = 'admin';
select * from pedidos where usuario_inclusao_id = ${last.id};

${config}

${config.get("ADSRT.PHONE.DEFAULT_FORMAT")}
${config.ADSRT-PHONE-DEFAULT_FORMAT}

${user}

${user.id}
${user.loginName}

${session}

${session.USER_ID}
${session.PERSON_ID}
${session.ESTABELECIMENTO}

${sum}

sum valor, quantidade;
select quantidade, valor, ...
from ... 
where ...;

display 'Listado ${sum.quantidade} produtos totalizando ${sum.valor}.';

Parâmetros utilizados na interpretação dos comandos

• info on/off: Gera informações sobre a execução do comando, tais como o tempo que levou para executar e o número de registros processados.
• table on/off: Indica que a saída de comandos como SELECT devem ser apresentadas como tabela.
• heading on/off: Indica que as saídas geradas devem ou não gerar os cabeçalhos das colunas (comandos select e chart).
• line-break on/off: Utilizado em casos como o comando SELECT com "set table off". Indica se cada registro deve ser em uma linha separada.
• table-title: Indica que a próxima tabela deverá ser precedida de um título. O título somente é apresentado se a tabela não for vazia.
• column-separator: Indica um separador de colunas utilizado no caso de "set table off".
• transpose-align left/center/right: Usado no comando TRANSPOSE e indica o alinhamento
• warnings on/off: Permite apresentar avisos sobre a execução de comandos. Ex: analyze verbose;

• label-width: Largura do label dos campos de um formulário em um comando DISPLAY usando um render de texto.
• label-align: Alinhamento dos labels em um comando DISPLAY (left ou right)
• label-separator: Padrão ": "

set table off;
set column-separator '|';
select * from interfaces_sistemas limit 10;

246217|OCORRENCIAS.CAD_FAQ|Cadastro de FAQs|U
246656|ADS.ENG_REVERSA|Interface para execução de engenharia reversa|U
268261|SCRUM.CAD_REQUISITOS|Administração do backlog|U
268268|PROJ.CAD_HODI|Horários disponíveis|U
268273|PROJ.HOME|Tela de entrada para a gestão de projetos|U
268275|PROJ.SETUP|Interface de configuração do sistema|U
268283|PROJ.CAD_ATIV|Cadastro de atividades|U
268290|SCRUM.CAD_PROJETOS|Cadastro de projetos|U
268297|PROJ.REP_ATIV|Tela de controle para envio de e-mails|U
268299|PROJ.CAD_TATI|Cadastro dos tipos de atividades|U

FILTER coluna [WITH item] [OPTIONAL]

• coluna: Nome da coluna a ser filtrada.
• item: Nome do item que contém os dados do filtro. Quando não informado, o engine considera que o nome do item é igual ao nome da coluna. Caso não exista um item com este nome, o engine gera um erro ou ignora o filtro caso informado OPTIONAL.

item tipo upper, value="Atendimento";

filter tipo_atividade with tipo;

select base.atividade
, base.titulo
, tipo.tipo_atividade as tipo
from atividades base
join tipos_atividades tipo on tipo.id = base.tipo_atividade_id;

select * from (
   select base.atividade
   , base.titulo
   , tipo.tipo_atividade as tipo
   from atividades base
   join tipos_atividades tipo on tipo.id = base.tipo_atividade_id
) where tipo in ('Atendimento', 'Suporte');

Outros

• CONNECT [nome] - Conecta com outra base de dados. Caso não informado, volta a conectar com a base DEFAULT.
• SERVICE nome-global-serviço - Carrega um serviço para executar funcionalidades dele;
• PARMS nome=valor, nome=valor, ... - Define valores para serem utilizados na execução das funcionalidades de um service a seguir.
• RUN [feature [action]] - Executa uma função do service carregado.
• IF-NOT-FOUND - Executa o comando apenas se o ultimo comando não encontrou registros.

• Geração de gráficos utilizando o Telescope Script Engine