diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index ec06bffbd..537378182 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/OS/RepOSMedicas.aspx.vb @@ -2,18 +2,11 @@ Option Strict On Imports System.Data -Imports System.Web.Compilation Imports Extensiones -Imports Microsoft.Reporting.WebForms -Imports System.Xml.Serialization -Imports System.IO -Imports System.Xml Partial Class OS_RepOSMedicas Inherits ClsPaginas - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") @@ -28,21 +21,15 @@ Partial Class OS_RepOSMedicas #Region " CARGA COMBOS " - - Private Sub CargaCombos() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) - 'CargaEstatus DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) DdlEstatusOS.DataBind() DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1")) - - - Dim DTTecnicos = New DataTable - + Dim DTTecnicos As New DataTable Dim ObjUsuarios As New ClsSisUsuarios If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then @@ -134,7 +121,6 @@ Partial Class OS_RepOSMedicas #End Region - Private Sub CargaClientes() DdlClientes.ddl.Items.Clear() DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) '.FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") @@ -147,8 +133,6 @@ Partial Class OS_RepOSMedicas End Sub - - #Region " GV DATOS - ROW DATABOUND " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -172,18 +156,9 @@ Partial Class OS_RepOSMedicas GvDatos.ExportToExcelGembox("OrdenesServicio", UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) - End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub - - - - - - - - End Class