-- editar direcciones de envío/entrega

Ventas/Ventas.aspx

@@ -496,7 +496,8 @@
                                                 <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
                                         </span>
-
+                                        <asp:LinkButton ID="LnkEditarDir" runat="server" OnClick="LnkEditarDir_Click" AlternateText="Editar Dirección" Visible="false" ToolTip="Editar Dirección" CausesValidation="False" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" /> 
+                                        <asp:LinkButton ID="LnkAplicarDir" runat="server" OnClick="LnkAplicarDir_Click" AlternateText="Actualizar Dirección" Visible="false" ToolTip="Actualizar Dirección" CausesValidation="False" CssClass="btn btn-circle btn-xs blue" Text="<i class='fa fa-check'></i>" /> 
                                         <asp:LinkButton ID="LnkOtraDireccion" runat="server" Text="Otra dirección?" Visible="false"></asp:LinkButton>
                                     </table>
                                 </td>

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