From daf673bb78306780f978227404d87f34e1710595 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 4 Apr 2025 18:11:39 -0700
Subject: [PATCH] Ajustes RepPreciosVentaManifiesto.aspx

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

diff --git a/Agropecuaria/RepPreciosVentaManifiesto.aspx b/Agropecuaria/RepPreciosVentaManifiesto.aspx
index 053da4e12..ff5db5faa 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-advance table-hover Widthall ScrollAD" data-sort="true"  GridLines="None">
+                        ToolTip="" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbt" 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 HH:mm}" HtmlEncode="False"  />
+                            <asp:BoundField HeaderText="Fecha Vta" DataField="InvDate" ItemStyle-Width="110px" DataFormatString="{0:dd/MM/yyyy}" 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="Right" DataFormatString="{0:N2}"  />
-                            <asp:BoundField HeaderText="% de diferencia" DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" />
-                            <asp:BoundField HeaderText="Fecha Ing." DataField="FechaIng"   /> 
+                            <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="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-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
+                                    ToolTip="" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbt" 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" />
-                                        <asp:BoundField HeaderText="Fecha Ing." DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy HH:mm:ss}" HtmlEncode="False" />
+                                        <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="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">Agregar</asp:LinkButton>
+                            <asp:LinkButton ID="LnkModalGuardarPreciosVentaFecha" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpPrecioVentaFecha" OnClick="LnkModalGuardarPreciosVentaFecha_Click">Guardar</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 83e69a17a..4de8fd0db 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.CveEmpresa, UsuarioActual.CveEmpresa) Then
+                                              TxtPrecioVentaFecha.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 ProcesoOC = False
             End If
 
@@ -247,6 +247,7 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         If ProcesoOC Then
             CargaPreciosVentaFecha()
             Alert("Precio Guardado correctamente.")
+            RegistraScript("$('#DVModalPreciosVentaFecha').modal('hide');")
         End If
 
     End Sub
@@ -262,6 +263,7 @@ 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"))
 
@@ -269,6 +271,7 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         '    CargaPreciosVentaFecha()
         'End If
 
+        LtlModalTituloPreciosVentaFecha.Text = "Actualziar Precio"
         UpModalPreciosVentaFecha.Update()
         RegistraScript("$('#DVModalPreciosVentaFecha').modal('show');")
 
@@ -290,7 +293,6 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         If ProcesoOK Then
             CargaPreciosVentaFecha()
             UpModalPreciosVentaFecha.Update()
-            RegistraScript("$('#DVModalPreciosVentaFecha').modal('hide');")
             Alert("Precio eliminado correctamente.")
         End If
 
@@ -307,6 +309,7 @@ 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 fc516e130..9a54f8bb2 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -7757,7 +7757,12 @@ Public Class ClsVentas
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al agregar los precios del día.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            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
+
         End Try
         Return Retorno
 
@@ -7781,7 +7786,13 @@ Public Class ClsVentas
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al actualizar los precios del día.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+            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
+
         End Try
         Return Retorno
 
diff --git a/Inicio.aspx b/Inicio.aspx
index 4e972989e..aea0d17fc 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -1,8 +1,12 @@
 <%@ 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;
@@ -118,6 +122,181 @@
         .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>
 
 
@@ -140,13 +319,7 @@
     </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;">
@@ -175,6 +348,55 @@
                     <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">
@@ -1617,7 +1839,11 @@
 
     <%--<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 ce9b8457f..ebd9f24ed 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -191,6 +191,9 @@ 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()
@@ -544,6 +547,188 @@ 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