Servicio a domicilio, alta y actualizacion en reporte

Inventarios/TraspasoAlmacen.aspx.vb

@@ -3354,6 +3354,29 @@ 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