Curso Online de PL/SQL Forms, Reports, DB Oracle XE 10g

Autor(a): Miguel Marcelo Nascimento Franco

Carga horária: 4 horas

Por: R$ 24,90
(Pagamento único)

Com certificado digital incluído

Você pode acessar até 25% do curso antes de pagar

Cancele seu curso em até 7 dias e tenha seu dinheiro de volta

Adquira certificado ou apostila impressos e receba em casa

Você se matricula e já tem acesso ao curso

Aprenda algumas curiosidades sobre a linguagem PL/SQL da Oracle. Com esse curso veja como é o desenvolvimento de rotinas de blocos e relatório nos formatos pdf e csv, utilizando as ferramentas forms e reports builder. Visualize exemplos de triggre, function, table, procedure, package. E muito mais.

Graduado em gestão da tecnologia da informação e analise e desenvolvimento de sistemas. Pós graduado em banco de dados. Mestrado em direção estratégica em engenharia de software. Doutorado Ph.d em engenharia de software. Pós doutorando em aprendizado eletrônico em e-learning.

Vantagens
Saiba Mais

Aqui você não precisa esperar o prazo de compensação do pagamento para começar a aprender. Inicie agora mesmo e pague depois.
O curso é todo feito pela Internet. Assim você pode acessar de qualquer lugar, 24 horas por dia, 7 dias por semana.
Se não gostar do curso você tem 7 dias para solicitar (através da pagina de contato) o cancelamento ou a devolução do valor investido.*
Adquira certificado ou apostila impressos e receba em casa. Os certificados são impressos em papel de gramatura diferente e com marca d'água.**

* Desde que tenha acessado a no máximo 50% do material.
** Material opcional, vendido separadamente.

Modelo de certificados (imagem ilustrativa):

Frente

Verso

Curso de PL/SQL Forms, Reports, DB Oracle 10g
Requisitos:
Instalar Oracle forms e report 10g e Oracle XE Edition 10g, PL/SQL develop ;
Script de criação de tabela.
-- Create table
create table TB_JOB_ROTINAS (
CD_ROTINA VARCHAR2(30) not null, FL_ATIVO VARCHAR2(1),
DT_STATUS DATE default sysdate, DT_EXEC_UTIL DATE default sysdate, DT_CADASTRO DATE default sysdate
)
tablespace SYSTEM pctfree 10
pctused 40
initrans 1
maxtrans 255 storage
(
initial 64K minextents 1 maxextents unlimited
);
-- Create/Recreate primary, unique and foreign key constraints
alter table TB_JOB_ROTINAS add primary key (CD_ROTINA) using index
tablespace SYSTEM pctfree 10
initrans 2
maxtrans 255 storage
(
initial 64K minextents 1
maxextents unlimited
);
Botão gera CSV
PROCEDURE PR_CVS IS
arq
linha
text_io.file_type; varchar2(10000);
v_total number; v_obs2 varchar2(50);

cursor jobs_cursor is select job_id,job_title from jobs;
codigo jobs.job_id%type; titulo jobs.job_title%type;

wcontador number:=0;

BEGIN
wcontador := 0;
arq := text_io.fopen('c:/TPF19_REL_ROTINAS.CSV', 'w');
linha := 'TIPO;ROTINA;STATUS;DATA_STATUS;DATA_EXEC;DATA_CADASTRO;USUARIO;SENHA;QT_VEZES_EXEC;EXTENSAO;NOME;';
text_io.put_line(arq,linha);
-- text_io.fclose(arq);

for rel_rotinas in (select 'ROTINA' tipo,
r.cd_rotina, decode(r.fl_ativo,'S','SIM','N','NAO',null,'NAO') Ativo, r.dt_status,
r.dt_exec_util, r.dt_cadastro, user usuario_login,
'******' usuario_senha,
case when r.dt_exec_util is not null then decode(r.dt_cadastro - r.dt_status,0,1)
else
0 end qt_vezes_executou, '.PDF' extensao_relatorio,
'Relatório_Geral_de_Rotinas' nome_relatorio from tb_job_rotinas r
where 1 = 1 -- r.dt_status >= to_date(:BL_REL.DT_INICIO,'dd/mm/yyyy')
-- and r.dt_status 0 then text_io.fclose(arq); message('processo terminado!!!');
end if;

END;
Botão gerar PDF
declare pl_id report
ParamList; Report_Object;
ReportServerJob_ VARCHAR2(254);
vjob_id VARCHAR2(100); /* job_id as number only string*/

BEGIN
pl_id := Get_Parameter_List('TMPIND'); IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id ); END IF;

pl_id := Create_Parameter_List('TMPIND');
ADD_PARAMETER(PL_ID,'PARAMFORM',TEXT_PARAMETER, 'NO'); --Serve para dizer se vc quer rodar direto ou aparecer a tela do Reports de Parametros ADD_PARAMETER(PL_ID,'DESTYPE' ,TEXT_PARAMETER, 'PREVIEW'); -- Escolha o tipo de visualiza??o do Reports
ADD_PARAMETER(PL_ID,'PDT_INICIO',TEXT_PARAMETER,to_char(:BL_REL.DT_INICIO));
ADD_PARAMETER(PL_ID,'PDT_FIM',TEXT_PARAMETER,to_char(:BL_REL.DT_FIM)); ADD_PARAMETER(PL_ID,'PFL_ATIVO',TEXT_PARAMETER,to_char(:BL_REL.FL_ATIVO));
report := find_report_object('REPORT29'); ReportServerJob_ := run_report_object(report);
vjob_id := substr(ReportServerJob_,instr(ReportServerJob_,'_',-1)+1); if nvl(to_number(vjob_id),0) > 0 then
WEB.SHOW_DOCUMENT('http://mmnfpc:8889/reports/rwservlet/getjobid'||vjob_id||'?server=rep_mmnfpc','_blank'); end if;
vjob_id := null; END;
Obs: link do código fonte da aplicação para baixar:
https://drive.google.com/file/d/18ISWyiDf3bSzZ5V82MuJRVpE2ZP74c_b/view?usp=sharing