CREATE OR REPLACE
PROCEDURE INCLUI_INSTCOBRANCA
  (P_CDBANCCNAB IN VARCHAR2,
   P_CDINSTCOBR IN VARCHAR2,
   P_NMINSTCOBR IN VARCHAR2)IS

   V_ACHOU   NUMBER;
   V_CDBANCO BANCO.CDBANCO%TYPE;

BEGIN
   SELECT
      COUNT(*)
   INTO
      V_ACHOU
   FROM
      INSTCOBRANCA IC, BANCO BC
   WHERE
      (IC.CDBANCO = BC.CDBANCO) AND
      (BC.CDBANCCNAB = P_CDBANCCNAB) AND
      (IC.CDINSTCOBR = P_CDINSTCOBR);

   IF V_ACHOU = 0 THEN

      SELECT
         MAX(CDBANCO)
      INTO
         V_CDBANCO
      FROM
         BANCO
      WHERE
         (CDBANCCNAB = P_CDBANCCNAB);

      IF NOT V_CDBANCO IS NULL THEN
         INSERT INTO INSTCOBRANCA (CDBANCO, CDINSTCOBR, NMINSTCOBR) VALUES(V_CDBANCO, P_CDINSTCOBR, P_NMINSTCOBR);
      END IF;
   END IF;
END;
/

