Timeout en traspasos

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1419,13 +1419,22 @@ Partial Class Inventarios_TraspasoAlmacen
         CargaRecepcion()
     End Sub
     Private Sub CargaRecepcion()
-        Dim ObjInventarios As New ClsInventarios
+
         Dim Dtt As DataTable = Nothing
 
         FolioBusqueda = If(TxtFolioRecepcion.Text = "", -1, TxtFolioRecepcion.Text.ToEntero)
 
+        Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetMovimientosTransitorios(DdlAlmacenRecepcion.SelectedValue.ToEntero, -1, DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then
             Dtt = ObjInventarios.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4"))
+        Else
+            Alert("Ocurrió un error al consultar los movimientos transitorios. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Dtt = Nothing
+        End If
+        ObjInventarios.Dispose()
+
+        If Dtt IsNot Nothing Then
+
             If TxtFolioRecepcion.Text.Trim <> "" Then
                 CveMovimientoSalida = ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimiento", "").ToEntero
 
@@ -1433,14 +1442,7 @@ Partial Class Inventarios_TraspasoAlmacen
             CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero
             CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
             'CveUsuarioResponsable = DdlResponsableRecepcion.SelectedValue.ToEntero
-        Else
-            Alert("Ocurrió un error al consultar los movimientos transitorios. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Dtt = Nothing
-        End If
 
-        ObjInventarios.Dispose()
-
-        If Dtt IsNot Nothing Then
             GvDatosRecepcion.DataSource = Dtt
             GvDatosRecepcion.DataBind()