-- editar direcciones de envío/entrega

Ventas/Ventas.aspx.vb

@@ -4673,6 +4673,7 @@ Partial Class Ventas
                     ChkDireccionEnvio.Enabled = False
                     DdlDireccionEnvio.Visible = True
                     trDireccionEnvio.Visible = True
+                    If UsuarioActual.TienePermisoProceso(333) Then LnkEditarDir.Visible = True
                 End If
 
                 'ESTATUS FACTURA
@@ -32632,5 +32633,28 @@ Partial Class Ventas
         Public Property CveVenta As Integer
         Public Property FolioFiscal As String
     End Class
+
+    Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
+        DdlDireccionEnvio.Enabled = True
+        LnkEditarDir.Visible = False
+        LnkAplicarDir.Visible = True
+    End Sub
+
+    Protected Sub LnkAplicarDir_Click(sender As Object, e As EventArgs)
+        Dim ProcesoOK As Boolean = True
+
+        Dim ObjVentas As New ClsVentas()
+        If Not ObjVentas.UpdateDireccionEnvioVenta(CveVenta, DdlDireccionEnvio.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            Alert("Dirección Actualizada correctamente.", ModExtensiones.TipoMensaje.ToastInformacion)
+            LnkAplicarDir.Visible = False
+            LnkEditarDir.Visible = True
+        End If
+
+    End Sub
 End Class