Fórum Procedure - Oracle #483678

and ofi_servico.maodeobra like '%' || maodeobra || '%'

SELECT res.empresa, 
              res.revenda,
              res.situacao_os,
              res.chassi,
              res.dta_encerramento
INTO empresa,
         revenda,
         situacao_os,
         chassi,
         dta_encerramento
FROM ( 
           SELECT ofi_atendimento.empresa,
                           ofi_atendimento.revenda,
                           ofi_ordem_servico.situacao_os,
                           ofi_atendimento.chassi,
                           ofi_ordem_servico.dta_encerramento
            FROM ofi_servico_os, 
                        ofi_servico,
                        ofi_atendimento,
                       ofi_ordem_servico
           WHERE ofi_atendimento.contato = ofi_servico_os.contato
           AND ofi_atendimento.empresa = ofi_servico_os.empresa
           AND ofi_atendimento.revenda = ofi_servico_os.revenda
           AND ofi_ordem_servico.empresa = ofi_atendimento.empresa
           AND ofi_ordem_servico.revenda = ofi_atendimento.revenda 
          AND ofi_ordem_servico.contato = ofi_atendimento.contato
          AND ofi_servico_os.empresa = ofi_servico.empresa
          AND ofi_servico_os.servico = ofi_servico.servico 
          AND ofi_servico.maodeobra like '%' || maodeobra || '%' 
         ) res
GROUP BY res.empresa, 
                   res.revenda,
                   res.situacao_os,
                   res.chassi,
                   res.dta_encerramento;

create or replace procedure Monta_Json (Campo OUT VARCHAR2)
is

ObjJson  json;
Num1     NUMBER:=1;
Num       VARCHAR2(10);
Ip           VARCHAR2(100);
Campo   VARCHAR2(30000);

begin

-- Acha o Ip
 select TRIM(substr(SYS_CONTEXT ('USERENV', 'IP_ADDRESS'),1,100))
   into Ip
  from dual;

num1:=Num1 +1;
Num:=null;
-- Monta Objeto Json
for r in (select produto from tabela)
 loop
  ObjJson:=json();
  ObjJson.put('FAT50_DEPOSITO',       'VEN');                      - Montando variavel fixa
  ObjJson.put('USUARIO',                     TO_CHAR(Num1));   - variavel acumulada
  ObjJson.put('FAT50_PRODUTO_IE',  r.Produto);                - Variavel do cursor
  ObjJson.Put('IP',                                 IP);                            - Variavel de um select
  ObjJson.put('FAT50_NARRATIVA',     Num);                        - Variavel fixa
  Campo:=json.to_char(ObjJson);                                          - Criando Json
 end loop;
end;/

 -- Declaração de tipos públicos
    TYPE t_refcur IS REF CURSOR; 

 
PROCEDURE prc_gettipobolsa(in_codtipobolsa IN acdesenv.pestipobolsa.codtipobolsa%TYPE,
                                                  out_result      OUT t_refcur) IS
    BEGIN
        IF (in_codtipobolsa IS NULL) THEN
            OPEN out_result FOR
                SELECT tb.codtipobolsa,
                       tb.descricao,
                       tb.abreviatura
                FROM   acdesenv.pestipobolsa tb
                ORDER  BY tb.codtipobolsa;
        ELSE
            OPEN out_result FOR
                SELECT tb.codtipobolsa,
                       tb.descricao,
                       tb.abreviatura
                FROM   acdesenv.pestipobolsa tb
                WHERE  tb.codtipobolsa = in_codtipobolsa
                ORDER  BY tb.codtipobolsa;
        END IF;
    END prc_gettipobolsa;