Ventas. -- método y forma de pago

- PV, ajustes en garantía

Ventas/Ventas.aspx.vb

@@ -4425,6 +4425,9 @@ Partial Class Ventas
     Private Sub CargaFormaPago(CveMetodoPago As Integer)
         'FACTURACION 3.3
 
+        'permiso para desbloquear la relación entre Método de pago y forma de pago
+        If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
+
         Dim dtt As DataTable = Nothing
         If CveMetodoPago > 0 Then
             dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, " CveFormaPago <> 20 ", "CveFormaPago = 20"))