BEGIN
--ITAU 341

   INCLUI_INSTCOBRANCA('341','02','DEVOLVER APOS 05 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','03','DEVOLVER APOS 30 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','05','RECEBER CONFORME INSTRUCOES NO PROPRIO TITULO');
   INCLUI_INSTCOBRANCA('341','06','DEVOLVER APOS 10 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','07','DEVOLVER APOS 15 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','08','DEVOLVER APOS 20 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','09','PROTESTAR');
   INCLUI_INSTCOBRANCA('341','10','NAO PROTESTAR');
   INCLUI_INSTCOBRANCA('341','11','DEVOLVER APOS 25 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','12','DEVOLVER APOS 35 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','13','DEVOLVER APOS 40 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','14','DEVOLVER APOS 45 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','15','DEVOLVER APOS 50 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','16','DEVOLVER APOS 55 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','17','DEVOLVER APOS 60 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','18','DEVOLVER APOS 90 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','19','NAO RECEBER APOS 05 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','20','NAO RECEBER APOS 10 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','21','NAO RECEBER APOS 15 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','22','NAO RECEBER APOS 20 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','23','NAO RECEBER APOS 25 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','24','NAO RECEBER APOS 30 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','25','NAO RECEBER APOS 35 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','26','NAO RECEBER APOS 40 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','27','NAO RECEBER APOS 45 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','28','NAO RECEBER APOS 50 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','29','NAO RECEBER APOS 55 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','30','IMPORTANCIA DE DESCONTO POR DIA');
   INCLUI_INSTCOBRANCA('341','31','NAO RECEBER APOS 60 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','32','NAO RECEBER APOS 90 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','36','PROTESTO URGENTE');
   INCLUI_INSTCOBRANCA('341','37','RECEBER ATE O ULTIMO DIA DO MES DE VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','38','CONCEDER DESCONTO MESMO APOS VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','39','NAO RECEBER APOS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','40','CONCEDER DESCONTO CONFORME NOTA DE CREDITO');
   INCLUI_INSTCOBRANCA('341','43','SUJEITO A PROTESTO SE NAO FOR PAGO NO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','44','IMPORTANCIA POR DIA DE ATRASO A PARTIR DE DDMMAA');
   INCLUI_INSTCOBRANCA('341','45','TEM DIA DA GRACA');
   INCLUI_INSTCOBRANCA('341','46','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','47','DISPENSAR JUROS COMISSAO DE PERMANENCIA');
   INCLUI_INSTCOBRANCA('341','51','RECEBER SOMENTE COM A PARCELA ANTERIOR QUITADA');
   INCLUI_INSTCOBRANCA('341','52','FAVOR EFETUAR PGTO SOMENTE ATRAVES DESTA COBRANCA BANCARIA');
   INCLUI_INSTCOBRANCA('341','53','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','54','APOS VENCIMENTO PAGAVEL SOMENTE NA EMPRESA');
   INCLUI_INSTCOBRANCA('341','56','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','57','SOMAR VALOR DO TITULO AO VALOR DO CAMPO MORA  MULTA CASO EXISTA');
   INCLUI_INSTCOBRANCA('341','58','DEVOLVER APOS 365 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('341','59','COBRANCA NEGOCIADA PAGAVEL SOMENTE POR ESTE BLOQUETO NA REDE BANCARIA');
   INCLUI_INSTCOBRANCA('341','70','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','71','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','72','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','73','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','74','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','75','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','78','VALOR DA IDA ENGLOBA MULTA DE 10% PRO RATA');
   INCLUI_INSTCOBRANCA('341','79','COBRAR JUROS APOS 15 DIAS DA EMISSAO');
   INCLUI_INSTCOBRANCA('341','80','PAGAMENTO EM CHEQUE: SOMENTE RECEBER COM CHEQUE DE EMISSAO DO SACADO');
   INCLUI_INSTCOBRANCA('341','81','PROTESTAR APOS XX DIAS CORRIDOS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','82','PROTESTAR APOS XX DIAS UTEIS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','83','OPERACAO REF A VENDOR');
   INCLUI_INSTCOBRANCA('341','84','APOS VENCIMENTO CONSULTAR A AGENCIA CEDENTE');
   INCLUI_INSTCOBRANCA('341','86','ANTES DO VENCIMENTO OU APOS 15 DIAS, PAGAVEL SOMENTE EM NOSSA SEDE');
   INCLUI_INSTCOBRANCA('341','87','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','88','NAO RECEBER ANTES DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','89','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','90','NO VENCIMENTO PAGAVEL EM QUALQUER AGENCIA BANCARIA');
   INCLUI_INSTCOBRANCA('341','91','NAO RECEBER APOS XX DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','92','DEVOLVER APOS XX DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','93','MENSAGENS NOS BLOQUETOS COM 30 POSICOES');
   INCLUI_INSTCOBRANCA('341','94','MENSAGENS NOS BLOQUETOS COM 40 POSICOES');
   INCLUI_INSTCOBRANCA('341','95','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','96','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','97','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','98','DUPLICATA FATURA N');
   COMMIT;
END;
/
BEGIN
--BRADESCO 237

   INCLUI_INSTCOBRANCA('237','08','NAO COBRAR JUROS DE MORA');
   INCLUI_INSTCOBRANCA('237','09','NAO RECEBER APOS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','10','MULTA DE 10% APOS O QUARTO DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','11','NAO RECEBER APOS O 8% DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','12','COBRAR ENCARGOS APOS O 5 DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','13','COBRAR ENCARGOS APOS O 10 DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','14','COBRAR ENCARGOS APOS O 15 DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','15','CONCEDER DESCONTO MESMO SE PAGO APOS O VENCIMENTO');
   COMMIT;
END;
/
BEGIN
--UNIBANCO 409

   INCLUI_INSTCOBRANCA('409','01','NAO RECEBER O PRINCIPAL SEM OS ENCARGOS DE MORA');
   INCLUI_INSTCOBRANCA('409','02','DEVOLVER SE NAO PAGO ATE 15 DIAS APOS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('409','03','DEVOLVER SE NAO PAGO ATE 30 DIAS APOS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('409','04','DEVOLVER SO A PEDIDO');
   INCLUI_INSTCOBRANCA('409','05','ACATAR AS INSTRUCOES CONTIDAS NO TITULO');
   INCLUI_INSTCOBRANCA('409','06','PROTESTAR');
   INCLUI_INSTCOBRANCA('409','07','NAO PROTESTAR');
   INCLUI_INSTCOBRANCA('409','08','NAO COBRAR JUROS DE MORA');

--BOSTON 479

   INCLUI_INSTCOBRANCA('479','00','S/ INSTR. NIVEL TITULO');
   INCLUI_INSTCOBRANCA('479','01','PROT. APOS "DD" DIAS');
   INCLUI_INSTCOBRANCA('479','02','NAO PROTESTAR');
   INCLUI_INSTCOBRANCA('479','03','DEVOLVER APOS "DD" DIAS');
   COMMIT;
END;
/
BEGIN
--MERCANTIL 389

   INCLUI_INSTCOBRANCA('389','11','DISPENSAR JUROS DE MORA');
   INCLUI_INSTCOBRANCA('389','19','PROTESTAR EM 03  DIAS');
   INCLUI_INSTCOBRANCA('389','20','PROTESTAR EM 05 DIAS');
   INCLUI_INSTCOBRANCA('389','21','PROTESTAR EM 10 DIAS UTEIS');
   INCLUI_INSTCOBRANCA('389','22','PROTESTAR EM 15 DIAS');
   INCLUI_INSTCOBRANCA('389','23','DEVOLVER APOS 05 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','24','DEVOLVER APOS 15 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','25','DEVOLVER APOS 30 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','26','NAO DISPENSAR JUROS DE MORA');
   INCLUI_INSTCOBRANCA('389','27','NAO PROTESTAR');
   INCLUI_INSTCOBRANCA('389','28','DEVOLVER APOS 06 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','29','DEVOLVER APOS 07 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','30','DEVOLVER APOS 08 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','31','DEVOLVER APOS 09 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','32','DEVOLVER APOS 10 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','52','NAO RECEBER APOS VENCIDO');
   INCLUI_INSTCOBRANCA('389','53','PROTESTAR COM 01 DIA DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','54','PROTESTAR COM 07 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','55','PROTESTAR COM 30 DIAS DE VENCIDO');
   COMMIT;
END;
/