From dc40b53532212c9ee524fffe28fd6e771304b760 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 4 Apr 2025 18:13:47 -0700
Subject: [PATCH] Revert "Ajustes RepPreciosVentaManifiesto.aspx"

This reverts commit daf673bb78306780f978227404d87f34e1710595.
---
 Agropecuaria/RepPreciosVentaManifiesto.aspx   |  18 +-
 .../RepPreciosVentaManifiesto.aspx.vb         |   7 +-
 App_Code/ClsVentas.vb                         |  15 +-
 Inicio.aspx                                   | 242 +-----------------
 Inicio.aspx.vb                                | 185 -------------
 5 files changed, 21 insertions(+), 446 deletions(-)

diff --git a/Agropecuaria/RepPreciosVentaManifiesto.aspx b/Agropecuaria/RepPreciosVentaManifiesto.aspx
index ff5db5faa..053da4e12 100644
--- a/Agropecuaria/RepPreciosVentaManifiesto.aspx
+++ b/Agropecuaria/RepPreciosVentaManifiesto.aspx
@@ -123,20 +123,20 @@ font-size: 12px;
 
                     <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron datos con los filtros especificados" 
                         DataKeyNames="CvePrecioVentaManifiesto,CveEmbarqueManifiesto,CveCultivo,CveCultivoVariedad,Referencia,LdDate,InvDate,PDDate,CantidadVendida,PUVenta,Observaciones"
-                        ToolTip="" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbt" data-sort="true"  GridLines="None">
+                        ToolTip="" CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true"  GridLines="None">
                         <Columns>                    
                             <asp:BoundField HeaderText="Manifiesto" DataField="NoEmbarque"  />
                             <asp:BoundField HeaderText="Cultivo" DataField="Cultivo"  />
                             <asp:BoundField HeaderText="Variedad" DataField="CultivoVariedad"  />
                             <asp:BoundField HeaderText="Tamaño" DataField="Tamaño"  />
                             <asp:BoundField HeaderText="Referencia" DataField="Referencia"  />
-                            <asp:BoundField HeaderText="Fecha Vta" DataField="InvDate" ItemStyle-Width="110px" DataFormatString="{0:dd/MM/yyyy}" HtmlEncode="False"  />
+                            <asp:BoundField HeaderText="Fecha Vta" DataField="InvDate" ItemStyle-Width="110px" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False"  />
                             <asp:BoundField HeaderText="Cantidad" DataField="CantidadVendida"  ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                             <asp:BoundField HeaderText="Precio venta (Grow)" DataField="PUVenta" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  />
                             <asp:BoundField HeaderText="Precio del día" DataField="PrecioVenta"  ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
-                            <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N2}"  />
-                            <asp:BoundField HeaderText="% de diferencia" DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}%" />
-                            <asp:BoundField HeaderText="Fecha Ing." DataField="FechaIng" ItemStyle-HorizontalAlign="Center"  DataFormatString="{0:dd/MM/yyyy HH:mm:ss}" HtmlEncode="False" /> 
+                            <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  />
+                            <asp:BoundField HeaderText="% de diferencia" DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Fecha Ing." DataField="FechaIng"   /> 
                             <asp:BoundField HeaderText="Usuario" DataField="Usuario"   />
                         </Columns>    
                     </asp:GridView>
@@ -230,14 +230,14 @@ font-size: 12px;
 
                                 <asp:GridView ID="GVPrecioVentaFecha" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron datos con los filtros especificados"
                                     DataKeyNames="CvePrecioVentaFecha,CveCultivo,CveTamaño,Descripcion,Fecha,CveCultivoVariedad,PrecioVenta"
-                                    ToolTip="" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbt" data-sort="true" GridLines="None">
+                                    ToolTip="" CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                                     <Columns>
                                         <asp:BoundField HeaderText="Cultivo" DataField="Cultivo" />
                                         <asp:BoundField HeaderText="Variedad" DataField="CultivoVariedad" />
                                         <asp:BoundField HeaderText="Tamaño" DataField="Tamaño" />
                                         <asp:BoundField HeaderText="Precio" DataField="PrecioVenta" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />                                        
