From ec62d2e8f4b7bf8e9e9d87c17c1c43bd096e515e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 11 Feb 2023 08:50:04 -0700 Subject: [PATCH 1/5] --- App_Code/ClsNominas.vb | 23 +++++++++ Nomina/ConceptoNomina.aspx | 75 +++++++++++++++++++++++++++--- Nomina/ConceptoNomina.aspx.cs | 12 +++++ Nomina/Nomina.aspx.cs | 4 +- Nomina/ReportedeAcumulados.aspx | 9 +++- Nomina/ReportedeAcumulados.aspx.cs | 53 ++++++++++++++------- RH/CatTurno.aspx | 11 ++++- 7 files changed, 160 insertions(+), 27 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 8bfdbc021..2308f3c28 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -261,6 +261,29 @@ Public Class ClsNominas End Try Return retorno End Function + + 'Reporte Conceptos Acumulados + Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_ConceptosAcumuladosGetRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, CveEmbarqueManifiesto As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Vta_ManifiestoForVtaGet", CommandType.StoredProcedure) diff --git a/Nomina/ConceptoNomina.aspx b/Nomina/ConceptoNomina.aspx index 5e4827a94..d469c80ac 100644 --- a/Nomina/ConceptoNomina.aspx +++ b/Nomina/ConceptoNomina.aspx @@ -200,12 +200,6 @@
-
-
- - -
-
@@ -216,6 +210,73 @@
+ +
+
+
+ + Provisión +
+
+
+
+
+
+
+ +
+
+
+ +
+
+
+ + + + + +
+
+
+
+ +
+
+ + +
+
+
+
+ + + + + +
+
+
+
+
+
+ + +
+
+
+
+ + + + + +
+
+
+
+
+
@@ -348,7 +409,7 @@
- +
diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs index 7347cb4f8..c71b007ca 100644 --- a/Nomina/ConceptoNomina.aspx.cs +++ b/Nomina/ConceptoNomina.aspx.cs @@ -464,11 +464,15 @@ public partial class Nomina_CatConcepto : ClsPaginas ChkEstado.Checked = drow["Estado"].Equals("Activo"); ChkSistema.Checked = drow["Sistema"].Equals("Sí"); ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); + ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkEspecie.Checked = drow["Especie"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkImprimir.Checked = drow["Imprimir"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); DdlClasificacion.SelectedValueExist(drow["CveClasificacion"]); + DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]); + ddlCargooAbono.SelectedValueExist(drow["CargoOAbono"]); + ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]); DdlTipoGasto.SelectedValueExist(drow["CveTipoGasto"]); //DdlCtaContable.SelectedValueExist(drow["CveCuenta"]); if (DdlCtaContable.DataValueField == "Id") @@ -479,6 +483,14 @@ public partial class Nomina_CatConcepto : ClsPaginas { DdlCtaContable.SelectedValueExist(drow["CveCuenta"]); } + if (DdlCtaContableB.DataValueField == "Id") + { + DdlCtaContableB.SelectedValueExist(drow["IdCtaContableB"]); + } + else + { + DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]); + } //if (UsuarioActual.Empresa.TipoContabilidad == 1) //{ //} diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 8d0aa1b55..2ebfaa684 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -8466,15 +8466,17 @@ public partial class Nomina_Nomina2 : ClsPaginas DateTime fechai = TxtRIFechaInicio.Text.ToDateTime(); DateTime fechaf = TxtRIFechaFin.Text.ToDateTime(); ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); + int CveTipoPeriodo=0; using (ClsNominas nom = new ClsNominas()) { if (nom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodoSeleccionado, -1) && (nom.DtResultados.Rows.Count > 0)) { fechai = nom.DtResultados.Rows[0]["FechaInicio"].ToString().ToDateTime(); fechaf = nom.DtResultados.Rows[0]["FechaFin"].ToString().ToDateTime(); + CveTipoPeriodo = -nom.DtResultados.Rows[0]["CveTipoPeriodo"].ToString().ToEntero(); } - if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, -4)) + if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, CveTipoPeriodo)) { var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias"); diff --git a/Nomina/ReportedeAcumulados.aspx b/Nomina/ReportedeAcumulados.aspx index 3bcd6de90..0236e30d8 100644 --- a/Nomina/ReportedeAcumulados.aspx +++ b/Nomina/ReportedeAcumulados.aspx @@ -321,7 +321,14 @@ - + + + + NSS + + + + Registro Patronal diff --git a/Nomina/ReportedeAcumulados.aspx.cs b/Nomina/ReportedeAcumulados.aspx.cs index af8ad6723..6338ae4a3 100644 --- a/Nomina/ReportedeAcumulados.aspx.cs +++ b/Nomina/ReportedeAcumulados.aspx.cs @@ -196,7 +196,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas //string ctipo = "P"; - int CurrentColumn = 4; + int CurrentColumn = 5; BoundField bf; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows) { @@ -407,13 +407,28 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas libro.Cell(1, column).Value = " "; libro.Cell(2, column).Value = "Codigo"; libro.Cell(3, column).Value = " "; - column++; - libro.Cell(1, column).Value = " "; - libro.Cell(2, column).Value = "Empleado"; - libro.Cell(3, column).Value = " "; - libro.Column(column).Width = 35; + column++; + libro.Cell(1, column).Value = " "; + libro.Cell(2, column).Value = "Empleado"; + libro.Cell(3, column).Value = " "; + libro.Column(column).Width = 35; + column++; + libro.Cell(1, column).Value = " "; + libro.Cell(2, column).Value = "Sucursal"; + libro.Cell(3, column).Value = " "; + libro.Column(column).Width = 35; + column++; + libro.Cell(1, column).Value = " "; + libro.Cell(2, column).Value = "NSS"; + libro.Cell(3, column).Value = " "; + libro.Column(column).Width = 35; + column++; + libro.Cell(1, column).Value = " "; + libro.Cell(2, column).Value = "Registro Patronal"; + libro.Cell(3, column).Value = " "; + libro.Column(column).Width = 35; - int iniciotipe = column; + int iniciotipe = column; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows) { @@ -520,11 +535,17 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas } column = 1; libro.Cell(Fila, column).Value = string.Format("'{0}",erow["Codigo"]); - column++; - if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); } - if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; } - libro.Cell(Fila, column).Value = erow["Nombre"]; - foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows) + column++; + if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); } + if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; } + libro.Cell(Fila, column).Value = erow["Nombre"]; + column++; + libro.Cell(Fila, column).Value = erow["SubProyecto"]; + column++; + libro.Cell(Fila, column).Value =string.Format("'{0}", erow["NumeroSS"]); + column++; + libro.Cell(Fila, column).Value = erow["RegistroPatronal"]; + foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows) { column++; string Concepto = string.Format("V_{0}", row["CveConcepto"]); @@ -594,11 +615,11 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas if (newsubproyecto) { libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228)); - libro.Range(Fila - 3, 3, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00"; - libro.Range(Fila - 3, 3, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number; + libro.Range(Fila - 3, 6, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00"; + libro.Range(Fila - 3,6, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number; } - libro.Range(Fila , 3, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00"; - libro.Range(Fila, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number; + libro.Range(Fila , 6, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00"; + libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number; } diff --git a/RH/CatTurno.aspx b/RH/CatTurno.aspx index 071c837a8..e1ca00d75 100644 --- a/RH/CatTurno.aspx +++ b/RH/CatTurno.aspx @@ -39,7 +39,7 @@ - + @@ -50,9 +50,16 @@ DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta"> - + <%----%> + + + + + > + + From f1495d6ad41bb297f7b1a60a0cc4eee3fad9d858 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 11 Feb 2023 09:26:04 -0700 Subject: [PATCH 2/5] =?UTF-8?q?Correcci=C3=B3n=20en=20Clientes,=20Ddl=20Cl?= =?UTF-8?q?iente-sucursal=20tiene=20otro=20comportamiento,=20no=20usar=20s?= =?UTF-8?q?ub=20de=20ClsPaginas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Clientes.aspx.vb | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 82de53a46..d2c6d535d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1130,10 +1130,6 @@ Partial Class Clientes End If End If - - - - ObjCliente.Dispose() DdlSucursalCliente.DataBind() @@ -1148,9 +1144,9 @@ Partial Class Clientes DdlClienteSucursalEnvio.DataBind() DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClienteSucursalEnvio.SelectedValue = "-1" - - - + End Sub + Private Sub CargaSubProyectosSuscursales() + CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal) End Sub Private Sub CargaGridRetenciones() Dim ObjClientes As New ClsClientes @@ -1161,10 +1157,6 @@ Partial Class Clientes ObjClientes.Dispose() GvRetenciones.DataBind() End Sub - - - - Private Sub CargaCuentasEquipos() Dim Objeto As New ClsGenerales If Objeto.GetCuentasEquipos(CveCliente, -1) Then From f8447845b8c48a1ed8885d2f3e103c6d85fc8055 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 11 Feb 2023 11:05:09 -0700 Subject: [PATCH 3/5] =?UTF-8?q?Corregir=20errores=20de=20compilaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/CatClasificacionesCaracteristicas.aspx.vb | 85 ++++--------------- Bancos/ConciliacionesBancarias.aspx.vb | 4 +- Bancos/FluctuacionCambiaria.aspx.vb | 4 +- .../MovimientosconProveedores.aspx.vb | 12 +-- Contabilidad2/RepEstadoResultados.aspx.vb | 4 +- 5 files changed, 29 insertions(+), 80 deletions(-) diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index 96243065a..ce40b87ea 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/AF/CatClasificacionesCaracteristicas.aspx.vb @@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas 'Carga Globals para DT CargaTiposActivosFijos() CargaSubTiposActivosFijos() - CargaCaracteristicasClasificaciones() - CargaCaracteristicas() + ''CargaCaracteristicasClasificaciones() + 'CargaCaracteristicas() End If End Sub @@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas ObjAF.Dispose() End Sub - Private Sub CargaCaracteristicasClasificaciones() - Dim ObjAF As New ClsAF - - If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then - GlobalDTAFCaracteristicasClasificaciones = ObjAF.DtResultados - ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - Else - Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError) - End If - - ObjAF.Dispose() - End Sub - Private Sub CargaCaracteristicas() - Dim ObjAF As New ClsAF - - If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then - GlobalDTAFCaracteristicas = ObjAF.DtResultados - Else - Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError) - End If - - ObjAF.Dispose() - End Sub - #Region "CLASIFICACIONES" Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click Dim ObjCaracteristicaClasificacion As New ClsAF @@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas UpTitulosCL.Update() CargaSubTiposActivosFijos() - CargaCaracteristicasClasificaciones() If ViewState("OrdenCL").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCL").ToString(), 0) @@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas #Region "CARGA DATOS" Public Sub CargaDatosCL() - Dim ObjCaracteristicaClasificacion As New ClsAF - If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then - ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - GlobalDTAFCaracteristicasClasificaciones = ObjCaracteristicaClasificacion.DtResultados - Else - Me.GvDatosCL.DataSource = Nothing - End If - - ObjCaracteristicaClasificacion.Dispose() - If ViewState("OrdenCL").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCL").ToString(), 0) Else @@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas GvDatosCL.EditIndex = -1 CargaSubTiposActivosFijos() - CargaCaracteristicasClasificaciones() + 'CargaCaracteristicasClasificaciones() Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas GvDatosCL.EditIndex = -1 CargaSubTiposActivosFijos() - CargaCaracteristicasClasificaciones() + 'CargaCaracteristicasClasificaciones() Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If @@ -263,12 +228,11 @@ Partial Class AF_CatClasificacionesCaracteristicas TxtLongitudCA.Text = "" Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCA.Update() - ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - + GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing CargaSubTiposActivosFijos() - CargaCaracteristicasClasificaciones() - CargaCaracteristicas() + ''CargaCaracteristicasClasificaciones() + 'CargaCaracteristicas() If ViewState("OrdenCA").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCA").ToString(), 1) @@ -281,16 +245,6 @@ Partial Class AF_CatClasificacionesCaracteristicas #Region " CARGA DATOS" Public Sub CargaDatosCA() - Dim ObjCaracteristicas As New ClsAF - If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then - ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados - Else - Me.GvDatosCA.DataSource = Nothing - End If - - ObjCaracteristicas.Dispose() - If ViewState("OrdenCA").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCA").ToString(), 1) Else @@ -301,7 +255,7 @@ Partial Class AF_CatClasificacionesCaracteristicas End Sub Private Sub CargaClasificacionesCA() DdlClasificacionesCA.Items.Clear() - DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero)) + DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero)) DdlClasificacionesCA.DataBind() UpdatePanel1.Update() End Sub @@ -374,8 +328,7 @@ Partial Class AF_CatClasificacionesCaracteristicas Dim ObjCaracteristicas As New ClsAF If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvDatosCA.EditIndex = -1 - ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados + GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -412,7 +365,7 @@ Partial Class AF_CatClasificacionesCaracteristicas If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then GvDatosCA.EditIndex = -1 - ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing CargaSubTiposActivosFijos() @@ -521,7 +474,7 @@ Partial Class AF_CatClasificacionesCaracteristicas DdlCaracteristicaOpciones.Items.Clear() 'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero)) - DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro) + DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro) DdlCaracteristicaOpciones.DataBind() DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -581,7 +534,7 @@ Partial Class AF_CatClasificacionesCaracteristicas e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1")) e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo") - e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas + e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind() FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones")) e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica") @@ -691,7 +644,7 @@ Partial Class AF_CatClasificacionesCaracteristicas ddlC.Items.Clear() 'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero)) - ddlC.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro) + ddlC.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro) ddlC.DataBind() ddlC.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -742,21 +695,17 @@ Partial Class AF_CatClasificacionesCaracteristicas Private Sub CargaGrid(Orden As String, gvi As Integer) If gvi = 0 Then If Orden <> String.Empty Then - Dim DV As New DataView(CType(ViewState("DTCaracteristicaClasificacion"), DataTable), "", Orden, DataViewRowState.CurrentRows) - GvDatosCL.DataSource = DV.ToTable() - DV.Dispose() + GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden) Else - GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable) + GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) End If GvDatosCL.DataBind() UpDatosCL.Update() ElseIf gvi = 1 Then If Orden <> String.Empty Then - Dim DV As New DataView(CType(ViewState("DTCatacteristica"), DataTable), "", Orden, DataViewRowState.CurrentRows) - GvDatosCA.DataSource = DV.ToTable() - DV.Dispose() + GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden) Else - GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable) + GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) End If GvDatosCA.DataBind() UpDatosCA.Update() diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 9c9dc72d7..a04dc3bc3 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -638,14 +638,14 @@ Partial Class Bancos_ConciliacionesBancariasaspx End If End If If CveCuenta > 0 Then - If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then + If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then If ObjConta.DtResultados.Rows.Count > 1 Then SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble End If End If End If If CveCuentaComplementaria > 0 Then - If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then + If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then If ObjConta.DtResultados.Rows.Count > 1 Then SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble End If diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index d93124cd0..0257fb67f 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -313,7 +313,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim Total As Decimal = 0 Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero If CveCuentaExtranjera > 0 Then - If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then + If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then If Conta.DtResultados.Rows.Count > 1 Then Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal End If @@ -324,7 +324,7 @@ Partial Class Bancos_FluctuacionCambiaria Dim SaldoActualContabilidad As Decimal = 0 Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero If CveCuentaComplementaria > 0 Then - If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then + If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then If Conta.DtResultados.Rows.Count > 1 Then SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal End If diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 8c2a8b97a..1787296bb 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores ViewState("DTCuentas") = value End Set End Property - Private Property CveSubProyecto As String + Private Property CveSubProyecto As Integer Get - CveSubProyecto = ViewState("CveSubProyecto").ToString + CveSubProyecto = CType(ViewState("CveSubProyecto"), Integer) End Get - Set(value As String) + Set(value As Integer) ViewState("CveSubProyecto") = value End Set End Property @@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores End If If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then - CveSubProyecto = Request("CveSubProyecto").ToString + CveSubProyecto = Request("CveSubProyecto").ToEntero End If @@ -184,9 +184,9 @@ Partial Class MovimientosconProveedores End If 'Dim CveSubProyecto As String If Request("CveSubProyecto") IsNot Nothing Then - CveSubProyecto = Request("CveSubProyecto").ToString + CveSubProyecto = Request("CveSubProyecto").ToEntero Else - CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero End If If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb index 87b1df7e3..03ad46471 100644 --- a/Contabilidad2/RepEstadoResultados.aspx.vb +++ b/Contabilidad2/RepEstadoResultados.aspx.vb @@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatos = Nothing From 8487abfda438c3d496982cecb3798216aee3af84 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Sat, 11 Feb 2023 11:17:29 -0700 Subject: [PATCH 4/5] Correciones warnigs, parametros compilacion productivo --- App_Code/ClsContabilidad.vb | 3 +++ Contabilidad2/MovimientosconProveedores.aspx.vb | 2 +- Contabilidad2/RepEstadoResultados.aspx.vb | 2 +- Finanzas/RepEstadoResultados.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 2 +- 5 files changed, 7 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 9531d6855..7be58e7ef 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -3843,6 +3843,8 @@ Public Class ClsContabilidad Return Retorno End Function + + 'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean Dim Retorno = False @@ -5533,6 +5535,7 @@ Public Class ClsContabilidad Return Retorno End Function + 'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean Dim Retorno = False diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 8c2a8b97a..e36b48bab 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -189,7 +189,7 @@ Partial Class MovimientosconProveedores CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString End If - If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then + If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0") diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb index 87b1df7e3..384529945 100644 --- a/Contabilidad2/RepEstadoResultados.aspx.vb +++ b/Contabilidad2/RepEstadoResultados.aspx.vb @@ -180,7 +180,7 @@ Partial Class Contabilidad2_RepEstadoResultados Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 0) Then DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatos = Nothing diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb index 04957a446..f2eee49ae 100644 --- a/Finanzas/RepEstadoResultados.aspx.vb +++ b/Finanzas/RepEstadoResultados.aspx.vb @@ -176,7 +176,7 @@ Partial Class Contabilidad2_RepEstadoResultados Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, 0) Then DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatos = Nothing diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c71fc445f..2b4e80213 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -35376,7 +35376,7 @@ Partial Class Ventas DdlRegimenFiscalCliente.DataBind() Else Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal") - Dim Val As String + Dim Val As String = "" If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then 'verifico que sino existe el valor. lo limpie From e66d428ee743c64c520f90553bc328cb267b8b19 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 11 Feb 2023 16:15:09 -0700 Subject: [PATCH 5/5] =?UTF-8?q?Mejoras=20en=20m=C3=B3dulo=20de=20circulare?= =?UTF-8?q?s=20-Agregar=20bot=C3=B3n=20de=20cancelar=20en=20CircularDetall?= =?UTF-8?q?eB=20-Selecci=C3=B3n=20de=20proveedores=20por=20Rol=20se=20hace?= =?UTF-8?q?=20por=20medio=20de=20javascript;=20ya=20no=20pierde=20la=20sel?= =?UTF-8?q?ecci=C3=B3n=20al=20filtrar=20=20+=20custom.js:=20FiltrarTablaSt?= =?UTF-8?q?r=20y=20FiltrarTablaStrMulti=20-Texto=20de=20alerta=20actualiza?= =?UTF-8?q?do=20-En=20la=20creaci=C3=B3n=20de=20una=20nueva=20circular,=20?= =?UTF-8?q?se=20prepone=20el=20texto=20"Circular"=20-En=20el=20listado=20d?= =?UTF-8?q?e=20circulares=20=20+=20columna=20de=20Fecha=20de=20Ingreso=20?= =?UTF-8?q?=20-=20el=20combo=20de=20usuario=20dice=20"Todos"=20en=20vez=20?= =?UTF-8?q?de=20"seleccione"=20=20-=20se=20cambi=C3=B3=20la=20alineaci?= =?UTF-8?q?=C3=B3n=20a=20izq.=20=20-=20se=20arregl=C3=B3=20el=20gridview?= =?UTF-8?q?=20para=20que=20refrescara=20bien=20al=20momento=20de=20Consult?= =?UTF-8?q?ar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OI/Circular.aspx | 5 +++-- OI/Circular.aspx.vb | 3 ++- OI/CircularDetalleB.aspx | 28 ++++++++++++++++--------- OI/CircularDetalleB.aspx.cs | 24 +++++++++++----------- Scripts/custom.js | 41 +++++++++++++++++++++++++++++++++++++ 5 files changed, 76 insertions(+), 25 deletions(-) diff --git a/OI/Circular.aspx b/OI/Circular.aspx index 8e76b0d57..fc7c6ac03 100644 --- a/OI/Circular.aspx +++ b/OI/Circular.aspx @@ -68,11 +68,12 @@ - + + diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb index 63b26eecf..8f39dc8a6 100644 --- a/OI/Circular.aspx.vb +++ b/OI/Circular.aspx.vb @@ -30,7 +30,7 @@ Partial Class OI_Circular DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuario.DataBind() - DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaDatos() Dim ObjOI As New ClsOIEventos @@ -40,6 +40,7 @@ Partial Class OI_Circular End If ObjOI.Dispose() GvDatos.DataBind() + UpDatos.Update() End Sub Protected Sub btConsultar_Click() Handles btConsultar.Click diff --git a/OI/CircularDetalleB.aspx b/OI/CircularDetalleB.aspx index 24f6fc8e6..cd5e17ab2 100644 --- a/OI/CircularDetalleB.aspx +++ b/OI/CircularDetalleB.aspx @@ -108,14 +108,14 @@

