Oracle Forms for Dummies – Part 2

Iremos comentar a estrutura hierarquica de uma tela de uma aplicação Oracle Forms:

Basicamente, temos a unidade de programa, que nada mais é que um arquivo fmb(código fonte) e/ou fmx (código executável). Este é o primeiro nível da hierarquia

Logo abaixo, temos as Windows (janelas), que como o nome diz, serão as janelas de sua aplicação.

Exemplo da parte superior de uma window padrão do Oracle Forms

Cada window irá conter um ou mais canvas, que são onde os objetos serão posicionados dentro. Lembra da visão do canvas??? É lá onde irão ficar os objetos.

Dentro da aplicação, teremos também os blocos, que geralmente correspondem a uma tabela do seu modelo de dados (nem sempre é uma tabela, irei explicar melhor quando chegar no item Bloco).

Dentro dos blocos, temos os itens, que correspondem a um objeto que geralmente está relacionado a uma coluna do Banco de Dados

Estes itens do bloco, serão posicionados dentro de um canvas, para dar origem a parte visual da sua aplicação

Resumindo:

Uma aplicação pode ter várias Windows

Uma window pode ter vários canvas

Um canvas pode ter vários itens

Um bloco tem vários itens.

Oracle Forms for Dummies – Part 1

Bom, escrevo esta série de posts com a intenção de ajudar as pessoas que estão iniciando a utilizar esta ótima ferramenta de desenvolvimento que é o Oracle Forms. O objetivo não é tornar ninguém ‘um Jedi’ na mesma, mas sim dar subsidio para fazer o básico de uma forma mais correta. Para isto iremos tomar por principio a versão 6i (por ser mais simples de instalar e configurar, posteriormente irei explicar as diferenças para a 10g, mas não são muitas não) e o banco Oracle XE.

Começando pelo principio, a tela inicial do Oracle forms é

Ela contem o menu de opções na parte superior, e o object navigator, onde se pode ‘navegar’ por todos os itens que sua aplicação tem ou terá.

Também teremos posteriormente a visão dos canvas, onde se poderá ver os objetos como eles aparecerão para o usuário (não se preocupe, posteriormente irei explicar para que cada componente serve)

Outra tela importante é a Property palette, onde irão ficar as propriedades dos objetos da sua aplicação (não se preocupe, posteriormente irei explicar para que cada propriedade serve)

Bom, a parte dois irá começar a explicar os itens da aplicação. Até.

Subtotal por grupo no BIRT

Bem, estava procurando como fazer um subtotal por grupo de um relatório desenvolvido na ferramenta BIRT, mas não encontrava. Então resolvi postar como fazer...

Use a seguinte função:

Total.sum(row["nomeColuna"], null, "nomeGrupo");

Exportação de banco de dados Oracle XE

Bom, vou ser bem simples, para exportar um banco de dados, uma das maneiras é usar o comando expdp

Ele vai criar um arquivo expdat.dmp no caminho (Oracle Xe Home)\app\oracle\admin\xe\dpdump\

Caso queira criar o arquivo de dump com outro nome, utilize a opção dumpfile.
Segue abaixo sintaxe simplificada

expdp (user DBA)@(nome banco) dumpfile=(nome do arquivo de dump).dmp

Simples assim...

Importação de Base de Dados no Banco XE

Muitas pessoas ainda tem dúvida de como importar um dump exportado via data pump, então logo abaixo coloco uma forma rápida para conseguir isso.

1º coloque seu arquivo de dump na pasta (Oracle XE Home)\app\oracle\admin\xe\dpdump\

2º execute o comando abaixo no prompt do seu sistema operacional, trocando os campos em () pelos valores correspondentes
impdp (user DBA)@(nome banco) dumpfile=(nome arquivo de dump a ser importado).dmp logfile=(nome do arquivo de log de importação).log remap_schema=(schema que foi exportado):(schema imp) remap_tablespace=(tablespace que foi exportado):(tablespace que vai ser importado) transform=oid:n:type

3º Aguarde... Pronto, você acaba de fazer uma importação de um banco de dados!

Obtendo o primeiro dia do mês

Como no oracle existe a função last_day, e não existe uma 'first_day', muitas vezes nos deparamos com códigos para obter o primeiro dia do mês, quando existe o comando trunc que nos dá isso de barbada! Observe:

SQL> select trunc(sysdate,'mm') from dual
2 /

