Geração de vetor aleatório de 100 posições

-- Script Aluguel Trajes - Oracle 11g - semestre 1 - 2016

/* Esquema de Relações – Modelo Lógico Relacional

Cliente ( Num_associado(PK), Nome_cli, End_cli, Fone_cli, Sexo_cli, Dt_Nascto_cli, CPF_cli, RG_Cli, Situacao_cli)

Aluguel ( Num_locacao(PK), Dt_retirada, Vl_Total, Vl_multa, Forma_pgto, Situacao_aluguel, Num_associado(FK)NN)

Categoria ( Cod_categ(PK), Descr_categ, Preco_locacao, Prazo_locacao, Vl_Multa, Tipo_categ)

Traje ( Cod_traje(PK), Descr_Traje, Tam_Traje, Tecido_traje, Cor_principal_traje, Cod_Categ(FK)NN)

Peca ( Cod_Peca(PK), Descr_Peca, Tam_Peca, Tecido_peca, Cor_Peca, Dt_aquisicao_peca, Valor_reposicao_peca, Situacao_Peca, Cod_Traje(FK)NN)

Lavanderia ( Cod_lavanderia(PK), Razao_social_lav, end_lav, Fone_Lav, CNPJ_Lav, Resp_lav)

Servico ( Num_Servico(PK), Dt_solicitacao, Dt_entrega, Custo_servico, Prazo_entrega, Situacao_servico , Num_locacao(FK)NN)

Lavagem ( Num_Servico(PK)(FK), Tipo_Lavagem, Custo_Lavagem, Cod_Lavanderia(FK) NN, Cod_Traje(FK)NN))

Costura (Num_Servico(PK)(FK), Descr_Costura, Tipo_Costura, Material_Utilizado, Resp_Costura, Custo_Costura, Cod_peca(FK)NN))

Itens_Aluguel (Num_locacao(PK)(FK), Cod_traje(PK)(FK), Dt_Prevista_Devlucao, Dt_Devolucao_Situacao_Item) */

/* parametros de configuracao da sessao */

ALTER SESSION SET NLS_DATE_FORMAT = 'DD-MM-YYYY HH24:MI:SS' ;

ALTER SESSION SET TIME_ZONE = LOCAL;

SELECT SESSIONTIMEZONE, CURRENT_TIMESTAMP FROM DUAL;

-- apagando todas as tabelas

DROP TABLE categoria CASCADE CONSTRAINTS PURGE ;

DROP TABLE cliente CASCADE CONSTRAINTS PURGE ;

DROP TABLE forma_pgto CASCADE CONSTRAINTS PURGE ;

DROP TABLE locacao CASCADE CONSTRAINTS PURGE ;

DROP TABLE itens_locacao CASCADE CONSTRAINTS PURGE ;

DROP TABLE servico CASCADE CONSTRAINTS PURGE ;

DROP TABLE servico_lavagem CASCADE CONSTRAINTS PURGE ;

DROP TABLE servico_costura CASCADE CONSTRAINTS PURGE ;

DROP TABLE lavanderia CASCADE CONSTRAINTS PURGE ;

DROP TABLE traje CASCADE CONSTRAINTS PURGE ;

DROP TABLE peca CASCADE CONSTRAINTS PURGE ;

DROP TABLE tamanho CASCADE CONSTRAINTS PURGE ;

--Criando tabela cliente

DROP TABLE  cliente CASCADE CONSTRAINTS;

CREATE TABLE cliente

(num_associado INTEGER PRIMARY KEY,

 nome_cli VARCHAR2(50) NOT NULL,

 fone_cli NUMBER(11),

 endereco_cli VARCHAR2(80) NOT NULL,

 sexo_cli CHAR(1) NOT NULL CHECK(sexo_cli IN ('M', 'F')),

dt_nascimento_cli DATE ,

cpf_cli CHAR(11) ,

rg_cli CHAR(11));

INSERT INTO cliente VALUES  (1, 'Marli Rodrigues', 77777777, 'Rua Jose Colau Sama, 13', 'F', '24/03/1970', '984083484', '0120885');

INSERT INTO cliente VALUES (2, 'Alice Santana', 88888888, 'Rua do ouro, 32', 'F', '08/02/1998', '974009484', '0097348');

