Ivan, ainda não estou apto a fazer isso pois estou iniciando nesta área, a
forma de inserir na tabela seria mais pratica como fazer? É uma emergência e
depois vou dedicar um tempo para eu entender este processo dos packages..
Ivan Ricardo Schuster <[EMAIL PROTECTED]> escreveu:
André,
Uma sugestão:
- criar uma package que define uma variável global
- criar uma view que faz a sua consulta usando esta variável global definida
na package.
Fiz um exemplo criando uma view que consulta a user_tables e tem um filtro
para table_name definido por uma package:
create or replace package pk_teste is
gnome_tabela Varchar2(50);
Procedure set_nome_tabela(pnome_tabela Varchar2);
Function nome_tabela Return Varchar2;
end pk_teste;
create or replace package body pk_teste Is
Procedure set_nome_tabela(pnome_tabela Varchar2) As
Begin
gnome_tabela := pnome_tabela;
End;
Function nome_tabela Return Varchar2 As
Begin
Return gnome_tabela;
End;
end pk_teste;
Create View vi_teste As Select * From user_tables Where table_name Like
pk_teste.nome_tabela;
Com a package e a view criada, em uma mesma sessão, devemos inicialmente
executar a função pk_teste.set_nome_tabela, passando o filtro da consulta,
por exemplo:
begin
pk_teste.set_nome_tabela('T%');
end;
depois, NA MESMA SESSAO, executar um "select * from vi_teste", que mostrará
somente as linhas com "table_name like 'T%'"
pronto, basta adaptar pro teu caso.
-----Mensagem original-----
De: Andre Luiz Dutra Ontalba [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 6 de dezembro de 2005 15:07
Para: [EMAIL PROTECTED]
Assunto: Re: RES: [oracle_br] PLS-00428 an INTO clause is expected in this
SELECT statement, - URGENTE..
Obrigado pela atenção inicial dada, preciso retornar uma consulta. Teria com
você me ajudar.
Ivan Ricardo Schuster <[EMAIL PROTECTED]> escreveu:
Claro, voce tem que definir o que fazer com a sua consulta. Voce
quer
retornar uma consulta (cursor)? Usar os valores retornados para
inserir em
alguma tabela?
-----Mensagem original-----
De: oracle_br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em
nome de a_ontalba
Enviada em: terça-feira, 6 de dezembro de 2005 10:57
Para: oracle_br@yahoogrupos.com.br
Assunto: [oracle_br] PLS-00428 an INTO clause is expected in this
SELECT
statement, - URGENTE..
Estou criando uma procedure abaixo e não estou sabendo porque do
erro
PLS-00428 an INTO clause is expected in this SELECT statement,
executei sem ser procedure e funcionou normal. Alguem pode me ajudar
Agradeço desde já ??
CREATE OR REPLACE PROCEDURE PUNI (P_DTCREDINI DATE)
IS
BEGIN
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T' DEBITO,
'1261' CREDITO,
TO_CHAR(V.VLTITULO,9999999999999999.99) VLTITULO,
'171' CDHISTORICO,
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA
COMPLEMENTO,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO < P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO= P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'1261',
V.VLTITULO,
'171',
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T',
'3621',
TO_CHAR(SUM(V.VLJUROS),9999999999999999.99) VL_JUROS,
'503' HIST,
'JUROS RECEBIDOS CONF.LISTAGEM' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO = P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
AND V.VLJUROS >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'3621',
'503',
'JUROS RECEBIDOS CONF.LISTAGEM'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'1021',
'T',
TO_CHAR(SUM(V.VLRECEBIDO),9999999999999999.99) VL_DEB,
'171' HIST,
'RECEBIMENTO FATURAS DIVERSAS' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1021',
'T',
'171',
'RECEBIMENTO FATURAS DIVERSAS'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'4239',
'T',
TO_CHAR(SUM
(V.VLABATIMENTO+V.VLABATIMENTO_2),9999999999999999.99) VL_DEB,
'200' HIST,
'GLOSA S/FAT.' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1021',
'T',
'200',
'GLOSA S/FAT.'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T',
'1121',
TO_CHAR(V.VLTITULO,9999999999999999.99) VL_CRED,
'171' HIST,
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'1121',
V.VLTITULO,
'171',
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T',
'3621',
TO_CHAR(SUM(V.VLJUROS),9999999999999999.99) VL_JUROS,
'503' HIST,
'JUROS RECEBIDOS CONF.LISTAGEM' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
AND V.VLJUROS >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'3621',
'503',
'JUROS RECEBIDOS CONF.LISTAGEM'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'1021',
'T',
TO_CHAR(SUM(V.VLRECEBIDO),9999999999999999.99) VL_DEB,
'171' HIST,
'RECEBIMENTO FATURAS DIVERSAS' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1021',
'T',
'171',
'RECEBIMENTO FATURAS DIVERSAS'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'1021',
'T',
TO_CHAR(SUM(V.VLDESCONTO),9999999999999999.99) VL_DEB,
'33' HIST,
'DESCONTO CONCEDIDO FAT.' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE<>'15556-X'
AND V.VLDESCONTO >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1021',
'T',
'171',
'DESCONTO CONCEDIDO FAT.'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T' DEBITO,
'1121' CREDITO,
TO_CHAR(V.VLTITULO,9999999999999999.99) VL_CRED,
'171' HIST,
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE='15556-X'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'1121',
V.VLTITULO,
'171',
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T',
'3621',
TO_CHAR(SUM(V.VLJUROS),9999999999999999.99) VL_JUROS,
'503' HIST,
'JUROS RECEBIDOS CONF.LISTAGEM' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE='15556-X'
AND V.VLJUROS >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'3621',
'503',
'JUROS RECEBIDOS CONF.LISTAGEM'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'1014' debito,
'T' credito,
TO_CHAR(SUM(V.VLRECEBIDO),9999999999999999.99) VL_DEB,
'171' HIST,
'RECEBIMENTO FATURAS DIVERSAS' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE='15556-X'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1014',
'T',
'171',
'RECEBIMENTO FATURAS DIVERSAS'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'4602',
'T',
TO_CHAR(SUM(V.VLDESCONTO),9999999999999999.99) VL_DEB,
'33' HIST,
'DESCONTO CONCEDIDO FAT.' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='1'
AND V.NRCONTA_CORRENTE='15556-X'
AND V.VLDESCONTO >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'4602',
'T',
'33',
'DESCONTO CONCEDIDO FAT.'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T' DEB,
'1121' CRED,
TO_CHAR(V.VLTITULO,9999999999999999.99) VL_CRED,
'171' HIST,
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND V.DTCONFIRMA_BANCO=P_DTCREDINI
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <P_DTCREDINI) OR
(V.CDSITUACAO = '1' ))
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'1121',
V.VLTITULO,
'171',
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T',
'3621',
TO_CHAR(SUM(V.VLJUROS),9999999999999999.99) VL_JUROS,
'503' HIST,
'JUROS RECEBIDOS CONF.LISTAGEM' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
AND V.VLJUROS >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'3621',
'503',
'JUROS RECEBIDOS CONF.LISTAGEM'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'1021' DEBITO,
'T' CREDITO,
TO_CHAR(SUM(V.VLRECEBIDO),9999999999999999.99) VL_DEB,
'171' HIST,
'RECEBIMENTO FATURAS DIVERSAS' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1021',
'T',
'171',
'RECEBIMENTO FATURAS DIVERSAS'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'4602',
'T',
TO_CHAR(SUM(V.VLDESCONTO),9999999999999999.99) VL_DEB,
'33' HIST,
'DESCONTO CONCEDIDO FAT.' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='1'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
AND V.VLDESCONTO >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'4602',
'T',
'33',
'DESCONTO CONCEDIDO FAT.'
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T',
'1261',
TO_CHAR(V.VLTITULO,9999999999999999.99) VL_CRED,
'171' HIST,
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'1261',
V.VLTITULO,
'171',
'RECEBIMENTO'||' '||V.NRDOCUMENTO||' '||V.NOPESSOA
UNION
SELECT '0000100' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'T',
'3621',
TO_CHAR(SUM(V.VLJUROS),9999999999999999.99) VL_JUROS,
'503' HIST,
'JUROS RECEBIDOS CONF.LISTAGEM' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
AND V.VLJUROS >0
GROUP BY '0000100',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'T',
'3621',
'503',
'JUROS RECEBIDOS CONF.LISTAGEM'
UNION
SELECT '0000001' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'1021',
'T',
TO_CHAR(SUM(V.VLRECEBIDO),9999999999999999.99) VL_DEB,
'171' HIST,
'RECEBIMENTO FATURAS DIVERSAS' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
GROUP BY '0000001',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1021',
'T',
'171',
'RECEBIMENTO FATURAS DIVERSAS'
UNION
SELECT '0000001' NRLANC,
SUBSTR(V.DTCONFIRMA_BANCO,1,5) DTEMISSAO,
'4239',
'T',
TO_CHAR(SUM
(V.VLABATIMENTO+V.VLABATIMENTO_2),9999999999999999.99) VL_DEB,
'33' HIST,
'GLOSA S/FAT.' COMP,
'' CCDB,
'' CCCR
FROM PRODUCAO.V_RECEBER_03 V
WHERE V.DTTITULO >=
NVL(PRODUCAO.F_PARAMETRO('PABRREL'),'31/12/1899')
AND ((V.CDSITUACAO IN ('0','2') AND V.DTTITULO <=P_DTCREDINI)
OR
(V.CDSITUACAO = '1' ))
AND V.DTCONFIRMA_BANCO =P_DTCREDINI
AND V.DTVENCIMENTO BETWEEN '01/01/1900' AND '31/12/3000'
AND V.TPTITULO = 0
AND V.TPDOCUMENTO <> 'VD'
AND (V.CDSITUACAO = '1' OR V.CDSITUACAO = '2')
AND V.CDGRUPO_CLIENTE='3'
AND TO_CHAR(V.NRBANCO)='999'
AND V.NRCONTA_CORRENTE LIKE 'UNICR%'
GROUP BY '0000001',
SUBSTR(V.DTCONFIRMA_BANCO,1,5),
'1021',
'T',
'171',
'GLOSA S/FAT.' ;
END PUNI;
----------------------------------------------------------------------------
----------------------------------------------
Atenção! As mensagens deste grupo são de acesso público e de inteira
responsabilidade de seus remetentes.
Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
----------------------------------------------------------------------------
----------------------------------------------______________________________
_______________________________________
Area de download do grupo -
http://www.4shared.com/dir/101727/a4dcc423
Links do Yahoo! Grupos
----------------------------------------------------------------------------
----------------------------------------------
Atenção! As mensagens deste grupo são de acesso público e de inteira
responsabilidade de seus remetentes.
Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
----------------------------------------------------------------------------
----------------------------------------------______________________________
_______________________________________
Area de download do grupo -
http://www.4shared.com/dir/101727/a4dcc423
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12fefhai8/M=384888.7585449.8468440.1588051/D=brc
lubs/S=2137114689:HM/Y=BR/EXP=1133894234/A=3154524/R=0/SIG=12igfl26t/*http:/
/www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE>
________________________________
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/oracle_br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
<http://us.rd.yahoo.com/mail/br/tagline/homepage_set/*http://br.yahoo.com/ho
mepageset.html>
--------------------------------------------------------------------------------------------------------------------------
Atenção! As mensagens deste grupo são de acesso público e de inteira
responsabilidade de seus remetentes.
Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
--------------------------------------------------------------------------------------------------------------------------_____________________________________________________________________
Area de download do grupo - http://www.4shared.com/dir/101727/a4dcc423
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/oracle_br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--------------------------------------------------------------------------------------------------------------------------
Atenção! As mensagens deste grupo são de acesso público e de inteira
responsabilidade de seus remetentes.
Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/
--------------------------------------------------------------------------------------------------------------------------_____________________________________________________________________
Area de download do grupo - http://www.4shared.com/dir/101727/a4dcc423
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/oracle_br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
