function datosAlternos($parm)
{
    global $vConex, $enlace;
    if ($parm == "DAlternos") {
        $pestanas = getPestanasHtml($enlace, 'datosalternos');
        $tituloBtn = Titulo("<span>Configuraci&oacute;n</span><p>DEL SISTEMA</p><div class='bicel'></div>", "", "200px", "TituloA");
        // $tituloBtn = Titulo("<span>Administrador </span><p>DE GESTIÓN</p><div class='bicel'></div>","","200px","TituloA");
        $menu = "<i class='icon-edit'></i>Menu Empresa]" . $enlace . "?MenuPerfil=Listado]panelB-R}";
        $menu .= "<i class='icon-edit'></i>Crear Empresa]./_vistas/gad_empresas.php?CrearEmpresa=ListarEmpresa]panelB-R}";
        $menu .= "<i class='icon-edit'></i>Master]" . $enlace . "?MenuPerfil=updtaePerflMaster]panelB-R}";
        $menu .= "<i class='icon-edit'></i>Perfiles Sys]" . $enlace . "?MenuPerfil=PerfilSysView]panelB-R}";
        $menu .= "<i class='icon-edit'></i>Perfiles x Empresa]" . $enlace . "?MenuPerfil=PerfilSys]panelB-R}";
        $menu .= "<i class='icon-edit'></i>Eliminar Menus Fallidos]" . $enlace . "?MenuPerfil=PerfilDelete]panelB-R}";
        $menu .= "<i class='icon-edit'></i>Videoconferencia]./_vistas/gad_admin_videoconferencia.php?Main=Listado]panelB-R}";
        $menu .= "<i class='icon-cog'></i>Tipo de Datos]" . $enlace . "?accionDA=CreacionTipoDato]panelB-R}";
        $menu .= "<i class='icon-cog'></i>Tipo Campo Html]" . $enlace . "?TipoCampoHtml=Lista]panelB-R}";
        $menu .= "<i class='icon-cog'></i>Base de Datos]" . $enlace . "?BDatos=Lista]panelB-R}";
        // $menu .= "<i class='icon-cog'></i>Archivo de Trabajo]" . $enlace . "?FTrabajo=Lista]panelB-R}";
        // $menu .= "<i class='icon-cog'></i> Anuncios]./_vistas/procesos_temporales.php?ActualizaAnuncio=Listado]panelB-R}";
        // $menu .= "<i class='icon-cog'></i> Sectores]" . $enlace . "?accionDA=Sectores]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Eliminar Usuario]" . $enlace . "?accionDA=Usuarios]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Cambiar Usuario]" . $enlace . "?accionDA=CambiarUsuarios]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Eliminar Matricula]" . $enlace . "?accionDA=Matriculas]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Eliminar Programa E- Almacen]./_vistas/gad_Admin_productos.php?PanelAdmin=EliminaPrograma]panelB-R}";
        // $menu .= "<i class='icon-cog'></i> Eliminar Programa Curso - Almacen]./_vistas/gad_Admin_productos.php?PanelAdmin=EliminaPrograma]panelB-R}";
        // $menu .= "<i class='icon-cog'></i> Eliminar Matricula]" . $enlace . "?accionDA=Matriculas]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Eliminar Programa]" . $enlace . "?accionDA=Programa]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Eliminar Curso]" . $enlace . "?accionDA=Curso]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Crear Tema (color) ]./_vistas/gad_empresas.php?CrearEmpresa=CrearTemaColor]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Eliminar UsuarioEbook]" . $enlace . "?accionDA=EliminarEbook]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Reporte Usuarios Matriculados]" . $enlace . "?accionDA=ReporteMatriculas]panelB-R}";
        $mv = menuVertical($menu, 'menu4', '');
        $s = layoutLH($pestanas, $tituloBtn . $mv, '');
    }
    if ($parm == "DMaestros") {
        $pestanas = getPestanasHtml($enlace, 'datosmaestros');
        $tituloBtn = Titulo("<span>Configuraci&oacute;n</span><p>DATOS MAESTROS</p><div class='bicel'></div>", "", "200px", "TituloA");
        $menu .= "<i class='icon-cog'></i> Paises]" . $enlace . "?accionDA=Paises]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Departamentos]" . $enlace . "?accionDA=Departamentos]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Empresas]" . $enlace . "?accionDA=Empresas]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Categorias]" . $enlace . "?accionDA=Categorias]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Sectores]" . $enlace . "?accionDA=TipoSectores]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Tipo Evaluación]" . $enlace . "?accionDA=TipoEvaluacion]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Moneda]" . $enlace . "?accionDA=Moneda]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Tipo Producto]" . $enlace . "?accionDA=TipoProducto]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Tipo Pregunta]" . $enlace . "?accionDA=TipoPregunta]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Servidores Video Conferencia]" . $enlace . "?accionDA=ServerVC]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Areas]" . $enlace . "?accionDA=Area]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Reclamo Atencion]" . $enlace . "?accionDA=Reclamo]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Tutoriales]{$enlace}?Tutorial=view]panelB-R}";
        $menu .= "<i class='icon-cog'></i> Soporte Master]{$enlace}?Soporte=view]panelB-R}";
        ////////////////////////////////-----------------------
        $menu .= "<i class='icon-cog'></i> Tipos de Proyectos]{$enlace}?TipoProyectos=Tipos]panelB-R}";
        $mv = menuVertical($menu, 'menu4');
        $s = layoutLH($pestanas, $tituloBtn . $mv);
    }
    if ($parm == "ReporteMatriculas") {
        $sql = "select TipoAccesoMatricula AS 'Tipo de Acceso Matricula',count(*) AS 'Usuarios',TipoAccesoMatricula as CodigoAjax from matriculas\n        where TipoAccesoMatricula IN ('Programa','Ebook')\n        group by  TipoAccesoMatricula";
        $suma = "select(select count(*) AS 'Usuarios' from matriculas\n        where TipoAccesoMatricula IN ('Programa','Ebook')\n        )as Total  ";
        $ftchO = fetchOne($suma);
        $Total = $ftchO->Total;
        $ftch = fetchAll($sql);
        $ftchC = count($ftch);
        $Url_Raiz_Link = "{$enlace}?accionDA=ReporteMatriculasDetalle&CantUsuarios={$CantUsuarios}";
        $Url_Add_Link = array("CodigoAjax" => "TipoAccesoMatricula", "Usuarios" => "Usuarios");
        $Panel_Destino = 'panelB-R';
        $reporte = ListR("", $sql, $vConex, 'reporteA', 'd,d', $Url_Raiz_Link, $Url_Add_Link, $Panel_Destino);
        $subMenu = tituloBtnPn("<label style='color:#9E9E9E;font-weight: bold;'>{$Total}</label><p>Usuarios Matriculados</p><div class='bicel'></div>", null, "auto", "TituloA");
        $s = PanelUnico($subMenu, $reporte, 'panelB-R2', '500px');
    }
    if ($parm == "ReporteMatriculasDetalle") {
        $TipoAccesoMatricula = get('TipoAccesoMatricula');
        $usuarios = get('Usuarios');
        $sql = "select Cliente,Producto,Entidad,FechaInscripcion from matriculas where TipoAccesoMatricula='{$TipoAccesoMatricula}'\n        order by Entidad desc";
        $btn = "Retornar]{$enlace}?accionDA=ReporteMatriculas]panelB-R}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("<label style='color:#9E9E9E;font-weight: bold;'>{$usuarios}</label><br></label></label><span>Usuarios por </span><p>{$TipoAccesoMatricula}</p><div class='bicel'></div>", $btn, "auto", "TituloA");
        $Url_Raiz_Link = "{$enlace}?accionDA=ReporteMatriculasDetalle&CantUsuarios={$CantUsuarios}";
        $Url_Add_Link = array("CodigoAjax" => "TipoAccesoMatricula", "Usuarios" => "Usuarios");
        $Panel_Destino = 'panelB-R';
        $reporte = ListR("", $sql, $vConex, 'reporteA', 'd,d,d,d', $Url_Raiz_Link, $Url_Add_Link, $Panel_Destino);
        $cab = PanelUnico($subMenu, $reporte, 'panelB-R2', '500px');
        $s = layoutV($cab, 'panelB-R2');
    }
    if ($parm == "CreacionTipoDato") {
        $btn = "Crea Tipo]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>TIPOS DE CAMPOS</p>", $btn, "100px", "TituloA");
        $sql = 'SELECT Codigo, Descripcion, Codigo AS CodigoAjax FROM sys_tipo_input ';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=editaReg";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        // $path = array('Imagen' => '../_files/','ImagenMarca' => '../_files/');
        $uRLForm = "Guardar]" . $enlace . "?metodo=sys_tipo_input&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear tipo de campo";
        $form = c_form($titulo, $vConex, "sys_tipo_input", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "editaReg") {
        $codigo = get("codigoSys_tipo_input");
        // $btn = "Crea Tipo]Abrir]panel-FloatB}";
        // $btn = Botones($btn,'botones1');
        $subMenu = tituloBtnPn("Editar Registro", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=sys_tipo_input&transaccion=UPDATE&codigo=" . $codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=sys_tipo_input&transaccion=DELETE&codigo=" . $codigo . "]panelB-R]]}";
        $form = c_form($titulo, $vConex, "sys_tipo_input", "CuadroA", $path, $uRLForm, "'" . $codigo . "'", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    #########
    if ($parm == "Usuarios") {
        $subMenu = tituloBtnPn("Eliminar Usuario", $btn, "100px", "TituloA");
        $uRLForm = "Eliminar]" . $enlace . "?metodo=usuarios&transaccion=DELETE]panelB-R]F]}";
        $form = c_form_adp($titulo . $btn, $vConex, "del_usuarios", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodPrograma');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "EliminarEbook") {
        $subMenu = tituloBtnPn("Eliminar Usuario - Ebook", $btn, "100px", "TituloA");
        $uRLForm = "Eliminar]" . $enlace . "?metodo=EliminarEbook&transaccion=DELETE]panelB-R]F]}";
        $form = c_form_adp($titulo . $btn, $vConex, "del_EbookEiminar", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodPrograma');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    #########
    if ($parm == "CambiarUsuarios") {
        $subMenu = tituloBtnPn("Modificar Usuario", $btn, "100px", "TituloA");
        $uRLForm = "Modificar]" . $enlace . "?metodo=Cambiarusuarios&transaccion=UPDATE]panelB-R]F]}";
        $form = c_form_adp($titulo . $btn, $vConex, "FUpdateUsuarios", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodPrograma');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    #########
    if ($parm == "Matriculas") {
        $subMenu = tituloBtnPn("Eliminar Matriculas", $btn, "100px", "TituloA");
        $uRLForm = "Eliminar]" . $enlace . "?metodo=matriculas&transaccion=DELETE]panelB-R]F]}";
        $form = c_form_adp($titulo . $btn, $vConex, "del_matriculas", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'IdMatricula');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    ########
    ########
    if ($parm == "Programa") {
        $subMenu = tituloBtnPn("Eliminar Programa", $btn, "100px", "TituloA");
        $uRLForm = "Eliminar]" . $enlace . "?metodo=programa&transaccion=DELETE]panelB-R]F]}";
        $form = c_form_adp($titulo . $btn, $vConex, "FElimprograma", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodPrograma');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    ########
    if ($parm == "Curso") {
        $subMenu = tituloBtnPn("Eliminar Curso", $btn, "100px", "TituloA");
        $uRLForm = "Eliminar]" . $enlace . "?metodo=curso&transaccion=DELETE]panelB-R]F]}";
        $form = c_form_adp($titulo . $btn, $vConex, "FElimcurso", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodCursos');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    #########
    if ($parm == "TipoSectores") {
        $subMenu = tituloBtnPn("Listado <p>DE PROGRAMAS</p>", $btn, "100px", "TituloA");
        $sql = 'SELECT IdSectores AS Codigo,Descripcion AS Nombre, TipoInterface,  IdSectores AS CodigoAjax FROM sectores 
        ORDER BY Codigo';
        /*
         $sql = '  SELECT AR.Titulo AS Programa,CT.Descripcion AS Categoria,TP.Descripcion AS "Tipo de Programa",SC.Descripcion AS Sector ,PR.CodPrograma AS CodigoAjax FROM almacen AS AL';
         $sql .= ' INNER JOIN articulos AS AR  ON AR.Producto = AL.Producto ';
         $sql .= ' INNER JOIN categorias AS CT  ON CT.CategoriCod = AR.Categoria ';
         $sql .= ' INNER JOIN programas AS PR ON PR.CodPrograma = AR.Productofab  ';
         $sql .= ' INNER JOIN tipoprograma AS TP ON TP.IDTipoPrograma = PR.TipoPrograma  ';
         $sql .= ' LEFT JOIN sectores AS SC ON SC.IdSectores = PR.Sector  ';
         $sql .= ' WHERE AL.TipoProducto LIKE "programa%" ';
         $sql .= ' ORDER BY Programa';
        */
        $clase = 'reporteA';
        $enlaceCod = 'IdSectores';
        $url = $enlace . "?accionDA=DetalleSector";
        $panel = 'panelB-R';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R");
    }
    if ($parm == "DetalleSector") {
        $Codigo = get("codigoSys_tipo_input");
        $subMenu = tituloBtnPn("Editar Sector", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=sector_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]VpanelB-R2]F]}";
        $tSelectD = array('Sector' => 'SELECT IdSectores,Descripcion FROM sectores ORDER BY Descripcion');
        $form = c_form_adp($titulo . $btn, $vConex, "sector_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodPrograma');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "Paises") {
        $btn = "Crear Pais]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE PAISES</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT CodPais AS Codigo,Nombre,CodPostal AS "Codigo Postal",CodPais AS CodigoAjax FROM pais';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetallePaises";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=pais_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear País";
        $form = c_form($titulo, $vConex, "pais_edit", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetallePaises") {
        $Codigo = get("codigoSys_tipo_input");
        $subMenu = tituloBtnPn("Editar País", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=pais_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=pais_edit&transaccion=DELETE&Codigo=" . $Codigo . "]panelB-R]]}";
        $form = c_form_adp($titulo . $btn, $vConex, "pais_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodPAis');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "Departamentos") {
        $btn = "Crear Depa.]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE DEPARTAMENTOS</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT DP.Codigo,DP.Descripcion AS Departamento,PA.Nombre AS Pais ,DP.Codigo AS CodigoAjax FROM departamentos AS DP';
        $sql .= ' INNER JOIN pais AS PA ON PA.CodPais = DP.Pais';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleDepartamentos";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=departamento_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Departamento";
        $tSelectD = array('Pais' => 'SELECT CodPais AS Codigo,Nombre FROM pais ORDER BY Codigo');
        $form = c_form($titulo, $vConex, "departamento_edit", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetalleDepartamentos") {
        $Codigo = get("codigoSys_tipo_input");
        $subMenu = tituloBtnPn("Editar Departamento", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=departamento_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=departamento_edit&transaccion=DELETE&Codigo=" . $Codigo . "]panelB-R]]}";
        $tSelectD = array('Pais' => 'SELECT CodPais AS Codigo,Nombre FROM pais ORDER BY Codigo');
        $form = c_form_adp($titulo . $btn, $vConex, "departamento_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "Empresas") {
        $subMenu = tituloBtnPn("Listado <p>DE EMPRESAS</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT CodEmpresa AS Codigo,NombreEmpresa AS Empresa,PA.Nombre AS Pais,DP.Descripcion AS Departamento ,CodEmpresa AS CodigoAjax FROM empresa AS EM';
        $sql .= ' LEFT JOIN pais AS PA ON PA.CodPais = EM.Pais';
        $sql .= ' LEFT JOIN departamentos AS DP ON DP.Codigo = EM.Departamento';
        $sql .= ' ORDER BY CodEmpresa';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleEmpresas";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetalleEmpresas") {
        $Codigo = get("codigoSys_tipo_input");
        $subMenu = tituloBtnPn("Editar País y Departamento", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=empresa_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $tSelectD = array('Pais' => 'SELECT CodPais AS Codigo,Nombre FROM pais ORDER BY Codigo', 'Departamento' => 'SELECT Codigo,Descripcion FROM departamentos ORDER BY Codigo', 'CategoriaEmpresa' => 'SELECT IdSectores AS Codigo,Descripcion FROM sectores ORDER BY Codigo', 'TipoEmpresa' => 'SELECT IDTipoEmpresa AS Codigo,TipEmpDescripcion FROM tipoempresa ORDER BY Codigo', 'Categoria' => 'SELECT CategoriCod AS Codigo,Descripcion FROM categorias ORDER BY Codigo');
        $form = c_form_adp($titulo . $btn, $vConex, "empresa_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CodEmpresa');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "Categorias") {
        $btn = "Crea_Categoria]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE CATEGORIAS</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT CategoriCod AS Codigo,Descripcion AS Nombre, TipoInterface , Orden,CategoriCod AS CodigoAjax FROM categorias';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleCategorias";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=categoria_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Categoria";
        $form = c_form($titulo, $vConex, "categoria_edit", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetalleCategorias") {
        $Codigo = get("codigoSys_tipo_input");
        $subMenu = tituloBtnPn("Editar Categoria", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=categoria_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=categoria_edit&transaccion=DELETE&Codigo=" . $Codigo . "]panelB-R]]}";
        $form = c_form_adp($titulo . $btn, $vConex, "categoria_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'CategoriCod');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "TipoSectores") {
        $btn = "Crear_Sector]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE SECTORES</p>", $btn, "100px", "TituloA");
        $sql2 = '  SELECT IdSectores AS Codigo,Descripcion AS Nombre, TipoInterface, Orden,IdSectores AS CodigoAjax FROM sectores';
        $sql2 .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleTipoSectores";
        $panel = 'panelB-R';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=sectores_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Sector";
        $form = c_form($titulo, $vConex, "sectores_edit", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R");
    }
    if ($parm == "DetalleTipoSectores") {
        $Codigo = get("codigoSys_tipo_input");
        $subMenu = tituloBtnPn("Editar Sector", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=sectores_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=sectores_edit&transaccion=DELETE&Codigo=" . $Codigo . "]panelB-R]]}";
        $form = c_form_adp($titulo . $btn, $vConex, "sectores_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'IdSectores');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "TipoProducto") {
        $btn = "Crear Tipo]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Tipo <p>DE PRODUCTOS</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT TipoProductoId AS Codigo,Descripcion AS Nombre, TipoInterface, Orden,TipoProductoId AS CodigoAjax FROM tipoproducto';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigo_tipoproducto';
        $url = $enlace . "?accionDA=TipoProducto_edit";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        //W($);
        $uRLForm = "Guardar]" . $enlace . "?metodo=tipoproducto_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Tipo de Producto";
        $form = c_form_adp($titulo, $vConex, "tipoproducto_edit", "CuadroA", $path, $uRLForm, "", $tSelectD, 'TipoProductoId');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "TipoProducto_edit") {
        $Codigo = get("codigo_tipoproducto");
        //WE( $Codigo);
        $subMenu = tituloBtnPn("Editar Sector", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=tipoproducto_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=tipoproducto_edit&transaccion=DELETE&Codigo=" . $Codigo . "]panelB-R]]}";
        $form = c_form_adp($titulo . $btn, $vConex, "tipoproducto_edit", "CuadroA", $path, $uRLForm, "'" . $Codigo . "'", $tSelectD, 'TipoProductoId');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "TipoPregunta") {
        $btn = "Crear Tipo]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Tipo <p>DE PREGUNTAS</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT Codigo, Descripcion FROM tipo_pregunta';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigo_tipo_pregunta_edit';
        $url = $enlace . "?accionDA=TipoPregunta_edit";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=tipo_pregunta_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Tipo de Producto";
        $form = c_form_adp($titulo, $vConex, "tipo_pregunta_edit", "CuadroA", $path, $uRLForm, "", $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "TipoPregunta_edit") {
        $Codigo = get("codigo_tipo_pregunta_edit");
        $subMenu = tituloBtnPn("Editar Sector", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=tipo_pregunta_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=tipo_pregunta_edit&transaccion=DELETE&Codigo=" . $Codigo . "]panelB-R]]}";
        $form = c_form_adp($titulo . $btn, $vConex, "tipo_pregunta_edit", "CuadroA", $path, $uRLForm, "'" . $Codigo . "'", $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "ServerVC") {
        $btn = "Agregar]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Maestro de Servidores <p>Video Conferencia</p>", $btn, "100px", "TituloA");
        $sql = "SELECT Codigo as CodigoAjax,Descripcion,CantSalas 'Cant. Sala',CantUsuarioSala 'Usuarios por Sala',IpServidor,Dominio\n                FROM vc_maestroservidor\n                ORDER BY Codigo";
        $clase = 'reporteA';
        $enlaceCod = 'codvcmaestroservidor';
        $url = "{$enlace}?accionDA=ServerVC_edit";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'Codigo', '', '');
        $uRLForm = "Guardar]{$enlace}?metodo=vcmaestroservidor&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Agregar Servidor de Video Conferencia";
        $form = c_form_adp($titulo, $vConex, "vc_maestroservidor", "CuadroA", $path, $uRLForm, "", $tSelectD, 'Codigo');
        $form = "<div style='width:400px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "ServerVC_edit") {
        $Codigo = get("codvcmaestroservidor");
        $subMenu = tituloBtnPn("Editar Servidor", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]{$enlace}?metodo=vcmaestroservidor&transaccion=UPDATE&Codigo={$Codigo}]panelB-R]F]}";
        $uRLForm .= "Eliminar]{$enlace}?metodo=vcmaestroservidor&transaccion=DELETE&Codigo={$Codigo}]panelB-R]]}";
        $form = c_form_adp($titulo . $btn, $vConex, "vc_maestroservidor", "CuadroA", $path, $uRLForm, "'" . $Codigo . "'", $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>{$form}</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "TipoEvaluacion") {
        $btn = "Crear Tipo Evaluación]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE TIPO EVALUACIÓN</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT Codigo,Tipo,Concepto,Codigo AS CodigoAjax FROM elevaluaciontipo';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleTipoEvaluacion";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=tipoevaluacion_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Tipo Evaluación";
        $form = c_form($titulo, $vConex, "tipoevaluacion_edit", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetalleTipoEvaluacion") {
        $Codigo = get("codigoSys_tipo_input");
        $subMenu = tituloBtnPn("Editar Tipo Evaluación", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=tipoevaluacion_edit&transaccion=UPDATE&Codigo=" . $Codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=tipoevaluacion_edit&transaccion=DELETE&Codigo=" . $Codigo . "]panelB-R]]}";
        $form = c_form_adp($titulo . $btn, $vConex, "tipoevaluacion_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "Moneda") {
        $btn = "Crear Tipo Moneda]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE TIPO DE MONEDAS</p>", $btn, "100px", "TituloA");
        $sql = '  SELECT Codigo,Descripcion,Codigo AS CodigoAjax FROM moneda';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleMoneda";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=moneda_edit&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Tipo Moneda";
        $form = c_form($titulo, $vConex, "moneda_edit", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetalleMoneda") {
        $Codigo = get('codigoSys_tipo_input');
        $CodigoA = $Codigo;
        $Codigo = "'{$Codigo}'";
        $subMenu = tituloBtnPn("Editar Tipo Moneda", $btn, "100px", "TituloA");
        $uRLForm = 'Actualizar]' . $enlace . '?metodo=moneda_edit&transaccion=UPDATE&Codigo=' . $CodigoA . ']panelB-R]F]}';
        $uRLForm .= 'Eliminar]' . $enlace . '?metodo=moneda_edit&transaccion=DELETE&Codigo=' . $CodigoA . ']panelB-R]]}';
        $form = c_form_adp($titulo . $btn, $vConex, "moneda_edit", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "Area") {
        $btn = "Crear Area]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE AREAS</p>", $btn, "120px", "TituloA");
        $sql = '  SELECT Descripcion,InterfazUso,Codigo AS CodigoAjax FROM ga_area WHERE EntidadCreadora = "Sys" ';
        $sql .= ' ORDER BY Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleArea";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $uRLForm = "Guardar]" . $enlace . "?metodo=ga_area&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Area";
        $form = c_form($titulo, $vConex, "ga_area", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetalleArea") {
        $Codigo = get('codigoSys_tipo_input');
        $CodigoA = $Codigo;
        $Codigo = "'{$Codigo}'";
        $subMenu = tituloBtnPn("Editar Tipo Area", $btn, "120px", "TituloA");
        $uRLForm = 'Actualizar]' . $enlace . '?metodo=ga_area&transaccion=UPDATE&Codigo=' . $CodigoA . ']panelB-R]F]}';
        $uRLForm .= 'Eliminar]' . $enlace . '?metodo=ga_area&transaccion=DELETE&Codigo=' . $CodigoA . ']panelB-R]]}';
        $form = c_form_adp($titulo . $btn, $vConex, "ga_area", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    if ($parm == "Reclamo") {
        $btn = "Crear Reclamo Caso]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>DE RECLAMOS CASOS</p>", $btn, "160px", "TituloA");
        $sql = '  SELECT RR.Nombre,AA.Descripcion as Area ,RR.Descripcion,RR.Codigo AS CodigoAjax FROM reclamo_atencion_caso as RR LEFT JOIN ga_area AS AA ON AA.Codigo = RR.Area ';
        $sql .= ' ORDER BY RR.Codigo';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=DetalleReclamo";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        $tSelectD = array('Area' => 'SELECT Codigo,Descripcion FROM ga_area WHERE EntidadCreadora = "Sys" AND InterfazUso = "Reclamo" ORDER BY Codigo');
        $uRLForm = "Guardar]" . $enlace . "?metodo=reclamo_atencion_caso&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear Reclamo Caso";
        $form = c_form($titulo, $vConex, "reclamo_atencion_caso", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "DetalleReclamo") {
        $Codigo = get('codigoSys_tipo_input');
        $CodigoA = $Codigo;
        $Codigo = "'{$Codigo}'";
        $subMenu = tituloBtnPn("Editar Reclamo Caso", $btn, "120px", "TituloA");
        $uRLForm = 'Actualizar]' . $enlace . '?metodo=reclamo_atencion_caso&transaccion=UPDATE&Codigo=' . $CodigoA . ']panelB-R]F]}';
        $uRLForm .= 'Eliminar]' . $enlace . '?metodo=reclamo_atencion_caso&transaccion=DELETE&Codigo=' . $CodigoA . ']panelB-R]]}';
        $tSelectD = array('Area' => 'SELECT Codigo,Descripcion FROM ga_area WHERE EntidadCreadora = "Sys" AND InterfazUso = "Reclamo" ORDER BY Codigo');
        $form = c_form_adp($titulo . $btn, $vConex, "reclamo_atencion_caso", "CuadroA", $path, $uRLForm, $Codigo, $tSelectD, 'Codigo');
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    WE($s);
}
예제 #2
0
function Pendientes($Arg)
{
    global $ConexionEmpresa, $enlace, $enlace_regven, $enlace_proforma, $enlace_pedido, $CtaSuscripcion, $UMiembro;
    global $enlace_plancuentas, $enlace_entidades, $enlace_config, $enlace_asiento, $enlace_reporte, $enlace_tdocumento;
    switch ($Arg) {
        case "Pendientes":
            break;
        case "Menu":
            ActualizarTipoCambio(date('m'), date('Y'), $ConexionEmpresa);
            $sql = "SELECT entidad,predeterminado,razonsocial,suscripcion FROM ct_empresasuscripcion WHERE UMiembro='" . $UMiembro . "'";
            $mtx = Matris_Datos($sql, $ConexionEmpresa);
            $menu0 = $menu1 = $menuPoliticas = $menuTransacciones = $menuAnalisis = $menuConfiguracion = $menuOtros = array();
            $n = 0;
            while ($row = mysql_fetch_array($mtx)) {
                $menuPoliticas = array("Plan de Cuentas" => "./_vistas/g_plan_cuentas.php?CtaSuscripcion=" . $row['suscripcion'] . "&PlanCuentas=Listado", "Tipos de Asiento" => "./_vistas/g_configuracion.php?TipoAsientoCont=ListadoTA&codTA=N&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Tipo de Cambio" => "./_vistas/g_tipo_cambio.php?TipoCambio=TipoCambio&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Tipo de Moneda" => "./_vistas/g_tipo_moneda.php?Moneda=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Libros Contables" => "./_vistas/g_libros.php?Libro=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Tipo de Documento" => "./_vistas/g_documento.php?TipoDocumento=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Tipo de Conversion" => "./_vistas/g_tipo_conversion.php?Conversion=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Periodo Anual" => "./_vistas/g_periodo_anual.php?PeriodoAnual=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Periodo Mensual" => "./_vistas/g_periodo_mensual.php?PeriodoMes=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Cuenta Corriente" => "./_vistas/g_cuenta_corriente.php?CtaCorriente=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Impuestos" => "./_vistas/g_impuesto.php?impuesto=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro);
                $menuTransacciones = array("Registro de Asientos " => "./_vistas/g_reg_asientocontable.php?RegAsientCon=Listado&CtaSuscripcion=" . $row['suscripcion']);
                $menuAnalisis = array("Balance General" => $enlace_regven . "?RegistroVentas=Listado&CtaSuscripcion=" . $row['suscripcion'], "Estado de Perdidas y Ganancias" => $enlace_pedido . "?Pedidos=Listado&CtaSuscripcion=" . $row['suscripcion'], "Asiento por Cta" => "./_vistas/g_rep_asientoxcta.php?RepAsxCta=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Balance de Comprobación por Mes" => "./_vistas/g_rep_balance_mes.php?RepBalxMes=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro);
                $menuConfiguracion = array("Asientos" => $enlace_config . "?ConfiguracionAsientos=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro, "Tipo de Cambio" => $enlace_config . "?TipoCambio=Listado&CtaSuscripcion=" . $row['suscripcion'] . "&UMiembro=" . $UMiembro);
                $menuOtros = array("Empresas" => $enlace . "?Entidades=ListadoEnt&CtaSuscripcion=" . $row['suscripcion'], "Clientes" => $enlace_entidades . "?Clientes=Listado&CtaSuscripcion=" . $row['suscripcion'], "Articulos" => $enlace . "?MenuPerfil=Listado&CtaSuscripcion=" . $row['suscripcion'], "Registro de Ventas" => $enlace_regven . "?RegistroVentas=Listado&CtaSuscripcion=" . $row['suscripcion'], "Proformas" => $enlace_proforma . "?Proformas=Listado&CtaSuscripcion=" . $row['suscripcion'], "Pedidos" => $enlace_pedido . "?Pedidos=Listado&CtaSuscripcion=" . $row['suscripcion']);
                for ($i = 0; $i <= 4; $i++) {
                    $menu1 = array('Políticas' => $menuPoliticas, 'Transacciones' => $menuTransacciones, 'Análisis' => $menuAnalisis, 'Configuracion' => $menuConfiguracion, 'Otros' => $menuOtros);
                }
                $menu0[$n] = array('Entidad' => $row['entidad'], 'Predeterminado' => $row['predeterminado'], 'Razon' => $row['razonsocial'], 'Suscripcion' => $row['suscripcion'], 'SubMenu' => $menu1);
                $n++;
            }
            $tituloBtn2 = Titulo("<span style='font-size:0.9em;color:#000000;font-weight:300;float:left;'>Empresas</span>", "", "200px", "TituloA");
            $tituloBtn2 = "<div style='padding:20px 20px 20px 30px;float:left; width:100%;' >" . $tituloBtn2 . "</div>";
            $mv = MenuVerticalAcordeon($menu0);
            $s = "<div class='PanelSite'>" . $tituloBtn2 . $mv . "</div>";
            W($s);
            break;
    }
}
function datosAlternos($parm)
{
    global $vConex, $enlace;
    if ($parm == "DAlternos") {
        $menu = "Formularios]" . $enlace . "]cuerpo}";
        $menu .= "Tablas]" . $enlace . "?accionCT=tablas]cuerpo}";
        $menu .= "Datos Alternos]" . $enlace . "?datosAlternos=DAlternos]divB]Marca}";
        $mHrz = menuHorizontal($menu, 'menuV1');
        $tituloBtn = Titulo("<span>Configuración</span><p>DEL SISTEMA</p><div class='bicel'></div>", "", "200px", "TituloA");
        // $tituloBtn = Titulo("<span>Administrador </span><p>DE GESTIÓN</p><div class='bicel'></div>","","200px","TituloA");
        $menu = "<span class='edicion_site'></span>Menú Empresa]" . $enlace . "?MenuPerfil=Listado]panelB-R}";
        $menu .= "<span class='edicion_site'></span>Master]" . $enlace . "?MenuPerfil=updtaePerflMaster]panelB-R}";
        $menu .= "<span class='edicion_site'></span>Perfiles Sys]" . $enlace . "?MenuPerfil=PerfilSysView]panelB-R}";
        $menu .= "<span class='edicion_site'></span>Perfiles x Empresa]" . $enlace . "?MenuPerfil=PerfilSys]panelB-R}";
        $menu .= "<span class='edicion_site'></span>Videoconferencia]./_vistas/gad_admin_videoconferencia.php?Main=Listado]panelB-R}";
        $menu .= "<span class='icon_engranaje'></span>Tipo de Datos]" . $enlace . "?accionDA=CreacionTipoDato]panelB-R}";
        $menu .= "<span class='icon_engranaje'></span>Tipo Campo Html]" . $enlace . "?TipoCampoHtml=Lista]panelB-R}";
        $menu .= "<span class='icon_engranaje'></span>Base de Datos]" . $enlace . "?BDatos=Lista]panelB-R}";
        //$menu .= "<span class='icon_engranaje'></span>Site Map]mapa-sitio.php]divB}";
        $mv = menuVertical($menu, 'menu4');
        // $panelA = layoutV2( $mHrz . $pestanas , $tituloBtn.$mv);
        $panelA = layoutLH($mHrz . $pestanas, $tituloBtn . $mv);
        $panel = array(array('PanelA1', '100%', $panelA));
        $s = LayoutPage($panel);
    }
    if ($parm == "CreacionTipoDato") {
        $btn = "Crea Tipo]Abrir]panel-FloatB}";
        $btn = Botones($btn, 'botones1');
        $subMenu = tituloBtnPn("Listado <p>TIPOS DE CAMPOS</p>", $btn, "100px", "TituloA");
        $sql = 'SELECT Codigo, Descripcion, Codigo AS CodigoAjax FROM sys_tipo_input ';
        $clase = 'reporteA';
        $enlaceCod = 'codigoSys_tipo_input';
        $url = $enlace . "?accionDA=editaReg";
        $panel = 'panelB-R2';
        $reporte = ListR2($titulo, $sql, $vConex, $clase, '', $url, $enlaceCod, $panel, 'sys_tipo_inputB', '');
        // $path = array('Imagen' => '../_files/','ImagenMarca' => '../_files/');
        $uRLForm = "Guardar]" . $enlace . "?metodo=sys_tipo_input&transaccion=INSERT]panelB-R]F]panel-FloatB}";
        $titulo = "Crear tipo de campo";
        $form = c_form($titulo, $vConex, "sys_tipo_input", "CuadroA", $path, $uRLForm, "", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $style = "left:170px;top:0px;";
        $divFloat = panelFloat($form, "panel-FloatB", $style);
        $s = layoutLSB($divFloat . $subMenu, $reporte, "panelB-R2");
    }
    if ($parm == "editaReg") {
        $codigo = get("codigoSys_tipo_input");
        // $btn = "Crea Tipo]Abrir]panel-FloatB}";
        // $btn = Botones($btn,'botones1');
        $subMenu = tituloBtnPn("Editar Registro", $btn, "100px", "TituloA");
        $uRLForm = "Actualizar]" . $enlace . "?metodo=sys_tipo_input&transaccion=UPDATE&codigo=" . $codigo . "]panelB-R]F]}";
        $uRLForm .= "Eliminar]" . $enlace . "?metodo=sys_tipo_input&transaccion=DELETE&codigo=" . $codigo . "]panelB-R]]}";
        $form = c_form($titulo, $vConex, "sys_tipo_input", "CuadroA", $path, $uRLForm, "'" . $codigo . "'", $tSelectD);
        $form = "<div style='width:500px;'>" . $form . "</div>";
        $s = layoutV($subMenu, $form);
    }
    WE($s);
}