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
 
 

Inventarios/RepTraspasoAlmacen.aspx

@@ -202,14 +202,14 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
-                ToolTip="Remisiones sin Facturar"
+                ToolTip="Remisiones sin Facturar" data-rows="2"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                     <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
-                    <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/> 
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left"/>                    
                     <asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
                 </Columns>

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -107,10 +107,15 @@ Partial Class RepTraspasoAlmacen
 
                 e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", 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}&nbsp;&nbsp;&nbsp;&nbsp; Almacen Destino: {1} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {2}", e.Row.DBCampo("Almacen"), e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
+                e.Row.Cells(2).Text = String.Format("<span style =""white-space: nowrap;"">{0}</span>", e.Row.DBCampo("Almacen"))
+                e.Row.Cells(3).Text = String.Format("<span style =""white-space: nowrap;"">{0}</span>", 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("<span style =""white-space: nowrap;"">Almacen Origen</span>")
+                e.Row.Cells(3).Text = String.Format("<span style =""white-space: nowrap;"">Almacen Destino</span>")
+            Else
             End If
 
         End If

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)
 }
 

Scripts/custom.js

@@ -426,6 +426,7 @@ function ADScroller2() {
             contenedor.append(divcenter);
             divcenter.append(divcenterCols);
             divcolsScroll = $('<div class="ADSCroll" style="height:' + (heightGral - altoc1) + 'px;"></div>').append(TVisibleCols);
+            divcolsScroll.width(anchoc1);
             divcenterCols.append(divcolsScroll);
             divcenter.append(divcenterbody);
             divbodyScroll = $('<div class="ADSCroll" style="width:' + (widthGral - anchoc1) + 'px;height:' + (heightGral - altoc1 + 20) + 'px;"></div>').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 () {

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

vwd.webinfo

@@ -104,6 +104,8 @@
     
   
     
+  
+