INSERT INTO cliente VALUES (3, 'Joselino Barbosa', 99999999, 'Rua da paixao, 33', 'M', '01/01/1955', '93430994', '8740048');

INSERT INTO cliente VALUES (4, 'Fausto Manuel', 44444444, 'Rua do professor, 34', 'M', '23/06/1989', '08309484', '8747348');

INSERT INTO cliente VALUES (5, 'Evelyn Almeida', 22222222, 'Rua da vida, 56', 'F', '05/12/1989', '08408484', '0998989');

SELECT * FROM cliente;

--Criando tabela categoria

DROP TABLE  categoria CASCADE CONSTRAINTS;

CREATE TABLE categoria

(cod_categ SMALLINT PRIMARY KEY,

 descr_categ VARCHAR2(100) NOT NULL,

 preco_categ NUMBER(10,2) NOT NULL,

 prazo_locacao NUMBER(10,2) NOT NULL,

 tipo_categ CHAR(7) NOT NULL CHECK ( tipo_categ IN ('LUXO', 'MEDIO', 'SIMPLES')),

 vl_multa NUMBER(4,2));

--inserindo valores tabela categoria

INSERT INTO categoria VALUES  (1, 'Vestido', 100, 72, 'MEDIO', 20);

INSERT INTO categoria VALUES (2 , 'Terno', 250, 48, 'LUXO', 35);

INSERT INTO categoria VALUES (3 , 'Smoking', 300, 48, 'LUXO', 50);

SELECT * FROM categoria;

--Criando tabela traje

DROP TABLE  traje CASCADE CONSTRAINTS;

CREATE TABLE traje

(num_traje INTEGER PRIMARY KEY,

 descr_traje VARCHAR2(100) NOT NULL,

 tecido_traje VARCHAR2(30) NOT NULL,

 cor_traje VARCHAR2(20) NOT NULL,

 tam_traje CHAR(3) NOT NULL,

 genero_traje CHAR(1) NOT NULL CHECK ( genero_traje IN ('M', 'F')),

 cod_categoria SMALLINT NOT NULL,

FOREIGN KEY (cod_categoria) REFERENCES categoria (cod_categ) ON DELETE CASCADE );

DROP SEQUENCE traje_seq;

CREATE SEQUENCE traje_seq ;

--inserindo valores tabela traje

INSERT INTO traje VALUES  (traje_seq.nextval, 'Traje ultra fino', 'linho', 'azul', '44', 'M', 1);

INSERT INTO traje VALUES (traje_seq.nextval, 'Traje fino', 'algodao', 'preto', '40', 'F', 1);

INSERT INTO traje VALUES (traje_seq.nextval, 'Vestido Noiva Renda', 'algodao', 'beje', '42', 'F', 1);

INSERT INTO traje VALUES (traje_seq.nextval, 'Vestido Noiva Lantejoula', 'algodao', 'branco', '40', 'F', 1);

INSERT INTO traje VALUES (traje_seq.nextval, 'Terno Infantil', 'algodao', 'preto', '16', 'M', 2);

INSERT INTO traje VALUES (traje_seq.nextval, 'Terno Risca de Giz', 'algodao', 'preto', '48', 'M', 2);

INSERT INTO traje VALUES (traje_seq.nextval, 'Vestido Formatura', 'algodao', 'branco', '40', 'F', 1);

INSERT INTO traje VALUES (traje_seq.nextval, 'Vestido Debutante', 'algodao', 'rosa', '40', 'F', 1);

INSERT INTO traje VALUES (traje_seq.nextval, 'Smoking Gala', 'microfibra', 'preto', '44', 'M', 3);

INSERT INTO traje VALUES (traje_seq.nextval, 'Smoking Formatura', 'microfibra', 'cinza', '46', 'M', 3);

SELECT * FROM traje;

--Criando tabela locacao

DROP TABLE  locacao CASCADE CONSTRAINTS;

CREATE TABLE locacao

(num_locacao INTEGER PRIMARY KEY,

 dt_hora_retirada TIMESTAMP NOT NULL,

 num_associado INTEGER NOT NULL,

 vl_total NUMBER(10,2) CHECK (vl_total >= 0) ,

 vl_multa NUMBER(10,2),

 forma_pagamento CHAR(20),