Pular para o conteúdo
#82897
Avatar de IshiiIshii
Participante

    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

    plugins premium WordPress