Resultados del Ejercicio:
@@ -558,7 +573,7 @@
<%----%>
-
+
@@ -593,7 +608,7 @@
-
+
@@ -611,7 +626,7 @@
<%----%>
-
+
@@ -620,7 +635,7 @@
-
+
@@ -646,7 +661,7 @@
-
+
<%--
@@ -672,7 +687,7 @@
-
+
@@ -681,7 +696,7 @@
-
+
@@ -755,234 +770,367 @@
-
-
+
+
-
-
-
+
+
+
-
-
-
-
- <%----%>
-
-
-
-
-
-
-
-
+
+
+
+
+ <%----%>
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
- <%--
+ <%--
--%>
- <%----%>
-
-
-
-
-
-
- <%----%>
-
-
-
-
-
-
+ <%----%>
+
+
+
+
+
+
+ <%----%>
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
- <%--
+
+ <%--
--%>
- <%-- --%>
-
-
-
-
-
-
-
-
+ <%-- --%>
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
-
-
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index 58c7fb895..779c64b25 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -75,6 +75,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Set
End Property
+ Private Property listacolores As List(Of String)
+ Get
+ Return DirectCast(ViewState("listacolores"), List(Of String))
+ End Get
+ Set(value As List(Of String))
+ ViewState("listacolores") = value
+ End Set
+ End Property
+ Private Property listaCampos As List(Of String())
+ Get
+ Return DirectCast(ViewState("listaCampos"), List(Of String()))
+ End Get
+ Set(value As List(Of String()))
+ ViewState("listaCampos") = value
+ End Set
+ End Property
+
'Private Property ReporteComplementario As Boolean
' Get
' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString)
@@ -235,7 +252,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
-
+ listacolores = New List(Of String)
+ listaCampos = New List(Of String())
+ listacolores.Add("#FF0F00")
+ listacolores.Add("#FF6600")
+ listacolores.Add("#F8FF01")
+ listacolores.Add("#04D215")
+ listacolores.Add("#2A0CD0")
+ listacolores.Add("#8A0CCF")
+ listacolores.Add("#CD0D74")
+ listacolores.Add("#754DEB")
+ listacolores.Add("#DDDDDD")
+ listacolores.Add("#999999")
+ listacolores.Add("#000000")
+ listacolores.Add("#FF0F00")
TotalActualMes = 0
TotalAnteriorMes = 0
@@ -859,6 +889,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If
+ setgrafica(e)
+
+
+
e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
@@ -955,6 +989,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If
End If
+
+ setgrafica(e)
+
+
e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
@@ -1017,6 +1055,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00")
End If
+ setgrafica(e)
+
e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor)
e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
@@ -1035,6 +1075,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Sub
+ Public Sub setgrafica(e As GridViewRowEventArgs)
+
+ Dim lista As New List(Of Object)
+ lista.Add(New With {.Texto = "Enero", .Valor = e.Row.DataKey("Enero").ToDecimal(), .Color = "#FF0F00"})
+ lista.Add(New With {.Texto = "Febrero", .Valor = e.Row.DataKey("Febrero").ToDecimal(), .Color = "#FF6600"})
+ lista.Add(New With {.Texto = "Marzo", .Valor = e.Row.DataKey("Marzo").ToDecimal(), .Color = "#F8FF01"})
+ lista.Add(New With {.Texto = "Abril", .Valor = e.Row.DataKey("Abril").ToDecimal(), .Color = "#04D215"})
+ lista.Add(New With {.Texto = "Mayo", .Valor = e.Row.DataKey("Mayo").ToDecimal(), .Color = "#2A0CD0"})
+ lista.Add(New With {.Texto = "Junio", .Valor = e.Row.DataKey("Junio").ToDecimal(), .Color = "#8A0CCF"})
+ lista.Add(New With {.Texto = "Julio", .Valor = e.Row.DataKey("Julio").ToDecimal(), .Color = "#CD0D74"})
+ lista.Add(New With {.Texto = "Agosto", .Valor = e.Row.DataKey("Agosto").ToDecimal(), .Color = "#754DEB"})
+ lista.Add(New With {.Texto = "Septiembre", .Valor = e.Row.DataKey("Septiembre").ToDecimal(), .Color = "#DDDDDD"})
+ lista.Add(New With {.Texto = "Octubre", .Valor = e.Row.DataKey("Octubre").ToDecimal(), .Color = "#999999"})
+ lista.Add(New With {.Texto = "Noviembre", .Valor = e.Row.DataKey("Noviembre").ToDecimal(), .Color = "#000000"})
+ lista.Add(New With {.Texto = "Diciembre", .Valor = e.Row.DataKey("Diciembre").ToDecimal(), .Color = "#FF0F00"})
+ e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+ End Sub
#End Region
@@ -1445,7 +1502,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing
CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = ""
Next
-
+ listaCampos.Clear()
If DtIngresosSubProyectoH.Rows.Count > 0 Then
@@ -1467,7 +1524,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
End If
-
+ listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
Else
GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
@@ -1631,9 +1688,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
e.Row.ControlStyle.Font.Bold = True
e.Row.ControlStyle.Font.Size = 13
End If
-
-
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
+ setgraficaCC(e)
'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
@@ -1686,9 +1742,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If
-
e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00"))
-
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
@@ -1698,6 +1752,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
+ setgraficaCC(e)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -1706,9 +1761,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'e.Row.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True
End If
-
-
-
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
@@ -1716,18 +1768,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Sub
Protected Sub GvTotalesSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-
If e.Row.RowType = DataControlRowType.Header Then
' e.Row.Attributes.Add("style", "display:none")
End If
-
If e.Row.RowType = DataControlRowType.DataRow Then
-
+ setgraficaCC(e)
e.Row.Attributes.Add("style", "Font-weight: bold")
End If
-
End Sub
+ Public Sub setgraficaCC(e As GridViewRowEventArgs)
+ Dim lista As New List(Of Object)
+ Dim colorindex As Integer = 0
+ For Each campo As String() In listaCampos
+ lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
+ colorindex = colorindex + 1
+ If colorindex >= listacolores.Count Then
+ colorindex = 0
+ End If
+ Next
+ e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+ End Sub
#End Region
diff --git a/Inventarios/RepTraspasoAlmacen.aspx b/Inventarios/RepTraspasoAlmacen.aspx
index 51762e3f8..aadebaf4f 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx
+++ b/Inventarios/RepTraspasoAlmacen.aspx
@@ -202,14 +202,14 @@
-
+
diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb
index dfcf7ef57..816a289fb 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx.vb
+++ b/Inventarios/RepTraspasoAlmacen.aspx.vb
@@ -107,10 +107,15 @@ Partial Class RepTraspasoAlmacen
e.Row.Cells(0).Text = String.Format("Folio: {0} ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
- e.Row.Cells(3).Text = String.Format("Almacen Origen: {0} Almacen Destino: {1} Responsable: {2}", e.Row.DBCampo("Almacen"), e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
+ e.Row.Cells(2).Text = String.Format("{0}", e.Row.DBCampo("Almacen"))
+ e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("AlmacenDestino"))
+ e.Row.Cells(4).Text = String.Format("Responsable: {0}", e.Row.DBCampo("Recibio"))
ElseIf e.Row.DBCampo("FechaMovto") = "" Then
e.Row.CssClass = "Totales"
e.Row.Cells(0).Text = "Total General"
+ e.Row.Cells(2).Text = String.Format("Almacen Origen")
+ e.Row.Cells(3).Text = String.Format("Almacen Destino")
+ Else
End If
End If
diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css
index 42984d0c5..001fe01b4 100644
--- a/Metronic/assets/admin/layout/css/custom.css
+++ b/Metronic/assets/admin/layout/css/custom.css
@@ -44,17 +44,18 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
.AdsBody .ADSCroll::-webkit-scrollbar-track {
-webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.3);
background-color: #F5F5F5;
- border-radius: 10px;
+ border-radius: 4px;
}
.AdsBody .ADSCroll::-webkit-scrollbar {
- width: 10px;
+ width: 8px;
+ height:10px;
background-color: #F5F5F5;
}
.AdsBody .ADSCroll::-webkit-scrollbar-thumb {
background-color: #AAA;
- border-radius: 10px;
+ border-radius: 4px;
background-image: -webkit-linear-gradient(90deg, rgba(0, 0, 0, .2) 25%, transparent 25%, transparent 50%, rgba(0, 0, 0, .2) 50%, rgba(0, 0, 0, .2) 75%, transparent 75%, transparent)
}
diff --git a/Scripts/custom.js b/Scripts/custom.js
index ae41c9092..844327ce7 100644
--- a/Scripts/custom.js
+++ b/Scripts/custom.js
@@ -426,6 +426,7 @@ function ADScroller2() {
contenedor.append(divcenter);
divcenter.append(divcenterCols);
divcolsScroll = $('').append(TVisibleCols);
+ divcolsScroll.width(anchoc1);
divcenterCols.append(divcolsScroll);
divcenter.append(divcenterbody);
divbodyScroll = $('').append(Tthis);
@@ -1816,8 +1817,9 @@ jQuery(document).ready(function () {
DataTablePaginatorScroll();
DataTablePaginatorScroll2();
loadAdDropzone();
- clonsbuttons();
+ clonsbuttons();
ADScroller2();
+ //setTimeout(ADScroller2, 500);
$('body').removeClass('page-portlet-fullscreen');
$('.form-md-floating-label input').each(function () {
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 077411a25..9694e4ff0 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -766,7 +766,7 @@ Partial Class Ventas_RepVentas
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
Select Case DdlGrafica.SelectedValue.ToEntero
Case 1
- RegistraScript($"CargaGraficaBarras({json})", "22")
+ RegistraScript($"CargaGraficaBarras({json});console.log({json})", "22")
Case 2
RegistraScript($"CargaGraficaPastel({json})", "22")
End Select
diff --git a/vwd.webinfo b/vwd.webinfo
index dc868a351..9d2d954bf 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -104,6 +104,8 @@
+
+
|