diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 812832042..b44f36e24 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17820,18 +17820,18 @@ Partial Class Compras_Compras
 
     Protected Sub BtnNCInvAlmacen_Click(sender As Object, e As EventArgs)
         ' se comenta RMF.2023/09/08, genera negativos en el rep recibir oc
-        'Dim i As Integer = 0
-        'For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
-        '    If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
-        '        If i < TmpDT.Rows.Count Then
-        '            TmpDT.Rows(i)("CveOrdenCompraDetalle") = Gvr.DataKey("CveOrdenCompraDetalle")
-        '        End If
-        '        'If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
-        '        '    TieneError = True
-        '        '    Exit For
-        '        'End If
-        '    End If
-        'Next
+        Dim i As Integer = 0
+        For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
+            If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
+                If i < TmpDT.Rows.Count Then
+                    TmpDT.Rows(i)("CveOrdenCompraDetalle") = Gvr.DataKey("CveOrdenCompraDetalle")
+                End If
+                'If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, Gvr.DataKey("CveCompra").ToEntero, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
+                '    TieneError = True
+                '    Exit For
+                'End If
+            End If
+        Next
         RegistraScript("$('#FacturaNC').modal('hide');", "ModalNCInv")
 
     End Sub