From 2cea5a2003fd4bb42750e9dc376143d943f3fcfc Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 17 Dec 2021 15:18:34 -0700
Subject: [PATCH] Compras IEPS priemre registro  que aplique y que su ieps sea
 mayor a cero, Rep  Promar recuersos se agrega empresa 83 a envio de correos

---
 Bancos/RepProgramarRecursos.aspx.vb | 2 +-
 Compras/Compras.aspx.vb             | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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