diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 35b9b9014..f03c95e9e 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2932,6 +2932,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim RowsCargados As Integer = 0
             Dim RowsNoCargados As Integer = 0
             Dim NoPSConSerie As Integer = 0
+            DtMovimientos.Clear()
             Try
                 Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
@@ -2970,23 +2971,23 @@ 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
-                                        ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
-                                    End If
+                                If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
+                                    Valido = False
+                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").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
+                                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
+                            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("PSCodigo").ToString())
+                            End If
 
                             Else
                                 RowsNoCargados = RowsNoCargados + 1