Example #1
0
function TipoDocumento($Arg)
{
    global $ConexionEmpresa, $enlace;
    switch ($Arg) {
        case "Listado":
            $sql = "SELECT Codigo,Abreviatura,Descripcion,Formato, Codigo as CodigoAjax FROM ct_tipo_documento";
            $url = $enlace . "?TipoDocumento=Listado";
            $urlPaginador = $enlace . "?TipoDocumento=Listado";
            //            $btn = Botones("Crear]$enlace]panelB}", 'botones1');
            $tituloBtn = tituloBtnPn("<span>Tipos de Documentos</span><p>DEL SISTEMA</p><div class='bicel'></div>", $btn, "50px", "TituloA");
            $attr = ' perfiles│reporteA││12,' . $urlPaginador . '';
            $link = ' -1,0,1,2,3│0│PanelB│' . $url;
            $reporte = ListR3($sql, $attr, $link);
            $s = $tituloBtn . $reporte;
            $s = layoutV2('', $s);
            $s = '<div id="PanelD" style="padding: 9px 0px 0px 19px;" >' . $s . '</div>';
            WE($s);
            break;
        case "TipoDocumentoEdit":
            $codTipDoc = get('codTipDoc');
            $btn = "<div class='botIconS'><i class='icon-arrow-left'></i></div>]" . $enlace . "?TipoDocumento=Listado]PanelB}";
            $btn = Botones($btn, 'botones1', '');
            $btn = tituloBtnPn("<span>Actualizar</span><p >TIPO DE DOCUMENTO</p><div class='bicel'></div>", $btn, "300px", "TituloA");
            $uRLForm = "Actualizar]" . $enlace . "?metodo=TipoDocumento&transaccion=UPDATE&codTipDoc=" . $codTipDoc . "]PanelB]F]}";
            $uRLForm .= "Eliminar]" . $enlace . "?metodo=TipoDocumento&transaccion=DELETE&codTipDoc=" . $codTipDoc . "]PanelB]F]}";
            $form = c_form_ult('', $ConexionEmpresa, 'tipo_documento', 'CuadroA', $path, $uRLForm, $codTipDoc, $tSelectD);
            $form = "<div style='width:450px;'>" . $form . "</div>";
            $panelA = layoutV2($mHrz, $btn . $form);
            $panel = array(array('PanelA1', '100%', $panelA));
            $s = LayoutPage($panel);
            WE($s);
            break;
        case "TipoDocumentoCrear":
            $btn = "<div class='botIconS'><i class='icon-arrow-left'></i></div>]" . $enlace . "?TipoDocumento=Listado]PanelB}";
            $btn = Botones($btn, 'botones1', '');
            $btn = tituloBtnPn("<span>Crear</span><p >TIPO DE DOCUMENTO</p><div class='bicel'></div>", $btn, "300px", "TituloA");
            $uRLForm = "Guardar]" . $enlace . "?metodo=TipoDocumento&transaccion=INSERT]PanelB]F]}";
            $form = c_form_ult('', $ConexionEmpresa, 'tipo_documento', 'CuadroA', $path, $uRLForm, $codTipDoc, $tSelectD);
            $form = "<div style='width:450px;'>" . $form . "</div>";
            $panelA = layoutV2($mHrz, $btn . $form);
            $panel = array(array('PanelA1', '100%', $panelA));
            $s = LayoutPage($panel);
            WE($s);
            break;
    }
}
function MenuPerfil($parm)
{
    global $vConex, $enlace;
    //	echo $parm; exit;
    if ($parm == "Listado") {
        $btn = "Crear ]" . $enlace . "?MenuPerfil=Form]panelB-R2}";
        //$btn .= "Detalle ]".$enlace."?MenuPerfil=Detalle]panelB-R}";
        $btn .= "<div class='actualizar'></div>]" . $enlace . "?MenuPerfil=Listado]panelB-R}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>MENÚ EMPRESA</p>", $btn, "150px", "TituloA");
        $sql = 'SELECT Codigo, Nombre, Url,Estado, Codigo AS CodigoAjax FROM menu_empresa ORDER BY Codigo ASC ';
        $clase = 'reporteA';
        $enlaceCod = 'codigo_menu_empresa';
        $url = $enlace . "?MenuPerfil=menuDetalle";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_ouput', '');
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "Form") {
        $uRLForm = "Crear]" . $enlace . "?metodo=menu_empresa&transaccion=INSERT]panelB-R]F]}";
        $titulo = "Crear Menú";
        $form = c_form($titulo, $vConex, "menu_empresa", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $s = PanelInferior($FBusqueda . $form, "panel_edit_menu", '370px');
        WE($s);
    }
    if ($parm == "editaReg") {
        $codigo = get("codigo_menu_empresa");
        $titulo = "Editar Menú";
        $uRLForm = "Actualizar]" . $enlace . "?metodo=menu_empresa&transaccion=UPDATE&codigo=" . $codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=menu_empresa&transaccion=DELETE&codigo=" . $codigo . "]panelB-R]]}";
        $form = c_form($titulo, $vConex, "menu_empresa", "CuadroA", $path, $uRLForm, $codigo, $tSelectD);
        $form = "<div style='width:400px;'>" . $form . "</div>";
        $s = PanelInferior($form, "panel_edit_menu", '320px');
    }
    if ($parm == "Detalle") {
        $btn .= "Atrás]" . $enlace . "?MenuPerfil=Listado]panelB-R}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>MENÚ EMPRESA</p>", $btn, "100px", "TituloA");
        $sql = 'SELECT Codigo, Nombre, Url,Estado, Codigo AS CodigoAjax FROM menu_empresa ORDER BY Codigo ASC ';
        $clase = 'reporteA';
        $enlaceCod = 'codigo_menu_empresa';
        $url = $enlace . "?MenuPerfil=menuDetalle";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_ouput', '');
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "menuDetalle") {
        $cod = get('codigo_menu_empresa');
        $btn = "Crear ]" . $enlace . "?MenuPerfil=FormDetalle&CodSubMenu=" . $cod . "]panelB-R2}";
        $btn .= "Editar ]" . $enlace . "?MenuPerfil=editaReg&codigo_menu_empresa=" . $cod . "]panelB-R2}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Detalle <p>MENÚ</p>", $btn, "150px", "TituloA");
        $sql = "SELECT Codigo, Nombre, TipoMenu, Url,Orden,Estado, Codigo AS CodigoAjax \n\t\t\t\tFROM menu_empresa_det \n\t\t\t\tWHERE Menu = '{$cod}' \n\t\t\t\tORDER BY Codigo ASC ";
        $clase = 'reporteA';
        $enlaceCod = 'codigo_menu_empresa_det';
        $url = $enlace . "?MenuPerfil=editaRegDet";
        $panel = 'PanelInter';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_ouput', '');
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB2($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "FormDetalle") {
        $codMenu = get('CodSubMenu');
        $uRLForm = "Crear]" . $enlace . "?metodo=menu_empresa_det&transaccion=INSERT&Menu=" . $codMenu . "]panelB-R]F]}";
        $titulo = "Crear Sub-Menú";
        $form = c_form($titulo, $vConex, "menu_empresa_det", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $s = PanelInferior($FBusqueda . $form, "panel_edit_menu", '370px');
        WE($s);
    }
    if ($parm == "editaRegDet") {
        $codigo = get("codigo_menu_empresa_det");
        $titulo = "Editar SubMenú";
        $uRLForm = "Actualizar]" . $enlace . "?metodo=menu_empresa_det&transaccion=UPDATE&codigo=" . $codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=menu_empresa_det&transaccion=DELETE&codigo=" . $codigo . "]panelB-R]]}";
        $form = c_form($titulo, $vConex, "menu_empresa_det", "CuadroA", $path, $uRLForm, $codigo, $tSelectD);
        $form = "<div style='width:400px;'>" . $form . "</div>";
        $s = PanelInferior($form, "panel_edit_menu", '320px');
    }
    if ($parm == "updtaePerflMaster") {
        $btn = "Actualizar ]" . $enlace . "?MenuPerfil=actMaster]panelB-R}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Actualizar <p>MASTER</p>", $btn, "150px", "TituloA");
        $sql = "SELECT p.Codigo, m.Nombre,d.TipoMenu,p.Estado,p.Perfil, p.Codigo AS CodigoAjax \n\t\t\t\tFROM menu_empresa as m \n\t\t\t\tLEFT JOIN menu_empresa_perfil as p  ON m.Codigo = p.Menu\n\t\t\t\tLEFT JOIN menu_empresa_det as d ON p.MenuDetalle = d.Codigo WHERE Perfil = '1'\n\t\t\t\tGroup by p.Codigo  ORDER BY p.Menu, p.MenuDetalle ASC";
        $clase = 'reporteA';
        $enlaceCod = 'codigo_menu_empresa';
        $url = $enlace . "?MenuPerfil=menuDetalle";
        $panel = 'panelB-R';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, '', '');
        $s = 'Aquí Automáticamente el usuario "Master" de cada empresa, podrá tener acceso a todos los menús y submenus y tambien se actualizará si se ingreso nuevos menús y submenus';
        $s .= layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "actMaster") {
        $perfil = $codigo;
        $n_s = "SELECT PaginaWeb FROM empresa";
        $resu = mysql_query($n_s, $vConex);
        while ($reg = mysql_fetch_array($resu)) {
            $s .= $reg["PaginaWeb"];
            $sql = "SELECT Codigo, Menu FROM menu_empresa_det ";
            $consulta = mysql_query($sql, $vConex);
            while ($r = mysql_fetch_array($consulta)) {
                $sql = "SELECT Codigo \n\t\t\t\t\t\t\tFROM menu_empresa_perfil \n\t\t\t\t\t\t\tWHERE Menu ='" . $r["Menu"] . "' AND MenuDetalle = '" . $r["Codigo"] . "' AND Perfil ='1' AND Entidad = '" . $reg["PaginaWeb"] . "' ";
                $rg = rGT($vConex, $sql);
                $codigo = $rg["Codigo"];
                if ($codigo) {
                    $s .= 'ya ingreso<br>';
                } else {
                    $sql = 'INSERT INTO menu_empresa_perfil (Menu,MenuDetalle,Estado,Perfil,Entidad) 
								VALUES ("' . $r["Menu"] . '","' . $r["Codigo"] . '","Activo","1","' . $reg["PaginaWeb"] . '")';
                    xSQL($sql, $vConex);
                    $s .= 'deberia ingresa';
                }
            }
        }
    }
    if ($parm == "PerfilSys") {
        $subMenu = tituloBtnPn("<span>ACTUALIZA  PERFILES</span><p>Actualiza  en base en la plantilla</p><div class='bicel'></div>", $btn, "200px", "TituloA");
        $sql = "SELECT \n\t\tEntidad AS Empresa \n\t\t, Codigo AS CodigoAjax \n\t\tFROM  menu_empresa_perfil  GROUP BY Entidad";
        $clase = 'reporteA';
        $enlaceCod = 'CodMEP';
        $url = $enlace . "?MenuPerfil=PerfilesEmpresa";
        $panel = 'panelB-R';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'perfil_usuarios_entidad2', '');
        $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px');
    }
    if ($parm == "PerfilesEmpresa") {
        $CodMEP = get("CodMEP");
        $sql = " SELECT  Entidad  FROM \n\t\tmenu_empresa_perfil\n\t\tWHERE  Codigo = '" . $CodMEP . "' ";
        $rg = rGT($vConex, $sql);
        $EmpresaCod = $rg["Entidad"];
        $sqlA = " SELECT  Perfil  FROM \n\t\tmenu_empresa_perfil\n\t\tWHERE  Entidad = '" . $EmpresaCod . "'\n\t\t";
        $sql = "SELECT \n\t    UP.Descripcion  ";
        $sql .= ", (\n\t\t\tCASE \n\t\t\t\tWHEN MED.Perfil <> ''  THEN '<div style=color:green >Definido</div>'\n\t\t\t\tELSE 'Pendiente'\n\t\t\tEND) AS Estado ";
        $sql .= " \n\t\t, UP.Codigo  AS CodigoAjax\t\t\n\t\tFROM usuario_perfil AS UP  \n\t\tLEFT JOIN (" . $sqlA . ") AS MED ON MED.Perfil = UP.Codigo\n\t\tWHERE UP.Usuario = 'Sys'  GROUP BY UP.Codigo  ";
        $clase = 'reporteA';
        $enlaceCod = 'perfil_cod';
        $url = $enlace . "?MenuPerfil=detallePerfilViewEmprPerfil&EmpresaCod=" . $EmpresaCod . "";
        $panel = 'panelB-R';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'perfil_usuarios_entidad2', '');
        // $btn = "Actualizar ]".$enlace."?MenuPerfil=PActualizaItemPerfil]panelB-R}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("<span>PERFILES DE LA EMPRESA</span><p>Actualiza  en base en la plantilla</p><div class='bicel'></div>", $btn, "200px", "TituloA");
        $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px');
    }
    if ($parm == "detallePerfilViewEmprPerfil") {
        $codigo = get("perfil_cod");
        $EmpresaCod = get("EmpresaCod");
        $sql = "SELECT \n\t    UP.Descripcion  AS PerfilDesc\n\t    ,MEP.Entidad\n\t\tFROM  menu_empresa_perfil  AS MEP\n\t\tLEFT  JOIN  usuario_perfil  AS UP ON MEP.Perfil = UP.Codigo\n\t\tWHERE UP.Codigo = " . $codigo . "\n\t\tGROUP BY MEP.Perfil";
        $rg = rGT($vConex, $sql);
        $PerfilDesc = $rg["PerfilDesc"];
        $btn = "<div class='atras'></div>]" . $enlace . "?MenuPerfil=PerfilesEmpresa]panelB-R}";
        $btn .= "Actualiza Items]" . $enlace . "?MenuPerfil=PActualizaItemPerfilEmpresa&perfil_cod=" . $codigo . "&EmpresaCod=" . $EmpresaCod . "]panelB-R}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("<span>EDITAR ESTADOS X EMPRESAS </span><p>PERFIL " . $PerfilDesc . "</p><div class='bicel'></div>", $btn, "200px", "TituloA");
        $sql = "SELECT m.Codigo AS groupId , m.Nombre \n\t\t            , d.TipoMenu  , d.Nombre AS SubMenu,  p.Estado, p.Perfil ,  p.Codigo\n\t\t\t\t\tFROM menu_empresa_perfil as p \n\t\t\t\t\tLEFT JOIN menu_empresa_det as d ON p.MenuDetalle = d.Codigo\n\t\t\t\t\tLEFT JOIN menu_empresa as m ON d.Menu = m.Codigo\n\t\t\t\t\tWHERE p.Perfil = '" . $codigo . "'  AND p.Entidad = '" . $EmpresaCod . "'\n\t\t\t\t\tORDER BY p.Menu,  d.TipoMenu  ";
        $url = $enlace . '?MenuPerfil=EditarMenuPerfilEmpresa&perfil_cod=' . $codigo . '&EmpresaCod=' . $EmpresaCod . '';
        $urlPaginador = $enlace . '?MenuPerfil=detallePerfilViewEmprPerfil&perfil_cod=' . $codigo . '&EmpresaCod=' . $EmpresaCod . '';
        $btn = Botones("Atrás]./_vistas/gad_analisis_reportes.php]panelB-R}", 'botones1');
        $tituloBtn = tituloBtnPn("<span>Listado</span><p>PROGRAMAS</p><div class='bicel'></div>", $btn, "200px", "TituloA");
        $attr = ' perfiles│reporteA││20,' . $urlPaginador . '';
        $link = ' 0,1│0│panelB-R2│' . $url . '} ';
        $link .= ' 1,2,3,4,5│6│panelB-R2│' . $url;
        $reporte = ListR3($sql, $attr, $link);
        $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px');
    }
    if ($parm == "PActualizaItemPerfilEmpresa") {
        $perfil = get("perfil_cod");
        $EmpresaCod = get("EmpresaCod");
        $sql = " SELECT  MED.Codigo AS MDetalle, MED.Menu, MEP.Estado FROM  menu_empresa_perfil AS MEP  ";
        $sql .= " LEFT JOIN menu_empresa_det  AS MED  ON MED.Codigo = MEP.MenuDetalle  ";
        $sql .= " WHERE  MEP.Entidad = 'Sys' AND MEP.Perfil ='" . $perfil . "'  ";
        $consulta = mysql_query($sql, $vConex);
        while ($r = mysql_fetch_array($consulta)) {
            $sql = "SELECT Codigo \n\t\t\t\t\t\t\tFROM menu_empresa_perfil \n\t\t\t\t\t\t\tWHERE Menu ='" . $r["Menu"] . "' AND MenuDetalle = '" . $r["MDetalle"] . "' AND\n\t\t\t\t\t\t\tPerfil ='" . $perfil . "' AND Entidad = '" . $EmpresaCod . "' ";
            $rg = rGT($vConex, $sql);
            $codigo = $rg["Codigo"];
            if ($codigo) {
                $sql = 'UPDATE menu_empresa_perfil SET  Estado = "' . $r["Estado"] . '" WHERE Codigo = ' . $codigo . ' ';
                xSQL($sql, $vConex);
                $s .= 'Se actualizo el ITEM   ' . $codigo . ' <br>';
            } else {
                $sql = 'INSERT INTO menu_empresa_perfil (Menu,MenuDetalle,Estado,Perfil,Entidad) 
						VALUES ("' . $r["Menu"] . '","' . $r["MDetalle"] . '","Activo","' . $perfil . '","' . $EmpresaCod . '")';
                xSQL($sql, $vConex);
                $s .= 'Se inserto el ITEM  <br>';
            }
        }
    }
    if ($parm == "detallePerfil") {
        $perfil = get("perfil_cod");
        $sql = "SELECT Codigo, Menu FROM menu_empresa_det ";
        $consulta = mysql_query($sql, $vConex);
        while ($r = mysql_fetch_array($consulta)) {
            $sql = "SELECT Codigo \n\t\t\t\t\t\t\tFROM menu_empresa_perfil \n\t\t\t\t\t\t\tWHERE Menu ='" . $r["Menu"] . "' AND MenuDetalle = '" . $r["Codigo"] . "' AND Perfil ='" . $perfil . "' AND Entidad = 'Sys' ";
            $rg = rGT($vConex, $sql);
            $codigo = $rg["Codigo"];
            if ($codigo) {
                $s .= 'ya ingreso el Menu  ' . $r["Codigo"] . ' <br>';
            } else {
                $sql = 'INSERT INTO menu_empresa_perfil (Menu,MenuDetalle,Estado,Perfil,Entidad) 
						VALUES ("' . $r["Menu"] . '","' . $r["Codigo"] . '","Activo","' . $perfil . '","Sys")';
                xSQL($sql, $vConex);
                $s .= 'Se inserto el Menu  ' . $r["Codigo"] . ' <br>';
            }
        }
    }
    if ($parm == "PerfilSysView") {
        $btn = Botones('', 'botones1');
        $subMenu = tituloBtnPn("<span>PERFILES SYS </span><p>SIRVEN DE MODELO</p><div class='bicel'></div>", $btn, "200px", "TituloA");
        $sql = "SELECT Descripcion, DescripcionExtendida, \n\t\tCodigo AS CodigoAjax FROM usuario_perfil \n\t\tWHERE Usuario = 'Sys' ";
        $clase = 'reporteA';
        $enlaceCod = 'perfil_cod';
        $url = $enlace . "?MenuPerfil=detallePerfilView";
        $panel = 'panelB-R';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'perfil_usuarios_entidad2', '');
        $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px');
    }
    if ($parm == "detallePerfilView") {
        $codigo = get("perfil_cod");
        $sql = "SELECT \n\t    UP.Descripcion  AS PerfilDesc\n\t    ,MEP.Entidad\n\t\tFROM  menu_empresa_perfil  AS MEP\n\t\tLEFT  JOIN  usuario_perfil  AS UP ON MEP.Perfil = UP.Codigo\n\t\tWHERE UP.Codigo = " . $codigo . "\n\t\tGROUP BY MEP.Perfil";
        $rg = rGT($vConex, $sql);
        $PerfilDesc = $rg["PerfilDesc"];
        $btn = "<div class='atras'></div>]" . $enlace . "?MenuPerfil=PerfilSysView]panelB-R}";
        $btn .= "Actualiza Items]" . $enlace . "?MenuPerfil=PActualizaItemPerfil&perfil_cod=" . $codigo . "]panelB-R}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("<span>EDITAR ESTADOS </span><p>PERFIL " . $PerfilDesc . "</p><div class='bicel'></div>", $btn, "200px", "TituloA");
        $sql = "SELECT m.Codigo AS groupId , m.Nombre \n\t\t            , d.TipoMenu  , d.Nombre AS SubMenu,  p.Estado, p.Perfil ,  p.Codigo\n\t\t\t\t\tFROM menu_empresa_perfil as p \n\t\t\t\t\tLEFT JOIN menu_empresa_det as d ON p.MenuDetalle = d.Codigo\n\t\t\t\t\tLEFT JOIN menu_empresa as m ON d.Menu = m.Codigo\n\t\t\t\t\tWHERE p.Perfil = '" . $codigo . "'  AND p.Entidad = 'Sys'\n\t\t\t\t\tORDER BY p.Menu,  d.TipoMenu  ";
        $url = $enlace . '?MenuPerfil=EditarMenuPerfil&perfil_cod=' . $codigo . '';
        $urlPaginador = $enlace . '?MenuPerfil=detallePerfilView&perfil_cod=' . $codigo . '';
        $btn = Botones("Atrás]./_vistas/gad_analisis_reportes.php]panelB-R}", 'botones1');
        $tituloBtn = tituloBtnPn("<span>Listado</span><p>PROGRAMAS</p><div class='bicel'></div>", $btn, "200px", "TituloA");
        $attr = ' perfiles│reporteA││20,' . $urlPaginador . '';
        $link = ' 0,1│0│panelB-R2│' . $url . '} ';
        $link .= ' 1,2,3,4,5│6│panelB-R2│' . $url;
        $reporte = ListR3($sql, $attr, $link);
        $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '600px');
    }
    if ($parm == "PActualizaItemPerfil") {
        $perfil = get("perfil_cod");
        $sql = "SELECT Codigo, Menu FROM menu_empresa_det ";
        $consulta = mysql_query($sql, $vConex);
        while ($r = mysql_fetch_array($consulta)) {
            $sql = "SELECT Codigo \n\t\t\t\t\t\t\tFROM menu_empresa_perfil \n\t\t\t\t\t\t\tWHERE Menu ='" . $r["Menu"] . "' AND MenuDetalle = '" . $r["Codigo"] . "' AND Perfil ='" . $perfil . "' AND Entidad = 'Sys' ";
            $rg = rGT($vConex, $sql);
            $codigo = $rg["Codigo"];
            if ($codigo) {
                $s .= 'ya ingreso el Menu  ' . $r["Codigo"] . ' <br>';
            } else {
                $sql = 'INSERT INTO menu_empresa_perfil (Menu,MenuDetalle,Estado,Perfil,Entidad) 
						VALUES ("' . $r["Menu"] . '","' . $r["Codigo"] . '","Activo","' . $perfil . '","Sys")';
                xSQL($sql, $vConex);
                $s .= 'Se inserto el Menu  ' . $r["Codigo"] . ' <br>';
            }
        }
    }
    if ($parm == "EditarMenuPerfil") {
        $Perfil_cod = get("perfil_cod");
        $Codigo = get("Codigo");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=menu_empresa_perfil_edit&transaccion=UPDATE&Codigo=" . $Codigo . "&perfil_cod=" . $Perfil_cod . "]panelB-R]F]}";
        $titulo = "Añadir Detalle";
        $tSelectD = '';
        $form = c_form($titulo, $vConex, "menu_empresa_perfil_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD);
        $s = "<div style='width:280px;padding:0px 0px 0px 30px;'>" . $form . "</div>";
    }
    if ($parm == "EditarMenuPerfilEmpresa") {
        $EmpresaCod = get("EmpresaCod");
        $Perfil_cod = get("perfil_cod");
        $Codigo = get("Codigo");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=menu_empresa_perfil_edit_empresa&transaccion=UPDATE&Codigo=" . $Codigo . "&perfil_cod=" . $Perfil_cod . "&EmpresaCod=" . $EmpresaCod . "]panelB-R]F]}";
        $titulo = "Añadir Detalle";
        $tSelectD = '';
        $form = c_form($titulo, $vConex, "menu_empresa_perfil_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD);
        $s = "<div style='width:280px;padding:0px 0px 0px 30px;'>" . $form . "</div>";
    }
    WE($s);
}