diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 0209ab3a3..67f0db340 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1535,7 +1535,8 @@ Public Class ClsInventarios End Function Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, - Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1", Optional GPO As Integer = 1) As Boolean + Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1", + Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1558,6 +1559,7 @@ Public Class ClsInventarios .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes .Add("@GPO", SqlDbType.Int).Value = GPO + .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS End With diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 83ea70d21..2345d64c8 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -1231,6 +1231,11 @@ + + + + + <%----%> @@ -1407,7 +1412,15 @@ - + + + + + + + + + <%----%> @@ -1565,11 +1578,20 @@ function CargaGraficaPastel() { let data = cdatos; + let newData = JSON.parse(JSON.stringify(data)); + + newData = newData.map(function (item) { + if (item.Valor < 0) { + item.Valor = Math.abs(item.Valor); + } + return item; + }); + var chart = AmCharts.makeChart("chartdiv", { "type": "pie", "theme": "light", "dataProvider": - data, + newData, "valueField": "Valor", "titleField": "Texto", "outlineAlpha": 0.4, @@ -1583,7 +1605,9 @@ } function ADSBegin() { $('.DdlGrafica').on('select2:select', function (e) { + var data = e.params.data; + currentid = data.id; if (currentid == 1) { CargaGraficaBarras(); @@ -1752,7 +1776,9 @@ }); } } + function initamgrafica() { + AmCharts.addInitHandler(function (chart) { function handleCustomMarkerToggle(legendEvent) { var dataProvider = legendEvent.chart.dataProvider; diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index b1c8f07be..ce859629e 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -2096,20 +2096,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() - - Dim Row As DataRow = DtIngresosSubProyectoH.NewRow Dim TotalActual = 0.0, TotalAnterior = 0.0 - Dim IndexData As Integer = 0 Dim IndexGv As Integer = 1 Dim IndexMax As Integer = 1 Dim IndexSubProyecto = 0 Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 - If IndexSubProyectoMax > GvIngresosSubProyectoH.Columns.Count - 2 Then IndexSubProyectoMax = GvIngresosSubProyectoH.Columns.Count - 2 End If @@ -2121,7 +2117,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal '34 Dim IDX_LIMPIAR As Integer = 1 - For IDX_LIMPIAR = 1 To GvIngresosSubProyectoH.Columns.Count - 2 + For IDX_LIMPIAR = 1 To GvIngresosSubProyectoH.Columns.Count - 3 CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = "" GvIngresosSubProyectoH.Columns(IDX_LIMPIAR).Visible = False @@ -2236,13 +2232,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next - - Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)") 'TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" + Row.Item("PorcentajeActual") = 100.0 Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "Not CtaMayor In (3,4)") 'TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" + Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero @@ -2299,11 +2293,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If Next + + Dim totalTemp As Decimal = DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("Nombre") = "Resultado del ejercicio" Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("CtaMayor") = -2 Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero + Row.Item("PorcentajeAcumulado") = If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, 100, (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)"))) + DTTotalesSubProyectoH.Rows.Add(Row) End If @@ -2316,6 +2314,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvIngresosSubProyectoH.DataBind() + 'GvIngresosSubProyectoH.Columns(55).Visible = True + 'GvIngresosSubProyectoH.Columns(56).Visible = True + UpDatosSubProyectoH.Update() @@ -2469,6 +2470,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim lista As New List(Of Object) Dim colorindex As Integer = 0 For Each campo As String() In listaCampos + + 'Dim valorCampo As Decimal = If(e.Row.DBCampo(campo(0)).ToDecimal() < 0, (e.Row.DBCampo(campo(0)).ToDecimal() * -1), e.Row.DBCampo(campo(0)).ToDecimal()) + 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 @@ -2727,3 +2731,4 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Class + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 37ff0ac0a..e65fcd61b 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -78,6 +78,22 @@ width: 22%; } } + + + .AdsCEll > div:nth-child(1) > table:nth-child(1) > tbody:nth-child(1) > tr:nth-child(2) > th:nth-child(1){ + width:150px!important + } + .AdsCEll > div:nth-child(1) > table:nth-child(1) > tbody:nth-child(1) > tr:nth-child(2) > th:nth-child(2){ + width:400px!important + } + + #ADColC_GvDatos > tbody:nth-child(1) > tr:nth-child(2) > td:nth-child(1){ + width:150px!important + } + #ADColC_GvDatos > tbody:nth-child(1) > tr:nth-child(2) > td:nth-child(2){ + width:400px!important + } + @@ -195,6 +211,12 @@ + + +
+ +
+ Orden:
@@ -236,29 +258,29 @@ - + - + Código -
- -
+ + + - - - Producto - + + + Producto -
- -
+ + + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index c82773a48..db5db824f 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -155,7 +155,7 @@ Partial Class Inventarios_KardexAlmacen If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero, - Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO) Then + Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 36d57ea04..4bb8c6f7f 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -66,10 +66,10 @@ public class TareasJam : IHttpHandler DataTable DTClientes = new DataTable(); DataTable DTAlmacenes = new DataTable(); - string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{NowADS().ToString("yyyyMMdd")}.xlsx"; - string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{NowADS().ToString("yyyyMMdd")}.xlsx"; - string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{NowADS().ToString("yyyyMMdd")}.xlsx"; - string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; string FormatoVentas = $@"{ HttpContext.Current.Server.MapPath("~") }\TareasProgramadas\FormatosThalamus\FormatoVentas.xlsx"; @@ -543,7 +543,7 @@ public class TareasJam : IHttpHandler ClsSisMail Correo = new ClsSisMail(); string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; // string Para = "oscar.irigoyen@adssistemas.mx"; - string Asunto = ErrorProceso ? $"Carga Layout Corteva {NowADS().ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {NowADS().ToString("yyyy-MM-dd")}"; + string Asunto = ErrorProceso ? $"Carga Layout Corteva {ClsPaginas.NowADS().ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {ClsPaginas.NowADS().ToString("yyyy-MM-dd")}"; Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos); this.GuardaLog($"EjecutaThalamus: MandaCorreo() correo enviado. "); diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index 43a586407..0b3c08446 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -233,6 +233,7 @@ +