From dae538be00a839925f42f0e78ca4dc8b55fd1b1c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 30 Jan 2023 14:09:20 -0700
Subject: [PATCH] Edicion de metodo de pago en remisiones

---
 Ventas/Ventas.aspx.vb | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5d8e1464a..8bf4bc962 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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()