From c5e145ffad3cace4f1ba357393521dd8c521163b Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 12 Feb 2023 11:22:23 -0700 Subject: [PATCH 01/28] =?UTF-8?q?--=20unificaci=C3=B3n=20modulo=20circular?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3ee4bfbb3..cf7ce05c0 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8547,8 +8547,8 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/RepEvaluacionesProveedores.aspx".ToUpper(), 754) PaginaDict.Add("/Ventas/RepTopClientesVentas.aspx".ToUpper(), 755) PaginaDict.Add("/OI/Circular.aspx".ToUpper(), 756) - PaginaDict.Add("/OI/CircularDetalle.aspx".ToUpper(), 757) - PaginaDict.Add("/OI/CircularDetalleB.aspx".ToUpper(), 757) + PaginaDict.Add("/OI/CircularDetalle.aspx".ToUpper(), 756) + PaginaDict.Add("/OI/CircularDetalleB.aspx".ToUpper(), 756) PaginaDict.Add("/Compras/CatTipoGasto.aspx".ToUpper(), 759) #End Region #Region "Contabilidad" From 6fad08d43a0691ec01d9d0c97eb659f3c4e22b73 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 12 Feb 2023 21:45:58 -0700 Subject: [PATCH 02/28] -- mejoras parametros --- Prospectos/CatProspectosRedes.aspx.vb | 2 +- Prospectos/ProspectoExpediente.aspx.vb | 4 ++-- Prospectos/ProspectosG15.aspx.vb | 4 ++-- Prospectos/ProspectosSIP.aspx.vb | 4 ++-- Prospectos/RepEncuestasDetalle.aspx.vb | 2 +- Prospectos/RepProspectosRedes.aspx.vb | 2 +- Sistemas/CatSesiones.aspx.vb | 7 ++++--- 7 files changed, 13 insertions(+), 12 deletions(-) diff --git a/Prospectos/CatProspectosRedes.aspx.vb b/Prospectos/CatProspectosRedes.aspx.vb index 99b56048f..59bf6ff30 100644 --- a/Prospectos/CatProspectosRedes.aspx.vb +++ b/Prospectos/CatProspectosRedes.aspx.vb @@ -34,7 +34,7 @@ Partial Class Prospectos_CatProspectos 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/ProspectoExpediente.aspx.vb b/Prospectos/ProspectoExpediente.aspx.vb index afc5a3463..2d90f538f 100644 --- a/Prospectos/ProspectoExpediente.aspx.vb +++ b/Prospectos/ProspectoExpediente.aspx.vb @@ -197,11 +197,11 @@ Partial Class Prospectos_ProspectoExpediente End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click diff --git a/Prospectos/ProspectosG15.aspx.vb b/Prospectos/ProspectosG15.aspx.vb index c03bba0eb..2502f1005 100644 --- a/Prospectos/ProspectosG15.aspx.vb +++ b/Prospectos/ProspectosG15.aspx.vb @@ -153,11 +153,11 @@ Partial Class Prospectos_ProspectosG15 Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind() End Sub Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer) diff --git a/Prospectos/ProspectosSIP.aspx.vb b/Prospectos/ProspectosSIP.aspx.vb index 6eb2749cf..08bbe2ee7 100644 --- a/Prospectos/ProspectosSIP.aspx.vb +++ b/Prospectos/ProspectosSIP.aspx.vb @@ -137,11 +137,11 @@ Partial Class Prospectos_ProspectosSIP End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind() End Sub Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer) diff --git a/Prospectos/RepEncuestasDetalle.aspx.vb b/Prospectos/RepEncuestasDetalle.aspx.vb index bed3ee7ef..06f088d48 100644 --- a/Prospectos/RepEncuestasDetalle.aspx.vb +++ b/Prospectos/RepEncuestasDetalle.aspx.vb @@ -24,7 +24,7 @@ Partial Class Prospectos_RepEncuestasDetalle If CveMunicipio > 0 Then - Dim dr As DataRow = GlobalDTGralMunicipios(-1).FiltroPrimero("CveMunicipio =" & CveMunicipio) + Dim dr As DataRow = GlobalDTGralMunicipios("-1", CveEstado:=-1).FiltroPrimero("CveMunicipio =" & CveMunicipio) If dr IsNot Nothing Then LblMunicipio.Text = dr("Municipio").ToString() End If LblSeccion.Text = Seccion.ToString diff --git a/Prospectos/RepProspectosRedes.aspx.vb b/Prospectos/RepProspectosRedes.aspx.vb index 19bc8fc91..e30de1116 100644 --- a/Prospectos/RepProspectosRedes.aspx.vb +++ b/Prospectos/RepProspectosRedes.aspx.vb @@ -36,7 +36,7 @@ Partial Class Prospectos_RepProspectosRedes 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() DdlEscolaridad.DataSource = GlobalDTGralEscolaridades : DdlEscolaridad.DataBind() CargaDatos(True) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index a8b3bda14..f309669f8 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -489,9 +489,10 @@ Partial Class Sistemas_CatSesiones End Sub Private Sub CargaOCEstatus() - Dim ObjOC As New ClsOC - If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing - ObjOC.Dispose() + 'Dim ObjOC As New ClsOC + 'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing + 'ObjOC.Dispose() + GlobalDTOCEstatus(UsuarioActual.CveEmpresa) = Nothing End Sub Private Sub CargaOCEstatusUsuarios() From ecf9688e34773ffb1d440961a5ea430bdf30aac0 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 12 Feb 2023 22:15:21 -0700 Subject: [PATCH 03/28] cambios de GlobalDT --- App_Code/ClsPaginas.vb | 30 ++++++++++++++---------------- Sistemas/UsuarioDetalle.aspx.vb | 24 +++++++----------------- 2 files changed, 21 insertions(+), 33 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index cf7ce05c0..13673a7c3 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -2315,7 +2315,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTVtaCobranzaEstatus(CveEmpresa As Integer, Optional CveCobranzaEstatus As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTVtaCobranzaEstatus-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjVentas As New ClsVentas If ObjVentas.GetCobranzaEstatus(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados @@ -2438,20 +2437,22 @@ Public Class ClsPaginas #Region "***********************************************************************DT ACTIVOS FIJOS**********************************************************************************" Property GlobalDTActivoFijos(CveEmpresa As Integer, Optional CveSubTipoActivoFijo As Integer = -1, Optional CveActivoFijo As Integer = -1) As DataTable Get - Dim dt As DataTable = Nothing - 'Dim Str As New StringBuilder - 'Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) - 'If CveSubTipoActivoFijo <> -1 Then Str.AppendFormat(" AND CveSubTipoActivoFijo = {0}", CveSubTipoActivoFijo) - Dim ObjAF As New ClsAF - 'If ObjAF.GetActivosFijos(CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, -1, "-1", -1, -1, -1, -1, -1) Then - If ObjAF.GetActivosFijos(CveActivoFijo, CveEmpresa, "-1", "-1", -1, CveSubTipoActivoFijo, "-1", -1, -1, -1, -1, -1, "", -1) Then - dt = ObjAF.DtResultados + Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjActivosFijos As New ClsAF + If ObjActivosFijos.GetActivosFijos(-1, CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados + ObjActivosFijos.Dispose() End If - ObjAF.Dispose() - GlobalDTActivoFijos = dt + Dim Str As New StringBuilder + If CveSubTipoActivoFijo <> -1 Then Str.AppendFormat(" CveSubTipoActivoFijo = {0} ", CveSubTipoActivoFijo) + If CveActivoFijo > 0 Then Str.AppendFormat("{0} CveActivoFijo = {1}", IIf(Str.Length > 0, " AND ", ""), CveActivoFijo) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTActivoFijos = Dv.ToTable + Dv.Dispose() End Get Set(ByVal value As DataTable) - Application("GlobalDTActivoFijos") = value + Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" + Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTEstadoActivoFijo() As DataTable @@ -2488,7 +2489,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjActivosFijos As New ClsAF If ObjActivosFijos.GetModelosActivosFijos(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados @@ -2510,7 +2510,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjSubTipos As New ClsAF If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubTipos.DtResultados @@ -2531,10 +2530,9 @@ Public Class ClsPaginas Public Shared Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim GetTiposActivosFijos As New ClsAF - If GetTiposActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados + If GetTiposActivosFijos.GetTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados GetTiposActivosFijos.Dispose() End If GlobalDTTipoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 8105b1328..f485c6faa 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -473,17 +473,9 @@ Partial Class Sistemas_UsuarioDetalle CargaEmpresasAsignaciones() CreaDtAsignacionesMultiEmpresa() CveEmpresaAnterior = DdlEmpresaAsignaciones.SelectedValue.ToEntero - - Using ObjOc As New ClsOC - - If ObjOc.GetEstatus() Then - DTOCEstatus = ObjOc.DtResultados - Else - DTOCEstatus = New DataTable - End If - - End Using - + DTOCEstatus = GlobalDTOCEstatus(UsuarioActual.CveEmpresa) + + End If End Sub @@ -1371,12 +1363,10 @@ Partial Class Sistemas_UsuarioDetalle 'RECARGA GLOBAL BANCOS 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then - GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados - ' End If - - 'RECARGA GLOBAL ESTATUS - If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing - + GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados + ' End If + + 'RECARGA GLOBAL ESTATUS GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing 'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing From 59e5031c8334e4e75be5e4764594cb93126ce863 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 12 Feb 2023 22:15:52 -0700 Subject: [PATCH 04/28] -- mejora en tipo dato --- Contabilidad2/MovimientosconProveedores.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index a4d29fda1..a54167118 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -54,7 +54,7 @@ Partial Class MovimientosconProveedores End Property Private Property CveSubProyecto As Integer Get - CveSubProyecto = ViewState("CveSubProyecto").ToString + CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero End Get Set(value As Integer) ViewState("CveSubProyecto") = value From 496a61c5edef0a7ca5cc4f26ed630e4b8067b704 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 13 Feb 2023 13:20:48 -0700 Subject: [PATCH 05/28] - grupo de subproyecto --- Ventas/RepVentas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 6817935ac..c972d0a5d 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -135,6 +135,7 @@ Partial Class Ventas_RepVentas DdlGrupo.Items.Insert(2, New ListItem("Año/Mes", "3")) DdlGrupo.Items.Insert(3, New ListItem("Fecha", "4")) DdlGrupo.Items.Insert(4, New ListItem("Cliente", "5")) + DdlGrupo.Items.Insert(4, New ListItem("SubProyecto", "6")) DdlGrupo.Items.Insert(5, New ListItem("Corte", "16")) DdlGrupo.Items.Insert(6, New ListItem("Vendedor", "7")) DdlGrupo.Items.Insert(7, New ListItem("Usuario", "8")) From f3dca9e0b5f725732a0b49433e91af8dd456dbbc Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 13 Feb 2023 19:41:12 -0700 Subject: [PATCH 06/28] =?UTF-8?q?renombra=20m=C3=B3dulo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PagoAcreedor.aspx.cs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index fb4ab7a2d..7079468f1 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -302,7 +302,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas // DATOS PREPOLIZA if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMonedaPago, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMonedaPago, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { @@ -727,7 +727,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas // DATOS PREPOLIZA if ((DdlTipoTransanccionPrestamo.SelectedValue == "1")) FolioFijo = TxtFolioPrestamo.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PRESTAMO ACRREDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMoneda, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransanccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("PRESTAMO ACRREDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMoneda, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransanccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { From 775546165defbd2e6648115de703f176d25968bb Mon Sep 17 00:00:00 2001 From: MLopez Date: Mon, 13 Feb 2023 21:08:16 -0700 Subject: [PATCH 07/28] Ocultar divproyecto y su label correspondiente cuando tipo centro de costo 1-3 --- App_Code/ClsPaginas.vb | 53 +++++++++++++++-------- Compras/RepCompras.aspx | 4 +- Compras/RepComprasDetalle.aspx | 4 +- Compras/RepComprasPeriodo.aspx | 4 +- Compras/RepProductosServiciosPeriodo.aspx | 4 +- 5 files changed, 38 insertions(+), 31 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3ee4bfbb3..f956cf7fd 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4293,27 +4293,42 @@ Public Class ClsPaginas ObjUsuario.Dispose() Return Retorno End Function - Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing) + Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing) + Select Case UsuarioActual.Empresa.Tipo_CentroCosto - Case 1 - If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo" - Case 2 - If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" - Case 3 - If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto" - Case 4 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto" - Case 5 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" - If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" + + Case 1 To 3 + If LblSubProyecto IsNot Nothing Then + Select Case UsuarioActual.Empresa.Tipo_CentroCosto + Case 1 + LblSubProyecto.Text = "Centro de costo" + Case 2 + LblSubProyecto.Text = "Sucursal" + Case 3 + LblSubProyecto.Text = "Proyecto" + End Select + End If + + If DdlProyecto IsNot Nothing Then DdlProyecto.Parent.Visible = False 'DivProyecto + If LblProyecto IsNot Nothing Then + LblProyecto.Visible = False + Else + RegistraScript("$('[id$=""LblProyecto""]').css('display', 'none');") + End If + + Case 4 To 5 + If LblSubProyecto IsNot Nothing Then + Select Case UsuarioActual.Empresa.Tipo_CentroCosto + Case 4 + LblSubProyecto.Text = "Subproyecto" + Case 5 + LblSubProyecto.Text = "Sucursal" + End Select + End If + If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto" + End Select + If DdlProyecto IsNot Nothing Then DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) DdlProyecto.DataBind() diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index 2b3afe529..9b735f488 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -158,9 +158,7 @@