No permite guardar compra No Deducible si no hay productos No Deducibles

Compras/Compras.aspx.vb

@@ -3729,6 +3729,20 @@ Partial Class Compras_Compras
             End If
         End If
 
+        'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 
+        Dim GuardaNoDeducibles As Boolean = False
+        If ChkEsNoDeducible.Checked Then
+            For Each Row As DataRow In TmpDT.Rows
+                If Row("NoDeducible").ToString = "True" Then
+                    GuardaNoDeducibles = True
+                End If
+            Next
+            If GuardaNoDeducibles = False Then
+                Alert("Si la compra es No Deducible, mínimo se debe registrar un producto No Deducible", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
 
         If CierrePeriodo Then
             Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
@@ -7596,6 +7610,8 @@ Partial Class Compras_Compras
                                     Else
                                         MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
                                     End If
+                                Else
+                                    MsgAccionAceptar = "location.href =""Compras.aspx"""
                                 End If
 
                                 'Simplificacion de PrePolizas