-

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