Filtros en remisiones y reembolsos comprobaciones

Ventas/RepRemisionesDetalle.aspx.vb

@@ -165,11 +165,11 @@ Partial Class RepRemisionesDetalle
                 DtVentas = ObjVentas.DtResultados
             End If
             GvDatos.DataSource = DtVentas
-            GvDatos.DataBind()
-            UPDatos.Update()
         End If
-
-        ObjVentas.Dispose()
+        ObjVentas.Dispose()
+
+        GvDatos.DataBind()
+        UPDatos.Update()
     End Sub
     Public Sub CargaCombos()
         CargaCliente()
@@ -207,21 +207,10 @@ Partial Class RepRemisionesDetalle
         DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyectos.DataBind()
         'DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-#End Region
-
-#Region "O R D E N A M I E N T O"
-    Private Sub OrdenaDatos()
-        If (GvDatos.Rows.Count > 0) Then
-            GvDatos.UseAccessibleHeader = True
-            GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGV();")
-        End If
-    End Sub
-#End Region
-
-
-
+    End Sub
+#End Region
+
+
 #Region "G V - D A T O S "
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -230,13 +219,11 @@ Partial Class RepRemisionesDetalle
                 e.Row.Cells(2).ForeColor = Drawing.Color.Red
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
-#Region "CARGA COMBOS FILTRO"
-#End Region
-
-
+
+
+
 #Region "PDF"
     Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         If DtVentas IsNot Nothing Then