Anônimo
Ishii, tentei montar uma procedure e uma function só que não deu certo.
Se for possivel confere para mim.
ESPECIFICAÇÃO
create or replace package TESTE as
procedure INSERT_CLIENTE(
sp_nome ClIente.Nome%type,
sp_endereco Cliente.Endereco%type,
sp_dtcadastro Cliente.DtCadastro%type,
qte_linhas OUT INTEGER);
function BUSCA_CLIENTE(varbusca in number)
RETURN CLIENTE%ROWTYPE IS var_CLIENTE CLIENTE%ROWTYPE;
end TESTE;
CORPO TEXTO
create or replace package body “TESTE” is
procedure INSERT_CLIENTE
is
begin
INSERT INTO CLIENTE(Nome,Endereco,DtCadastro)
VALUES(sp_nome,sp_endereco,sp_dtcadastro);
qte_linhas := sql%ROWCOUNT;
end INSERT_CLIENTE;
function BUSCA_CLIENTE(varbusca in number)is
BEGIN
SELECT Codigo, Nome, Endereco, DtCadastro
INTO var_CLIENTE.Codigo, var_CLIENTE.Nome, var_CLIENTE.Endereco, var_CLIENTE.DtCadastro from Cliente where Cliente.Codigo=varbusca;
RETURN var_CLIENTE;
end BUSCA_CLIENTE;
end TESTE;