diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 92c12c3b0..c63c3587b 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -163,6 +163,7 @@
                                             <td>Dirección Envío:</td>
                                             <td>
                                                 <asp:Label Text="" ID="LblDirEnvio" runat="server" />
+                                                <asp:LinkButton ID="LnkEditarDir" runat="server" OnClick="LnkEditarDir_Click" AlternateText="Editar Dirección" ToolTip="Editar Dirección"   CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" /> 
                                             </td>
                                         </tr>
                                     </table>
@@ -279,6 +280,44 @@
 
         </div>
 
+        
+        <div id="DivEditarEntrega" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpModalEditarentrega" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H1" runat="server">Editar Dirección</h4>
+                    </div>
+                    <div class="modal-body"> 
+
+                        <div class="row">
+                                <div class="form-group col-md-6 form-md-line-input input-iconright">
+                                    <asp:HiddenField ID="HdnCveVenta" runat="server" />
+                                    <asp:DropDownList ID="DdlModalDireccionEnvio" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="DireccionEnvio" DataValueField="CveDireccionEnvio" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
+                                    <label for="<%= DdlModalDireccionEnvio.ClientID.ToString()%>">Dirección Origen:</label>
+                                </div>
+                                <asp:RequiredFieldValidator ID="RfvDdlModalDireccionEnvio" runat="server" ControlToValidate="DdlModalDireccionEnvio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dirección Origen''</b> es necesario." InitialValue="-1" ValidationGroup="GrpModalEditarentrega"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VceDdlModalDireccionEnvio" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalDireccionEnvio" Width="250px" PopupPosition="BottomLeft"></ajax:ValidatorCalloutExtender>
+                            </div> 
+                         
+                        
+                    </div>
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server">
+                            <ContentTemplate>
+                                <asp:Button ID="BtnModalEditarentrega" runat="server" OnClick="BtnModalEditarentrega_Click" CssClass="btn btn-success" Text="Actualizar" ValidationGroup="GrpModalEditarentrega" />                        
+                                <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 
         <asp:UpdatePanel ID="UpPendientes" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index fe7e8b337..605de65fd 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -221,6 +221,14 @@ Partial Class Inventarios_EntregaAlmacen
             ViewState("CveCliente") = value
         End Set
     End Property
+    Private Property CveDireccionEnvio As Integer
+        Get
+            Return CType(ViewState("CveDireccionEnvio"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("CveDireccionEnvio") = value
+        End Set
+    End Property
     Private Property CveMovimiento As Integer
         Get
             Return CType(ViewState("CveMovimiento"), Integer)
@@ -598,20 +606,21 @@ Partial Class Inventarios_EntregaAlmacen
                     trObsAlmacen.Visible = drE("ObservacionesAlmacen").ToString() <> ""
                     LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString()
                     CveVentaSurtir = CveVenta
-                    CveAlmacenTraspasoDestino = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
-                    CveAlmacenTraspasoOrigen = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
-                    CveContrato = DtDatos.Rows(0)("CveContrato").ToString().ToEntero()
-                    CveVendedor = DtDatos.Rows(0)("CveVendedor").ToString().ToEntero()
-                    CveCliente = DtDatos.Rows(0)("CveCliente").ToString().ToEntero()
+                    CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
+                    CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
+                    CveContrato = drE("CveContrato").ToString().ToEntero()
+                    CveVendedor = drE("CveVendedor").ToString().ToEntero()
+                    CveCliente = drE("CveCliente").ToString().ToEntero()
                     ClienteEntregaPersonal(CveCliente)
-                    CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString().ToEntero()
+                    CveSubProyecto = drE("CveSubProyecto").ToString().ToEntero()
                     EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
+                    CveDireccionEnvio = drE("CveDireccionEnvio").ToString.ToEntero
 
-                    If drE("CveDireccionEnvio").ToString.ToEntero > 0 Then
+                    If CveDireccionEnvio > 0 Then
                         trDireccionEnvio.Visible = True
                         'carga la dirección de envío
                         Dim ObjClientes As New ClsClientes
-                        If ObjClientes.DireccionEnvioGet(drE("CveDireccionEnvio").ToString.ToEntero, CveCliente, -1) Then
+                        If ObjClientes.DireccionEnvioGet(CveDireccionEnvio, CveCliente, -1) Then
                             Dim drenvio As DataRow = ObjClientes.DtResultados.FiltroPrimero("")
                             LblDirEnvio.Text = drenvio("SucursalClienteVentaDireccion").ToString
                         End If
@@ -3988,4 +3997,69 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 
 #End Region
+
+
+    'Protected void LnkEditarDir_Click(Object sender, EventArgs e)
+    '{
+
+
+    '    int CveCliente = GvRow.DataKey("CveCliente").ToEntero();
+    '    int CveDireccion = GvRow.DataKey("CveDireccionEnvio").ToEntero();
+
+    '    HdnCveVenta.Value = GvRow.DataKey("CveVenta");
+    '    CargaModalCombosDirecciones(CveCliente, CveDireccion); 
+
+    '    UpModalEditarentrega.Update();
+    '    this.RegistraScript("$('#DivEditarEntrega').modal('show');"); 
+    '}
+
+
+
+    Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
+
+        HdnCveVenta.Value = CveVentaSurtir.ToString
+        CargaModalCombosDirecciones(CveCliente, CveDireccionEnvio)
+
+        RegistraScript("$('#DivEditarEntrega').modal('show');")
+
+    End Sub
+
+
+    Private Sub CargaModalCombosDirecciones(CveCliente As Integer, CveDireccionEnvio As Integer)
+
+        DdlModalDireccionEnvio.Items.Clear()
+
+        Dim dtt As New DataTable()
+        Dim ObjClientes As New ClsClientes()
+        If (ObjClientes.DireccionEnvioGet(-1, CveCliente, -1)) Then
+            dtt = ObjClientes.DtResultados
+        End If
+        ObjClientes.Dispose()
+
+        DdlModalDireccionEnvio.DataSource = dtt
+        DdlModalDireccionEnvio.DataBind()
+        DdlModalDireccionEnvio.SelectedValueExist(CveDireccionEnvio)
+        UpModalEditarentrega.Update()
+        dtt.Dispose()
+
+    End Sub
+
+
+    Protected Sub BtnModalEditarentrega_Click(sender As Object, e As EventArgs)
+        Dim ProcesoOK As Boolean = True
+
+        Dim ObjVentas As New ClsVentas()
+        If Not ObjVentas.UpdateDireccionEnvioVenta(HdnCveVenta.Value.ToEntero(), DdlModalDireccionEnvio.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            RegistraScript("$('#DivEditarEntrega').modal('hide');")
+            Alert("Dirección Actualizada correctamente.", ModExtensiones.TipoMensaje.ToastInformacion)
+            'CargaDatos()
+        End If
+
+
+    End Sub
 End Class