-                                        <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-Width="110px" DataFormatString="{0:dd/MM/yyyy}" HtmlEncode="False" ItemStyle-HorizontalAlign="Center" />
-                                        <asp:BoundField HeaderText="Fecha Ing." DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy HH:mm:ss}" HtmlEncode="False"  ItemStyle-HorizontalAlign="Center" />
+                                        <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-Width="110px" DataFormatString="{0:dd/MM/yyyy}" HtmlEncode="False" />
+                                        <asp:BoundField HeaderText="Fecha Ing." DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy HH:mm:ss}" HtmlEncode="False" />
                                         <asp:BoundField HeaderText="Usuario" DataField="Usuario" />
                                         <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                             <ItemTemplate>
@@ -369,7 +369,7 @@ font-size: 12px;
                 <div class="modal-footer">
                     <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <asp:LinkButton ID="LnkModalGuardarPreciosVentaFecha" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpPrecioVentaFecha" OnClick="LnkModalGuardarPreciosVentaFecha_Click">Guardar</asp:LinkButton>
+                            <asp:LinkButton ID="LnkModalGuardarPreciosVentaFecha" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpPrecioVentaFecha" OnClick="LnkModalGuardarPreciosVentaFecha_Click">Agregar</asp:LinkButton>
                             <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                         </ContentTemplate>
                     </asp:UpdatePanel>
diff --git a/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb b/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb
index 4de8fd0db..83e69a17a 100644
--- a/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb
+++ b/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb
@@ -231,7 +231,7 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         If CvePrecioVentaFecha > 0 Then
 
             If Not objVentas.UpdatePreciosVentaFecha(CvePrecioVentaFecha, DdlModalCultivo.SelectedValue.ToEntero, DdlModalTamaño.SelectedValue.ToEntero, TxtModalDescripcion.Text.Trim, TxtModalFecha.Text.ToDate, DdlModalCultivoVariedad.SelectedValue.ToEntero,
-                                              TxtPrecioVentaFecha.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                                              TxtPrecioVentaFecha.Text.ToDecimal, UsuarioActual.CveEmpresa, UsuarioActual.CveEmpresa) Then
                 ProcesoOC = False
             End If
 
@@ -247,7 +247,6 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         If ProcesoOC Then
             CargaPreciosVentaFecha()
             Alert("Precio Guardado correctamente.")
-            RegistraScript("$('#DVModalPreciosVentaFecha').modal('hide');")
         End If
 
     End Sub
@@ -263,7 +262,6 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         CargaCultivoVariedadModal(DdlModalCultivo.SelectedValue.ToEntero)
         DdlModalTamaño.SelectedValueExist(GvRow.DataKey("CveTamaño"))
         TxtModalDescripcion.Text = GvRow.DataKey("Descripcion")
-        TxtPrecioVentaFecha.Text = GvRow.DataKey("PrecioVenta")
         TxtModalFecha.Text = GvRow.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy")
         DdlModalCultivoVariedad.SelectedValueExist(GvRow.DataKey("CveCultivoVariedad"))
 
@@ -271,7 +269,6 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         '    CargaPreciosVentaFecha()
         'End If
 
-        LtlModalTituloPreciosVentaFecha.Text = "Actualziar Precio"
         UpModalPreciosVentaFecha.Update()
         RegistraScript("$('#DVModalPreciosVentaFecha').modal('show');")
 
@@ -293,6 +290,7 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         If ProcesoOK Then
             CargaPreciosVentaFecha()
             UpModalPreciosVentaFecha.Update()
+            RegistraScript("$('#DVModalPreciosVentaFecha').modal('hide');")
             Alert("Precio eliminado correctamente.")
         End If
 
@@ -309,7 +307,6 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         TxtModalDescripcion.Text = ""
         TxtModalFecha.Text = ""
         DdlModalCultivoVariedad.SelectedValueExist(-1)
