INSERT INTO ctl_aplicativo (
SELECT 'frm_exclui_qualidade', 'Formlulário de exclusão de qualidade', 'PRD', 'R'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_exclui_qualidade') IS NULL LIMIT 1);

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

INSERT INTO ctl_aplicativo (
SELECT 'frm_prd_altera_materia_prima_copia', 'Formlulário de Cópia de qualidade', 'PRD', 'R'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_prd_altera_materia_prima_copia') IS NULL LIMIT 1);

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