From 3c9eade0271484cef460f1807a737aaa67802781 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 1 Dec 2023 12:29:22 -0700
Subject: [PATCH] - mejora en error

---
 Inventarios/TraspasoAlmacen.aspx.vb | 32 ++++++++++++++---------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 0bda8fec3..fb530b8b3 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1256,7 +1256,7 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
         'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
-        If ErrorExistencia Then
+        If ErrorExistencia AndAlso Not ErrorMovInv Then
             CargaGvDatos()
         End If
         ObjConta.Dispose()
@@ -2970,26 +2970,26 @@ Partial Class Inventarios_TraspasoAlmacen
                             End If
 
                             If Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then
-                                If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
-                                    Valido = False
+                                    If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
+                                        Valido = False
+                                        ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                    End If
+                                End If
+
+                                If Valido Then
+                                    Valido = ValidaExistencia(Cantidad, CveProducto, CveUnidadMedida, -1, If(Not String.IsNullOrEmpty(Serie), Serie, "-1"), If(Not String.IsNullOrEmpty(Lote), Lote, "-1"), FechaCaducidad)
+                                End If
+
+                                If Valido Then
+                                    AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
+                                    RowsCargados = RowsCargados + 1
+                                Else
+                                    RowsNoCargados = RowsNoCargados + 1
                                     ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
                                 End If
-                            End If
 
-                            If Valido Then
-                                Valido = ValidaExistencia(Cantidad, CveProducto, CveUnidadMedida, -1, If(Not String.IsNullOrEmpty(Serie), Serie, "-1"), If(Not String.IsNullOrEmpty(Lote), Lote, "-1"), FechaCaducidad)
-                            End If
-
-                            If Valido Then
-                                AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
-                                RowsCargados = RowsCargados + 1
                             Else
                                 RowsNoCargados = RowsNoCargados + 1
-                                ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
-                            End If
-
-                        Else
-                            RowsNoCargados = RowsNoCargados + 1
                             ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
                         End If
                     End If