From fc1c300e002b155d3e368a8357c3aa336c503de7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Nov 2023 11:34:00 -0700
Subject: [PATCH] =?UTF-8?q?--=20quitar=20candado=20E119,=20para=20permitir?=
 =?UTF-8?q?=20refacturaci=C3=B3n=20con=20productos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 30124e4dd..1e3bf8f75 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -20884,21 +20884,22 @@ Partial Class Ventas
             Response.Redirect($"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1")
         Else
             'si es la empresa 119, Candado, no permite refacturar, si no se ha surtido y que no sea refacturación, para que cancele la factura mejor.
-            If UsuarioActual.CveEmpresa = 119 AndAlso LkRefacturacion.Visible AndAlso CveVentaPadre <= 0 Then
-                Dim PermiteRefacturarar As Boolean = True
-                Using ObjInv As New ClsInventarios
-                    If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
-                        If ObjInv.DtResultados.Rows.Count > 0 Then
-                            PermiteRefacturarar = False
-                        End If
-                    End If
-                End Using
+            'comentado. RMF. 2023.11136. visto con Fernanda
+            'If UsuarioActual.CveEmpresa = 119 AndAlso LkRefacturacion.Visible AndAlso CveVentaPadre <= 0 Then
+            '    Dim PermiteRefacturarar As Boolean = True
+            '    Using ObjInv As New ClsInventarios
+            '        If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
+            '            If ObjInv.DtResultados.Rows.Count > 0 Then
+            '                PermiteRefacturarar = False
+            '            End If
+            '        End If
+            '    End Using
 
-                If Not PermiteRefacturarar Then
-                    Alert("La factura no se puede refacturar si no ha sido surtida previamente", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-            End If
+            '    If Not PermiteRefacturarar Then
+            '        Alert("La factura no se puede refacturar si no ha sido surtida previamente", TipoMensaje.MsgAdvertencia)
+            '        Exit Sub
+            '    End If
+            'End If
 
             Dim script As String = ""
             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then