cambio de nombre de variable

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1472,10 +1472,18 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim ErrorMovInv As Boolean = False
             Dim TextoError = ""
 
+            '' verifica que no se halla recibido previamente, si ya se recibió da salida
             If ObjInventario.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then
                 Dtt = ObjInventario.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4"), "", {"Codigo", "Cantidad"})
-            End If
-            'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
+                If Dtt IsNot Nothing AndAlso Dtt.FiltraParametros("Cantidad < 0").Rows.Count > 0 Then
+
+                    ObjInventario.Dispose()
+                    Alert("El traspaso no se ha puede completar, por inconsistencia en las cantidades recibidas")
+                    Exit Sub
+                End If
+            End If
+
+            'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
             ObjInventario.IniciaTransacSQL() 'Inicia la transacción
             Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate