diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index b4088ea7e..076f9ac39 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -3354,29 +3354,6 @@ Partial Class Inventarios_TraspasoAlmacen
         Return Respuesta
     End Function
 
-    Private Sub CargaDireccionesEnvio()
-        Dim ObjClientes As New ClsClientes
-        Dim TieneError = False
-
-        DdlDireccionEnvio.Items.Clear()
-        If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
-            DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
-            DdlDireccionEnvio.DataBind()
-            'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            TmpDTEnvioDireccion = ObjClientes.DtResultados
-        Else
-            TieneError = True
-        End If
-
-        If TieneError Then
-            Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
-        End If
-
-        ObjClientes.Dispose()
-        UpCliente.Update()
-
-    End Sub
-
 #End Region
 End Class