AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rakcsle
2021-12-17 15:18:34 -07:00
parent dbb8211dbf
commit 2cea5a2003
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -654,7 +654,7 @@ Partial Class Bancos_RepProgramarRecursos
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
End Sub End Sub
Private Sub EnviaCorreoNotificacion() Private Sub EnviaCorreoNotificacion()
If UsuarioActual.CveEmpresa = 13 Then If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
Try Try

2
Compras/Compras.aspx.vb
View File

@@ -8626,7 +8626,7 @@ Partial Class Compras_Compras
Dim IndicePrimero As Integer = 0 Dim IndicePrimero As Integer = 0
For Each dRow As DataRow In TmpDT.Rows 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 IndicePrimero = IndiceContador
Exit For Exit For
End If End If