--Novas aplicacoes
INSERT INTO ctl_aplicativo (SELECT 'frm_rcb_contrato_cadastro',  'Cadastro de Contrato',           'RCB', 'C' FROM ctl_aplicativo WHERE aplinome = 'frm_bas_filial' AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_rcb_contrato_cadastro' ) IS NULL LIMIT 1);
INSERT INTO ctl_aplicativo (SELECT 'fil_rcb_contrato',           'Filtro do Cadastro de Contrato', 'RCB', 'F' FROM ctl_aplicativo WHERE aplinome = 'frm_bas_filial' AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'fil_rcb_contrato'          ) IS NULL LIMIT 1);
INSERT INTO ctl_aplicativo (SELECT 'frm_rcb_contrato_lote',      'Cadastro de Contrato em Lote',   'RCB', 'U' FROM ctl_aplicativo WHERE aplinome = 'frm_bas_filial' AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_rcb_contrato_lote'     ) IS NULL LIMIT 1);
INSERT INTO ctl_aplicativo (SELECT 'rel_rcb_contrato',           'Relatório dos Contratos',        'RCB', 'C' FROM ctl_aplicativo WHERE aplinome = 'frm_bas_filial' AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'rel_rcb_contrato'          ) IS NULL LIMIT 1);

INSERT INTO ctl_grupo_x_direito (SELECT grupousucod, 'frm_rcb_contrato_cadastro', grupodireito FROM ctl_grupo_x_direito WHERE grupousucod IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_rcb_contrato_manutencao' ) AND grupousucod NOT IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_rcb_contrato_cadastro'  ) GROUP BY grupousucod, grupodireito);
INSERT INTO ctl_grupo_x_direito (SELECT grupousucod, 'fil_rcb_contrato',          grupodireito FROM ctl_grupo_x_direito WHERE grupousucod IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_rcb_contrato_manutencao' ) AND grupousucod NOT IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'fil_rcb_contrato'           ) GROUP BY grupousucod, grupodireito);
INSERT INTO ctl_grupo_x_direito (SELECT grupousucod, 'frm_rcb_contrato_lote',     grupodireito FROM ctl_grupo_x_direito WHERE grupousucod IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_rcb_contrato_manutencao' ) AND grupousucod NOT IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_rcb_contrato_lote'      ) GROUP BY grupousucod, grupodireito);
INSERT INTO ctl_grupo_x_direito (SELECT grupousucod, 'rel_rcb_contrato',          grupodireito FROM ctl_grupo_x_direito WHERE grupousucod IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_rcb_contrato_manutencao' ) AND grupousucod NOT IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'rel_rcb_contrato'           ) GROUP BY grupousucod, grupodireito);


DELETE FROM ctl_menu_nivel_dependencia WHERE aplicacao = 'frm_rcb_contrato_manutencao' AND aplicacao_nivel IN ('frm_rcb_contrato_cadastro', 'fil_rcb_contrato', 'frm_rcb_contrato_lote', 'rel_rcb_contrato');
INSERT INTO ctl_menu_nivel_dependencia(aplicacao, aplicacao_nivel) VALUES('frm_rcb_contrato_manutencao', 'frm_rcb_contrato_cadastro' );
INSERT INTO ctl_menu_nivel_dependencia(aplicacao, aplicacao_nivel) VALUES('frm_rcb_contrato_manutencao', 'fil_rcb_contrato'          );
INSERT INTO ctl_menu_nivel_dependencia(aplicacao, aplicacao_nivel) VALUES('frm_rcb_contrato_manutencao', 'frm_rcb_contrato_lote'     );
INSERT INTO ctl_menu_nivel_dependencia(aplicacao, aplicacao_nivel) VALUES('frm_rcb_contrato_manutencao', 'rel_rcb_contrato'          );


--Nova origem do contas a receber
INSERT INTO rcb_tabela_origem (codigo, descricao, operador) VALUES(6, 'Outros', '+');