Valida no agregar IEPS si ya se agrego el concepto IEPS.

Compras/Compras.aspx.vb

@@ -1109,6 +1109,23 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    '
+    Private Property SeAgregoconceptoIEPS As Boolean
+        Get
+
+            If ViewState("SeAgregoconceptoIEPS") Is Nothing Then
+                Return False
+            Else
+                Return Boolean.Parse(ViewState("SeAgregoconceptoIEPS").ToString)
+            End If
+
+
+        End Get
+        Set(value As Boolean)
+            ViewState("SeAgregoconceptoIEPS") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -4385,6 +4402,8 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
+
+
         '------------------TERMINA VALIDACIONES------------------
 
         'si hay necesidad de actualizar el globaldtps
@@ -8652,7 +8671,7 @@ Partial Class Compras_Compras
                 IndiceContador = IndiceContador + 1
             Next
 
-            If DiferenciaIEPSPS <> 0 Then
+            If DiferenciaIEPSPS.RoundAD(2) <> 0 Then
 
                 If DTConsultaIEPSPS.Rows.Count > 0 Then
                     'Ajusta IPES en primer registro  que aplique IEPS
@@ -18460,6 +18479,14 @@ Partial Class Compras_Compras
         End If
 
 
+        If SeAgregoconceptoIEPS Then
+
+            Row("IEPSPS") = 0
+            Row("IEPSPSPorcentaje") = 0
+
+        End If
+
+
 
         TmpDT.Rows.Add(Row)
         TmpDT.Rows.IndexOf(Row)
@@ -18588,6 +18615,13 @@ Partial Class Compras_Compras
         DrPS("IEPSPSIVA") = IEPSPSIVA * Total
         DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA
 
+        If SeAgregoconceptoIEPS Then
+
+            DrPS("IEPSPS") = 0
+            DrPS("IEPSPSPorcentaje") = 0
+
+        End If
+
 
         AplicaCalculaTotales = True
         'End If
@@ -19799,6 +19833,7 @@ Partial Class Compras_Compras
                 Dim CvePS As Integer = DdlConceptoIEPS.SelectedValue.ToEntero
                 ' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero
                 AgregarConceptoIEPS(TrasladoIEPS, CvePS)
+                SeAgregoconceptoIEPS = True
                 TrasladoIEPS = 0
                 TxtIEPS.Text = 0.ToString.FormatoNumero
                 TrIEPS.Visible = False
@@ -19813,6 +19848,7 @@ Partial Class Compras_Compras
                 Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero
                 'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero
                 AgregarConceptoIEPS(OtrosImpuestos, CvePS)
+                SeAgregoconceptoIEPS = True
                 OtrosImpuestos = 0
                 TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero
                 TrOtrosImpuestos.Visible = False