diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index fb530b8b3..d9e7eb460 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -518,12 +518,6 @@ Partial Class Inventarios_TraspasoAlmacen
         DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
     End Sub
     Private Sub CargaPS()
-        'DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
-        'If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
-        '    DdlProducto2.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
-        '    DdlProducto2.DataBind()
-        'End If
 
         Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         DdlProducto2.setEsWebService(EsWS)
@@ -536,9 +530,9 @@ Partial Class Inventarios_TraspasoAlmacen
                 CargaExistenciasSucursal()
                 DdlAlmacenOrigen.AutoPostBack = True
             End If
-            'ElseIf Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
-            '    DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros("CveTipoPS = 2")
-            '    DdlProducto2.DataBind()
+        Else
+            DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            DdlProducto2.DataBind()
         End If
 
     End Sub