diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index 9d3ad6219..7e53e652a 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -654,7 +654,7 @@ Partial Class Bancos_RepProgramarRecursos
         ObjUsuarios.Dispose()
     End Sub
     Private Sub EnviaCorreoNotificacion()
-        If UsuarioActual.CveEmpresa = 13 Then
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
 
             Dim strBody As New StringBuilder
             Try
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4384944a1..7c8ceedc8 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8626,7 +8626,7 @@ Partial Class Compras_Compras
             Dim IndicePrimero As Integer = 0
 
             For Each dRow As DataRow In TmpDT.Rows
-                If Boolean.Parse(dRow("AplicaIEPS").ToString) Then
+                If Boolean.Parse(dRow("AplicaIEPS").ToString) And dRow("IEPSPS").ToString.ToDecimal > 0 Then
                     IndicePrimero = IndiceContador
                     Exit For
                 End If