INSERT INTO ctl_aplicativo (
SELECT 'cns_pag_credito_fornecedor', 'Programa Para Consultar Crédito com Fornecedor', 'PAG', 'C'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'cns_pag_credito_fornecedor') IS NULL LIMIT 1);

INSERT INTO ctl_grupo_x_direito  (
SELECT grupousucod, 'cns_pag_credito_fornecedor', 'T'
  FROM ctl_grupo_x_direito 
 WHERE grupousucod = 1
   AND grupousucod NOT IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'cns_pag_credito_fornecedor')
GROUP BY grupousucod);


INSERT INTO ctl_aplicativo (
SELECT 'cns_pag_credito_fornecedor_historico', 'Programa Para Consultar Historico de Uso do Credito', 'PAG', 'C'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'cns_pag_credito_fornecedor_historico') IS NULL LIMIT 1);

INSERT INTO ctl_grupo_x_direito  (
SELECT grupousucod, 'cns_pag_credito_fornecedor_historico', 'T'
  FROM ctl_grupo_x_direito 
 WHERE grupousucod = 1
   AND grupousucod NOT IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'cns_pag_credito_fornecedor_historico')
GROUP BY grupousucod);


INSERT INTO ctl_aplicativo (
SELECT 'frm_pag_cadastra_credito_fornecedor', 'Programa Para Cadastrar Credito do Fornecedor', 'PAG', 'U'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_pag_cadastra_credito_fornecedor') IS NULL LIMIT 1);

INSERT INTO ctl_grupo_x_direito  (
SELECT grupousucod, 'frm_pag_cadastra_credito_fornecedor', 'T'
  FROM ctl_grupo_x_direito 
 WHERE grupousucod = 1
   AND grupousucod NOT IN (SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_pag_cadastra_credito_fornecedor')
GROUP BY grupousucod);


DELETE FROM ctl_menu_nivel WHERE codigo IN (6289, 6290, 6291, 6292);
INSERT INTO ctl_menu_nivel VALUES (6289, 'Fornecedor', 9999, '', '_self', '', 2030, 1);
INSERT INTO ctl_menu_nivel VALUES (6290, 'Credito', 9999, '', '_self', 'cns_pag_credito_fornecedor', 6289, 1);
INSERT INTO ctl_menu_nivel VALUES (6291, 'Credito Historico', 9999, '', '_self', 'cns_pag_credito_fornecedor_historico', 6289, 1);
INSERT INTO ctl_menu_nivel VALUES (6292, 'Cadastra Credito', 9999, '', '_self', 'frm_pag_cadastra_credito_fornecedor', 817, 1);