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