TRUNC(SY
--------
01/10/09

o mesmo vale para o primeiro dia do ano:

SQL> select trunc(sysdate,'rrrr') from dual
2 /

TRUNC(SY
--------
01/01/09

Manipulação de tabelas de memória

Muitas vezes temos que trabalhar com tabelas de memória para manipular dados. Existem vários tipos de tabela, sendo a mais comumente utilizada a que indexa os registro por um inteiro binário (binary_integer).

Para o uso desta tabela, encontramos um pequeno problema quando temos que deletar um registro qualquer desta tabela, visto que ai, a mesma acaba perdendo a sequencia da indexação... veja o exemplo:

SQL> DECLARE
2 TYPE T_A IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
3 V_A T_A;
4 BEGIN
5 FOR I IN 1..10
6 LOOP
7 V_A(I) := 'A - '||I;
8 END LOOP;
9 V_A.DELETE(3);
10 FOR I IN V_A.FIRST..V_A.LAST
11 LOOP
12 DBMS_OUTPUT.PUT_LINE( V_A(I));
13 END LOOP;
14 END;
15 /
A - 1
A - 2
DECLARE
*
ERRO na linha 1:
ORA-01403: no data found
ORA-06512: at line 12

Neste exemplo, eu criei uma tabela de memória, e inicializei com 10 registros. Logo após, deletei o terceiro registro, para simular, e mandei mostrar os registros constantes na tabela. Note que no momento que o programa chegou no registro faltante, ele deu um erro de no data found.
Sendo assim, mesmo usando a varredura da tabela de memória do first para o last, ele ainda varre todos os indices, inclusive aquele que já foi deletado!!!

Isto pode ser resolvido facilmente, usando a função exists da tabela de memória, como no exemplo abaixo:

SQL> DECLARE
2 TYPE T_A IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
3 V_A T_A;
4 BEGIN
5 FOR I IN 1..10
6 LOOP
7 V_A(I) := 'A - '||I;
8 END LOOP;
9 V_A.DELETE(3);
10 FOR I IN V_A.FIRST..V_A.LAST
11 LOOP
12 IF V_A.EXISTS(I) THEN
13 DBMS_OUTPUT.PUT_LINE( V_A(I));
14 END IF;
15 END LOOP;
16 END;
17 /
A - 1
A - 2
A - 4
A - 5
A - 6
A - 7
A - 8
A - 9
A - 10

Procedimento PL/SQL concluído com sucesso.

Cuidado com o lpad/rpad

Bom, todos que trabalham com oracle, já tiveram que alguma vez usar as funções de complementação de caracteres (lpad/rpad). Ela basicamente serve para preencher um variável ou coluna string com um caracter até obter o tamanho desejado, como no exemplo abaixo:

SQL> select lpad('alguma coisa',20,'x') from dual
2 /

LPAD('ALGUMACOISA',2
--------------------
xxxxxxxxalguma coisa


Mas o que pouca gente sabe, é que dependendo do parâmetro de entrada destas funções, ela pode retornar alguns resultados diferentes do desejado, como quando o primeiro parâmetro passado for nulo. Neste caso, a função retorna nula, como se pode diagnosticar no exemplo abaixo:

SQL> select lpad(null,20,'x') from dual
2 /

L
-


Ou seja, eu pedi para função preencher até 20 caracteres com x, mas ela me retornou nula!!!

Portanto, como geralmente o parâmetro de entrada é usado com alguma coluna do banco, sugiro usar a função nvl para se certificar que a função, mesmo no caso da coluna ser nula, retorne o campo formatado conforme desejado. Observe:

SQL> select lpad(nvl(null,'a'),20,'x') from dual
2 /

LPAD(NVL(NULL,'A'),2
--------------------
xxxxxxxxxxxxxxxxxxxa


o mesmo vale para o parâmetro de complemento, como no exemplo abaixo:

SQL> select lpad('a',20,null) from dual
2 /

L
-


Ou seja, se o parâmetro for nulo, também a função irá retornar nulo...

Há, muito importante, se tiver que colocar um número x de zeros ou qualquer outro caracter repetido, não repita o valor, por favor, use lpad/rpad, observe:

SQL> select lpad('0',20,'0') from dual
2 /

LPAD('0',20,'0')
--------------------
00000000000000000000

Teste Unitário em geração de Arquivos

Vejo hoje em dia muitos desenvolvedores que apenas partem do pressuposto, que se a saida está de acordo com o documento de análise, então o programa está concluido. Só que eles não se atentam para o fato de que o analista é humano, e portanto, também está sujeito a cometer falhas no seu processo. Por isso se torna cada vez mais necessário, que o desenvolvedor entenda o que está fazendo, e qual o resultado esperado para o procedimento que ele está concluido.
Tomemos como exemplo uma geração de arquivo texto posicional, onde, com base no layout passado, o desenvolvedor faz o programa de extração dos dados da base, e posterior formatação para o arquivo texto. Após finalizado o desenvolvimento, o programador dá uma rápida conferida, e ai, qual o próximo passo: entregar o procedimento?
Se ele tiver um arquivo texto de exemplo no layout que desenvolveu, pode fazer uma rápida comparação entre a saida do seu programa e o exemplo passado, e com isto, detectar inúmeros problemas que só seriam vistos mais pra frente, como deslocamento de campos, alinhamento de colunas, preenchimentos das demais posições, falta de informações que ocasionaram deslocamento de campos. Ou seja, um simples teste, detecta inúmeros bugs e faz com que o desenvolvedor possa atingir uma qualidade muito maior no produto (software) que ele desenvolveu.

Utilização de funções analiticas

Bom, hoje irei falar sobre uma função analitica que a um bom tempo não usava, mas que ontem me foi bem util. Trata-se da função over partition do Oracle, a qual pode ser conferida no exemplo abaixo:

Ela 'reinicializa' a contagem do campo seq de acordo com o parametro passado no partition by.

Aguardo sugestões para os próximos posts...