[Ishii]

Olá,

Montei as tabelas aqui na minha BD de teste e corrigi outras coisas que não tinha visto…

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 varchar2 ;
var_CLIENTE varchar2(2000);
end TESTE;

Corpo:

create or replace package body "TESTE" is
procedure INSERT_CLIENTE(
sp_nome ClIente.Nome%type,
sp_endereco Cliente.Endereco%type,
sp_dtcadastro Cliente.DtCadastro%type,
qte_linhas OUT INTEGER) 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) return varchar2 is
var_Cliente varchar2(2000);
BEGIN
SELECT Codigo||'.'|| Nome||'.'|| Endereco||'.'|| DtCadastro
INTO var_CLIENTE
from Cliente where Cliente.Codigo=varbusca;
RETURN var_CLIENTE;
end BUSCA_CLIENTE;
end TESTE;


Tente novamente 🙂

[]s Ishii