Asunto

- +
-
+

Adjuntar Archivos:

@@ -137,6 +137,7 @@
+
@@ -173,7 +174,7 @@
- +
@@ -221,8 +222,8 @@
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + +
@@ -315,7 +316,6 @@ function chkAll_OncLick(chk) { $('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked); } - //function showhideUser() { // // alert(CveRol); @@ -346,12 +346,20 @@ // }); // input.addClass('ConEvento'); //} - //function ADSReady() { + function filtrarx() { + //console.log('Entre 3') + //var filtro = sotext($("div[id^='C_DVModalFiltros'] select:first").attr("id")); + //console.log(filtro) + FiltrarTablaStrMulti('<%=GVUsuarios.ClientID %>', null, sotext('<%=DdlRoles.ClientID %>'), $('#TxtBusquedaCorreos').val()); + } + function ADSBegin() { // loadeventos(); // showhideUser() - //} - - + } + //inicializa tablas select2me etc etc..... + function ADSReady() { + filtrarx(); + } diff --git a/OI/CircularDetalleB.aspx.cs b/OI/CircularDetalleB.aspx.cs index 600a24197..9a363615b 100644 --- a/OI/CircularDetalleB.aspx.cs +++ b/OI/CircularDetalleB.aspx.cs @@ -189,7 +189,7 @@ public partial class OI_CircularDetalleB : ClsPaginas ClsOIEventos ObjOI = new ClsOIEventos(); - if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa,DdlRoles.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(),DdlClasificacion.SelectedValue.ToEntero())) + if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero())) { if (ObjOI.DtResultados.Rows.Count >= 1000) @@ -203,7 +203,7 @@ public partial class OI_CircularDetalleB : ClsPaginas GVUsuarios.DataSource = dt; - Alert($"{ObjOI.DtResultados.Rows.Count } registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia); + Alert($"{ObjOI.DtResultados.Rows.Count} registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia); } else { @@ -216,14 +216,11 @@ public partial class OI_CircularDetalleB : ClsPaginas GVUsuarios.DataSource = null; } - RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";"); - ObjOI.Dispose(); GVUsuarios.DataBind(); UpModalSeleccionCorreos.Update(); - } protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e) @@ -301,7 +298,7 @@ public partial class OI_CircularDetalleB : ClsPaginas if (ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text.Replace("< ","<"), TxtCorreo.Text, TxtCorreoAdicional.Text, AdjuntoValidate)) { GuardarArchivo(CveCircular); - Alert("Actualizado correctamente"); + Alert("La circular se ha actualizado correctamente."); } } else @@ -313,7 +310,7 @@ public partial class OI_CircularDetalleB : ClsPaginas if (CircularInsertado > 0) { GuardarArchivo(CircularInsertado); - Alert("Ingresado correctamente"); + Alert("La circular se ha guardado correctamente."); CveCircular = CircularInsertado; if (CveCircular > 0) @@ -443,7 +440,7 @@ public partial class OI_CircularDetalleB : ClsPaginas MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text); Contador += 1; } - Alert("El correo se envió correctamente"); + Alert("El correo se envió correctamente."); } catch (Exception ) { @@ -522,10 +519,13 @@ public partial class OI_CircularDetalleB : ClsPaginas protected void DdlRoles_SelectedIndexChanged(object sender, EventArgs e) { - ConsultaCorreos(); - } + //ConsultaCorreos(); + // Filtro las filas según el dropdown option + //RegistraScript("console.log('Entre 1')"); + //RegistraScript($"FiltrarTablaStrMulti('{GVUsuarios.ClientID}', null, sotext('{DdlRoles.ClientID}'), $('#TxtBusquedaCorreos').val());"); + } - protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e) + protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e) { ConsultaCorreos(); } @@ -542,7 +542,7 @@ public partial class OI_CircularDetalleB : ClsPaginas protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e) { - // ConsultaCorreos(); + ConsultaCorreos(); } protected void LnlActualizarCorreos_Click(object sender, EventArgs e) diff --git a/Scripts/custom.js b/Scripts/custom.js index ca375cedc..c630cc62c 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -69,6 +69,15 @@ function alertatoast(tipo, Mensaje, Funcion, timeout) { function log(mensaje) { console.log(mensaje); } + +function soval(dropdown) { + return $('option:selected', '#' + dropdown).val(); +} + +function sotext(dropdown) { + return $('option:selected', '#' + dropdown).text(); +} + function FiltrarTabla(idtxt, idtable, idcontador) { if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); } else { @@ -79,6 +88,38 @@ function FiltrarTabla(idtxt, idtable, idcontador) { $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); } } + +function FiltrarTablaStr(str, idtable, idcontador) { + if (str == '' || str == 'Todos') { $('table#' + idtable + ' tr').css('display', ''); } + else { + $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); + $('table#' + idtable + ' tr:contains("' + str + '")').css('display', ''); + $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); + } + if ($('#' + idcontador).length > 0) { + $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + } +} + +function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) { + if (arguments.length <= 2) { return; } + let strc = ''; + for (let i = 2 /*a partir del 3er argumento obtiene los str*/; i < arguments.length; i++) { + let str = arguments[i]; + if (str != '' && str != 'Todos') { + strc += ':contains("' + str + '")'; + } + } + $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); + $('table#' + idtable + ' tr' + strc).css('display', ''); + $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); + if (idcontador) { + if ($('#' + idcontador).length > 0) { + $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + } + } +} + function FiltrarTablaClass(idtxt, idtable, idcontador, resta) { if (resta == null) { resta =1