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 APÓS 05 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','03','DEVOLVER APÓS 30 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','05','RECEBER CONFORME INSTRUÇÕES NO PRÓPRIO TÍTULO');
   INCLUI_INSTCOBRANCA('341','06','DEVOLVER APÓS 10 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','07','DEVOLVER APÓS 15 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','08','DEVOLVER APÓS 20 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','09','PROTESTAR');
   INCLUI_INSTCOBRANCA('341','10','NÃO PROTESTAR');
   INCLUI_INSTCOBRANCA('341','11','DEVOLVER APÓS 25 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','12','DEVOLVER APÓS 35 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','13','DEVOLVER APÓS 40 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','14','DEVOLVER APÓS 45 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','15','DEVOLVER APÓS 50 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','16','DEVOLVER APÓS 55 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','17','DEVOLVER APÓS 60 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','18','DEVOLVER APÓS 90 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','19','NÃO RECEBER APÓS 05 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','20','NÃO RECEBER APÓS 10 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','21','NÃO RECEBER APÓS 15 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','22','NÃO RECEBER APÓS 20 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','23','NÃO RECEBER APÓS 25 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','24','NÃO RECEBER APÓS 30 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','25','NÃO RECEBER APÓS 35 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','26','NÃO RECEBER APÓS 40 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','27','NÃO RECEBER APÓS 45 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','28','NÃO RECEBER APÓS 50 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','29','NÃO RECEBER APÓS 55 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','30','IMPORTÂNCIA DE DESCONTO POR DIA');
   INCLUI_INSTCOBRANCA('341','31','NÃO RECEBER APÓS 60 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','32','NÃO RECEBER APÓS 90 DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','36','PROTESTO URGENTE');
   INCLUI_INSTCOBRANCA('341','37','RECEBER ATÉ O ÚLTIMO DIA DO MÊS DE VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','38','CONCEDER DESCONTO MESMO APÓS VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','39','NÃO RECEBER APÓS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','40','CONCEDER DESCONTO CONFORME NOTA DE CRÉDITO');
   INCLUI_INSTCOBRANCA('341','43','SUJEITO A PROTESTO SE NÃO FOR PAGO NO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','44','IMPORTÂNCIA POR DIA DE ATRASO A PARTIR DE DDMMAA');
   INCLUI_INSTCOBRANCA('341','45','TEM DIA DA GRAÇA');
   INCLUI_INSTCOBRANCA('341','46','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','47','DISPENSAR JUROS COMISSÃO DE PERMANÊNCIA');
   INCLUI_INSTCOBRANCA('341','51','RECEBER SOMENTE COM A PARCELA ANTERIOR QUITADA');
   INCLUI_INSTCOBRANCA('341','52','FAVOR EFETUAR PGTO SOMENTE ATRAVÉS DESTA COBRANÇA BANCÁRIA');
   INCLUI_INSTCOBRANCA('341','53','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','54','APÓS VENCIMENTO PAGÁVEL SOMENTE NA EMPRESA');
   INCLUI_INSTCOBRANCA('341','56','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','57','SOMAR VALOR DO TÍTULO AO VALOR DO CAMPO MORA  MULTA CASO EXISTA');
   INCLUI_INSTCOBRANCA('341','58','DEVOLVER APÓS 365 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('341','59','COBRANÇA NEGOCIADA PAGÁVEL SOMENTE POR ESTE BLOQUETO NA REDE BANCÁRIA');
   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 APÓS 15 DIAS DA EMISSÃO');
   INCLUI_INSTCOBRANCA('341','80','PAGAMENTO EM CHEQUE: SOMENTE RECEBER COM CHEQUE DE EMISSÃO DO SACADO');
   INCLUI_INSTCOBRANCA('341','81','PROTESTAR APÓS XX DIAS CORRIDOS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','82','PROTESTAR APÓS XX DIAS ÚTEIS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','83','OPERAÇÃO REF A VENDOR');
   INCLUI_INSTCOBRANCA('341','84','APÓS VENCIMENTO CONSULTAR A AGÊNCIA CEDENTE');
   INCLUI_INSTCOBRANCA('341','86','ANTES DO VENCIMENTO OU APÓS 15 DIAS, PAGÁVEL SOMENTE EM NOSSA SEDE');
   INCLUI_INSTCOBRANCA('341','87','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','88','NÃO RECEBER ANTES DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','89','USO DO BANCO');
   INCLUI_INSTCOBRANCA('341','90','NO VENCIMENTO PAGÁVEL EM QUALQUER AGÊNCIA BANCÁRIA');
   INCLUI_INSTCOBRANCA('341','91','NÃO RECEBER APÓS XX DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','92','DEVOLVER APÓS XX DIAS DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('341','93','MENSAGENS NOS BLOQUETOS COM 30 POSIÇÕES');
   INCLUI_INSTCOBRANCA('341','94','MENSAGENS NOS BLOQUETOS COM 40 POSIÇÕES');
   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','NÃO COBRAR JUROS DE MORA');
   INCLUI_INSTCOBRANCA('237','09','NÃO RECEBER APÓS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','10','MULTA DE 10% APÓS O QUARTO DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','11','NÃO RECEBER APÓS O 8% DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','12','COBRAR ENCARGOS APÓS O 5º DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','13','COBRAR ENCARGOS APOS O 10º DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','14','COBRAR ENCARGOS APÓS O 15º DIA DO VENCIMENTO');
   INCLUI_INSTCOBRANCA('237','15','CONCEDER DESCONTO MESMO SE PAGO APÓS O VENCIMENTO');
   COMMIT;
END;
/
BEGIN
--UNIBANCO 409

   INCLUI_INSTCOBRANCA('409','01','NÃO RECEBER O PRINCIPAL SEM OS ENCARGOS DE MORA');
   INCLUI_INSTCOBRANCA('409','02','DEVOLVER SE NÃO PAGO ATÉ 15 DIAS APÓS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('409','03','DEVOLVER SE NÃO PAGO ATÉ 30 DIAS APÓS O VENCIMENTO');
   INCLUI_INSTCOBRANCA('409','04','DEVOLVER SÓ A PEDIDO');
   INCLUI_INSTCOBRANCA('409','05','ACATAR AS INSTRUÇÕES CONTIDAS NO TÍTULO');
   INCLUI_INSTCOBRANCA('409','06','PROTESTAR');
   INCLUI_INSTCOBRANCA('409','07','NÃO PROTESTAR');
   INCLUI_INSTCOBRANCA('409','08','NÃO COBRAR JUROS DE MORA');

--BOSTON 479

   INCLUI_INSTCOBRANCA('479','00','S/ INSTR. NÍVEL TÍTULO');
   INCLUI_INSTCOBRANCA('479','01','PROT. APÓS "DD" DIAS');
   INCLUI_INSTCOBRANCA('479','02','NÃO PROTESTAR');
   INCLUI_INSTCOBRANCA('479','03','DEVOLVER APÓS "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 ÚTEIS');
   INCLUI_INSTCOBRANCA('389','22','PROTESTAR EM 15 DIAS');
   INCLUI_INSTCOBRANCA('389','23','DEVOLVER APÓS 05 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','24','DEVOLVER APÓS 15 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','25','DEVOLVER APÓS 30 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','26','NÃO DISPENSAR JUROS DE MORA');
   INCLUI_INSTCOBRANCA('389','27','NÃO PROTESTAR');
   INCLUI_INSTCOBRANCA('389','28','DEVOLVER APÓS 06 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','29','DEVOLVER APÓS 07 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','30','DEVOLVER APÓS 08 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','31','DEVOLVER APÓS 09 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','32','DEVOLVER APÓS 10 DIAS DE VENCIDO');
   INCLUI_INSTCOBRANCA('389','52','NÃO RECEBER APÓS 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;