diff --git a/AC/CatOGClasificaciones.aspx.vb b/AC/CatOGClasificaciones.aspx.vb index 02524768e..e41239c25 100644 --- a/AC/CatOGClasificaciones.aspx.vb +++ b/AC/CatOGClasificaciones.aspx.vb @@ -47,10 +47,10 @@ Partial Class AC_CatOGClasificaciones Public Sub CargaDatos() Dim ObjClasificaciones As New ClsClasificaciones - If ObjClasificaciones.GetClasificaciones() Then + If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo") - GlobalDTClasificaciones = ObjClasificaciones.DtResultados - GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ") + + GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatos.DataSource = Nothing End If @@ -74,14 +74,14 @@ Partial Class AC_CatOGClasificaciones Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion) 'UpTitulos.Update() ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTClasificaciones = ObjClasificaciones.DtResultados + GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing End If Else If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, -1, "", -1, "", -1, "", ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then GvDatos.EditIndex = -1 ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTClasificaciones = ObjClasificaciones.DtResultados + GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If End If @@ -119,7 +119,7 @@ Partial Class AC_CatOGClasificaciones If ObjClasificaciones.RemoveClasificacion(GvRow.DataKey("CveClasificacion").ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTClasificaciones = ObjClasificaciones.DtResultados + GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -159,7 +159,7 @@ Partial Class AC_CatOGClasificaciones If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTClasificaciones = ObjClasificaciones.DtResultados + GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -194,7 +194,7 @@ Partial Class AC_CatOGClasificaciones If ObjOGClasificaciones.UpdateClasificacion(OGClasificacion, Codigo, -1, "", -1, "", -1, "", Estatus, Afectable, 0, UsuarioActual.CveUsuario, CveOGClasificacion) Then GvDatos.EditIndex = -1 ViewState("DTOGClasificaciones") = ObjOGClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTClasificaciones = ObjOGClasificaciones.DtResultados + GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/AC/RepPresupuestoEgresos.aspx.vb b/AC/RepPresupuestoEgresos.aspx.vb index b4f15938e..152d498b5 100644 --- a/AC/RepPresupuestoEgresos.aspx.vb +++ b/AC/RepPresupuestoEgresos.aspx.vb @@ -115,7 +115,7 @@ Partial Class AC_RepPresupuestoEgresos Private Sub CargaDatos() Dim objAC As New ClsContPAQi(UsuarioActual.Empresa) Dim FechaF As Date = txtFechaF.Text.ToDate - Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1)) + Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1)) If objAC.GetRepPresupuestosEgresosSaldos(DdlEjercicio.SelectedValue.ToEntero, FechaF, Capitulo, DdlClasificaciones.SelectedValue.ToEntero, DdlFuenteFinanciamiento.SelectedValue.ToEntero, DdlProgramaOperativo.SelectedValue.ToEntero, DdlUnidadAdministrativa.SelectedValue.ToEntero, DdlTipoGasto.SelectedValue.ToEntero, DdlOrden.SelectedValue.ToEntero) Then DtPresupuestoEgresos = objAC.DtResultados diff --git a/AC/RepPresupuestoEgresosMensual.aspx.vb b/AC/RepPresupuestoEgresosMensual.aspx.vb index 70514d7bd..2aef73b62 100644 --- a/AC/RepPresupuestoEgresosMensual.aspx.vb +++ b/AC/RepPresupuestoEgresosMensual.aspx.vb @@ -75,7 +75,7 @@ Partial Class AC_RepPresupuestoEgresosMensual BtnImprimir.Visible = False Dim objAC As New ClsContPAQi(UsuarioActual.Empresa) - Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1)) + Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1)) UPPDatos.Update() Gv.DataBind() diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 079d44f73..1c88a95eb 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -847,7 +847,7 @@ Public Class ClsPaginas End Set End Property #End Region - Public Shared Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable + Public Shared Property GlobalDTClasificaciones(CveEmpresa As Integer, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTClasificaciones-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then @@ -888,10 +888,9 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTClasificaciones2(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable + Public Shared Property GlobalDTClasificaciones2(CveEmpresa As Integer, Optional CveCategoria As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTClasificaciones2-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjClasificaciones As New ClsClasificaciones If ObjClasificaciones.GetClasificaciones(CveEmpresa:=CveEmpresa, Tipo:=4) Then HttpContext.Current.Application(AppNombre) = ObjClasificaciones.DtResultados @@ -933,7 +932,7 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTACClasificadorObjetoGasto(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable + Property GlobalDTACClasificadorObjetoGasto(CveEmpresa As Integer, Optional CveCategoria As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTACClasificadorObjetoGasto-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then @@ -956,7 +955,7 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable + Property GlobalDTClasificacionesDetalle(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}" If Application(AppNombre) Is Nothing Then @@ -998,10 +997,9 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Property GlobalDTFamilias(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTFamilias(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTFamilias-{CveEmpresa}" - 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa, 2) Then Application(AppNombre) = ObjGenerales.DtResultados @@ -1014,7 +1012,7 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTCategoriasPresupuestos(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTCategoriasPresupuestos(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}" If Application(AppNombre) Is Nothing Then @@ -1661,20 +1659,20 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - 'Property GlobalDTProductosServiciosCaracteristicas(CveEmpresa As Integer) As DataTable - ' Get - ' If CveEmpresa <> -1 Then - ' Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) - ' GlobalDTProductosServiciosCaracteristicas = Dv.ToTable - ' Dv.Dispose() - ' Else - ' GlobalDTProductosServiciosCaracteristicas = DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable) - ' End If - ' End Get - ' Set(value As DataTable) - ' Application("GlobalDTProductosServiciosCaracteristicas") = value - ' End Set - 'End Property + Property GlobalDTProductosServiciosCaracteristicas(CveEmpresa As Integer) As DataTable + Get + If CveEmpresa <> -1 Then + Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) + GlobalDTProductosServiciosCaracteristicas = Dv.ToTable + Dv.Dispose() + Else + GlobalDTProductosServiciosCaracteristicas = DirectCast(Application("GlobalDTProductosServiciosCaracteristicas"), DataTable) + End If + End Get + Set(value As DataTable) + Application("GlobalDTProductosServiciosCaracteristicas") = value + End Set + End Property Property GlobalDTPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTPSAdicionales-{CveEmpresa}" @@ -1697,20 +1695,20 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - 'Property GlobalDTProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer) As DataTable - ' Get - ' If CveEmpresa <> -1 Then - ' Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) - ' GlobalDTProductosServiciosCaracteristicasOpciones = Dv.ToTable - ' Dv.Dispose() - ' Else - ' GlobalDTProductosServiciosCaracteristicasOpciones = DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable) - ' End If - ' End Get - ' Set(value As DataTable) - ' Application("GlobalDTProductosServiciosCaracteristicasOpciones") = value - ' End Set - 'End Property + Property GlobalDTProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer) As DataTable + Get + If CveEmpresa <> -1 Then + Dim Dv As New DataView(DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) + GlobalDTProductosServiciosCaracteristicasOpciones = Dv.ToTable + Dv.Dispose() + Else + GlobalDTProductosServiciosCaracteristicasOpciones = DirectCast(Application("GlobalDTProductosServiciosCaracteristicasOpciones"), DataTable) + End If + End Get + Set(value As DataTable) + Application("GlobalDTProductosServiciosCaracteristicasOpciones") = value + End Set + End Property Property GlobalDTInvMetodosInventario() As DataTable Get Dim AppNombre As String = $"GlobalDTInvMetodosInventario" diff --git a/Contratos/Estimaciones.aspx.vb b/Contratos/Estimaciones.aspx.vb index afd08771d..a4804defb 100644 --- a/Contratos/Estimaciones.aspx.vb +++ b/Contratos/Estimaciones.aspx.vb @@ -59,7 +59,7 @@ Partial Class Contratos_Estimaciones DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub Private Sub CargaClasificacion() - DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1")) End Sub diff --git a/Contratos/RepContratos.aspx.vb b/Contratos/RepContratos.aspx.vb index 862ba07a6..f4ea8b85f 100644 --- a/Contratos/RepContratos.aspx.vb +++ b/Contratos/RepContratos.aspx.vb @@ -60,7 +60,7 @@ Partial Class RepContratos DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub Private Sub CargaClasificacion() - DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1")) End Sub diff --git a/Contratos/RepContratosDetalle.aspx.vb b/Contratos/RepContratosDetalle.aspx.vb index 95da1ce79..5d2bafd75 100644 --- a/Contratos/RepContratosDetalle.aspx.vb +++ b/Contratos/RepContratosDetalle.aspx.vb @@ -60,7 +60,7 @@ Partial Class RepContratos DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub Private Sub CargaClasificacion() - DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1")) End Sub diff --git a/Flotillas/CatCombustibles.aspx.vb b/Flotillas/CatCombustibles.aspx.vb index 03c6e5879..c79e181a3 100644 --- a/Flotillas/CatCombustibles.aspx.vb +++ b/Flotillas/CatCombustibles.aspx.vb @@ -33,14 +33,14 @@ Partial Class Maq_CatCombustibles If ObjFlotilla.GetCombustiblesTipos(UsuarioActual.CveEmpresa) Then ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados + GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatosCombustiblesTipos.DataSource = Nothing End If - If ObjFlotilla.GetCombustibles() Then + If ObjFlotilla.GetCombustibles(UsuarioActual.CveEmpresa) Then ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados + GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatosCombustibles.DataSource = Nothing End If @@ -75,7 +75,7 @@ Partial Class Maq_CatCombustibles Alert("El nuevo Combustible se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCombustibles.Update() ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados + GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString(), 0) @@ -126,7 +126,7 @@ Partial Class Maq_CatCombustibles If ObjFlotilla.RemoveCombustibles(GvDatosCombustibles.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatosCombustibles.EditIndex = -1 ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados + GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing Alert("El Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -189,7 +189,7 @@ Partial Class Maq_CatCombustibles Alert("El nuevo Tipo de Combustible se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCombustiblesTipos.Update() ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados + GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString(), 1) @@ -221,7 +221,7 @@ Partial Class Maq_CatCombustibles If ObjFlotilla.RemoveCombustiblesTipos(GvDatosCombustiblesTipos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatosCombustiblesTipos.EditIndex = -1 ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados + GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing Alert("El Tipo de Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -255,7 +255,7 @@ Partial Class Maq_CatCombustibles If ObjFlotilla.UpdateCombustiblesTipos(CombustibleTipo, EstatusCombustibleTipo, CveCombustibleTipo) Then GvDatosCombustiblesTipos.EditIndex = -1 ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados + GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/General/CatProductosServiciosCaracteristicas.aspx.vb b/General/CatProductosServiciosCaracteristicas.aspx.vb index d0e6ccfec..df4c3adfd 100644 --- a/General/CatProductosServiciosCaracteristicas.aspx.vb +++ b/General/CatProductosServiciosCaracteristicas.aspx.vb @@ -40,9 +40,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios Public Sub CargaDatos() Dim ObjCaracteristicas As New ClsGralProductosServiciosCaracteristicas - If ObjCaracteristicas.GetProductosServiciosCaracteristicas() Then + If ObjCaracteristicas.GetProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) Then ViewState("DTProductosServiciosCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados + 'GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados Else Me.GvDatosCaracteristicas.DataSource = Nothing End If @@ -56,9 +56,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios Public Sub CargaDatosO() Dim ObjOpciones As New ClsGralProductosServiciosCaracteristicas - If ObjOpciones.GetProductosServiciosCaracteristicasOpciones() Then + If ObjOpciones.GetProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) Then ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados + 'GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados Else GvDatosOpciones.DataSource = Nothing End If diff --git a/OS/PopUpMateriales.aspx.vb b/OS/PopUpMateriales.aspx.vb index 1dadf3c2e..c2ea18ead 100644 --- a/OS/PopUpMateriales.aspx.vb +++ b/OS/PopUpMateriales.aspx.vb @@ -96,7 +96,7 @@ Partial Class OS_PopUpMateriales End Sub Private Sub CargaClasificaciones() - DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataBind() End Sub @@ -129,7 +129,7 @@ Partial Class OS_PopUpMateriales Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero - Dim Clasificacion As String = GlobalDTClasificaciones.FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString + Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString AddPS(Material("CveMaterialUtilizado").ToString.ToEntero, CveOSDetalle, Material("Cantidad").ToString.ToDecimal, CveUnidadMedida, UM, Material("CvePS").ToString.ToEntero, PS, CveClasificacion, Clasificacion, Material("SeFacturara").ToString) Next @@ -176,7 +176,7 @@ Partial Class OS_PopUpMateriales e.Row.FCDropDownList("DdlPS").DataBind() e.Row.FCDropDownList("DdlPS").SelectedValue = e.Row.DBCampo("CvePS") - e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlClasificacion").DataBind() e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion") End If diff --git a/Prospectos/CatClasificacionesCaracteristicas.aspx.vb b/Prospectos/CatClasificacionesCaracteristicas.aspx.vb index a6d181150..8adb866b3 100644 --- a/Prospectos/CatClasificacionesCaracteristicas.aspx.vb +++ b/Prospectos/CatClasificacionesCaracteristicas.aspx.vb @@ -56,7 +56,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas If (ViewState("DTClasificacionesCaracteristicas") Is Nothing) Then ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados End If - GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatosCl.DataSource = Nothing End If @@ -77,7 +77,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas Alert("La nueva Clasificación de Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion) 'UpTitulos.Update() ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing CambioClasificacionesCaracteristicas() End If @@ -186,7 +186,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataBind() e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaClasificacion") End If @@ -199,11 +199,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas End Sub Private Sub CargaClasificaciones() DdlCaracteristicaClasificacion.Items.Clear() - DdlCaracteristicaClasificacion.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlCaracteristicaClasificacion.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) DdlCaracteristicaClasificacion.DataBind() DdlCaracteristicaClasificacionC.Items.Clear() - DdlCaracteristicaClasificacionC.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlCaracteristicaClasificacionC.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) DdlCaracteristicaClasificacionC.DataBind() End Sub Protected Sub BtnDuplicarCaracteristicaTipo_Click(sender As Object, e As EventArgs) Handles BtnDuplicarCaracteristicaTipo.Click @@ -219,7 +219,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion) 'UpTitulos.Update() ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados + GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing CambioCaracteristicaTipo() End If @@ -292,11 +292,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas Private Sub CargaTiposCaracteristicas() DdlCaracteristicaTipo.Items.Clear() - DdlCaracteristicaTipo.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlCaracteristicaTipo.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) DdlCaracteristicaTipo.DataBind() DdlCaracteristicaTipoO.Items.Clear() - DdlCaracteristicaTipoO.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlCaracteristicaTipoO.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) DdlCaracteristicaTipoO.DataBind() End Sub Protected Sub GvDatosCaracteristicas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosCaracteristicas.RowDataBound @@ -316,7 +316,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataBind() e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaTipo") @@ -382,7 +382,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas If (ViewState("DTTiposCaracteristicas") Is Nothing) Then ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados End If - GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatos.DataSource = Nothing End If @@ -415,7 +415,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion) 'UpTitulos.Update() ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing CambioCaracteristicaTipo() End If @@ -564,7 +564,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas If ObjClasificaciones.RemoveClasificacionesCaracteristicas(GvDatosCl.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvDatosCl.EditIndex = -1 ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("La Clasificacion de Tipo de Caracteristica se eliminó correctamente.", TipoMensaje.MsgInformacion) CambioClasificacionesCaracteristicas() @@ -578,7 +578,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas If ObjTiposCaracteristicas.RemoveTiposCaracteristicas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvDatos.EditIndex = -1 ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing Alert("El Tipo de Característica se eliminó correctamente.", TipoMensaje.MsgInformacion) CambioCaracteristicaTipo() @@ -661,7 +661,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas If ObjClasificaciones.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaClasificacion) Then GvDatosCl.EditIndex = -1 ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) CambioClasificacionesCaracteristicas() @@ -681,7 +681,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas If ObjTiposCaracteristicas.UpdateTiposCaracteristicas(CaracteristicaTipo, CveCaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaTipo) Then GvDatos.EditIndex = -1 ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) CambioCaracteristicaTipo() diff --git a/Prospectos/CatProspectosApoyos.aspx.vb b/Prospectos/CatProspectosApoyos.aspx.vb index 4c4b8db6f..6639678e5 100644 --- a/Prospectos/CatProspectosApoyos.aspx.vb +++ b/Prospectos/CatProspectosApoyos.aspx.vb @@ -18,9 +18,9 @@ Partial Class Prospectos_CatProspectosApoyos Public Sub CargaDatos() Dim ObjProspectosApoyos As New ClsProspectos - If ObjProspectosApoyos.GetProspectoApoyo() Then - ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados + If ObjProspectosApoyos.GetProspectoApoyo(UsuarioActual.CveEmpresa) Then + ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados + GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatos.DataSource = Nothing End If @@ -40,8 +40,8 @@ Partial Class Prospectos_CatProspectosApoyos TxtProspectoApoyo.Text = "" Alert("El nuevo Apoyo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() - ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados + ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados + GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -72,7 +72,7 @@ Partial Class Prospectos_CatProspectosApoyos If ObjProspectosApoyos.RemoveProspectoApoyo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados + GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing Alert("El Apoyo se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -103,7 +103,7 @@ Partial Class Prospectos_CatProspectosApoyos If ObjProspectosApoyos.UpdateProspectoApoyo(ProspectoApoyo, Estatus, CveProspectoApoyo) Then GvDatos.EditIndex = -1 ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados + GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/Prospectos/CatProspectosApoyosTipos.aspx.vb b/Prospectos/CatProspectosApoyosTipos.aspx.vb index 0c6ff5279..70ab05df9 100644 --- a/Prospectos/CatProspectosApoyosTipos.aspx.vb +++ b/Prospectos/CatProspectosApoyosTipos.aspx.vb @@ -18,9 +18,9 @@ Partial Class Prospectos_CatProspectosApoyosTipos Public Sub CargaDatos() Dim ObjApoyoTipo As New ClsProspectos - If ObjApoyoTipo.GetApoyoTipo() Then - ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados + If ObjApoyoTipo.GetApoyoTipo(UsuarioActual.CveEmpresa) Then + ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados + GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatos.DataSource = Nothing End If @@ -40,8 +40,8 @@ Partial Class Prospectos_CatProspectosApoyosTipos TxtApoyoTipo.Text = "" Alert("El nuevo Tipo de Apoyo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() - ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados + ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados + GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -72,7 +72,7 @@ Partial Class Prospectos_CatProspectosApoyosTipos If ObjApoyoTipo.RemoveApoyoTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados + GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing Alert("El Tipo de Apoyo se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -102,7 +102,7 @@ Partial Class Prospectos_CatProspectosApoyosTipos If ObjApoyoTipo.UpdateApoyoTipo(ApoyoTipo, Estatus, CveApoyoTipo) Then GvDatos.EditIndex = -1 ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados + GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/Prospectos/RedesCallCenter.aspx.vb b/Prospectos/RedesCallCenter.aspx.vb index da8742f7f..8234b79d8 100644 --- a/Prospectos/RedesCallCenter.aspx.vb +++ b/Prospectos/RedesCallCenter.aspx.vb @@ -97,7 +97,7 @@ Partial Class Prospectos_RedesCallCenter GvPreguntas.DataSource = ObjProsEncuestas.DtResultados DTProspectosPreguntas = ObjProsEncuestas.DtResultados - If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta) Then + If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta, UsuarioActual.CveEmpresa) Then DTProspectosRespuestas = ObjProsEncuestas.DtResultados End If diff --git a/Prospectos/RedesEncuestas.aspx.vb b/Prospectos/RedesEncuestas.aspx.vb index b0e2ade0c..0d90d6dc3 100644 --- a/Prospectos/RedesEncuestas.aspx.vb +++ b/Prospectos/RedesEncuestas.aspx.vb @@ -463,7 +463,7 @@ Partial Class Prospectos_RedesEncuestas GvPreguntas.DataSource = ObjProsEncuestas.DtResultados DTProspectosPreguntas = ObjProsEncuestas.DtResultados - If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta) Then + If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta, UsuarioActual.CveEmpresa) Then DTProspectosRespuestas = ObjProsEncuestas.DtResultados End If diff --git a/Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb b/Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb index 4e497a722..4035126bb 100644 --- a/Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb +++ b/Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb @@ -22,9 +22,8 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus Public Sub CargaDatos() Dim ObjProspectosEstatus As New ClsProspectos - If ObjProspectosEstatus.GetSolicitudEstatus() Then - ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados + If ObjProspectosEstatus.GetSolicitudEstatus(UsuarioActual.CveEmpresa) Then + ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -45,7 +44,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus Alert("El nuevo Estatus se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados + GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -126,7 +125,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus If ObjProspectosEstatus.RemoveSolicitudEstatus(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados + GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing Alert("El Estatus se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -159,7 +158,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus If ObjProspectosEstatus.UpdateSolicitudEstatus(SolicitudEstatus, Estatus, CveSolicitudEstatus) Then GvDatos.EditIndex = -1 ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados + GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb b/Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb index 7c75a1edc..1d714497b 100644 --- a/Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb +++ b/Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb @@ -22,9 +22,9 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos Public Sub CargaDatos() Dim ObjSolicitudTipo As New ClsProspectos - If ObjSolicitudTipo.GetSolicitudTipo() Then - ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados + If ObjSolicitudTipo.GetSolicitudTipo(UsuarioActual.CveEmpresa) Then + ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados + GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing Else Me.GvDatos.DataSource = Nothing End If @@ -45,7 +45,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos Alert("El nuevo Tipo de Solicitud se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados + GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -126,7 +126,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos If ObjSolicitudTipo.RemoveSolicitudTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados + GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing Alert("El Tipo de Solicitud se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -159,7 +159,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos If ObjSolicitudTipo.UpdateSolicitudTipo(SolicitudTipo, Estatus, CveSolicitudTipo) Then GvDatos.EditIndex = -1 ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados + GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 58cea5074..1e88d9a3e 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -366,23 +366,23 @@ Partial Class Sistemas_CatSesiones End Sub Private Sub cargaAC() Using ObjAC As New ClsAC - If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing - If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing - If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing + If ObjAC.GetClasificacionFuncional(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing + If ObjAC.GetClasificacionGeografica(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing + If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing - If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing - If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing - If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing + If ObjAC.GetUnidadesAdministrativas(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing + If ObjAC.GetClasificacionAdministrativa(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing + If ObjAC.GetPD_EjeRector(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing - If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing - If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing + If ObjAC.GetProgramaOperativo(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing + If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing - If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing + If ObjAC.GetFuentesRecaudacion(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing @@ -509,7 +509,7 @@ Partial Class Sistemas_CatSesiones Private Sub CargaProsCla() Dim Prosp As New ClsProspectos - If Prosp.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = Prosp.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing + If Prosp.GetClasificacion(UsuarioActual.CveEmpresa) Then Application("GlobalDTProspectosClasificaciones") = Prosp.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing Prosp.Dispose() End Sub @@ -583,21 +583,21 @@ Partial Class Sistemas_CatSesiones Private Sub CargaCONAC() Dim ObjAC As New ClsAC - If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing + If ObjAC.GetClasificacionFuncional(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing - If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing + If ObjAC.GetClasificacionGeografica(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing - If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing + If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing - If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing + If ObjAC.GetUnidadesAdministrativas(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing - If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing + If ObjAC.GetClasificacionAdministrativa(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing - If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing + If ObjAC.GetPD_EjeRector(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing @@ -609,13 +609,13 @@ Partial Class Sistemas_CatSesiones If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing - If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing + If ObjAC.GetProgramaOperativo(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing - If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing + If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing - If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing + If ObjAC.GetFuentesRecaudacion(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing @@ -646,7 +646,7 @@ Partial Class Sistemas_CatSesiones Private Sub CargarCombustible() Dim ObjFlotillas As New ClsFlotillas - If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing + If ObjFlotillas.GetCombustibles(UsuarioActual.CveEmpresa) Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing ObjFlotillas.Dispose() End Sub diff --git a/Ventas/CatClasificacionesDetalle.aspx.vb b/Ventas/CatClasificacionesDetalle.aspx.vb index bec440813..47e242f3b 100644 --- a/Ventas/CatClasificacionesDetalle.aspx.vb +++ b/Ventas/CatClasificacionesDetalle.aspx.vb @@ -82,12 +82,12 @@ Partial Class CatClasificacionesDetalle Private Sub CargaGlobal() Dim ObjClasificaciones As New ClsClasificaciones - If ObjClasificaciones.GetClasificaciones() Then - GlobalDTClasificaciones = ObjClasificaciones.DtResultados - Else - Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError) - End If - + 'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then + ' GlobalDTClasificaciones = ObjClasificaciones.DtResultados + 'Else + ' Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError) + 'End If + GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados End If diff --git a/Ventas/CatFamiliaSubFamilia.aspx.vb b/Ventas/CatFamiliaSubFamilia.aspx.vb index d9968d5cc..56eb761f7 100644 --- a/Ventas/CatFamiliaSubFamilia.aspx.vb +++ b/Ventas/CatFamiliaSubFamilia.aspx.vb @@ -76,8 +76,7 @@ Partial Class Ventas_CatFamiliaSubFamilia Public Sub CargaDatosS() Dim ObjClasificaciones As New ClsClasificaciones - If ObjClasificaciones.GetClasificaciones(-1, 2) Then - GlobalDTSubFamilias = ObjClasificaciones.DtResultados + If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then ViewState("DTSubFamilias") = GlobalDTSubFamilias(UsuarioActual.CveEmpresa) Else GvDatosS.DataSource = Nothing @@ -197,9 +196,9 @@ Partial Class Ventas_CatFamiliaSubFamilia Alert("La nueva SubFamilia se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosS.Update() - If ObjClasificaciones.GetClasificaciones(-1, 2) Then - ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - GlobalDTSubFamilias = ObjClasificaciones.DtResultados + If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then + ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados + GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing End If 'DdlCuentaGastoS.SelectedValue = "-1" @@ -290,9 +289,9 @@ Partial Class Ventas_CatFamiliaSubFamilia Dim ObjClasificaciones As New ClsClasificaciones If ObjClasificaciones.RemoveClasificacion(GvDatosS.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatosS.EditIndex = -1 - If ObjClasificaciones.GetClasificaciones(-1, 2) Then - ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - GlobalDTSubFamilias = ObjClasificaciones.DtResultados + If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then + ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados + GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing End If Alert("La SubFamilia se eliminó correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb index 087af1283..65e31729e 100644 --- a/Ventas/CatPS.aspx.vb +++ b/Ventas/CatPS.aspx.vb @@ -51,7 +51,7 @@ Partial Class CatPS End Sub Public Sub CargaClasificaciones() - Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0} AND (UsoClasificacion = {1} OR {1} = -1)", UsuarioActual.CveEmpresa, DdlTipoClasificacion.SelectedValue.ToEntero)) + Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue.ToEntero)) Ddlclasificacion.DataBind() Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ac075bd59..ebe60dbda 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -898,7 +898,7 @@ Partial Class Ventas_ClientesAbonar For Each Gvr As GridViewRow In GvCxC.Rows If Gvr.FCCheckBox("Chk").Checked Then - CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero + CveSubProyectoMaximo = Gvr.DataKey("CveSubProyecto").ToEntero Exit For End If Next @@ -1225,9 +1225,9 @@ Partial Class Ventas_ClientesAbonar End If End If - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then + If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then If ObjMov.ValorPolizaDescuadre > 0 Then - MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia + MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia End If End If diff --git a/Ventas/PopUpBuscarPs.aspx.vb b/Ventas/PopUpBuscarPs.aspx.vb index 986ee61da..ba278141d 100644 --- a/Ventas/PopUpBuscarPs.aspx.vb +++ b/Ventas/PopUpBuscarPs.aspx.vb @@ -28,7 +28,7 @@ Partial Class PopUpBuscarPs #Region " INICIALIZA VALORES " Private Sub CargaClasificaciones() - Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) Ddlclasificacion.DataBind() Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index cd8b91676..5430bba37 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -657,7 +657,7 @@ Partial Class ProductosyServicios If ObjOpciones.UpdateProductosServiciosCaracteristicasOpciones(Opcion, CveCaracteristica, CveOpcion) Then GvDatosOpciones.EditIndex = -1 ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados + GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) CambioProductosServiciosCaracteristicasOpciones()