Combras bitacora inventario al eliminar compra con inventario, clientes cambiar vendedor.

Ventas/Clientes.aspx

@@ -668,13 +668,18 @@
                                                 <label for="<%= DdlClasificacion.ClientID.ToString()%>">Giro:</label>
                                             </div>
 
-                                            <div class="form-group form-md-line-input input-iconright col-md-6" id="Div1" runat="server">
+                                            <div class="form-group form-md-line-input input-iconright col-md-4" id="Div1" runat="server">
 
                                                 <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
                                                 <asp:LinkButton ID="LnkAgregarVendedorSucursal" Visible="false" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar vendedor por sucursal." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar por Sucursal"></asp:LinkButton>
                                                 <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
 
                                             </div>
+
+                                             <div class="form-group form-md-line-input input-iconright col-md-2" id="DVLnkCambiarVendedor" runat="server" visible="false">
+                                                 <asp:LinkButton runat="server" ID="LnkCambiarVendedor" CssClass="Texto" Text="Actualziar" OnClick="LnkCambiarVendedor_Click">Actualziar</asp:LinkButton>
+                                             </div>
+
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
                                             <asp:DropDownList ID="DdlCorporativo" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Descripcion" DataValueField="CveClienteCorporativo"></asp:DropDownList>

Ventas/Clientes.aspx.vb

@@ -644,6 +644,23 @@ Partial Class Clientes
             ViewState("AdjuntoDocumentacion") = value
         End Set
     End Property
+
+    Property CveVendedorOriginal As Integer
+        Get
+            If ViewState("CveVendedorOriginal") Is Nothing Then
+                ViewState("CveVendedorOriginal") = -1
+            End If
+
+            Return DirectCast(ViewState("CveVendedorOriginal"), Integer)
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveVendedorOriginal") = value
+        End Set
+    End Property
+
+
+
     'Private ReadOnly Property CvePersonal As Integer
     '    Get
     '        If ViewState("CvePersonal") Is Nothing Then
@@ -857,9 +874,15 @@ Partial Class Clientes
                     Tab.ActiveTabIndex = Request("ATI").ToEntero()
                 End If
                 'CargaCuentasyConceptos()
-            Else
-                'Configuración de Modalidad Insert
-                CargaEstados()
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                    DVLnkCambiarVendedor.Visible = True
+                End If
+
+
+            Else
+                    'Configuración de Modalidad Insert
+                    CargaEstados()
                 BtnGuardar.Visible = PermiteGuardar()
 
                 If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
@@ -1591,6 +1614,7 @@ Partial Class Clientes
                 Else
                     DdlVendedor.SelectedValueExist(CveVendedor)
                 End If
+                CveVendedorOriginal = CveVendedor
 
                 'TxtVendedor.Text = ObjClientes.Vendedor
                 TxtPlazoCobranza.Text = ObjClientes.PlazoCobranza.ToString()
@@ -10569,5 +10593,39 @@ Partial Class Clientes
 
     End Sub
 
+
+    Protected Sub LnkCambiarVendedor_Click(sender As Object, e As EventArgs)
+
+        If Not DdlVendedor.SelectedValue.ToEntero > 0 Then
+            Alert("Debe de seleccionar un Vendedor.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
+        If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
+            Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjVentas As New ClsVentas
+        Dim ErrorCambio As Boolean = False
+
+        If ObjVentas.CambioClientesVendedor(CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero
+        Else
+            ErrorCambio = True
+        End If
+
+        ObjVentas.Dispose()
+
+        If Not ErrorCambio Then
+            Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
+        End If
+
+
+
+
+    End Sub
+
 End Class