diff --git a/Bancos/PagoElectronicoGrupos.aspx b/Bancos/PagoElectronicoGrupos.aspx index 2fa368e82..c684b31da 100644 --- a/Bancos/PagoElectronicoGrupos.aspx +++ b/Bancos/PagoElectronicoGrupos.aspx @@ -11,9 +11,12 @@ Pago Electrónico - +
  • - +
    • +
  • + Enviar Comprobante +
    • @@ -374,7 +377,7 @@ - + <%----%> diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 53b099b94..245d7a2e0 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -2102,178 +2102,6 @@ Partial Class Bancos_PagoElectronicoGrupos #End Region - - 'CORREO -#Region " GENERA Y MANDA CORREO " - - 'Private Sub MandaCorreo(data As Object) - ' Dim Parametros As List(Of String) = DirectCast(data, List(Of String)) - - ' Dim Mail As New ClsSisMail() - ' Dim Para As String = Parametros(0) - ' Dim Asunto As String = Parametros(1) - ' Dim Body As String = Parametros(2) - - ' Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) - - 'End Sub - - 'Private Function GeneraCorreo(CveIE As Integer, objIE As ClsBancos) As String - ' Dim strBody As New StringBuilder - - ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    {0}
    Col. {0}
    {0}, {1}, C.P.{2}
    RFC {0}
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("


    ") - - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - - ' 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - ' ' strBody.Append(" ") - ' ' strBody.Append(" ") - ' ' strBody.Append(" ") - ' 'End If - - ' ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' ' End If - - ' strBody.Append(" ") - ' strBody.AppendFormat(" ") - ' strBody.Append(" ") - ' strBody.Append("
    Usted puede pasar a recorger el cheque en las oficinas administrativas.
    Se notifica el envío de transferencia de pago.
     
    ") - ' strBody.Append("
    ") - - - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.Banco) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.Observaciones) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    Movimiento:Transferencia Bancaria
    Banco:{0}
    Fecha:{0}
    Importe:$ {0} {1}
    Observaciones:{0}
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - - - - ' strBody.Append("
    Favor de no responder a este correo.
    ") - - ' strBody.Append("") - ' End If - - ' Return strBody.ToString - 'End Function - -#End Region - - - - - #Region " IMPRIMIR " @@ -2992,10 +2820,8 @@ Partial Class Bancos_PagoElectronicoGrupos Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean) Try - 'Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar)) - 'Hilo.Start() - EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) + EnviarCorreoNotificacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar, MostarAlert) If MostarAlert Then Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) @@ -3007,19 +2833,18 @@ Partial Class Bancos_PagoElectronicoGrupos Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) End If - End Try 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, Optional MostrarAlert As Boolean = True) Try Dim ObjBancos As New ClsBancos() If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + If MostrarAlert Then Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) Else - Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) + If MostrarAlert Then Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError) End If ObjBancos.Dispose() @@ -3029,263 +2854,15 @@ Partial Class Bancos_PagoElectronicoGrupos End Try End Sub + Protected Sub LnkSendMail_Click(sender As Object, e As EventArgs) - 'Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte()) - ' Try - ' Dim Mail As New ClsSisMail() - ' Para = If(Para IsNot Nothing, Para, "") - ' Asunto = If(Asunto IsNot Nothing, Asunto, "") - ' Body = If(Body IsNot Nothing, Body, "") - - ' Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - ' If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then - ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante}) - ' End If - - ' If File IsNot Nothing Then - ' ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"}) - ' End If - - ' Dim separador As Char() = {";"c, ","c} - ' Dim strArray As String() = Para.Split(separador) - - ' Para = "" - - ' For Each sCorreo As String In strArray - ' If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then - ' Para = $"{Para}{sCorreo};" - ' End If - ' Next - - ' Para = Para.Substring(0, Para.Length - 1) - - ' If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then - ' Dim objIE As New ClsBancos - ' objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE) - ' objIE.Dispose() - ' End If - ' Catch ex As Exception - ' OnError("Ocurrio un error al enviar el correo", ex) - ' End Try - - 'End Sub - - - - - - 'Private Function GeneraCorreo(CveIE As Integer) As String - - ' Dim strBody As New StringBuilder - ' Dim objIE As New ClsBancos - - ' If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" {0}", UsuarioActual.Empresa.Empresa) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Direccion) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Colonia) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", UsuarioActual.Empresa.RFC) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    {0}
    Col. {0}
    {0}, {1}, C.P.{2}
    RFC {0}
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("


    ") - - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - - ' 'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque - ' ' strBody.Append(" ") - ' ' strBody.Append(" ") - ' ' strBody.Append(" ") - ' 'End If - - ' 'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf - ' strBody.Append(" ") - ' strBody.Append(" ") - ' strBody.Append(" ") - ' 'End If - - ' strBody.Append(" ") - ' strBody.AppendFormat(" ") - ' strBody.Append(" ") - ' strBody.Append("
    Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.
    Notificación de transferencia de pago realizada.
     
    ") - ' strBody.AppendFormat("
    ") - ' strBody.Append("
    ") - - - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" Beneficiario:{0} ", objIE.PagueseA) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.TipoTransaccion) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.Banco) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.NumCuenta) - ' strBody.AppendFormat(" ") - ' If objIE.CuentaDepositado.ToString <> "" Then - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.CuentaDepositado) - ' strBody.AppendFormat(" ") - ' End If - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.FechaDocumento.ToString("dd/MM/yyyy")) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.Importe.FormatoNumero, objIE.Moneda) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", objIE.Observaciones) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    Movimiento:{0}
    Banco:{0}
    Cuenta:{0}
    Cuenta Destino:{0}
    Fecha:{0}
    Importe:$ {0} {1}
    Observaciones:{0}
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - - - ' 'MOVIMIENTOS CHEQUE - ' If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - ' Dim Textov33 As String = "" - - ' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos" - - - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat(" Documentos abonados o pagados
    {0}         ", Textov33) - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - - - ' For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ", dr("Fecha").ToString.ToDate.ToShortDateString()) - ' strBody.AppendFormat(" ", dr("SerieFolio").ToString) - ' strBody.AppendFormat(" ", dr("Importe").ToString.FormatoNumero) - ' strBody.AppendFormat(" ", dr("FolioFiscal")) - ' strBody.AppendFormat(" ", dr("ImporteNC").ToString.FormatoNumero) - ' strBody.AppendFormat(" ") - ' Next - - - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat(" ") - ' strBody.AppendFormat("
    FechaFacturaImporte ($)Folio FiscalNC Aplicadas
    {0}{0}$ {0}{0}{0}
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' strBody.AppendFormat("
    ") - ' End If - - ' strBody.Append("
    Favor de no responder a este correo.
    ") - - ' strBody.Append("") - ' End If - - ' objIE.Dispose() - ' Return strBody.ToString - - 'End Function - - + For Each gvr As GridViewRow In GvReportes.Rows + If gvr.DataKey("CveIE").ToEntero > 0 Then + EnviarCorreoNotificacion(gvr.DataKey("CveIE").ToEntero, gvr.DataKey("NotificarA"), "", UsuarioActual, False) + End If + Next + Alert("Correos ya enviados.") + End Sub End Class