INSERT INTO ctl_aplicativo (
SELECT 'frm_par_evo_pagar', 'Programa para cadastro do parametro do contas a pagar do InspireEVO', 'PAR', 'C'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_par_evo_pagar') IS NULL LIMIT 1);

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

DELETE FROM ctl_menu_nivel WHERE codigo IN (6256, 6257);
INSERT INTO ctl_menu_nivel VALUES (6256, 'Inspire EVO', 9999, '', '_self', '', 693, 1);
INSERT INTO ctl_menu_nivel VALUES (6257, 'Pagar', 9999, '', '_self', 'frm_par_evo_pagar', 6256, 1);