INSERT INTO ctl_aplicativo (
SELECT 'frm_pro_atualiza_peso_grade', 'Programa de atualização em lote peso de grade', 'PRO', 'U'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_pro_atualiza_peso_grade') IS NULL LIMIT 1);

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