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

@@ -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

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