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

cambio para envío de correo

Browse Source
This commit is contained in:
rrene
2024-05-01 16:33:33 -07:00
parent 3150ded4f7
commit 46717f70ea
2 changed files with 4 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Bancos/ProveedoresAbonar.aspx
View File

@@ -338,13 +338,8 @@
<asp:CheckBox Text=" No Validar ante SAT" ID="ChkNoValidaSAT" CssClass="md-checksd" runat="server" Checked="false" Visible="false" /> <asp:CheckBox Text=" No Validar ante SAT" ID="ChkNoValidaSAT" CssClass="md-checksd" runat="server" Checked="false" Visible="false" />
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" /> <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
<asp:CheckBox Text="Descuento" ID="chkaplicaDescuento" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuento_CheckedChanged" AutoPostBack="true" Visible="false" /> <asp:CheckBox Text="Descuento" ID="chkaplicaDescuento" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuento_CheckedChanged" AutoPostBack="true" Visible="false" />
</td>
<asp:Button ID="Button1" runat="server" Text="Valida" OnClick="Button1_Click" Visible="false" />
</td>
</tr> </tr>
</table> </table>

16
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -317,9 +317,6 @@ Partial Class Bancos_ProveedoresAbonar
chkaplicaDescuento.Visible = True chkaplicaDescuento.Visible = True
End If End If
tmpValida()
End If End If
End Sub End Sub
@@ -1389,31 +1386,26 @@ Partial Class Bancos_ProveedoresAbonar
'Hilo.Start() 'Hilo.Start()
If MostarAlert Then If MostarAlert Then
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) Alert("El correo se envió correctamente", TipoMensaje.ToastInformacion)
End If End If
Catch ex As Exception Catch ex As Exception
If MostarAlert Then If MostarAlert Then
Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
End If End If
End Try End Try
End Sub End Sub
Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario) Private Sub EnviarCorreoNotificacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
Try Try
Dim ObjBancos As New ClsBancos() Dim ObjBancos As New ClsBancos()
If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) Alert("El correo se envió correctamente", TipoMensaje.ToastInformacion)
Else Else
Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
Catch ex As Exception Catch ex As Exception
GuardaLog("Error al enviar notificación de pago ProveedoresAbonar --> " & ex.StackTrace.ToString) GuardaLog("Error al enviar notificación de pago ProveedoresAbonar --> " & ex.StackTrace.ToString)
@@ -1715,9 +1707,5 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
End Sub End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs)
tmpValida()
End Sub
End Class End Class