-        LtlModalTituloPreciosVentaFecha.Text = "Agregar Precio"
 
         UpModalPreciosVentaFecha.Update()
 
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 9a54f8bb2..fc516e130 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -7757,12 +7757,7 @@ Public Class ClsVentas
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            If ex.Message.Contains("UQ_Agro_PreciosVentaFecha_Cultivo_Tamaño_Variedad_Fecha") Then
-                Alert("Ya existe un registro con los datos y fecha proporcionados.", TipoMensaje.MsgAdvertencia)
-            Else
-                OnError("Ocurrió un error al agregar los precios del día.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-
+            OnError("Ocurrió un error al agregar los precios del día.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
 
@@ -7786,13 +7781,7 @@ Public Class ClsVentas
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-
-            If ex.Message.Contains("UQ_Agro_PreciosVentaFecha_Cultivo_Tamaño_Variedad_Fecha") Then
-                Alert("Ya existe un registro con los datos y fecha proporcionados.", TipoMensaje.MsgAdvertencia)
-            Else
-                OnError("Ocurrió un error al actualizar los precios del día.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-
+            OnError("Ocurrió un error al actualizar los precios del día.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
 
diff --git a/Inicio.aspx b/Inicio.aspx
index aea0d17fc..4e972989e 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -1,12 +1,8 @@
 <%@ Page Title="Sistema de Información Gerencial" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Inicio.aspx.vb" Inherits="Inicio" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="Css" runat="Server">
-  
 
     <style type="text/css">
-        @import url("https://code.highcharts.com/css/highcharts.css");
-        @import url("https://code.highcharts.com/dashboards/css/datagrid.css");
-        @import url("https://code.highcharts.com/dashboards/css/dashboards.css");
         .unoaunoold {
             color: #999b9b;
             font-size: 11px;
@@ -122,181 +118,6 @@
         .select2-container--open {
             z-index: 1000 !important;
         }
-        .highcharts-figure,
-            .highcharts-data-table table {
-                min-width: 310px;
-                max-width: 800px;
-                margin: 1em auto;
-            }
-
-            #container {
-                height: 400px;
-            }
-
-            .highcharts-data-table table {
-                font-family: Verdana, sans-serif;
-                border-collapse: collapse;
-                border: 1px solid #ebebeb;
-                margin: 10px auto;
-                text-align: center;
-                width: 100%;
-                max-width: 500px;
-            }
-
-            .highcharts-data-table caption {
-                padding: 1em 0;
-                font-size: 1.2em;
-                color: #555;
-            }
-
-            .highcharts-data-table th {
-                font-weight: 600;
-                padding: 0.5em;
-            }
-
-            .highcharts-data-table td,
-            .highcharts-data-table th,
-            .highcharts-data-table caption {
-                padding: 0.5em;
-            }
-
-            .highcharts-data-table thead tr,
-            .highcharts-data-table tr:nth-child(even) {
-                background: #f8f8f8;
-            }
-
-            .highcharts-data-table tr:hover {
-                background: #f1f7ff;
-            }
-
-            .highcharts-description {
-                margin: 0.3rem 10px;
-            }
-            h1#title {
-    padding-top: 10px;
-    margin: 0;
-    background-color: #3d3d3d;
-    text-align: center;
-    color: #fff;
-}
-
-#kpi-vitamin-a .highcharts-dashboards-component-title::before,
-#kpi-iron .highcharts-dashboards-component-title::before {
-    width: 14px;
-    height: 14px;
-    border-radius: 28px;
-    display: inline-block;
-    padding: 0;
-    margin-right: 4px;
-    background-color: var(--highcharts-color-0);
-    content: " ";
-}
-
-#kpi-iron .highcharts-dashboards-component-title::before {
-    background-color: var(--highcharts-color-2);
-}
-
-#kpi-vitamin-a .highcharts-dashboards-component-kpi-subtitle,
-#kpi-iron .highcharts-dashboards-component-kpi-subtitle {
-    margin-top: 10px;
-    font-size: 1.2em;
-    color: var(--highcharts-neutral-color-60);
-}
-
-#kpi-vitamin-a .highcharts-dashboards-component-kpi-value,
-#kpi-iron .highcharts-dashboards-component-kpi-value {
-    font-size: 4em;
-    line-height: 2.4rem;
-    margin-top: 10px;
-    color: var(--highcharts-color-0);
-}
-
-#kpi-iron .highcharts-dashboards-component-kpi-value {
-    color: var(--highcharts-color-2);
-}
-
-#dashboard-col-1 .highcharts-color-0 {
-    fill: var(--highcharts-color-2);
-    stroke: var(--highcharts-color-2);
-}
-
-#kpi-vitamin-a .highcharts-dashboards-component-kpi-value::after,
-#kpi-iron .highcharts-dashboards-component-kpi-value::after {
-    content: "micrograms";
-    display: block;
-    font-size: 1rem;
-}
-
-.highcharts-plot-line {
-    stroke-dasharray: 2px;
-    stroke: var(--highcharts-color-3);
-}
-
-.highcharts-plot-line-label {
-    fill: var(--highcharts-color-3);
-}
-
-.highcharts-description {
-    padding: 0 20px;
-}
-
-#kpi-vitamin-a,
-#kpi-iron {
-    flex: 1 1 100%;
-    height: 205px;
-}
-
-/* LARGE */
-@media (max-width: 1200px) {
-    #dashboard-col-0,
-    #dashboard-col-1 {
-        flex: 1 1 35%;
-    }
-
-    #kpi-wrapper {
-        flex: 1 1 30%;
-    }
-
-    #kpi-vitamin-a,
-    #kpi-iron {
-        flex: 1 1 100%;
-    }
-}
-
-/* MEDIUM */
-@media (max-width: 992px) {
-    #dashboard-col-0,
-    #dashboard-col-1 {
-        flex: 1 1 50%;
-    }
-
-    #kpi-wrapper {
-        flex: 1 1 100%;
-    }
-
-    #kpi-vitamin-a,
-    #kpi-iron {
-        flex: 1 1 50%;
-    }
-}
-
-/* SMALL */
-@media (max-width: 576px) {
-    #dashboard-col-0,
-    #dashboard-col-1 {
-        flex: 1 1 100%;
-    }
-
-    #kpi-wrapper {
-        flex: 1 1 100%;
-    }
-
-    #kpi-vitamin-a,
-    #kpi-iron {
-        flex: 1 1 50%;
-    }
-}
-
     </style>
 
 
