From 47f1ae8925ebbe432d1d5c48515aa991a3ba7d8b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 16 Jan 2023 06:23:12 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/TraspasoAlmacen.aspx.vb | 23 -----------------------
 1 file changed, 23 deletions(-)

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