INSERT INTO ctl_aplicativo 
SELECT 'frm_pro_sub_local_prod_lote', 'Cadastro Localização Lote', 'PRO', 'C'
FROM ctl_aplicativo
WHERE aplinome = 'frm_bas_filial'
AND (SELECT aplinome FROM ctl_aplicativo WHERE aplinome = 'frm_pro_sub_local_prod_lote') IS NULL LIMIT 1;


INSERT INTO ctl_grupo_x_direito  (
SELECT grupousucod, 'frm_pro_sub_local_prod_lote', grupodireito
  FROM ctl_grupo_x_direito 
 WHERE grupousucod  IN(SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'fil_pro_sub_local_prod')
   AND grupousucod NOT IN(SELECT grupousucod FROM ctl_grupo_x_direito  WHERE aplinome = 'frm_pro_sub_local_prod_lote')
GROUP BY grupousucod, grupodireito);

DELETE FROM ctl_menu_nivel WHERE codigo = 5857;
INSERT INTO ctl_menu_nivel VALUES (5857, 'Localização - Lote', 9999,'', '_self', 'frm_pro_sub_local_prod_lote', 860, 1);