Revert "Ajustes RepPreciosVentaManifiesto.aspx"
This reverts commit daf673bb78.
This commit is contained in:
rakcsle
@@ -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>
|
||||
|
||||
@@ -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()
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
242
Inicio.aspx
242
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() {
|
||||
|
||||
185
Inicio.aspx.vb
185
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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user