Edicion de metodo de pago en remisiones

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()