@@ -319,7 +140,13 @@
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
-     
+
+
+    
+           
+    
+
+
     <asp:UpdatePanel ID="UPPIndicador" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
             <div style="background-color: #F9F9F9;">
@@ -348,55 +175,6 @@
                     <div class="row " id="DivIndicadores" runat="server" visible="False">
                     </div>
                 </div>
-                 <br />
-                <div class="row" runat="server" id="divsms1">
-                     <div class="col-md-4">                          
-                           <div id="divmedsinventa">
-                               <asp:GridView ID="GvMedSinVenta" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False">
-                                   <Columns>
-                                       <asp:BoundField DataField="NombreMedico" HeaderText="Médico sin venta +30d" ItemStyle-Width="200px" />
-                                   </Columns>
-                               </asp:GridView>
-                            </div>                          
-                     </div>
-                    <div class="col-md-4">
-                         <figure class="highcharts-figure">
-                          <div id="divtop10medicos" />
-                         </figure>
-                    </div>
-                    <div class="col-md-4">
-                         <figure class="highcharts-figure">
-                          <div id="divtop5Marcas" />
-                         </figure>
-                    </div>                   
-                </div>
-                <div class="row" runat="server" id="divsms2">
-                     <div class="row" >
-                             <div id="Div2" runat="server" class="col-md-6 col-sm-6">
-                                 <!-- BEGIN REGIONAL STATS PORTLET-->
-                                 <div class="portlet light ">
-                                     <div class="portlet-title">
-                                         <div class="caption">
-                                             <i class="icon-graph font-red-sunglo"></i>
-                                             <span class="caption-subject font-red-sunglo bold uppercase">Ventas</span>
-                                         </div>
-                                         <div class="tools">
-                                             <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                             <a href="javascript:;" class="reload" data-original-title="" title=""></a>
-                                             <a href="" class="fullscreen" data-original-title="" title=""></a>
-                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
-                                         </div>
-                                     </div>
-                                     <div class="portlet-body">
-                                         <div id="div3" runat="server" style="text-align: center;">
-                                             <img src="/Metronic/assets/admin/layout/img/loading.gif" alt="loading" />
-                                         </div>
-                                     </div>
-                                 </div>
-                                 <!-- END REGIONAL STATS PORTLET-->
-                             </div>
-                </div>
-               
                 <br />
 
                 <asp:UpdatePanel ID="UPComunicado" UpdateMode="Conditional" runat="server">
