From 2329da1d6290de1c10aae8fba05f9108396cdc0a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 22 May 2020 18:48:46 -0700
Subject: [PATCH] Timeout en traspasos

---
 Inventarios/TraspasoAlmacen.aspx.vb | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 0d8762b4d..55ee7d78a 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/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()