From 1689ad41207698d3650da30430aab49de2c7c58b Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Fri, 16 Aug 2019 13:43:54 -0700
Subject: [PATCH] No permite guardar compra No Deducible si no hay productos No
 Deducibles

---
 Compras/Compras.aspx.vb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 2edcec263..aaf9f4043 100644
--- a/Compras/Compras.aspx.vb
+++ b/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