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