From ce8e30d3953c9c84707ae88237abea0609b63260 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:33:59 -0700 Subject: [PATCH 01/13] -- mejoras en warnings --- Inventarios/EntregasPorRealizar.aspx.cs | 2 +- Inventarios/RecepcionDevolucion.aspx.vb | 2 +- Inventarios/RepApartados2.aspx.vb | 6 +----- Inventarios/RepEntregasForaneas.aspx.vb | 1 - OI/RepTareas3.aspx.cs | 2 +- OS/CatEstatusOrdenServicio.aspx.vb | 2 +- Prospectos/CatEventosEstructuras.aspx.vb | 4 ++-- Prospectos/CatProspectosRedesMetas.aspx.vb | 2 +- Prospectos/Prospectos.aspx.vb | 8 ++++---- Prospectos/ProspectosEstructuras.aspx.vb | 4 ++-- Prospectos/ProspectosRedes.aspx.vb | 4 ++-- Prospectos/RedesArbol.aspx.vb | 2 +- Prospectos/RedesEncuestas.aspx.vb | 4 ++-- 13 files changed, 19 insertions(+), 24 deletions(-) diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index 44a8d193e..93a38ff12 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -99,7 +99,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero(); int Orden = row.DataKey("Orden").ToEntero(); - if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega, Orden: Orden)) + if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega )) { TieneError = true; break; diff --git a/Inventarios/RecepcionDevolucion.aspx.vb b/Inventarios/RecepcionDevolucion.aspx.vb index b1b536de3..bb687ac11 100644 --- a/Inventarios/RecepcionDevolucion.aspx.vb +++ b/Inventarios/RecepcionDevolucion.aspx.vb @@ -769,7 +769,7 @@ Partial Class Inventarios_RecepcionDevolucion ObjRemisionNC.IEPS = ImporteIEPS ObjRemisionNC.Total = Total ObjRemisionNC.TotalOtrosConceptos = 0 - ObjRemisionNC.ObservacionesMovimiento = TxtObservaciones.Text + ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text ObjRemisionNC.DtInventario = DtInventario diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb index 521f152f6..2b3270f10 100644 --- a/Inventarios/RepApartados2.aspx.vb +++ b/Inventarios/RepApartados2.aspx.vb @@ -38,11 +38,7 @@ Partial Class Inventarios_RepApartados2 DdlCliente.DataBind() DdlCliente.Items.Insert(0, New ListItem(" Todos ", "-1")) - - Dim DTVendedores As New DataTable - DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True) - DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False)) - DdlVendedor.DataSource = DTVendedores + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, -1) DdlVendedor.DataBind() DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1")) diff --git a/Inventarios/RepEntregasForaneas.aspx.vb b/Inventarios/RepEntregasForaneas.aspx.vb index 5e7d46689..6709e9a4d 100644 --- a/Inventarios/RepEntregasForaneas.aspx.vb +++ b/Inventarios/RepEntregasForaneas.aspx.vb @@ -733,7 +733,6 @@ Partial Class Inventarios_RepEntregasForaneas Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) diff --git a/OI/RepTareas3.aspx.cs b/OI/RepTareas3.aspx.cs index bc044fee3..a37a27eab 100644 --- a/OI/RepTareas3.aspx.cs +++ b/OI/RepTareas3.aspx.cs @@ -17,6 +17,6 @@ public partial class OI_RepTareas3 : System.Web.UI.Page protected void LnkAddEvento_Click(object sender, EventArgs e) { - RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar)); + //RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar)); } } \ No newline at end of file diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index a197bd468..dc7598417 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -78,7 +78,7 @@ Partial Class OS_CatEstatusOrdenServicio Public Sub CargaDatos() DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) Using ObjEstatusOrdenServicios As New ClsOS - If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then + If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) GvDatos.DataSource = DtEstatusOS GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados diff --git a/Prospectos/CatEventosEstructuras.aspx.vb b/Prospectos/CatEventosEstructuras.aspx.vb index e30a647ca..ac39d71f9 100644 --- a/Prospectos/CatEventosEstructuras.aspx.vb +++ b/Prospectos/CatEventosEstructuras.aspx.vb @@ -14,7 +14,7 @@ Partial Class Prospectos_CatEventosEstructuras CargaEventoTipo() CargaDatos() CargaAnfitrion(DdlAnfitrion) - DdlMunicipio.DataSource = GlobalDTGralMunicipios(26) + DdlMunicipio.DataSource = GlobalDTGralMunicipios("26") DdlMunicipio.DataBind() End If End Sub @@ -102,7 +102,7 @@ Partial Class Prospectos_CatEventosEstructuras e.Row.FCDropDownList("DdlEventoTipo").DataBind() e.Row.FCDropDownList("DdlEventoTipo").SelectedValue = e.Row.DBCampo("CveEventoTipo") - e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios(26) + e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios("26") e.Row.FCDropDownList("DdlMunicipio").DataBind() e.Row.FCDropDownList("DdlMunicipio").SelectedValue = e.Row.DBCampo("CveMunicipio") diff --git a/Prospectos/CatProspectosRedesMetas.aspx.vb b/Prospectos/CatProspectosRedesMetas.aspx.vb index 6033c63a6..6f8efd243 100644 --- a/Prospectos/CatProspectosRedesMetas.aspx.vb +++ b/Prospectos/CatProspectosRedesMetas.aspx.vb @@ -35,7 +35,7 @@ Partial Class Prospectos_CatProspectosRedesMetas DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() - DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() + DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind() CargaDatos() diff --git a/Prospectos/Prospectos.aspx.vb b/Prospectos/Prospectos.aspx.vb index 49ace671c..5ced21f5c 100644 --- a/Prospectos/Prospectos.aspx.vb +++ b/Prospectos/Prospectos.aspx.vb @@ -79,7 +79,7 @@ Partial Class Prospectos_Prospectos DdlPaises.SelectedValue = "1" DdlEmpresaPaises.SelectedValue = "1" DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind() - DdlFiscalEstados.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstados.DataBind() + DdlFiscalEstados.DataSource = GlobalDTGralEstados("1") : DdlFiscalEstados.DataBind() 'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind() @@ -88,7 +88,7 @@ Partial Class Prospectos_Prospectos CargaDatos() 'Configuración de Modalidad Update BtnGuardar.Text = "Guardar Cambios" - LtlTitulo.Text = "Consulta del Prospecto:" + LtlTitulo.Text = "Consulta del Prospecto: " 'ImgAddObs.Attributes.Add("onclick", "javascript:$('#DivEventoBitacora').show(1000); PosicionaObjeto(this.id,'DivEventoBitacora');") 'Else @@ -337,11 +337,11 @@ Partial Class Prospectos_Prospectos Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub CargaCaracteristicas() diff --git a/Prospectos/ProspectosEstructuras.aspx.vb b/Prospectos/ProspectosEstructuras.aspx.vb index 09203cf85..7a172decd 100644 --- a/Prospectos/ProspectosEstructuras.aspx.vb +++ b/Prospectos/ProspectosEstructuras.aspx.vb @@ -208,11 +208,11 @@ Partial Class Prospectos_ProspectosEstructuras End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click diff --git a/Prospectos/ProspectosRedes.aspx.vb b/Prospectos/ProspectosRedes.aspx.vb index b463acb29..3fcdd5eea 100644 --- a/Prospectos/ProspectosRedes.aspx.vb +++ b/Prospectos/ProspectosRedes.aspx.vb @@ -201,11 +201,11 @@ Partial Class Prospectos_ProspectosRedes End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click diff --git a/Prospectos/RedesArbol.aspx.vb b/Prospectos/RedesArbol.aspx.vb index 0f28d9c0e..601b71be0 100644 --- a/Prospectos/RedesArbol.aspx.vb +++ b/Prospectos/RedesArbol.aspx.vb @@ -36,7 +36,7 @@ Partial Class Prospectos_RedesArbol DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() - DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() + DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind() CargaDatos(True) ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") diff --git a/Prospectos/RedesEncuestas.aspx.vb b/Prospectos/RedesEncuestas.aspx.vb index b811fa03e..b0e2ade0c 100644 --- a/Prospectos/RedesEncuestas.aspx.vb +++ b/Prospectos/RedesEncuestas.aspx.vb @@ -155,11 +155,11 @@ Partial Class Prospectos_RedesEncuestas End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click From c95a0f4cb082318f8d952704006651a7800c6989 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:09 -0700 Subject: [PATCH 02/13] =?UTF-8?q?--=20mejora=20en=20registro=20prep=C3=B3l?= =?UTF-8?q?iza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ac6acc141..b95bf73dc 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -827,7 +827,7 @@ Partial Class Ventas_ClientesAbonar CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero End If - CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If RblTipoPago.SelectedValue = "1" Then Dim CveCuentaDeposito As Integer = 0 @@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL Dim IdCtaContable As Integer = 0 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, VentaActual.IdCtaContableCliente, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then MsgError = "No se pudo insertar la póliza" End If End If From 9407da341e66a0fe98573db23bd107e2b9c0aa4b Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:42 -0700 Subject: [PATCH 03/13] =?UTF-8?q?--=20par=C3=A1metro=20proyecto=20en=20aux?= =?UTF-8?q?iliares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ConciliacionesBancarias.aspx.vb | 4 ++-- Bancos/FluctuacionCambiaria.aspx.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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 From fc4beb6bbf6119cf7b4b20eb922f082a9b6b7952 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:49 -0700 Subject: [PATCH 04/13] -- mejora warnings --- AF/CatClasificacionesCaracteristicas.aspx.vb | 35 ++++++++++---------- 1 file changed, 17 insertions(+), 18 deletions(-) diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index 96243065a..fbdc75167 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/AF/CatClasificacionesCaracteristicas.aspx.vb @@ -81,8 +81,8 @@ Partial Class AF_CatClasificacionesCaracteristicas 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)) + + ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados Else Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError) End If @@ -90,15 +90,15 @@ Partial Class AF_CatClasificacionesCaracteristicas ObjAF.Dispose() End Sub Private Sub CargaCaracteristicas() - Dim ObjAF As New ClsAF + '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 + '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() + 'ObjAF.Dispose() End Sub #Region "CLASIFICACIONES" @@ -128,8 +128,8 @@ Partial Class AF_CatClasificacionesCaracteristicas 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 + ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados + Else Me.GvDatosCL.DataSource = Nothing End If @@ -264,7 +264,7 @@ Partial Class AF_CatClasificacionesCaracteristicas 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() @@ -284,7 +284,6 @@ Partial Class AF_CatClasificacionesCaracteristicas 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 @@ -301,7 +300,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 @@ -375,7 +374,7 @@ Partial Class AF_CatClasificacionesCaracteristicas 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 @@ -521,7 +520,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 +580,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 +690,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 From d49903a1ad750d94eb077cfd0147509a15ac9ff3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:34:57 -0700 Subject: [PATCH 05/13] -- warnngs --- Contabilidad2/MovimientosconProveedores.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index 8c2a8b97a..847129b32 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 = ViewState("CveSubProyecto").ToString.ToEntero 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").ToString.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").ToString.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 From 2f0e32e1f3680ed8d66767486b03f3984680237d Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:35:11 -0700 Subject: [PATCH 06/13] - limpieza --- Bancos/Transferencias.aspx.vb | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index ab44c7dd8..ff4a419e3 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -321,8 +321,6 @@ Partial Class Bancos_Transferencias Dim IDCtaContableComplementariaDestino As Integer = 0 Dim IdCtaContableDestino As Integer = 0 Dim CuentasContablesInvalidasSIG As New StringBuilder - Dim CveCuentaOrigen As Integer = 0 - Dim CveCuentaDestino As Integer = 0 Dim RowCuentaOrigen As DataRow = Nothing @@ -347,18 +345,8 @@ Partial Class Bancos_Transferencias CuentasContablesInvalidas.Append("
Cuenta Contable Destino") End If - 'Conta SIG - If CveCuentaOrigen < 1 Then - CuentasContablesInvalidasSIG.Append("
Cuenta Contable Origen") - End If - - If CveCuentaDestino < 1 Then - CuentasContablesInvalidasSIG.Append("
Cuenta Contable Destino") - End If - If Opcion = 1 Then ' CUANDO ES DOMICILIZACION IdCtaContableOrigen = IdCtaContableDestino - CveCuentaOrigen = CveCuentaDestino End If Dim TipoMovtoDetalle As Boolean = True @@ -369,7 +357,6 @@ Partial Class Bancos_Transferencias TxtImporte.Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableOrigen, -1, CveIE, ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen), ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0), - CveCuenta:=CveCuentaOrigen, CveIEDevolucion:=CveIEDevolucion) Then If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then @@ -401,7 +388,7 @@ Partial Class Bancos_Transferencias If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino, ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), ImporteDestino, ImporteMXDestino), - ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0), CveCuenta:=CveCuentaDestino) Then + ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0)) Then MsgError = "Ocurrio un error al ingresar la prepoliza" End If From 57d2530d30f9c0445b0370992486560fb9980489 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:35:29 -0700 Subject: [PATCH 07/13] warnings --- Finanzas/RepEstadoResultados.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb index 04957a446..0081aa14c 100644 --- a/Finanzas/RepEstadoResultados.aspx.vb +++ b/Finanzas/RepEstadoResultados.aspx.vb @@ -173,10 +173,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 398dddd4dc13ff6eab0de9f491eeea3e07b62cdf Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:35:46 -0700 Subject: [PATCH 08/13] - warnings --- Contabilidad2/RepEstadoResultados.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 f1495d6ad41bb297f7b1a60a0cc4eee3fad9d858 Mon Sep 17 00:00:00 2001 From: MLopez Date: Sat, 11 Feb 2023 09:26:04 -0700 Subject: [PATCH 09/13] =?UTF-8?q?Correcci=C3=B3n=20en=20Clientes,=20Ddl=20?= =?UTF-8?q?Cliente-sucursal=20tiene=20otro=20comportamiento,=20no=20usar?= =?UTF-8?q?=20sub=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 10/13] =?UTF-8?q?Corregir=20errores=20de=20compilaci=C3=B3?= =?UTF-8?q?n?= 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 11/13] 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 12/13] =?UTF-8?q?Mejoras=20en=20m=C3=B3dulo=20de=20circula?= =?UTF-8?q?res=20-Agregar=20bot=C3=B3n=20de=20cancelar=20en=20CircularDeta?= =?UTF-8?q?lleB=20-Selecci=C3=B3n=20de=20proveedores=20por=20Rol=20se=20ha?= =?UTF-8?q?ce=20por=20medio=20de=20javascript;=20ya=20no=20pierde=20la=20s?= =?UTF-8?q?elecci=C3=B3n=20al=20filtrar=20=20+=20custom.js:=20FiltrarTabla?= =?UTF-8?q?Str=20y=20FiltrarTablaStrMulti=20-Texto=20de=20alerta=20actuali?= =?UTF-8?q?zado=20-En=20la=20creaci=C3=B3n=20de=20una=20nueva=20circular,?= =?UTF-8?q?=20se=20prepone=20el=20texto=20"Circular"=20-En=20el=20listado?= =?UTF-8?q?=20de=20circulares=20=20+=20columna=20de=20Fecha=20de=20Ingreso?= =?UTF-8?q?=20=20-=20el=20combo=20de=20usuario=20dice=20"Todos"=20en=20vez?= =?UTF-8?q?=20de=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 From 44e8cd3070e29bdcb35b38a75d5438e484c1e164 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 16:50:30 -0700 Subject: [PATCH 13/13] -- mejora adicionales texto --- Ventas/Clientes.aspx | 4 ++-- Ventas/Clientes.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 6cc3bcfc3..1724cc382 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4582,7 +4582,7 @@ @@ -4874,7 +4874,7 @@
- + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 82de53a46..7be511d61 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1512,7 +1512,7 @@ Partial Class Clientes ' CargaDocs() CargaCombos() CargaDocumentacionCliente() - CargaSubProyectosSuscursales() + 'CargaSubProyectosSuscursales() 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI()