-- editar direcciones de envío/entrega

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