@@ -1839,11 +1617,7 @@
 
     <%--<script src="/Metronic/assets/admin/pages/scripts/index.js" type="text/javascript"></script>--%>
     <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>
-    
-    <script src="https://code.highcharts.com/dashboards/datagrid.js"></script>
-    <script src="https://code.highcharts.com/dashboards/dashboards.js"></script>
-    <script src="https://code.highcharts.com/dashboards/modules/layout.js"></script>
-    <script src="https://code.highcharts.com/modules/accessibility.js"></script>
+
     <script type="text/javascript">
 
         function pageLoad() {
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index ebd9f24ed..ce9b8457f 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -191,9 +191,6 @@ Partial Class Inicio
             If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
             If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
 
-            If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso UsuarioActual.CveRol = 1 Then
-                CargaKPICirugias()
-            End If
 
             If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
                 CargaGraficas()
@@ -547,188 +544,6 @@ Partial Class Inicio
 
     End Sub
 
-    Private Sub CargaKPICirugias()
-
-        DivIndicadores.InnerHtml = ""
-        Dim dtIndicadores As DataTable = Nothing
-        Dim dtRH As DataTable = Nothing
-
-        Dim Gral As New ClsVentas
-        Dim ds As DataSet = Nothing
-
-        If Gral.GetSMSIndicadores(1, "2025/03/01".ToDate, NowADS.LastDayOfMonth, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            ds = Gral.DataSetResultados
-        End If
-        '0-ventas totales, 1-comisiones totales, 2-medicos sin consumo, 3-top10medicos, 4-top5marcas, 5-num pacientes
-
-        Dim StrTexto As New StringBuilder
-        Dim StrValor As New StringBuilder
-        Dim dtt As DataTable = ds.Tables(2)
-
-        'top 10 medicos
-        If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
-            GvMedSinVenta.DataSource = dtt
-            GvMedSinVenta.DataBind()
-            'For Each dr As DataRow In dtt.Rows
-            '    StrTexto.AppendFormat("'{0}',", dr("NombreMedico"))
-            '    StrValor.AppendFormat("{0},", "0")
-            'Next
-            'Dim TopMedicosSinVenta As String = "Highcharts.chart('divmedsinventa', { chart: { type: 'bar' },  title: { text: 'Top 10 médicos' }, subtitle: { text: 'mes actual' },
-            'xAxis: { categories: [" & StrTexto.ToString & "], title: { text: null },        gridLineWidth: 1,         lineWidth: 0 },
-            'yAxis: { min: 0, title: { text: '', align: 'high' }, labels: { overflow: 'justify'  }, gridLineWidth: 0 },
-            'tooltip: { valueSuffix: ' ' },  plotOptions: { bar: { borderRadius: '50%',  dataLabels: {  enabled: true },  groupPadding: 0.1 } },
-            'legend: { layout: 'vertical', align: 'right', verticalAlign: 'top', x: -40, y: 80, floating: true, borderWidth: 1,
-            '    backgroundColor: Highcharts.defaultOptions.legend.backgroundColor || '#FFFFFF', shadow: true },
-            'credits: { enabled: false },
-            'series: [{ name: '', data: [" & StrValor.ToString & "] } ] });"
-
-            'RegistraScript(TopMedicosSinVenta, "divmedsinventa")
-        End If
-        'top 10 medicos
-        dtt = ds.Tables(3)
-        StrTexto.Clear() : StrValor.Clear()
-        'If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
-        '    For Each dr As DataRow In dtt.FiltraParametros("Importe > 0").Rows
-        '        StrTexto.AppendFormat("'{0}',", dr("Medico"))
-        '        StrValor.AppendFormat("{0},", dr("Importe"))
-        '    Next
-        '    Dim Top10Medicos As String = "$(document).ready(function () { Highcharts.chart('divtop10medicos', { chart: { type: 'bar' },  title: { text: 'Top 10 médicos' }, subtitle: { text: 'mes actual' },
-        '    xAxis: { categories: [" & StrTexto.ToString & "], title: { text: null },        gridLineWidth: 1,         lineWidth: 0 },
-        '    yAxis: { min: 0, title: { text: '', align: 'high' }, labels: { overflow: 'justify'  }, gridLineWidth: 0 },
-        '    tooltip: { valueSuffix: ' ' },  plotOptions: { bar: {  dataLabels: {  enabled: true },  groupPadding: 0.1 } },
-        '    legend: {   enabled: false }, credits: { enabled: false },
-        '    series: [{ name: '', data: [" & StrValor.ToString & "] } ] }); });"
-
-        '    RegistraScript(Top10Medicos, "top10")
-        'End If
-
-        'dashboard temporal
-        Dim Top10Medicos As String = "Highcharts.setOptions({chart:{styledMode:true}});Dashboards.board('divtop10medicos',{dataPool:{connectors:[{id:'micro-element',type:'JSON',options:{firstRowAsNames:false,columnNames:['Food','Vitamin A','Iron'],data:[['Beef Liver',6421,6.5],['Lamb Liver',2122,6.5],['Cod Liver Oil',1350,0.9],['Mackerel',388,1],['Tuna',214,0.6]]}}]},editMode:{enabled:true,contextMenu:{enabled:true}},gui:{layouts:[{rows:[{cells:[{id:'kpi-wrapper',layout:{rows:[{cells:[{id:'kpi-vitamin-a'},{id:'kpi-iron'}]}]}},{id:'dashboard-col-0'},{id:'dashboard-col-1'}]},{cells:[{id:'dashboard-col-2'}]}]}]},components:[{type:'KPI',renderTo:'kpi-vitamin-a',value:900,valueFormat:'{value}',title:'Vitamin A',subtitle:'daily recommended dose'},{type:'KPI',renderTo:'kpi-iron',value:8,title:'Iron',valueFormat:'{value}',subtitle:'daily recommended dose'},{sync:{visibility:true,highlight:true,extremes:true},connector:{id:'micro-element',columnAssignment:[{seriesId:'Vitamin A',data:['Food','Vitamin A']}]},renderTo:'dashboard-col-0',type:'Highcharts',chartOptions:{xAxis:{type:'category',accessibility:{description:'Groceries'}},yAxis:{title:{text:'mcg'},plotLines:[{value:900,zIndex:7,dashStyle:'shortDash',label:{text:'RDA',align:'right',style:{color:'#B73C28'}}}]},credits:{enabled:false},plotOptions:{series:{marker:{radius:6}}},legend:{enabled:true,verticalAlign:'top'},chart:{animation:false,type:'column',spacing:[30,30,30,20]},title:{text:''},tooltip:{valueSuffix:' mcg',stickOnContact:true},lang:{accessibility:{chartContainerLabel:'Vitamin A in food. Highcharts Interactive Chart.'}},accessibility:{description:'The chart is displaying the Vitamin A amount in micrograms for some groceries. There is a plotLine demonstrating the daily Recommended Dietary Allowance (RDA) of 900 micrograms.',point:{valueSuffix:' mcg'}}}},{renderTo:'dashboard-col-1',sync:{visibility:true,highlight:true,extremes:true},connector:{id:'micro-element',columnAssignment:[{seriesId:'Iron',data:['Food','Iron']}]},type:'Highcharts',chartOptions:{xAxis:{type:'category',accessibility:{description:'Groceries'}},yAxis:{title:{text:'mcg'},max:8,plotLines:[{value:8,dashStyle:'shortDash',label:{text:'RDA',align:'right',style:{color:'#B73C28'}}}]},credits:{enabled:false},plotOptions:{series:{marker:{radius:6}}},title:{text:''},legend:{enabled:true,verticalAlign:'top'},chart:{animation:false,type:'column',spacing:[30,30,30,20]},tooltip:{valueSuffix:' mcg',stickOnContact:true},lang:{accessibility:{chartContainerLabel:'Iron in food. Highcharts Interactive Chart.'}},accessibility:{description:'The chart is displaying the Iron amount in micrograms for some groceries. There is a plotLine demonstrating the daily Recommended Dietary Allowance (RDA) of 8 micrograms.',point:{valueSuffix:' mcg'}}}},{renderTo:'dashboard-col-2',connector:{id:'micro-element'},type:'DataGrid',sync:{highlight:true,visibility:true},dataGridOptions:{credits:{enabled:false}}}]},true);"
-        RegistraScript(Top10Medicos, "top10")
-
-        'top 5 marcas
-        dtt = ds.Tables(4)
-        StrTexto.Clear() : StrValor.Clear()
-        'top 5 marcas
-        If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
-            For Each dr As DataRow In dtt.FiltraParametros("Importe > 0").Rows
-                StrTexto.AppendFormat("'{0}',", dr("Marca"))
-                StrValor.AppendFormat("{0},", dr("Importe"))
-            Next
-            Dim Top5Marcas As String = "Highcharts.chart('divtop5Marcas', { chart: { type: 'bar' },  title: { text: 'Top 5 marcas' }, subtitle: { text: 'mes actual' },
-            xAxis: { categories: [" & StrTexto.ToString & "], title: { text: null },        gridLineWidth: 1,         lineWidth: 0 },
-            yAxis: { min: 0, title: { text: '', align: 'high' }, labels: { overflow: 'justify'  }, gridLineWidth: 0 },
-            tooltip: { valueSuffix: ' ' },  plotOptions: { bar: { dataLabels: {  enabled: true },  groupPadding: 0.1 } },
-           legend: {   enabled: false }, credits: { enabled: false },
-            series: [{ name: '', data: [" & StrValor.ToString & "] } ] });"
-
-            ' RegistraScript(Top5Marcas, "divtop5Marcas")
-        End If
-        'If ds IsNot Nothing AndAlso ds.Tables.Count > 0 Then
-
-        '    dtIndicadores = ds.Tables(0)
-        '    dtRH = ds.Tables(4)
-
-        '    Graficas.Visible = True
-        '    DivIndicadores.Visible = True
-
-        'End If
-        'Gral.Dispose()
-
-        'If dtIndicadores IsNot Nothing AndAlso dtIndicadores.Rows.Count > 0 Then
-
-        '    Dim dr As DataRow = dtIndicadores.Rows(0)
-
-        '    Select Case DdlFiltroIndicador.SelectedValue
-        '        Case "Ger"
-
-        '            If UsuarioActual.TienePermisoIndicador(1) Then
-        '                MuestraIndicador(DivIndicadores, "blue", "fa fa-automobile", "Ventas", dr("TotalVentas").ToString.FormatoNumero(0), "/Ventas/RepVentas.aspx", "Mes actual", dr("TotalVentasAcumulado").ToString.FormatoNumero(0), "link", "Anual")
-        '            End If
-
-        '            If UsuarioActual.TienePermisoIndicador(2) Then
-        '                MuestraIndicador(DivIndicadores, "red-intense", "fa fa-bar-chart-o", "Compras", dr("TotalCompras").ToString.FormatoNumero(0), "/Compras/RepCompras.aspx", "Total Compras", dr("CxPVencido").ToString.FormatoNumero(0), "link", "Saldo Vencido", dr("CxPPorVencer").ToString.FormatoNumero(0), "link", "Saldo por vencer")
-        '            End If
-
-        '            If UsuarioActual.TienePermisoIndicador(3) Then
-        '                MuestraIndicador(DivIndicadores, "green-haze", "fa fa-shopping-cart", "Bancos", String.Format("${0}", dr("TotalBancos").ToString.FormatoNumero), "/Bancos/RepSaldos.aspx", "")
-        '            End If
-
-        '            If UsuarioActual.TienePermisoIndicador(4) Then
-        '                MuestraIndicador(DivIndicadores, "purple-plum", "fa fa-globe", "Crédito", String.Format("${0}", dr("TotalCredito").ToString.FormatoNumero), "", "")
-        '            End If
-
-        '            If UsuarioActual.TienePermisoIndicador(5) Then
-        '                MuestraIndicador(DivIndicadores, "yellow", "fa fa-globe", "Inventario", String.Format("${0}", dr("TotalAlmacen").ToString.FormatoNumero), "/Inventarios/RepAlmacen.aspx", "")
-        '            End If
-
-        '            If UsuarioActual.TienePermisoIndicador(6) Then
-        '                MuestraIndicador(DivIndicadores, "grey-cascade", "fa fa-globe", "Impuestos", String.Format("${0}", dr("TotalImpuestos").ToString.FormatoNumero), "", "")
-
-        '            End If
-        '            If UsuarioActual.TienePermisoIndicador(13) Then
-        '                MuestraIndicador(DivIndicadores, "blue", "fa fa-globe", "Orden Producción", String.Format("{0}%", dr("TotalPorcentaje").ToString.FormatoNumero), "/CGame/RepAvance.aspx?Opcion=1", "")
-
-        '            End If
-        '    End Select
-
-        'If UsuarioActual.CveRol = 1 Then
-
-        '    Select Case DdlFiltroIndicador.SelectedValue
-        '        Case "RH"
-        '            MuestraIndicador(DivIndicadores, "green-haze", "fa fa-bar-chart-o", "Plantilla", dr("RH_Personal_Total").ToString, "", "Total Personal", dr("RH_Personal_Adm").ToString.FormatoNumero(0), "link", "Per. Adm.", dr("RH_Personal_Guardia").ToString.FormatoNumero(0), "link", "Per. Guardia.")
-        '            MuestraIndicador(DivIndicadores, "grey-cascade", "fa fa-globe", "Faltas", dr("RH_FaltasAnual").ToString.FormatoNumero(0), "", "Anual", dr("RH_FaltasMensual").ToString.FormatoNumero(0), "link", "Faltas Mensual", dr("RH_FaltasDia").ToString.FormatoNumero(0), "link", "Faltas de hoy")
-        '            MuestraIndicador(DivIndicadores, "red-intense", "fa fa-globe", "Ausentismo", "8.23%", "", "")
-        '            MuestraIndicador(DivIndicadores, "purple-plum", "fa fa-globe", "Rotación", "18.23%", "", "")
-        '            MuestraIndicador(DivIndicadores, "yellow", "fa fa-globe", "Uniformes", "Diciembre: 29", "", "")
-        '            'MuestraGrafica(div_RHInd1, dtRH, "Sucursal", "Personal", "", "", "gh21", "")
-        '            GeneraGraficaRH(dtRH, "Personal Requerido", "por centro de costo")
-        '            GeneraGraficaRH2(dtRH, "Personal Actual", "por centro de costo")
-        '            divGraficas1.Visible = True
-        '        Case "Ger"
-        '            MuestraIndicador(DivIndicadores, "green-haze", "fa fa-bar-chart-o", "Plantilla", dr("RH_Personal_Total").ToString, "", "Total Personal", dr("RH_Personal_Adm").ToString.FormatoNumero(0), "link", "Per. Adm.", dr("RH_Personal_Guardia").ToString.FormatoNumero(0), "link", "Per. Guardia.")
-
-        '    End Select
-
-        'End If
-
-        'End If 
-
-        'End If
-
-        'If UsuarioActual.TienePermisoIndicador(7) Then
-        '    DvGraVentas.Visible = True
-        '    MuestraGrafica(div_ventas, dtVentas, "NombreMes", "Importe", "", "", "gh2", "$M")
-        'Else
-        '    DvGraVentas.Visible = False
-        'End If
-
-        'If UsuarioActual.TienePermisoIndicador(8) Then
-        '    DvGraBancos.Visible = True
-
-        '    If dtBancos IsNot Nothing Then
-        '        MuestraGrafica(div_bancos, dtBancos, dtBancosCuentas, "NombreMes", "Importe", "", "", "gh1", "$", dtBancos.AVG("Importe").ToString.FormatoNumero)
-        '    End If
-        'Else
-        '    DvGraBancos.Visible = False
-        'End If
-
-        'Select Case DdlFiltroIndicador.SelectedValue
-        '    Case "Ger"
-        '        DvGraBancos.Visible = True
-        '        DvGraVentas.Visible = True
-        '        DivRHInd.Visible = False
-        '    Case "RH"
-        '        DivRHInd.Visible = True
-        '        DvGraBancos.Visible = False
-        '        DvGraVentas.Visible = False
-        'End Select
-
-        dtIndicadores = Nothing
-        dtRH = Nothing
-
-    End Sub
-
     Private Sub CargaTareas()
         Dim ObjProspectos As New ClsOIEventos