diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 97a972044..35b9b9014 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2933,11 +2933,10 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim RowsNoCargados As Integer = 0
             Dim NoPSConSerie As Integer = 0
             Try
-                Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
+                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
                     If RowExcel("Codigo").ToString() <> "" Then
 
-
                         Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
                         Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
@@ -2954,7 +2953,7 @@ Partial Class Inventarios_TraspasoAlmacen
                             Dim Valido As Boolean = True
                             Dim ValidarLote As Boolean = True
 
-                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero = 6 Then
+                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}") = "6" Then
                                 ValidarLote = False
                             End If