.

Ventas/Clientes.aspx

@@ -677,7 +677,9 @@
                                             </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>
+                                                 <asp:LinkButton runat="server" ID="LnkCambiarVendedor" CssClass="btn btn-default btn-circle btn-xs" Text="<i class='fa fa-check' style='color:green'></i>"                                                     
+                                                     data-toggle="confirmation" data-popout="true" data-original-title="¿Actualizar Vendedor?" data-btn-ok-label="si" 
+                                                     OnClick="LnkCambiarVendedor_Click"></asp:LinkButton>
                                              </div>
 
                                         </div>

Ventas/PV.aspx.vb

@@ -7038,14 +7038,7 @@ Partial Class PV
     End Sub
 
     Private Sub CargaAjuste()
-        Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
-            DdlFolioGarantia.DataSource = ObjAcum.DtResultados.Copy().FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
-        End If
-        ObjAcum.Dispose()
-        DdlFolioGarantia.DataBind()
-        DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
+        CargaFoliosGarantia()
 
         DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))
 

Ventas/Ventas.aspx.vb

@@ -6063,10 +6063,10 @@ Partial Class Ventas
     End Sub
     Private Sub CargaFormaPago(CveMetodoPago As Integer)
         'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO
-        If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
-            'permiso para desbloquear la relación entre Método de pago y forma de pago
-            If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
-        End If
+        'If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
+        '    'permiso para desbloquear la relación entre Método de pago y forma de pago
+        '    If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
+        'End If
 
         Dim dtt As DataTable = Nothing
         If CveMetodoPago > 0 Then
@@ -21920,6 +21920,10 @@ Partial Class Ventas
         LblAmort.Text = TxtSubTotal.Text
         LimpiaEscondeContado()
 
+        If Not UsuarioActual.TienePermisoProceso(289) Then
+            DdlMetodoPago33.Enabled = True
+        End If
+
         UPPVentas.Update()
         UpPS.Update()
         UpCliente.Update()