INSERT INTO ctl_aplicativo 
SELECT 'frm_bas_tipo_pagto_acerta_cartao', 'Cadastra Vencimentos Tipo Pagamento Cartão', 'BAS', 'C'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_bas_tipo_pagto_acerta_cartao') IS NULL LIMIT 1;

DELETE FROM ctl_menu_nivel_dependencia WHERE aplicacao_nivel = 'frm_bas_tipo_pagto_acerta_cartao';
INSERT INTO ctl_menu_nivel_dependencia VALUES('cns_bas_tipo_pagto', 'frm_bas_tipo_pagto_acerta_cartao');


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