diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index da147e2c4..c795ada73 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -4452,7 +4452,8 @@ Public Class ClsBancos
 
         Dim RutaComprobante As String = ""
         If GetBancosIE(CveIENotificar, UsuarioActual.CveEmpresa) Then
-            RutaComprobante = Comprobante
+            RutaComprobante = $"{UsuarioActual.Empresa.Ruta}IE/{Comprobante}"
+
         End If
 
 
@@ -4742,6 +4743,7 @@ Public Class ClsBancos
                 strBody.AppendFormat("</div>")
             End If
 
+            strBody.Append("   <div><b>Correo automatizado por SIG ERP <a href='http://adsistemas.mx/'>www.adsistemas.mx</a></b> </div> ")
             strBody.Append("   <div> Favor de no responder a este correo. </div> ")
 
             strBody.Append("</body></html>")
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 7849671d9..88e6a9522 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -240,7 +240,7 @@ Public Class ClsMovimientos
                            Gpo As Integer, CveResponsable As Integer,
                            TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                            Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
-                           Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1) As Boolean
+                           Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         'Data = New DataTable
@@ -272,6 +272,7 @@ Public Class ClsMovimientos
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
         End With
 
         Try
@@ -325,7 +326,8 @@ Public Class ClsMovimientos
                                  CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer, CveResponsable As Integer,
                                   TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                                   Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
-                                  Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1) As Boolean
+                                  Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
+                                  Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         'Data = New DataTable
@@ -363,6 +365,10 @@ Public Class ClsMovimientos
             .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+
+
         End With
 
         Try
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index daee7399b..6aad2b55e 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1320,7 +1320,7 @@ Public Class ClsVentas
     Public Function GetRepVentas(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                  CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                  Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1,
-                                 Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1) As Boolean
+                                 Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRep")
 
@@ -1346,6 +1346,7 @@ Public Class ClsVentas
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
         End With
 
         Try
@@ -1405,7 +1406,7 @@ Public Class ClsVentas
     Public Function GetRepVentasPeriodos(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                  CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                  Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1,
-                                          Optional CveClienteClasificacion As Integer = -1) As Boolean
+                                 Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetRepPeriodo")
@@ -1432,6 +1433,7 @@ Public Class ClsVentas
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@VerEn", SqlDbType.Int).Value = VerEn
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
         End With
 
         Try
@@ -1449,7 +1451,7 @@ Public Class ClsVentas
                                         Vendedor As String, CveUsuario As Integer, CveEstatus As String, FechaI As Date, FechaF As Date, CveCorte As Integer, TipoDocto As String,
                                         CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1,
                                         Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
-                                         Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1) As Boolean
+                                         Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRepDetalle")
 
@@ -1480,6 +1482,7 @@ Public Class ClsVentas
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
         End With
 
         Try
@@ -1499,7 +1502,7 @@ Public Class ClsVentas
                                              CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer,
                                               Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
                                              Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
-                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False) As Boolean
+                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPS")
 
@@ -1528,6 +1531,7 @@ Public Class ClsVentas
             .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
 
         End With
 
@@ -1544,8 +1548,9 @@ Public Class ClsVentas
     Public Function GetRepProductosServiciosDetalle(CveProyecto As Integer, CveSubProyecto As Integer, CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer,
                                              FechaI As Date, FechaF As Date, Mes As Integer, FechaIEjec As Date, FechaFEjec As Date, MesEjec As Integer, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                              CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1,
-                                              Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
-                                                    Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, Optional CveClasificacionDetalle As Integer = -1) As Boolean
+                                             Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
+                                             Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
+                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPSDetalle")
 
@@ -1577,6 +1582,9 @@ Public Class ClsVentas
             .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+
+
         End With
 
         Try
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index cf54db94e..e02318b0a 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3680,7 +3680,8 @@ Partial Class Bancos_IE
 
                         'Notificación de Pago
                         If TxtNotificarA.Text.Trim <> "" And MsgError = "" Then
-                            NotificacionPago(CveIE, TxtNotificarA.Text.Trim)
+                            'NotificacionPago(CveIE, TxtNotificarA.Text.Trim)
+                            EnviarCorreoNotificacion(CveIE, TxtNotificarA.Text.Trim, "", UsuarioActual, False)
                         End If
 
                     Else
@@ -3811,253 +3812,257 @@ Partial Class Bancos_IE
     End Sub
 
 #Region "  NOTIFICACION PAGO  "
-    Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
-
-        If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
-
-            Dim Param As New List(Of String)
-
-            Param.Add(CorreoNotificarA) 'Para
-            Param.Add("Notificaciones de pago") 'Asunto
-            Param.Add(GeneraCorreo2(CveIE)) 'Body
-            Param.Add(CveIE.ToString) 'CveIE
-            Param.Add(If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "")) 'Archivo Adjunto
-
-            Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
-            Hilo.Start(Param)
-
-        End If
 
 
 
-    End Sub
-    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 = If(Parametros(0) IsNot Nothing, Parametros(0), "")
-        Dim Asunto As String = If(Parametros(1) IsNot Nothing, Parametros(1), "")
-        Dim Body As String = If(Parametros(2) IsNot Nothing, Parametros(2), "")
-        Dim CveIE As Integer = If(Parametros(3) IsNot Nothing, Parametros(3).ToEntero, 0)
-
-        Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
-        If Parametros(4) IsNot Nothing AndAlso Parametros(4) <> "" Then
-            ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Parametros(4).ToString})
-        End If
-
-        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
-            Dim objIE As New ClsBancos
-            objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
-            objIE.Dispose()
-        End If
-    End Sub
-
-    Private Function GeneraCorreo2(CveIE As Integer) As String
-        Dim strBody As New StringBuilder
-        Dim objIE As New ClsBancos
-
-        If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
-            strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
-            strBody.Append("<head> ")
-            strBody.Append("    <style type=""text/css""> ")
-            strBody.Append("        body ")
-            strBody.Append("        { ")
-            strBody.Append("            margin:0px; ")
-            strBody.Append("            padding:0px 0px 0px 0px; ")
-            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
-            strBody.Append("            font-size: 10px; ")
-            strBody.Append("            background-color:#F0F0F0; ")
-            strBody.Append("        } ")
-            strBody.Append("        a.Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            font-size:11px; ")
-            strBody.Append("            background-color:#F7F6F3; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .TextoAlterno ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .BarraIdentidad ")
-            strBody.Append("        { ")
-            strBody.Append("            color:#FFFFFF; ")
-            strBody.Append("            background:#F0F0F0; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("            font-size:19px; ")
-            strBody.Append("            font-style:oblique; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Titulos ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color: Gray;")
-            strBody.Append("            color:White;  ")
-            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Verde {color: #00CC00;} ")
-            strBody.Append("        .Negro {color: #000000;} ")
-            strBody.Append("        .Rojo {color: #FF0000;} ")
-            strBody.Append("    </style> ")
-            strBody.Append("</head> ")
-            strBody.Append("<body> ")
-            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
-            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("        </table>")
-            strBody.AppendFormat("    </fieldset>")
-            strBody.AppendFormat("</div><br/><br/>")
-
-            'strBody.AppendFormat("<div style='width: 600px'>")
-            'strBody.AppendFormat("    <fieldset>")
-            'strBody.AppendFormat("        <legend><b> </b></legend>")
-            'strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
-
-            'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
-            '    strBody.Append("                <tr style=""height: 22px""> ")
-            '    strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
-            '    strBody.Append("                </tr> ")
-            'End If
-
-            'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-            '    strBody.Append("                <tr style=""height: 22px""> ")
-            '    strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
-            '    strBody.Append("                </tr> ")
-            'End If
-
-            'strBody.Append("                    <tr style=""height: 22px""> ")
-            'strBody.AppendFormat("                  <td>&nbsp;</td> ")
-            'strBody.Append("                    </tr> ")
-            'strBody.Append("                </table> ")
-            'strBody.AppendFormat("      </fieldset>")
-            'strBody.Append("    </div> ")
-
-
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <table style='width:100%'>")
-            strBody.AppendFormat("        <tr>")
-            strBody.AppendFormat("            <td style='vertical-align: top'>")
-            strBody.AppendFormat("                <fieldset>")
-            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
-            strBody.AppendFormat("                    <table width='100%'>")
-            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-            strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
-            strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Movimiento:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Banco:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Cuenta:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
-            strBody.AppendFormat("                        </tr>")
-            If objIE.CuentaDepositado.ToString <> "" Then
-                strBody.AppendFormat("                        <tr class='Texto'>")
-                strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
-                strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
-                strBody.AppendFormat("                        </tr>")
-            End If
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Fecha:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Importe:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Observaciones:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td colspan='2'>")
-            strBody.AppendFormat("                                <hr />")
-            strBody.AppendFormat("                            </td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                    </table>")
-            strBody.AppendFormat("                </fieldset>")
-            strBody.AppendFormat("            </td>")
-            strBody.AppendFormat("      </tr>")
-            strBody.AppendFormat("  </table>")
-            strBody.AppendFormat("</div>")
-
-
-            'MOVIMIENTOS CHEQUE
-            'If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-            '    Dim Textov33 As String = ""
-            '    If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-            '        Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-            '    End If
-
-            '    strBody.AppendFormat("<div style='width: 1000px'>")
-            '    strBody.AppendFormat("    <table style='width:1000px'>")
-            '    strBody.AppendFormat("        <tr>")
-            '    strBody.AppendFormat("            <td style='vertical-align: top'>")
-            '    strBody.AppendFormat("                <fieldset>")
-            '    strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
-            '    strBody.AppendFormat("                    <table width='1000px'>")
-            '    strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-            '    strBody.AppendFormat("                            <th scope='col' style='width: 15%'>Fecha</th>")
-            '    strBody.AppendFormat("                            <th scope='col' style='width: 25%'>Factura</th>")
-            '    strBody.AppendFormat("                            <th scope='col' style='width: 25%'>Importe ($)</th>")
-            '    strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
-            '    strBody.AppendFormat("                        </tr>")
-
-
-            '    For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
-            '        strBody.AppendFormat("                        <tr class='Texto'>")
-            '        strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
-            '        strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
-            '        strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
-            '        strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
-            '        strBody.AppendFormat("                        </tr>")
-            '    Next
-
-
-            '    strBody.AppendFormat("                        <tr class='Texto'>")
-            '    strBody.AppendFormat("                            <td colspan='4'>")
-            '    strBody.AppendFormat("                                <hr />")
-            '    strBody.AppendFormat("                            </td>")
-            '    strBody.AppendFormat("                        </tr>")
-            '    strBody.AppendFormat("                    </table>")
-            '    strBody.AppendFormat("                </fieldset>")
-            '    strBody.AppendFormat("            </td>")
-            '    strBody.AppendFormat("      </tr>")
-            '    strBody.AppendFormat("  </table>")
-            '    strBody.AppendFormat("</div>")
-            'End If
-
-            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
-
-            strBody.Append("</body></html>")
-        End If
-
-        objIE.Dispose()
-        Return strBody.ToString
-    End Function
+
+    'Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
+
+    '    If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
+
+    '        Dim Param As New List(Of String)
+
+    '        Param.Add(CorreoNotificarA) 'Para
+    '        Param.Add("Notificaciones de pago") 'Asunto
+    '        Param.Add(GeneraCorreo2(CveIE)) 'Body
+    '        Param.Add(CveIE.ToString) 'CveIE
+    '        Param.Add(If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "")) 'Archivo Adjunto
+
+    '        Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
+    '        Hilo.Start(Param)
+
+    '    End If
+
+
+
+    'End Sub
+    '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 = If(Parametros(0) IsNot Nothing, Parametros(0), "")
+    '    Dim Asunto As String = If(Parametros(1) IsNot Nothing, Parametros(1), "")
+    '    Dim Body As String = If(Parametros(2) IsNot Nothing, Parametros(2), "")
+    '    Dim CveIE As Integer = If(Parametros(3) IsNot Nothing, Parametros(3).ToEntero, 0)
+
+    '    Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
+    '    If Parametros(4) IsNot Nothing AndAlso Parametros(4) <> "" Then
+    '        ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Parametros(4).ToString})
+    '    End If
+
+    '    If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
+    '        Dim objIE As New ClsBancos
+    '        objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
+    '        objIE.Dispose()
+    '    End If
+    'End Sub
+
+    'Private Function GeneraCorreo2(CveIE As Integer) As String
+    '    Dim strBody As New StringBuilder
+    '    Dim objIE As New ClsBancos
+
+    '    If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+    '        strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
+    '        strBody.Append("<head> ")
+    '        strBody.Append("    <style type=""text/css""> ")
+    '        strBody.Append("        body ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            margin:0px; ")
+    '        strBody.Append("            padding:0px 0px 0px 0px; ")
+    '        strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+    '        strBody.Append("            font-size: 10px; ")
+    '        strBody.Append("            background-color:#F0F0F0; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        a.Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            font-size:11px; ")
+    '        strBody.Append("            background-color:#F7F6F3; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .TextoAlterno ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .BarraIdentidad ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            color:#FFFFFF; ")
+    '        strBody.Append("            background:#F0F0F0; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("            font-size:19px; ")
+    '        strBody.Append("            font-style:oblique; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Titulos ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color: Gray;")
+    '        strBody.Append("            color:White;  ")
+    '        strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Verde {color: #00CC00;} ")
+    '        strBody.Append("        .Negro {color: #000000;} ")
+    '        strBody.Append("        .Rojo {color: #FF0000;} ")
+    '        strBody.Append("    </style> ")
+    '        strBody.Append("</head> ")
+    '        strBody.Append("<body> ")
+    '        strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+    '        strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("        </table>")
+    '        strBody.AppendFormat("    </fieldset>")
+    '        strBody.AppendFormat("</div><br/><br/>")
+
+    '        'strBody.AppendFormat("<div style='width: 600px'>")
+    '        'strBody.AppendFormat("    <fieldset>")
+    '        'strBody.AppendFormat("        <legend><b> </b></legend>")
+    '        'strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+
+    '        'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+    '        '    strBody.Append("                <tr style=""height: 22px""> ")
+    '        '    strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
+    '        '    strBody.Append("                </tr> ")
+    '        'End If
+
+    '        'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+    '        '    strBody.Append("                <tr style=""height: 22px""> ")
+    '        '    strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
+    '        '    strBody.Append("                </tr> ")
+    '        'End If
+
+    '        'strBody.Append("                    <tr style=""height: 22px""> ")
+    '        'strBody.AppendFormat("                  <td>&nbsp;</td> ")
+    '        'strBody.Append("                    </tr> ")
+    '        'strBody.Append("                </table> ")
+    '        'strBody.AppendFormat("      </fieldset>")
+    '        'strBody.Append("    </div> ")
+
+
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <table style='width:100%'>")
+    '        strBody.AppendFormat("        <tr>")
+    '        strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '        strBody.AppendFormat("                <fieldset>")
+    '        strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+    '        strBody.AppendFormat("                    <table width='100%'>")
+    '        strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Movimiento:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Banco:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Cuenta:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
+    '        strBody.AppendFormat("                        </tr>")
+    '        If objIE.CuentaDepositado.ToString <> "" Then
+    '            strBody.AppendFormat("                        <tr class='Texto'>")
+    '            strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
+    '            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
+    '            strBody.AppendFormat("                        </tr>")
+    '        End If
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Fecha:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Importe:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Observaciones:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td colspan='2'>")
+    '        strBody.AppendFormat("                                <hr />")
+    '        strBody.AppendFormat("                            </td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                    </table>")
+    '        strBody.AppendFormat("                </fieldset>")
+    '        strBody.AppendFormat("            </td>")
+    '        strBody.AppendFormat("      </tr>")
+    '        strBody.AppendFormat("  </table>")
+    '        strBody.AppendFormat("</div>")
+
+
+    '        'MOVIMIENTOS CHEQUE
+    '        'If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+    '        '    Dim Textov33 As String = ""
+    '        '    If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
+    '        '        Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
+    '        '    End If
+
+    '        '    strBody.AppendFormat("<div style='width: 1000px'>")
+    '        '    strBody.AppendFormat("    <table style='width:1000px'>")
+    '        '    strBody.AppendFormat("        <tr>")
+    '        '    strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '        '    strBody.AppendFormat("                <fieldset>")
+    '        '    strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
+    '        '    strBody.AppendFormat("                    <table width='1000px'>")
+    '        '    strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '        '    strBody.AppendFormat("                            <th scope='col' style='width: 15%'>Fecha</th>")
+    '        '    strBody.AppendFormat("                            <th scope='col' style='width: 25%'>Factura</th>")
+    '        '    strBody.AppendFormat("                            <th scope='col' style='width: 25%'>Importe ($)</th>")
+    '        '    strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
+    '        '    strBody.AppendFormat("                        </tr>")
+
+
+    '        '    For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+    '        '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        '        strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
+    '        '        strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
+    '        '        strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
+    '        '        strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
+    '        '        strBody.AppendFormat("                        </tr>")
+    '        '    Next
+
+
+    '        '    strBody.AppendFormat("                        <tr class='Texto'>")
+    '        '    strBody.AppendFormat("                            <td colspan='4'>")
+    '        '    strBody.AppendFormat("                                <hr />")
+    '        '    strBody.AppendFormat("                            </td>")
+    '        '    strBody.AppendFormat("                        </tr>")
+    '        '    strBody.AppendFormat("                    </table>")
+    '        '    strBody.AppendFormat("                </fieldset>")
+    '        '    strBody.AppendFormat("            </td>")
+    '        '    strBody.AppendFormat("      </tr>")
+    '        '    strBody.AppendFormat("  </table>")
+    '        '    strBody.AppendFormat("</div>")
+    '        'End If
+
+    '        strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+
+    '        strBody.Append("</body></html>")
+    '    End If
+
+    '    objIE.Dispose()
+    '    Return strBody.ToString
+    'End Function
 
 
 
@@ -6102,38 +6107,77 @@ Partial Class Bancos_IE
     End Function
 
     Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click
-        'NotificacionPago(HdnCveIE.Value.ToEntero, Txt)
-        Dim ObjMail As New ClsSisMail()
-        Dim Body = GeneraCorreo(CveIE)
 
-        Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
 
-        Dim ObjIE As New ClsBancos()
-        If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                If ObjIE.Comprobante <> "" Then
-                    ComprobanteIE = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
+        EnviarCorreoNotificacion(CveIE, TxtParaMail.Text.Trim, TxtCC.Text.Trim, UsuarioActual, True)
 
-                    If IO.File.Exists(ComprobanteIE) Then
-                        ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ComprobanteIE.ToString})
-                    End If
-                End If
-            End If
-        End If
-        ObjIE.Dispose()
+        ''NotificacionPago(HdnCveIE.Value.ToEntero, Txt)
+        'Dim ObjMail As New ClsSisMail()
+        'Dim Body = GeneraCorreo(CveIE)
 
-        If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Notificaciones de pago", Body, TxtCC.Text.Trim, Displayname:="Notificaciones de pago", Archivos:=ListaArchivos) Then
-            'ResultadoMail = 1
-            TxtCC.Text = ""
-            'TxtAdicional.Text = ""
-            RegistraScript("$('#ModalDivMail').modal('hide');")
-            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-        Else
-            Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
-        End If
+        'Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
+
+        'Dim ObjIE As New ClsBancos()
+        'If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+        '    If ObjIE.DtResultados.Rows.Count > 0 Then
+        '        If ObjIE.Comprobante <> "" Then
+        '            ComprobanteIE = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
+
+        '            If IO.File.Exists(ComprobanteIE) Then
+        '                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ComprobanteIE.ToString})
+        '            End If
+        '        End If
+        '    End If
+        'End If
+        'ObjIE.Dispose()
+
+        'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Notificaciones de pago", Body, TxtCC.Text.Trim, Displayname:="Notificaciones de pago", Archivos:=ListaArchivos) Then
+        '    'ResultadoMail = 1
+        '    TxtCC.Text = ""
+        '    'TxtAdicional.Text = ""
+        '    RegistraScript("$('#ModalDivMail').modal('hide');")
+        '    Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+        'Else
+        '    Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+        'End If
 
     End Sub
 
+
+    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()
+            If MostarAlert Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+                RegistraScript("$('#ModalDivMail').modal('hide');")
+            End If
+        Catch ex As Exception
+            If MostarAlert Then
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+        End Try
+
+    End Sub
+
+    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+
+        Try
+            Dim ObjBancos As New ClsBancos()
+            If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+            ObjBancos.Dispose()
+        Catch ex As Exception
+            GuardaLog("Error al enviar notificación de pago IE --> " & ex.StackTrace.ToString)
+        End Try
+
+    End Sub
+
+
     Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
         RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
     End Sub
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index a47729cf5..9e4dcebc6 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
@@ -179,13 +179,15 @@ Partial Class Bancos_PagoElectronico
 
             CargaCuentas()
             CargaProveedores()
-            InicializaDatosGenerales()
-
-
+            InicializaDatosGenerales()
+
+
         End If
-    End Sub
-
-
+    End Sub
+
+
+
+
 #Region " C A R G A - D A T O S  "
     Private Sub CargaCuentas()
         DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros("UsaLayout = 1")
@@ -1554,24 +1556,23 @@ Partial Class Bancos_PagoElectronico
                                 If ObjIE.UpdateBancos_IENotificaciones(2, "-1", "-1", ArrayCveIEs(index).ToEntero) Then
 
                                     'Obtenemos los correos del movimiento
-                                    If ArrayCorreos(index) <> "-1" Or ArrayCorreos(index) <> "" Then
-
-                                        'Dim CorreosMovto() = ArrayCorreos(index).Split(";"c)
-                                        'For index2 = 0 To CorreosMovto.Length - 1
-                                        '   If CorreosMovto(index2).Length > 5 Then
-                                        '   End If
-                                        'Next
-
+                                    If ArrayCorreos(index) <> "-1" Or ArrayCorreos(index) <> "" Then
+
+
+
                                         Dim Param As New List(Of String)
 
+                                        Param.Add(ArrayCveIEs(index).ToString)
                                         Param.Add(ArrayCorreos(index)) 'Para
-                                        Param.Add("Notificación de Pago") 'Asunto
-
-                                        Param.Add(GeneraCorreo2(DtPago.Rows(index), ObjIE, ArrayCveIEs(index).ToEntero)) 'Body
-
-                                        Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
-                                        ArregloHilos.Add(Hilo)
+                                        'Param.Add("Notificación de Pago") 'Asunto
+                                        'Param.Add(GeneraCorreo2(DtPago.Rows(index), ObjIE, ArrayCveIEs(index).ToEntero)) 'Body
+
+                                        ' EnviarCorreoNotificacion()
+                                        'Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
+                                        'ArregloHilos.Add(Hilo)
+
                                         ArregloParametros.Add(Param)
+
                                     End If
                                 Else
                                     ErrorDB = True
@@ -1597,11 +1598,26 @@ Partial Class Bancos_PagoElectronico
                     ObjIE.Commit()
                     'ObjIE.RollBack()
 
-                    'EMPIEZA A ENVIAR CORREO POR HILOS
-                    For index = 0 To ArregloHilos.Count - 1
-                        ArregloHilos(index).Start(ArregloParametros(index))
-                    Next
+                    ''EMPIEZA A ENVIAR CORREO POR HILOS
+                    'For index = 0 To ArregloHilos.Count - 1
+                    '    ArregloHilos(index).Start(ArregloParametros(index))
+                    'Next
 
+                    For Each ObjParametros As Object In ArregloParametros
+
+                        Dim Parametros As List(Of String) = DirectCast(ObjParametros, List(Of String))
+
+                        Dim CveIENotificar As Integer = Parametros(0).ToEntero
+                        Dim NotificarA As String = Parametros(1)
+
+                        EnviarCorreoNotificacion(CveIENotificar, NotificarA, "", UsuarioActual, False)
+
+                    Next
+
+
+
+
+
                     Respuesta.Append("<br/><br/>NOTA: El archivo se analizo correctamente y se efectuaron todos los cambios en el sistema.")
                     Alert(Respuesta.ToString, TipoMensaje.MsgInformacion)
 
@@ -1855,12 +1871,11 @@ Partial Class Bancos_PagoElectronico
         ''''' ARMADO DEL TEXTO COMPLETO
         TextoCompleto = String.Format("{1}{0}{2}{0}{3}{0}", vbCrLf, HeaderTexto, DetalleTexto, TrailerTexto)
         'TxtAltas.Text = TextoCompleto
-    End Sub
+    End Sub
 #End Region
-
-
-
-    'TABS
+
+
+    'TABS
 #Region "R E P O R T E S"
     Protected Sub BtnConsultarReportes_Click(sender As Object, e As EventArgs)
         CargaReporte()
@@ -1959,717 +1974,762 @@ Partial Class Bancos_PagoElectronico
 
 
 
-    End Sub
+    End Sub
 #End Region
-
-
-
-    'CORREO
+
+
+
+    '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)
-
-        'NO SE OCUPAN
-        'Dim CveIE As Integer = Parametros(3).ToEntero
-        'Dim CveTipoTransaccion As Integer = Parametros(4).ToEntero
-        'Dim Estatus As Integer = If(CveTipoTransaccion = 2, 2, 1) ' cuando es transferencia, no lo pasa por entregar
-
-        'Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
-        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("<html xmlns=""http: //www.w3.org/1999/xhtml""> ")
-            strBody.Append("<head> ")
-            strBody.Append("    <style type=""text/css""> ")
-            strBody.Append("        body ")
-            strBody.Append("        { ")
-            strBody.Append("            margin:0px; ")
-            strBody.Append("            padding:0px 0px 0px 0px; ")
-            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
-            strBody.Append("            font-size: 10px; ")
-            strBody.Append("            background-color:#F0F0F0; ")
-            strBody.Append("        } ")
-            strBody.Append("        a.Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            font-size:11px; ")
-            strBody.Append("            background-color:#F7F6F3; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .TextoAlterno ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .BarraIdentidad ")
-            strBody.Append("        { ")
-            strBody.Append("            color:#FFFFFF; ")
-            strBody.Append("            background:#F0F0F0; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("            font-size:19px; ")
-            strBody.Append("            font-style:oblique; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Titulos ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color: Gray;")
-            strBody.Append("            color:White;  ")
-            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Verde {color: #00CC00;} ")
-            strBody.Append("        .Negro {color: #000000;} ")
-            strBody.Append("        .Rojo {color: #FF0000;} ")
-            strBody.Append("    </style> ")
-            strBody.Append("</head> ")
-            strBody.Append("<body> ")
-            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
-            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("        </table>")
-            strBody.AppendFormat("    </fieldset>")
-            strBody.AppendFormat("</div><br/><br/>")
-
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b> </b></legend>")
-            strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
-
-            If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
-                strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("              <td>Usted puede pasar a recorger el cheque en las oficinas administrativas.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
-            If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-                strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("              <td>Se notifica el envío de transferencia de pago.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
-            strBody.Append("                <tr style=""height: 22px""> ")
-            strBody.AppendFormat("              <td>&nbsp;</td> ")
-            strBody.Append("                </tr> ")
-            strBody.Append("            </table> ")
-            strBody.Append("     </div> ")
-
-
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <table style='width:100%'>")
-            strBody.AppendFormat("        <tr>")
-            strBody.AppendFormat("            <td style='vertical-align: top'>")
-            strBody.AppendFormat("                <fieldset>")
-            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
-            strBody.AppendFormat("                    <table width='100%'>")
-            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-            strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
-            strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Movimiento:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>Transferencia Bancaria</td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Banco:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Fecha:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Importe:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Observaciones:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td colspan='2'>")
-            strBody.AppendFormat("                                <hr />")
-            strBody.AppendFormat("                            </td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                    </table>")
-            strBody.AppendFormat("                </fieldset>")
-            strBody.AppendFormat("            </td>")
-            strBody.AppendFormat("      </tr>")
-            strBody.AppendFormat("  </table>")
-            strBody.AppendFormat("</div>")
-
-
-
-            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
-
-            strBody.Append("</body></html>")
-        End If
-
-        Return strBody.ToString
-    End Function
+
+    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()
+
+            If MostarAlert Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            End If
+
+        Catch ex As Exception
+
+            If MostarAlert Then
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+
+        End Try
+
+    End Sub
+
+    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+
+        Try
+            Dim ObjBancos As New ClsBancos()
+
+
+            If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+
+            ObjBancos.Dispose()
+
+        Catch ex As Exception
+            GuardaLog("Error al enviar notificación de pago PagoElectronico --> " & ex.StackTrace.ToString)
+        End Try
+
+
+
+    End Sub
+
+
+    '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)
+
+    '    'NO SE OCUPAN
+    '    'Dim CveIE As Integer = Parametros(3).ToEntero
+    '    'Dim CveTipoTransaccion As Integer = Parametros(4).ToEntero
+    '    'Dim Estatus As Integer = If(CveTipoTransaccion = 2, 2, 1) ' cuando es transferencia, no lo pasa por entregar
+
+    '    'Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+    '    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("<html xmlns=""http: //www.w3.org/1999/xhtml""> ")
+    '        strBody.Append("<head> ")
+    '        strBody.Append("    <style type=""text/css""> ")
+    '        strBody.Append("        body ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            margin:0px; ")
+    '        strBody.Append("            padding:0px 0px 0px 0px; ")
+    '        strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+    '        strBody.Append("            font-size: 10px; ")
+    '        strBody.Append("            background-color:#F0F0F0; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        a.Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            font-size:11px; ")
+    '        strBody.Append("            background-color:#F7F6F3; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .TextoAlterno ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .BarraIdentidad ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            color:#FFFFFF; ")
+    '        strBody.Append("            background:#F0F0F0; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("            font-size:19px; ")
+    '        strBody.Append("            font-style:oblique; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Titulos ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color: Gray;")
+    '        strBody.Append("            color:White;  ")
+    '        strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Verde {color: #00CC00;} ")
+    '        strBody.Append("        .Negro {color: #000000;} ")
+    '        strBody.Append("        .Rojo {color: #FF0000;} ")
+    '        strBody.Append("    </style> ")
+    '        strBody.Append("</head> ")
+    '        strBody.Append("<body> ")
+    '        strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+    '        strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("        </table>")
+    '        strBody.AppendFormat("    </fieldset>")
+    '        strBody.AppendFormat("</div><br/><br/>")
+
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b> </b></legend>")
+    '        strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+
+    '        If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+    '            strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("              <td>Usted puede pasar a recorger el cheque en las oficinas administrativas.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        End If
+
+    '        If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+    '            strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("              <td>Se notifica el envío de transferencia de pago.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        End If
+
+    '        strBody.Append("                <tr style=""height: 22px""> ")
+    '        strBody.AppendFormat("              <td>&nbsp;</td> ")
+    '        strBody.Append("                </tr> ")
+    '        strBody.Append("            </table> ")
+    '        strBody.Append("     </div> ")
+
+
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <table style='width:100%'>")
+    '        strBody.AppendFormat("        <tr>")
+    '        strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '        strBody.AppendFormat("                <fieldset>")
+    '        strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+    '        strBody.AppendFormat("                    <table width='100%'>")
+    '        strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Movimiento:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>Transferencia Bancaria</td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Banco:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Fecha:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Importe:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Observaciones:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td colspan='2'>")
+    '        strBody.AppendFormat("                                <hr />")
+    '        strBody.AppendFormat("                            </td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                    </table>")
+    '        strBody.AppendFormat("                </fieldset>")
+    '        strBody.AppendFormat("            </td>")
+    '        strBody.AppendFormat("      </tr>")
+    '        strBody.AppendFormat("  </table>")
+    '        strBody.AppendFormat("</div>")
+
+
+
+    '        strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+
+    '        strBody.Append("</body></html>")
+    '    End If
+
+    '    Return strBody.ToString
+    'End Function
+
 #End Region
 
 #Region " GENERA CORREO 2"
 
-    Private Function GeneraCorreo2(Dr As DataRow, ByRef ObjIE As ClsBancos, CveIE As Integer) As String
-        Dim strBody As New StringBuilder
-
-
-        strBody.Append("	<html xmlns:v='urn:schemas-microsoft-com:vml' xmlns:o='urn:schemas-microsoft-com:office:office' xmlns:w='urn:schemas-microsoft-com:office:word' xmlns:m='http://schemas.microsoft.com/office/2004/12/omml' xmlns='http://www.w3.org/TR/REC-html40'> ")
-        strBody.Append("	<head> ")
-        strBody.Append("	<meta http-equiv=Content-Type content='text/html; charset=utf-8'> ")
-        strBody.Append("	<meta name=Generator content='Microsoft Word 15 (filtered medium)'> ")
-        strBody.Append("	<!--[if !mso]><style>v\:* {behavior:url(#default#VML);} ")
-        strBody.Append("		o\:* {behavior:url(#default#VML);} ")
-        strBody.Append("		w\:* {behavior:url(#default#VML);} ")
-        strBody.Append("		.shape {behavior:url(#default#VML);} ")
-        strBody.Append("		</style><![endif]--> ")
-        strBody.Append("	<style> ")
-        strBody.Append("	<!-- ")
-        strBody.Append("		/* Font Definitions */ ")
-        strBody.Append("		@font-face ")
-        strBody.Append("			{font-family:'Cambria Math'; ")
-        strBody.Append("			panose-1:2 4 5 3 5 4 6 3 2 4;} ")
-        strBody.Append("		@font-face ")
-        strBody.Append("			{font-family:Calibri; ")
-        strBody.Append("			panose-1:2 15 5 2 2 2 4 3 2 4;} ")
-        strBody.Append("		@font-face ")
-        strBody.Append("			{font-family:tahoma; ")
-        strBody.Append("			panose-1:2 11 6 4 3 5 4 4 2 4;} ")
-        strBody.Append("		/* Style Definitions */ ")
-        strBody.Append("		p.MsoNormal, li.MsoNormal, div.MsoNormal ")
-        strBody.Append("			{margin:0cm; ")
-        strBody.Append("			margin-bottom:.0001pt; ")
-        strBody.Append("			font-size:12.0pt; ")
-        strBody.Append("			font-family:'Times New Roman',serif;} ")
-        strBody.Append("		a:link, span.MsoHyperlink ")
-        strBody.Append("			{mso-style-priority:99; ")
-        strBody.Append("			color:blue; ")
-        strBody.Append("			text-decoration:underline;} ")
-        strBody.Append("		a:visited, span.MsoHyperlinkFollowed ")
-        strBody.Append("			{mso-style-priority:99; ")
-        strBody.Append("			color:purple; ")
-        strBody.Append("			text-decoration:underline;} ")
-        strBody.Append("		p ")
-        strBody.Append("			{mso-style-priority:99; ")
-        strBody.Append("			mso-margin-top-alt:auto; ")
-        strBody.Append("			margin-right:0cm; ")
-        strBody.Append("			mso-margin-bottom-alt:auto; ")
-        strBody.Append("			margin-left:0cm; ")
-        strBody.Append("			font-size:12.0pt; ")
-        strBody.Append("			font-family:'Times New Roman',serif;} ")
-        strBody.Append("		span.EstiloCorreo18 ")
-        strBody.Append("			{mso-style-type:personal; ")
-        strBody.Append("			font-family:'Calibri',sans-serif; ")
-        strBody.Append("			color:#1F497D;} ")
-        strBody.Append("		span.EstiloCorreo19 ")
-        strBody.Append("			{mso-style-type:personal-reply; ")
-        strBody.Append("			font-family:'Calibri',sans-serif; ")
-        strBody.Append("			color:#1F497D;} ")
-        strBody.Append("		.MsoChpDefault ")
-        strBody.Append("			{mso-style-type:export-only; ")
-        strBody.Append("			font-size:10.0pt;} ")
-        strBody.Append("		@page WordSection1 ")
-        strBody.Append("			{size:612.0pt 792.0pt; ")
-        strBody.Append("			margin:70.85pt 3.0cm 70.85pt 3.0cm;} ")
-        strBody.Append("		div.WordSection1 ")
-        strBody.Append("			{page:WordSection1;} ")
-        strBody.Append("		--> ")
-
-        strBody.Append("	.demo { ")
-        strBody.Append("		border:1px solid #A6A6A6; ")
-        strBody.Append("		border-collapse:collapse; ")
-        strBody.Append("		padding:5px; ")
-        strBody.Append("		font-size:12px; ")
-        strBody.Append("	} ")
-        strBody.Append("	.demo th { ")
-        strBody.Append("		border:1px solid #A6A6A6; ")
-        strBody.Append("		padding:5px; ")
-        strBody.Append("		background:#C3C3C3; ")
-        strBody.Append("	} ")
-        strBody.Append("	.demo td { ")
-        strBody.Append("		border:1px solid #A6A6A6; ")
-        strBody.Append("		padding:5px; ")
-        strBody.Append("	} ")
-        strBody.Append("    Table caption{")
-        strBody.Append("        font-size:  20px;")
-        strBody.Append("    }")
-
-
-        strBody.Append("	</style> ")
-        strBody.Append("	<!--[if gte mso 9]><xml> <o: shapedefaults v:ext='edit' spidmax='1027' /> </xml><![endif]--> ")
-        strBody.Append("	<!--[if gte mso 9]><xml> <o:shapelayout v:ext='edit'> <o:idmap v:ext='edit' data='1' /> </o:shapelayout></xml><![endif]--> ")
-        strBody.Append("	</head> ")
-        strBody.Append("	<body lang=ES-MX link=blue vlink=purple> ")
-        strBody.Append("	<div class=WordSection1> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-
-
-        'strBody.Append("			<b><span lang=ES style=""font-size:10.0pt;font-family:'Tahoma',sans-serif"">De:</span></b><span lang=ES style=""font-size:10.0pt;font-family:'Tahoma',sans-serif""> Bancomer.com [<a href='#' target='_blank'>mailto:alertatdu@serviciobancomer.com</a>] <br> ")
-
-        strBody.Append("		</div style=""width:100%;""> ")
-        strBody.AppendFormat("		    <img border=0 src='{0}Imagenes/Publico/header.png'> ", UrlSitio)
-        strBody.Append("		<div> ")
-
-
-        strBody.AppendFormat("			<b>Enviado el:</b> {0} {1}<br> ", Date.Now.ToLongDateString, Date.Now.ToShortTimeString)
-        strBody.AppendFormat("			<b>Para:</b><a href='mailto:{0}' target='_blank'>{0}</a><br> ", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", ""))
-        strBody.Append("			<b>Asunto:</b> CONFIRMACION SIT DISPERSION</span><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("			<span lang=ES>&nbsp;<o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<div> ")
-        strBody.Append("			<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("				<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099""><img border=0 id='_x0000_i1025' src='{0}Imagenes/Publico/comun_logo.gif'></span><span lang=ES><o:p></o:p></span> ", UrlSitio)
-        strBody.Append("			</p> ")
-        strBody.Append("		</div> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("			<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099"">&nbsp;</span><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal align=center style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:center""> ")
-        strBody.Append("			<b><span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:black"">Confirmación de pago realizado bajo las siguientes condiciones:</span></b><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<table class=MsoNormalTable border=1 cellspacing=0 cellpadding=0 width=667 style=""width:500.25pt;background:white;border:none;border-bottom:solid black 1.0pt""> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NOMBRE DEL CLIENTE: </span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", UsuarioActual.Empresa.Empresa)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NÚMERO DE CONVENIO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("NumeroConvenio").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">CLAVE DEL PROVEEDOR:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("ClaveProveedor").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NOMBRE DEL PROVEEDOR/TERCERO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Proveedor").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">REFERENCIA DEL PAGO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("ReferenciaPago").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">TIPO DE PAGO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("TipoPago").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">CUENTA DE ABONO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Cuenta").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">IMPORTE DEL PAGO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:#009EE5"">${0}</span></b><b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">&nbsp; </span></b><o:p></o:p> ", Dr("Importe").ToString.FormatoNumero)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">FECHA DE OPERACIÓN</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("FechaOperacion").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">MENSAJE ADICIONAL:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 nowrap style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Observaciones").ToString.PadRight(70, " "c).Replace(" ", "&nbsp;"))
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		</table> ")
-
-
-
-        strBody.Append("		</div style=""width:100%;""> ")
-        strBody.AppendFormat("		    <img border=0 src='{0}Imagenes/Publico/footer.png'> ", UrlSitio)
-        strBody.Append("		<div> ")
-
-
-
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;margin-bottom:12.0pt""> ")
-        strBody.Append("			<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099"">&nbsp;</span><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-
-
-        If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                Dim dtMovs As DataTable
-
-                Dim Mov As New ClsContabilidad
-                If Mov.GetPrePolizasDetalle(-1, CveIE) Then
-                    dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17)")
-
-                    strBody.Append("		<table  class=""demo""> ")
-                    strBody.Append("		<caption>Listado de facturas pagadas</caption> ")
-
-                    strBody.Append("			<thead> ")
-                    strBody.Append("				<tr> ")
-                    strBody.Append("					<th style=""width:150px"">Factura</td> ")
-                    strBody.Append("					<th style=""width:80px"">Fecha</td> ")
-                    strBody.Append("					<th style=""width:100px"">Original</td> ")
-                    strBody.Append("					<th style=""width:100px"">Abonado</td> ")
-                    strBody.Append("					<th style=""width:100px"">Nota Crédito</td> ")
-                    strBody.Append("					<th style=""width:100px"">Saldo</td> ")
-                    strBody.Append("				</tr> ")
-                    strBody.Append("			</thead> ")
-                    strBody.Append("			<tbody> ")
-
-                    For Each Dr2 As DataRow In dtMovs.Rows
-                        strBody.Append("				<tr> ")
-                        strBody.Append($"					<td style=""width:150px;text-align:left;"">{Dr2("SerieFolio")}</td> ")
-                        strBody.Append($"					<td style=""width:80px;text-align:center;"">{Dr2("FechaCompra").ToString.ToDate.ToShortDateString}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Total").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Importe").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("ImporteNC").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Saldo").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append("				</tr> ")
-                    Next
-
-                    strBody.Append("			</tbody> ")
-                    strBody.Append("		</table> ")
-
-                    strBody.Append("	</div> ")
-                    strBody.Append("	</body> ")
-                    strBody.Append("	</html> ")
-
-                End If
-                Mov.Dispose()
-
-            End If
-        End If
-
-        Return strBody.ToString
-    End Function
+    'Private Function GeneraCorreo2(Dr As DataRow, ByRef ObjIE As ClsBancos, CveIE As Integer) As String
+    '    Dim strBody As New StringBuilder
+
+
+    '    strBody.Append("	<html xmlns:v='urn:schemas-microsoft-com:vml' xmlns:o='urn:schemas-microsoft-com:office:office' xmlns:w='urn:schemas-microsoft-com:office:word' xmlns:m='http://schemas.microsoft.com/office/2004/12/omml' xmlns='http://www.w3.org/TR/REC-html40'> ")
+    '    strBody.Append("	<head> ")
+    '    strBody.Append("	<meta http-equiv=Content-Type content='text/html; charset=utf-8'> ")
+    '    strBody.Append("	<meta name=Generator content='Microsoft Word 15 (filtered medium)'> ")
+    '    strBody.Append("	<!--[if !mso]><style>v\:* {behavior:url(#default#VML);} ")
+    '    strBody.Append("		o\:* {behavior:url(#default#VML);} ")
+    '    strBody.Append("		w\:* {behavior:url(#default#VML);} ")
+    '    strBody.Append("		.shape {behavior:url(#default#VML);} ")
+    '    strBody.Append("		</style><![endif]--> ")
+    '    strBody.Append("	<style> ")
+    '    strBody.Append("	<!-- ")
+    '    strBody.Append("		/* Font Definitions */ ")
+    '    strBody.Append("		@font-face ")
+    '    strBody.Append("			{font-family:'Cambria Math'; ")
+    '    strBody.Append("			panose-1:2 4 5 3 5 4 6 3 2 4;} ")
+    '    strBody.Append("		@font-face ")
+    '    strBody.Append("			{font-family:Calibri; ")
+    '    strBody.Append("			panose-1:2 15 5 2 2 2 4 3 2 4;} ")
+    '    strBody.Append("		@font-face ")
+    '    strBody.Append("			{font-family:tahoma; ")
+    '    strBody.Append("			panose-1:2 11 6 4 3 5 4 4 2 4;} ")
+    '    strBody.Append("		/* Style Definitions */ ")
+    '    strBody.Append("		p.MsoNormal, li.MsoNormal, div.MsoNormal ")
+    '    strBody.Append("			{margin:0cm; ")
+    '    strBody.Append("			margin-bottom:.0001pt; ")
+    '    strBody.Append("			font-size:12.0pt; ")
+    '    strBody.Append("			font-family:'Times New Roman',serif;} ")
+    '    strBody.Append("		a:link, span.MsoHyperlink ")
+    '    strBody.Append("			{mso-style-priority:99; ")
+    '    strBody.Append("			color:blue; ")
+    '    strBody.Append("			text-decoration:underline;} ")
+    '    strBody.Append("		a:visited, span.MsoHyperlinkFollowed ")
+    '    strBody.Append("			{mso-style-priority:99; ")
+    '    strBody.Append("			color:purple; ")
+    '    strBody.Append("			text-decoration:underline;} ")
+    '    strBody.Append("		p ")
+    '    strBody.Append("			{mso-style-priority:99; ")
+    '    strBody.Append("			mso-margin-top-alt:auto; ")
+    '    strBody.Append("			margin-right:0cm; ")
+    '    strBody.Append("			mso-margin-bottom-alt:auto; ")
+    '    strBody.Append("			margin-left:0cm; ")
+    '    strBody.Append("			font-size:12.0pt; ")
+    '    strBody.Append("			font-family:'Times New Roman',serif;} ")
+    '    strBody.Append("		span.EstiloCorreo18 ")
+    '    strBody.Append("			{mso-style-type:personal; ")
+    '    strBody.Append("			font-family:'Calibri',sans-serif; ")
+    '    strBody.Append("			color:#1F497D;} ")
+    '    strBody.Append("		span.EstiloCorreo19 ")
+    '    strBody.Append("			{mso-style-type:personal-reply; ")
+    '    strBody.Append("			font-family:'Calibri',sans-serif; ")
+    '    strBody.Append("			color:#1F497D;} ")
+    '    strBody.Append("		.MsoChpDefault ")
+    '    strBody.Append("			{mso-style-type:export-only; ")
+    '    strBody.Append("			font-size:10.0pt;} ")
+    '    strBody.Append("		@page WordSection1 ")
+    '    strBody.Append("			{size:612.0pt 792.0pt; ")
+    '    strBody.Append("			margin:70.85pt 3.0cm 70.85pt 3.0cm;} ")
+    '    strBody.Append("		div.WordSection1 ")
+    '    strBody.Append("			{page:WordSection1;} ")
+    '    strBody.Append("		--> ")
+
+    '    strBody.Append("	.demo { ")
+    '    strBody.Append("		border:1px solid #A6A6A6; ")
+    '    strBody.Append("		border-collapse:collapse; ")
+    '    strBody.Append("		padding:5px; ")
+    '    strBody.Append("		font-size:12px; ")
+    '    strBody.Append("	} ")
+    '    strBody.Append("	.demo th { ")
+    '    strBody.Append("		border:1px solid #A6A6A6; ")
+    '    strBody.Append("		padding:5px; ")
+    '    strBody.Append("		background:#C3C3C3; ")
+    '    strBody.Append("	} ")
+    '    strBody.Append("	.demo td { ")
+    '    strBody.Append("		border:1px solid #A6A6A6; ")
+    '    strBody.Append("		padding:5px; ")
+    '    strBody.Append("	} ")
+    '    strBody.Append("    Table caption{")
+    '    strBody.Append("        font-size:  20px;")
+    '    strBody.Append("    }")
+
+
+    '    strBody.Append("	</style> ")
+    '    strBody.Append("	<!--[if gte mso 9]><xml> <o: shapedefaults v:ext='edit' spidmax='1027' /> </xml><![endif]--> ")
+    '    strBody.Append("	<!--[if gte mso 9]><xml> <o:shapelayout v:ext='edit'> <o:idmap v:ext='edit' data='1' /> </o:shapelayout></xml><![endif]--> ")
+    '    strBody.Append("	</head> ")
+    '    strBody.Append("	<body lang=ES-MX link=blue vlink=purple> ")
+    '    strBody.Append("	<div class=WordSection1> ")
+    '    strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+
+
+    '    'strBody.Append("			<b><span lang=ES style=""font-size:10.0pt;font-family:'Tahoma',sans-serif"">De:</span></b><span lang=ES style=""font-size:10.0pt;font-family:'Tahoma',sans-serif""> Bancomer.com [<a href='#' target='_blank'>mailto:alertatdu@serviciobancomer.com</a>] <br> ")
+
+    '    strBody.Append("		</div style=""width:100%;""> ")
+    '    strBody.AppendFormat("		    <img border=0 src='{0}Imagenes/Publico/header.png'> ", UrlSitio)
+    '    strBody.Append("		<div> ")
+
+
+    '    strBody.AppendFormat("			<b>Enviado el:</b> {0} {1}<br> ", Date.Now.ToLongDateString, Date.Now.ToShortTimeString)
+    '    strBody.AppendFormat("			<b>Para:</b><a href='mailto:{0}' target='_blank'>{0}</a><br> ", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", ""))
+    '    strBody.Append("			<b>Asunto:</b> CONFIRMACION SIT DISPERSION</span><span lang=ES><o:p></o:p></span> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("			<span lang=ES>&nbsp;<o:p></o:p></span> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<div> ")
+    '    strBody.Append("			<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("				<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099""><img border=0 id='_x0000_i1025' src='{0}Imagenes/Publico/comun_logo.gif'></span><span lang=ES><o:p></o:p></span> ", UrlSitio)
+    '    strBody.Append("			</p> ")
+    '    strBody.Append("		</div> ")
+    '    strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("			<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099"">&nbsp;</span><span lang=ES><o:p></o:p></span> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<p class=MsoNormal align=center style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:center""> ")
+    '    strBody.Append("			<b><span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:black"">Confirmación de pago realizado bajo las siguientes condiciones:</span></b><span lang=ES><o:p></o:p></span> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<table class=MsoNormalTable border=1 cellspacing=0 cellpadding=0 width=667 style=""width:500.25pt;background:white;border:none;border-bottom:solid black 1.0pt""> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NOMBRE DEL CLIENTE: </span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", UsuarioActual.Empresa.Empresa)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NÚMERO DE CONVENIO:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("NumeroConvenio").ToString)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">CLAVE DEL PROVEEDOR:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("ClaveProveedor").ToString)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NOMBRE DEL PROVEEDOR/TERCERO:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Proveedor").ToString)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">REFERENCIA DEL PAGO:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("ReferenciaPago").ToString)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">TIPO DE PAGO:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("TipoPago").ToString)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">CUENTA DE ABONO:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Cuenta").ToString)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">IMPORTE DEL PAGO:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:#009EE5"">${0}</span></b><b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">&nbsp; </span></b><o:p></o:p> ", Dr("Importe").ToString.FormatoNumero)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">FECHA DE OPERACIÓN</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("FechaOperacion").ToString)
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		<tr style=""height:17.25pt""> ")
+    '    strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">MENSAJE ADICIONAL:</span><o:p></o:p> ")
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("			<td width=406 nowrap style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
+    '    strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Observaciones").ToString.PadRight(70, " "c).Replace(" ", "&nbsp;"))
+    '    strBody.Append("				</p> ")
+    '    strBody.Append("			</td> ")
+    '    strBody.Append("		</tr> ")
+    '    strBody.Append("		</table> ")
 
 
 
-    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("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
-            strBody.Append("<head> ")
-            strBody.Append("    <style type=""text/css""> ")
-            strBody.Append("        body ")
-            strBody.Append("        { ")
-            strBody.Append("            margin:0px; ")
-            strBody.Append("            padding:0px 0px 0px 0px; ")
-            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
-            strBody.Append("            font-size: 10px; ")
-            strBody.Append("            background-color:#F0F0F0; ")
-            strBody.Append("        } ")
-            strBody.Append("        a.Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            font-size:11px; ")
-            strBody.Append("            background-color:#F7F6F3; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .TextoAlterno ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .BarraIdentidad ")
-            strBody.Append("        { ")
-            strBody.Append("            color:#FFFFFF; ")
-            strBody.Append("            background:#F0F0F0; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("            font-size:19px; ")
-            strBody.Append("            font-style:oblique; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Titulos ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color: Gray;")
-            strBody.Append("            color:White;  ")
-            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Verde {color: #00CC00;} ")
-            strBody.Append("        .Negro {color: #000000;} ")
-            strBody.Append("        .Rojo {color: #FF0000;} ")
-            strBody.Append("    </style> ")
-            strBody.Append("</head> ")
-            strBody.Append("<body> ")
-            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
-            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("        </table>")
-            strBody.AppendFormat("    </fieldset>")
-            strBody.AppendFormat("</div><br/><br/>")
-
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b> </b></legend>")
-            strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
-
-            If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
-                strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
-            If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-                strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
-            strBody.Append("                    <tr style=""height: 22px""> ")
-            strBody.AppendFormat("                  <td>&nbsp;</td> ")
-            strBody.Append("                    </tr> ")
-            strBody.Append("                </table> ")
-            strBody.AppendFormat("      </fieldset>")
-            strBody.Append("    </div> ")
+    '    strBody.Append("		</div style=""width:100%;""> ")
+    '    strBody.AppendFormat("		    <img border=0 src='{0}Imagenes/Publico/footer.png'> ", UrlSitio)
+    '    strBody.Append("		<div> ")
 
 
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <table style='width:100%'>")
-            strBody.AppendFormat("        <tr>")
-            strBody.AppendFormat("            <td style='vertical-align: top'>")
-            strBody.AppendFormat("                <fieldset>")
-            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
-            strBody.AppendFormat("                    <table width='100%'>")
-            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-            strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
-            strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Movimiento:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Banco:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Cuenta:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
-            strBody.AppendFormat("                        </tr>")
-            If objIE.CuentaDepositado.ToString <> "" Then
-                strBody.AppendFormat("                        <tr class='Texto'>")
-                strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
-                strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
-                strBody.AppendFormat("                        </tr>")
-            End If
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Fecha:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Importe:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Observaciones:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td colspan='2'>")
-            strBody.AppendFormat("                                <hr />")
-            strBody.AppendFormat("                            </td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                    </table>")
-            strBody.AppendFormat("                </fieldset>")
-            strBody.AppendFormat("            </td>")
-            strBody.AppendFormat("      </tr>")
-            strBody.AppendFormat("  </table>")
-            strBody.AppendFormat("</div>")
+
+    '    strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;margin-bottom:12.0pt""> ")
+    '    strBody.Append("			<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099"">&nbsp;</span><span lang=ES><o:p></o:p></span> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<p class=MsoNormal> ")
+    '    strBody.Append("			<o:p>&nbsp;</o:p> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<p class=MsoNormal> ")
+    '    strBody.Append("			<o:p>&nbsp;</o:p> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<p class=MsoNormal> ")
+    '    strBody.Append("			<o:p>&nbsp;</o:p> ")
+    '    strBody.Append("		</p> ")
+    '    strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
+    '    strBody.Append("			<o:p>&nbsp;</o:p> ")
+    '    strBody.Append("		</p> ")
 
 
-            'MOVIMIENTOS CHEQUE
-            If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-                Dim Textov33 As String = ""
-                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-                End If
+    '    If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+    '        If ObjIE.DtResultados.Rows.Count > 0 Then
+    '            Dim dtMovs As DataTable
 
-                strBody.AppendFormat("<div style='width: 1000px'>")
-                strBody.AppendFormat("    <table style='width:1000px'>")
-                strBody.AppendFormat("        <tr>")
-                strBody.AppendFormat("            <td style='vertical-align: top'>")
-                strBody.AppendFormat("                <fieldset>")
-                strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
-                strBody.AppendFormat("                    <table width='1000px'>")
-                strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
-                strBody.AppendFormat("                        </tr>")
+    '            Dim Mov As New ClsContabilidad
+    '            If Mov.GetPrePolizasDetalle(-1, CveIE) Then
+    '                dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17)")
+
+    '                strBody.Append("		<table  class=""demo""> ")
+    '                strBody.Append("		<caption>Listado de facturas pagadas</caption> ")
+
+    '                strBody.Append("			<thead> ")
+    '                strBody.Append("				<tr> ")
+    '                strBody.Append("					<th style=""width:150px"">Factura</td> ")
+    '                strBody.Append("					<th style=""width:80px"">Fecha</td> ")
+    '                strBody.Append("					<th style=""width:100px"">Original</td> ")
+    '                strBody.Append("					<th style=""width:100px"">Abonado</td> ")
+    '                strBody.Append("					<th style=""width:100px"">Nota Crédito</td> ")
+    '                strBody.Append("					<th style=""width:100px"">Saldo</td> ")
+    '                strBody.Append("				</tr> ")
+    '                strBody.Append("			</thead> ")
+    '                strBody.Append("			<tbody> ")
+
+    '                For Each Dr2 As DataRow In dtMovs.Rows
+    '                    strBody.Append("				<tr> ")
+    '                    strBody.Append($"					<td style=""width:150px;text-align:left;"">{Dr2("SerieFolio")}</td> ")
+    '                    strBody.Append($"					<td style=""width:80px;text-align:center;"">{Dr2("FechaCompra").ToString.ToDate.ToShortDateString}</td> ")
+    '                    strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Total").ToString.ToDouble.FormatoNumero}</td> ")
+    '                    strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Importe").ToString.ToDouble.FormatoNumero}</td> ")
+    '                    strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("ImporteNC").ToString.ToDouble.FormatoNumero}</td> ")
+    '                    strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Saldo").ToString.ToDouble.FormatoNumero}</td> ")
+    '                    strBody.Append("				</tr> ")
+    '                Next
+
+    '                strBody.Append("			</tbody> ")
+    '                strBody.Append("		</table> ")
+
+    '                strBody.Append("	</div> ")
+    '                strBody.Append("	</body> ")
+    '                strBody.Append("	</html> ")
+
+    '            End If
+    '            Mov.Dispose()
+
+    '        End If
+    '    End If
+
+    '    Return strBody.ToString
+    'End Function
 
 
-                For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
-                    strBody.AppendFormat("                        <tr class='Texto'>")
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
-                    strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
-                    strBody.AppendFormat("                        </tr>")
-                Next
+
+    '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("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
+    '        strBody.Append("<head> ")
+    '        strBody.Append("    <style type=""text/css""> ")
+    '        strBody.Append("        body ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            margin:0px; ")
+    '        strBody.Append("            padding:0px 0px 0px 0px; ")
+    '        strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+    '        strBody.Append("            font-size: 10px; ")
+    '        strBody.Append("            background-color:#F0F0F0; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        a.Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            font-size:11px; ")
+    '        strBody.Append("            background-color:#F7F6F3; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .TextoAlterno ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .BarraIdentidad ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            color:#FFFFFF; ")
+    '        strBody.Append("            background:#F0F0F0; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("            font-size:19px; ")
+    '        strBody.Append("            font-style:oblique; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Titulos ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color: Gray;")
+    '        strBody.Append("            color:White;  ")
+    '        strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Verde {color: #00CC00;} ")
+    '        strBody.Append("        .Negro {color: #000000;} ")
+    '        strBody.Append("        .Rojo {color: #FF0000;} ")
+    '        strBody.Append("    </style> ")
+    '        strBody.Append("</head> ")
+    '        strBody.Append("<body> ")
+    '        strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+    '        strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("        </table>")
+    '        strBody.AppendFormat("    </fieldset>")
+    '        strBody.AppendFormat("</div><br/><br/>")
+
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b> </b></legend>")
+    '        strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+
+    '        If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+    '            strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        End If
+
+    '        If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+    '            strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        End If
+
+    '        strBody.Append("                    <tr style=""height: 22px""> ")
+    '        strBody.AppendFormat("                  <td>&nbsp;</td> ")
+    '        strBody.Append("                    </tr> ")
+    '        strBody.Append("                </table> ")
+    '        strBody.AppendFormat("      </fieldset>")
+    '        strBody.Append("    </div> ")
 
 
-                strBody.AppendFormat("                        <tr class='Texto'>")
-                strBody.AppendFormat("                            <td colspan='5'>")
-                strBody.AppendFormat("                                <hr />")
-                strBody.AppendFormat("                            </td>")
-                strBody.AppendFormat("                        </tr>")
-                strBody.AppendFormat("                    </table>")
-                strBody.AppendFormat("                </fieldset>")
-                strBody.AppendFormat("            </td>")
-                strBody.AppendFormat("      </tr>")
-                strBody.AppendFormat("  </table>")
-                strBody.AppendFormat("</div>")
-            End If
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <table style='width:100%'>")
+    '        strBody.AppendFormat("        <tr>")
+    '        strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '        strBody.AppendFormat("                <fieldset>")
+    '        strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+    '        strBody.AppendFormat("                    <table width='100%'>")
+    '        strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Movimiento:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Banco:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Cuenta:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
+    '        strBody.AppendFormat("                        </tr>")
+    '        If objIE.CuentaDepositado.ToString <> "" Then
+    '            strBody.AppendFormat("                        <tr class='Texto'>")
+    '            strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
+    '            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
+    '            strBody.AppendFormat("                        </tr>")
+    '        End If
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Fecha:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Importe:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Observaciones:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td colspan='2'>")
+    '        strBody.AppendFormat("                                <hr />")
+    '        strBody.AppendFormat("                            </td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                    </table>")
+    '        strBody.AppendFormat("                </fieldset>")
+    '        strBody.AppendFormat("            </td>")
+    '        strBody.AppendFormat("      </tr>")
+    '        strBody.AppendFormat("  </table>")
+    '        strBody.AppendFormat("</div>")
 
-            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
 
-            strBody.Append("</body></html>")
-        End If
+    '        'MOVIMIENTOS CHEQUE
+    '        If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+    '            Dim Textov33 As String = ""
+    '            If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
+    '                Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
+    '            End If
 
-        objIE.Dispose()
-        Return strBody.ToString
-    End Function
+    '            strBody.AppendFormat("<div style='width: 1000px'>")
+    '            strBody.AppendFormat("    <table style='width:1000px'>")
+    '            strBody.AppendFormat("        <tr>")
+    '            strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '            strBody.AppendFormat("                <fieldset>")
+    '            strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
+    '            strBody.AppendFormat("                    <table width='1000px'>")
+    '            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
+    '            strBody.AppendFormat("                        </tr>")
+
+
+    '            For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+    '                strBody.AppendFormat("                        <tr class='Texto'>")
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
+    '                strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
+    '                strBody.AppendFormat("                        </tr>")
+    '            Next
+
+
+    '            strBody.AppendFormat("                        <tr class='Texto'>")
+    '            strBody.AppendFormat("                            <td colspan='5'>")
+    '            strBody.AppendFormat("                                <hr />")
+    '            strBody.AppendFormat("                            </td>")
+    '            strBody.AppendFormat("                        </tr>")
+    '            strBody.AppendFormat("                    </table>")
+    '            strBody.AppendFormat("                </fieldset>")
+    '            strBody.AppendFormat("            </td>")
+    '            strBody.AppendFormat("      </tr>")
+    '            strBody.AppendFormat("  </table>")
+    '            strBody.AppendFormat("</div>")
+    '        End If
+
+    '        strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+
+    '        strBody.Append("</body></html>")
+    '    End If
+
+    '    objIE.Dispose()
+    '    Return strBody.ToString
+    'End Function
 
 
 #End Region
diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index b784fb90d..8ff8ceec9 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -2139,485 +2139,159 @@ Partial Class Bancos_PagoElectronicoGrupos
 
     '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("<html xmlns=""http: //www.w3.org/1999/xhtml""> ")
-            strBody.Append("<head> ")
-            strBody.Append("    <style type=""text/css""> ")
-            strBody.Append("        body ")
-            strBody.Append("        { ")
-            strBody.Append("            margin:0px; ")
-            strBody.Append("            padding:0px 0px 0px 0px; ")
-            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
-            strBody.Append("            font-size: 10px; ")
-            strBody.Append("            background-color:#F0F0F0; ")
-            strBody.Append("        } ")
-            strBody.Append("        a.Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            font-size:11px; ")
-            strBody.Append("            background-color:#F7F6F3; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .TextoAlterno ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .BarraIdentidad ")
-            strBody.Append("        { ")
-            strBody.Append("            color:#FFFFFF; ")
-            strBody.Append("            background:#F0F0F0; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("            font-size:19px; ")
-            strBody.Append("            font-style:oblique; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Titulos ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color: Gray;")
-            strBody.Append("            color:White;  ")
-            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Verde {color: #00CC00;} ")
-            strBody.Append("        .Negro {color: #000000;} ")
-            strBody.Append("        .Rojo {color: #FF0000;} ")
-            strBody.Append("    </style> ")
-            strBody.Append("</head> ")
-            strBody.Append("<body> ")
-            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
-            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("        </table>")
-            strBody.AppendFormat("    </fieldset>")
-            strBody.AppendFormat("</div><br/><br/>")
-
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b> </b></legend>")
-            strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+    'Private Function GeneraCorreo(CveIE As Integer, objIE As ClsBancos) As String
+    '    Dim strBody As New StringBuilder
 
-            'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
-            '    strBody.Append("                <tr style=""height: 22px""> ")
-            '    strBody.Append("              <td>Usted puede pasar a recorger el cheque en las oficinas administrativas.</td> ")
-            '    strBody.Append("                </tr> ")
-            'End If
+    '    If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+    '        strBody.Append("<html xmlns=""http: //www.w3.org/1999/xhtml""> ")
+    '        strBody.Append("<head> ")
+    '        strBody.Append("    <style type=""text/css""> ")
+    '        strBody.Append("        body ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            margin:0px; ")
+    '        strBody.Append("            padding:0px 0px 0px 0px; ")
+    '        strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+    '        strBody.Append("            font-size: 10px; ")
+    '        strBody.Append("            background-color:#F0F0F0; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        a.Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            font-size:11px; ")
+    '        strBody.Append("            background-color:#F7F6F3; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .TextoAlterno ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .BarraIdentidad ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            color:#FFFFFF; ")
+    '        strBody.Append("            background:#F0F0F0; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("            font-size:19px; ")
+    '        strBody.Append("            font-style:oblique; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Titulos ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color: Gray;")
+    '        strBody.Append("            color:White;  ")
+    '        strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Verde {color: #00CC00;} ")
+    '        strBody.Append("        .Negro {color: #000000;} ")
+    '        strBody.Append("        .Rojo {color: #FF0000;} ")
+    '        strBody.Append("    </style> ")
+    '        strBody.Append("</head> ")
+    '        strBody.Append("<body> ")
+    '        strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+    '        strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("        </table>")
+    '        strBody.AppendFormat("    </fieldset>")
+    '        strBody.AppendFormat("</div><br/><br/>")
 
-            ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-            strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("              <td>Se notifica el envío de transferencia de pago.</td> ")
-                strBody.Append("                </tr> ")
-            ' End If
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b> </b></legend>")
+    '        strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
 
-            strBody.Append("                <tr style=""height: 22px""> ")
-            strBody.AppendFormat("              <td>&nbsp;</td> ")
-            strBody.Append("                </tr> ")
-            strBody.Append("            </table> ")
-            strBody.Append("     </div> ")
-
-
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <table style='width:100%'>")
-            strBody.AppendFormat("        <tr>")
-            strBody.AppendFormat("            <td style='vertical-align: top'>")
-            strBody.AppendFormat("                <fieldset>")
-            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
-            strBody.AppendFormat("                    <table width='100%'>")
-            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-            strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
-            strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Movimiento:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>Transferencia Bancaria</td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Banco:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Fecha:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Importe:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Observaciones:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td colspan='2'>")
-            strBody.AppendFormat("                                <hr />")
-            strBody.AppendFormat("                            </td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                    </table>")
-            strBody.AppendFormat("                </fieldset>")
-            strBody.AppendFormat("            </td>")
-            strBody.AppendFormat("      </tr>")
-            strBody.AppendFormat("  </table>")
-            strBody.AppendFormat("</div>")
-
-
-
-            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
-
-            strBody.Append("</body></html>")
-        End If
-
-        Return strBody.ToString
-    End Function
+    '        'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+    '        '    strBody.Append("                <tr style=""height: 22px""> ")
+    '        '    strBody.Append("              <td>Usted puede pasar a recorger el cheque en las oficinas administrativas.</td> ")
+    '        '    strBody.Append("                </tr> ")
+    '        'End If
+
+    '        ' If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+    '        strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("              <td>Se notifica el envío de transferencia de pago.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        ' End If
+
+    '        strBody.Append("                <tr style=""height: 22px""> ")
+    '        strBody.AppendFormat("              <td>&nbsp;</td> ")
+    '        strBody.Append("                </tr> ")
+    '        strBody.Append("            </table> ")
+    '        strBody.Append("     </div> ")
+
+
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <table style='width:100%'>")
+    '        strBody.AppendFormat("        <tr>")
+    '        strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '        strBody.AppendFormat("                <fieldset>")
+    '        strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+    '        strBody.AppendFormat("                    <table width='100%'>")
+    '        strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width: 50%'></th>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Movimiento:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>Transferencia Bancaria</td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Banco:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Fecha:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Importe:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Observaciones:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td colspan='2'>")
+    '        strBody.AppendFormat("                                <hr />")
+    '        strBody.AppendFormat("                            </td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                    </table>")
+    '        strBody.AppendFormat("                </fieldset>")
+    '        strBody.AppendFormat("            </td>")
+    '        strBody.AppendFormat("      </tr>")
+    '        strBody.AppendFormat("  </table>")
+    '        strBody.AppendFormat("</div>")
+
+
+
+    '        strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+
+    '        strBody.Append("</body></html>")
+    '    End If
+
+    '    Return strBody.ToString
+    'End Function
 
 #End Region
 
-#Region " GENERA CORREO 2"
 
-    Private Function GeneraCorreo2(Dr As DataRow, ByRef ObjIE As ClsBancos, CveIE As Integer) As String
-        Dim strBody As New StringBuilder
-
-
-        strBody.Append("	<html xmlns:v='urn:schemas-microsoft-com:vml' xmlns:o='urn:schemas-microsoft-com:office:office' xmlns:w='urn:schemas-microsoft-com:office:word' xmlns:m='http://schemas.microsoft.com/office/2004/12/omml' xmlns='http://www.w3.org/TR/REC-html40'> ")
-        strBody.Append("	<head> ")
-        strBody.Append("	<meta http-equiv=Content-Type content='text/html; charset=utf-8'> ")
-        strBody.Append("	<meta name=Generator content='Microsoft Word 15 (filtered medium)'> ")
-        strBody.Append("	<!--[if !mso]><style>v\:* {behavior:url(#default#VML);} ")
-        strBody.Append("		o\:* {behavior:url(#default#VML);} ")
-        strBody.Append("		w\:* {behavior:url(#default#VML);} ")
-        strBody.Append("		.shape {behavior:url(#default#VML);} ")
-        strBody.Append("		</style><![endif]--> ")
-        strBody.Append("	<style> ")
-        strBody.Append("	<!-- ")
-        strBody.Append("		/* Font Definitions */ ")
-        strBody.Append("		@font-face ")
-        strBody.Append("			{font-family:'Cambria Math'; ")
-        strBody.Append("			panose-1:2 4 5 3 5 4 6 3 2 4;} ")
-        strBody.Append("		@font-face ")
-        strBody.Append("			{font-family:Calibri; ")
-        strBody.Append("			panose-1:2 15 5 2 2 2 4 3 2 4;} ")
-        strBody.Append("		@font-face ")
-        strBody.Append("			{font-family:tahoma; ")
-        strBody.Append("			panose-1:2 11 6 4 3 5 4 4 2 4;} ")
-        strBody.Append("		/* Style Definitions */ ")
-        strBody.Append("		p.MsoNormal, li.MsoNormal, div.MsoNormal ")
-        strBody.Append("			{margin:0cm; ")
-        strBody.Append("			margin-bottom:.0001pt; ")
-        strBody.Append("			font-size:12.0pt; ")
-        strBody.Append("			font-family:'Times New Roman',serif;} ")
-        strBody.Append("		a:link, span.MsoHyperlink ")
-        strBody.Append("			{mso-style-priority:99; ")
-        strBody.Append("			color:blue; ")
-        strBody.Append("			text-decoration:underline;} ")
-        strBody.Append("		a:visited, span.MsoHyperlinkFollowed ")
-        strBody.Append("			{mso-style-priority:99; ")
-        strBody.Append("			color:purple; ")
-        strBody.Append("			text-decoration:underline;} ")
-        strBody.Append("		p ")
-        strBody.Append("			{mso-style-priority:99; ")
-        strBody.Append("			mso-margin-top-alt:auto; ")
-        strBody.Append("			margin-right:0cm; ")
-        strBody.Append("			mso-margin-bottom-alt:auto; ")
-        strBody.Append("			margin-left:0cm; ")
-        strBody.Append("			font-size:12.0pt; ")
-        strBody.Append("			font-family:'Times New Roman',serif;} ")
-        strBody.Append("		span.EstiloCorreo18 ")
-        strBody.Append("			{mso-style-type:personal; ")
-        strBody.Append("			font-family:'Calibri',sans-serif; ")
-        strBody.Append("			color:#1F497D;} ")
-        strBody.Append("		span.EstiloCorreo19 ")
-        strBody.Append("			{mso-style-type:personal-reply; ")
-        strBody.Append("			font-family:'Calibri',sans-serif; ")
-        strBody.Append("			color:#1F497D;} ")
-        strBody.Append("		.MsoChpDefault ")
-        strBody.Append("			{mso-style-type:export-only; ")
-        strBody.Append("			font-size:10.0pt;} ")
-        strBody.Append("		@page WordSection1 ")
-        strBody.Append("			{size:612.0pt 792.0pt; ")
-        strBody.Append("			margin:70.85pt 3.0cm 70.85pt 3.0cm;} ")
-        strBody.Append("		div.WordSection1 ")
-        strBody.Append("			{page:WordSection1;} ")
-        strBody.Append("		--> ")
-
-        strBody.Append("	.demo { ")
-        strBody.Append("		border:1px solid #A6A6A6; ")
-        strBody.Append("		border-collapse:collapse; ")
-        strBody.Append("		padding:5px; ")
-        strBody.Append("		font-size:12px; ")
-        strBody.Append("	} ")
-        strBody.Append("	.demo th { ")
-        strBody.Append("		border:1px solid #A6A6A6; ")
-        strBody.Append("		padding:5px; ")
-        strBody.Append("		background:#C3C3C3; ")
-        strBody.Append("	} ")
-        strBody.Append("	.demo td { ")
-        strBody.Append("		border:1px solid #A6A6A6; ")
-        strBody.Append("		padding:5px; ")
-        strBody.Append("	} ")
-        strBody.Append("    Table caption{")
-        strBody.Append("        font-size:  20px;")
-        strBody.Append("    }")
-
-
-        strBody.Append("	</style> ")
-        strBody.Append("	<!--[if gte mso 9]><xml> <o: shapedefaults v:ext='edit' spidmax='1027' /> </xml><![endif]--> ")
-        strBody.Append("	<!--[if gte mso 9]><xml> <o:shapelayout v:ext='edit'> <o:idmap v:ext='edit' data='1' /> </o:shapelayout></xml><![endif]--> ")
-        strBody.Append("	</head> ")
-        strBody.Append("	<body lang=ES-MX link=blue vlink=purple> ")
-        strBody.Append("	<div class=WordSection1> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-
-
-        'strBody.Append("			<b><span lang=ES style=""font-size:10.0pt;font-family:'Tahoma',sans-serif"">De:</span></b><span lang=ES style=""font-size:10.0pt;font-family:'Tahoma',sans-serif""> Bancomer.com [<a href='#' target='_blank'>mailto:alertatdu@serviciobancomer.com</a>] <br> ")
-
-        strBody.Append("		</div style=""width:100%;""> ")
-        strBody.AppendFormat("		    <img border=0 src='{0}Imagenes/Publico/header.png'> ", UrlSitio)
-        strBody.Append("		<div> ")
-
-
-        strBody.AppendFormat("			<b>Enviado el:</b> {0} {1}<br> ", Date.Now.ToLongDateString, Date.Now.ToShortTimeString)
-        strBody.AppendFormat("			<b>Para:</b><a href='mailto:{0}' target='_blank'>{0}</a><br> ", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", ""))
-        strBody.Append("			<b>Asunto:</b> CONFIRMACION SIT DISPERSION</span><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("			<span lang=ES>&nbsp;<o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<div> ")
-        strBody.Append("			<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("				<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099""><img border=0 id='_x0000_i1025' src='{0}Imagenes/Publico/comun_logo.gif'></span><span lang=ES><o:p></o:p></span> ", UrlSitio)
-        strBody.Append("			</p> ")
-        strBody.Append("		</div> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("			<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099"">&nbsp;</span><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal align=center style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;text-align:center""> ")
-        strBody.Append("			<b><span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:black"">Confirmación de pago realizado bajo las siguientes condiciones:</span></b><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<table class=MsoNormalTable border=1 cellspacing=0 cellpadding=0 width=667 style=""width:500.25pt;background:white;border:none;border-bottom:solid black 1.0pt""> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NOMBRE DEL CLIENTE: </span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", UsuarioActual.Empresa.Empresa)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NÚMERO DE CONVENIO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("NumeroConvenio").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">CLAVE DEL PROVEEDOR:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("ClaveProveedor").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">NOMBRE DEL PROVEEDOR/TERCERO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Proveedor").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">REFERENCIA DEL PAGO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("ReferenciaPago").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">TIPO DE PAGO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("TipoPago").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">CUENTA DE ABONO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Cuenta").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">IMPORTE DEL PAGO:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:#009EE5"">${0}</span></b><b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">&nbsp; </span></b><o:p></o:p> ", Dr("Importe").ToString.FormatoNumero)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">FECHA DE OPERACIÓN</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("FechaOperacion").ToString)
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		<tr style=""height:17.25pt""> ")
-        strBody.Append("			<td width=253 style=""width:189.75pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("					<span style=""font-size:10.5pt;font-family:'Courier New';color:black"">MENSAJE ADICIONAL:</span><o:p></o:p> ")
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("			<td width=406 nowrap style=""width:304.5pt;border:none;border-bottom:solid windowtext 1.0pt;padding:.75pt .75pt .75pt .75pt;height:17.25pt""> ")
-        strBody.Append("				<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.AppendFormat("					<b><span style=""font-size:10.5pt;font-family:'Courier New';color:black"">{0}</span></b><o:p></o:p> ", Dr("Observaciones").ToString.PadRight(70, " "c).Replace(" ", "&nbsp;"))
-        strBody.Append("				</p> ")
-        strBody.Append("			</td> ")
-        strBody.Append("		</tr> ")
-        strBody.Append("		</table> ")
-
-
-
-        strBody.Append("		</div style=""width:100%;""> ")
-        strBody.AppendFormat("		    <img border=0 src='{0}Imagenes/Publico/footer.png'> ", UrlSitio)
-        strBody.Append("		<div> ")
-
-
-
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;margin-bottom:12.0pt""> ")
-        strBody.Append("			<span lang=ES style=""font-size:10.5pt;font-family:'Courier New';color:#000099"">&nbsp;</span><span lang=ES><o:p></o:p></span> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-        strBody.Append("		<p class=MsoNormal style=""mso-margin-top-alt:auto;mso-margin-bottom-alt:auto""> ")
-        strBody.Append("			<o:p>&nbsp;</o:p> ")
-        strBody.Append("		</p> ")
-
-
-        If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-                Dim dtMovs As DataTable
-
-                Dim Mov As New ClsContabilidad
-                If Mov.GetPrePolizasDetalle(-1, CveIE) Then
-                    dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17)")
-
-                    strBody.Append("		<table  class=""demo""> ")
-                    strBody.Append("		<caption>Listado de facturas pagadas</caption> ")
-
-                    strBody.Append("			<thead> ")
-                    strBody.Append("				<tr> ")
-                    strBody.Append("					<th style=""width:150px"">Factura</td> ")
-                    strBody.Append("					<th style=""width:80px"">Fecha</td> ")
-                    strBody.Append("					<th style=""width:100px"">Original</td> ")
-                    strBody.Append("					<th style=""width:100px"">Abonado</td> ")
-                    strBody.Append("					<th style=""width:100px"">Nota Crédito</td> ")
-                    strBody.Append("					<th style=""width:100px"">Saldo</td> ")
-                    strBody.Append("				</tr> ")
-                    strBody.Append("			</thead> ")
-                    strBody.Append("			<tbody> ")
-
-                    For Each Dr2 As DataRow In dtMovs.Rows
-                        strBody.Append("				<tr> ")
-                        strBody.Append($"					<td style=""width:150px;text-align:left;"">{Dr2("SerieFolio")}</td> ")
-                        strBody.Append($"					<td style=""width:80px;text-align:center;"">{Dr2("FechaCompra").ToString.ToDate.ToShortDateString}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Total").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Importe").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("ImporteNC").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append($"					<td style=""width:100px;text-align:right;"">{Dr2("Saldo").ToString.ToDouble.FormatoNumero}</td> ")
-                        strBody.Append("				</tr> ")
-                    Next
-
-                    strBody.Append("			</tbody> ")
-                    strBody.Append("		</table> ")
-
-                    strBody.Append("	</div> ")
-                    strBody.Append("	</body> ")
-                    strBody.Append("	</html> ")
-
-                End If
-                Mov.Dispose()
-
-            End If
-        End If
-
-        Return strBody.ToString
-    End Function
-
-
-#End Region
 
 
 
@@ -3019,8 +2693,8 @@ Partial Class Bancos_PagoElectronicoGrupos
                 FDestino = ""
             End If
 
-            NotificacionPago(CveIE, NotificarA, FDestino)
-
+            'NotificacionPago(CveIE, NotificarA, FDestino)
+            EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)
             CargaEnviados()
 
             For Each RowGV As GridViewRow In GvEnviadas.Rows
@@ -3330,273 +3004,320 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
 
-    Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String, RutaComprobante As String)
-
-        Dim Body As String = GeneraCorreo(CveIE)
-        'Dim Comprobante As String = ""
-
-        Dim File As Byte() = Nothing
-
-        Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, RutaComprobante, File))
-        Hilo.Start()
+    'Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String, RutaComprobante As String)
 
 
+
+    '    If CorreoNotificarA.Length > 0 Then
+    '        Dim Body As String = GeneraCorreo(CveIE)
+    '        'Dim Comprobante As String = ""
+
+    '        Dim File As Byte() = Nothing
+
+    '        Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, RutaComprobante, File))
+    '        Hilo.Start()
+    '    End If
+
+
+
+
+    'End Sub
+
+
+    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()
+
+
+            If MostarAlert Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            End If
+
+        Catch ex As Exception
+
+            If MostarAlert Then
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+
+
+        End Try
     End Sub
 
-    Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
+    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+
         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 ObjBancos As New ClsBancos()
 
-            Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
-            If Comprobante IsNot Nothing AndAlso Comprobante <> "" Then
-                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Comprobante})
+            If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
             End If
 
-            If File IsNot Nothing Then
-                ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
-            End If
+            ObjBancos.Dispose()
 
-            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)
+            GuardaLog("Error al enviar notificación de pago PagoElectronicoGrupos --> " & ex.StackTrace.ToString)
         End Try
 
     End Sub
 
+    '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
+    'Private Function GeneraCorreo(CveIE As Integer) As String
 
-        If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
-            strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
-            strBody.Append("<head> ")
-            strBody.Append("    <style type=""text/css""> ")
-            strBody.Append("        body ")
-            strBody.Append("        { ")
-            strBody.Append("            margin:0px; ")
-            strBody.Append("            padding:0px 0px 0px 0px; ")
-            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
-            strBody.Append("            font-size: 10px; ")
-            strBody.Append("            background-color:#F0F0F0; ")
-            strBody.Append("        } ")
-            strBody.Append("        a.Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            font-size:11px; ")
-            strBody.Append("            background-color:#F7F6F3; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .TextoAlterno ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .BarraIdentidad ")
-            strBody.Append("        { ")
-            strBody.Append("            color:#FFFFFF; ")
-            strBody.Append("            background:#F0F0F0; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("            font-size:19px; ")
-            strBody.Append("            font-style:oblique; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Titulos ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color: Gray;")
-            strBody.Append("            color:White;  ")
-            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Verde {color: #00CC00;} ")
-            strBody.Append("        .Negro {color: #000000;} ")
-            strBody.Append("        .Rojo {color: #FF0000;} ")
-            strBody.Append("    </style> ")
-            strBody.Append("</head> ")
-            strBody.Append("<body> ")
-            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
-            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("        </table>")
-            strBody.AppendFormat("    </fieldset>")
-            strBody.AppendFormat("</div><br/><br/>")
+    '    Dim strBody As New StringBuilder
+    '    Dim objIE As New ClsBancos
 
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b> </b></legend>")
-            strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+    '    If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+    '        strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
+    '        strBody.Append("<head> ")
+    '        strBody.Append("    <style type=""text/css""> ")
+    '        strBody.Append("        body ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            margin:0px; ")
+    '        strBody.Append("            padding:0px 0px 0px 0px; ")
+    '        strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+    '        strBody.Append("            font-size: 10px; ")
+    '        strBody.Append("            background-color:#F0F0F0; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        a.Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            font-size:11px; ")
+    '        strBody.Append("            background-color:#F7F6F3; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .TextoAlterno ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .BarraIdentidad ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            color:#FFFFFF; ")
+    '        strBody.Append("            background:#F0F0F0; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("            font-size:19px; ")
+    '        strBody.Append("            font-style:oblique; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Titulos ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color: Gray;")
+    '        strBody.Append("            color:White;  ")
+    '        strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Verde {color: #00CC00;} ")
+    '        strBody.Append("        .Negro {color: #000000;} ")
+    '        strBody.Append("        .Rojo {color: #FF0000;} ")
+    '        strBody.Append("    </style> ")
+    '        strBody.Append("</head> ")
+    '        strBody.Append("<body> ")
+    '        strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+    '        strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("        </table>")
+    '        strBody.AppendFormat("    </fieldset>")
+    '        strBody.AppendFormat("</div><br/><br/>")
 
-            'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
-            '    strBody.Append("                <tr style=""height: 22px""> ")
-            '    strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
-            '    strBody.Append("                </tr> ")
-            'End If
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b> </b></legend>")
+    '        strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
 
-            'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-            strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
-                strBody.Append("                </tr> ")
-            'End If
+    '        'If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+    '        '    strBody.Append("                <tr style=""height: 22px""> ")
+    '        '    strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
+    '        '    strBody.Append("                </tr> ")
+    '        'End If
 
-            strBody.Append("                    <tr style=""height: 22px""> ")
-            strBody.AppendFormat("                  <td>&nbsp;</td> ")
-            strBody.Append("                    </tr> ")
-            strBody.Append("                </table> ")
-            strBody.AppendFormat("      </fieldset>")
-            strBody.Append("    </div> ")
+    '        'If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+    '        strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        'End If
+
+    '        strBody.Append("                    <tr style=""height: 22px""> ")
+    '        strBody.AppendFormat("                  <td>&nbsp;</td> ")
+    '        strBody.Append("                    </tr> ")
+    '        strBody.Append("                </table> ")
+    '        strBody.AppendFormat("      </fieldset>")
+    '        strBody.Append("    </div> ")
 
 
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <table style='width:100%'>")
-            strBody.AppendFormat("        <tr>")
-            strBody.AppendFormat("            <td style='vertical-align: top'>")
-            strBody.AppendFormat("                <fieldset>")
-            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
-            strBody.AppendFormat("                    <table width='100%'>")
-            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-            strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
-            strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Movimiento:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Banco:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Cuenta:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
-            strBody.AppendFormat("                        </tr>")
-            If objIE.CuentaDepositado.ToString <> "" Then
-                strBody.AppendFormat("                        <tr class='Texto'>")
-                strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
-                strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
-                strBody.AppendFormat("                        </tr>")
-            End If
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Fecha:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Importe:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Observaciones:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td colspan='2'>")
-            strBody.AppendFormat("                                <hr />")
-            strBody.AppendFormat("                            </td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                    </table>")
-            strBody.AppendFormat("                </fieldset>")
-            strBody.AppendFormat("            </td>")
-            strBody.AppendFormat("      </tr>")
-            strBody.AppendFormat("  </table>")
-            strBody.AppendFormat("</div>")
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <table style='width:100%'>")
+    '        strBody.AppendFormat("        <tr>")
+    '        strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '        strBody.AppendFormat("                <fieldset>")
+    '        strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+    '        strBody.AppendFormat("                    <table width='100%'>")
+    '        strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Movimiento:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Banco:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Cuenta:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
+    '        strBody.AppendFormat("                        </tr>")
+    '        If objIE.CuentaDepositado.ToString <> "" Then
+    '            strBody.AppendFormat("                        <tr class='Texto'>")
+    '            strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
+    '            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
+    '            strBody.AppendFormat("                        </tr>")
+    '        End If
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Fecha:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Importe:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Observaciones:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td colspan='2'>")
+    '        strBody.AppendFormat("                                <hr />")
+    '        strBody.AppendFormat("                            </td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                    </table>")
+    '        strBody.AppendFormat("                </fieldset>")
+    '        strBody.AppendFormat("            </td>")
+    '        strBody.AppendFormat("      </tr>")
+    '        strBody.AppendFormat("  </table>")
+    '        strBody.AppendFormat("</div>")
 
 
-            'MOVIMIENTOS CHEQUE
-            If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-                Dim Textov33 As String = ""
-                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-                End If
+    '        'MOVIMIENTOS CHEQUE
+    '        If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+    '            Dim Textov33 As String = ""
+    '            If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
+    '                Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
+    '            End If
 
-                strBody.AppendFormat("<div style='width: 1000px'>")
-                strBody.AppendFormat("    <table style='width:1000px'>")
-                strBody.AppendFormat("        <tr>")
-                strBody.AppendFormat("            <td style='vertical-align: top'>")
-                strBody.AppendFormat("                <fieldset>")
-                strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
-                strBody.AppendFormat("                    <table width='1000px'>")
-                strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
-                strBody.AppendFormat("                        </tr>")
+    '            strBody.AppendFormat("<div style='width: 1000px'>")
+    '            strBody.AppendFormat("    <table style='width:1000px'>")
+    '            strBody.AppendFormat("        <tr>")
+    '            strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '            strBody.AppendFormat("                <fieldset>")
+    '            strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
+    '            strBody.AppendFormat("                    <table width='1000px'>")
+    '            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
+    '            strBody.AppendFormat("                        </tr>")
 
 
-                For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
-                    strBody.AppendFormat("                        <tr class='Texto'>")
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
-                    strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
-                    strBody.AppendFormat("                        </tr>")
-                Next
+    '            For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+    '                strBody.AppendFormat("                        <tr class='Texto'>")
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
+    '                strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
+    '                strBody.AppendFormat("                        </tr>")
+    '            Next
 
 
-                strBody.AppendFormat("                        <tr class='Texto'>")
-                strBody.AppendFormat("                            <td colspan='5'>")
-                strBody.AppendFormat("                                <hr />")
-                strBody.AppendFormat("                            </td>")
-                strBody.AppendFormat("                        </tr>")
-                strBody.AppendFormat("                    </table>")
-                strBody.AppendFormat("                </fieldset>")
-                strBody.AppendFormat("            </td>")
-                strBody.AppendFormat("      </tr>")
-                strBody.AppendFormat("  </table>")
-                strBody.AppendFormat("</div>")
-            End If
+    '            strBody.AppendFormat("                        <tr class='Texto'>")
+    '            strBody.AppendFormat("                            <td colspan='5'>")
+    '            strBody.AppendFormat("                                <hr />")
+    '            strBody.AppendFormat("                            </td>")
+    '            strBody.AppendFormat("                        </tr>")
+    '            strBody.AppendFormat("                    </table>")
+    '            strBody.AppendFormat("                </fieldset>")
+    '            strBody.AppendFormat("            </td>")
+    '            strBody.AppendFormat("      </tr>")
+    '            strBody.AppendFormat("  </table>")
+    '            strBody.AppendFormat("</div>")
+    '        End If
 
-            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+    '        strBody.Append("   <div> Favor de no responder a este correo. </div> ")
 
-            strBody.Append("</body></html>")
-        End If
+    '        strBody.Append("</body></html>")
+    '    End If
 
-        objIE.Dispose()
-        Return strBody.ToString
+    '    objIE.Dispose()
+    '    Return strBody.ToString
 
-    End Function
+    'End Function
 
 
 
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 7dd634876..639c41138 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -437,6 +437,22 @@ Partial Class Bancos_PopIECompras
         End Set
     End Property
 
+    Private Property NotificarA As String
+        Get
+            If ViewState("NotificarA") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("NotificarA").ToString
+            End If
+
+        End Get
+        Set(value As String)
+            ViewState("NotificarA") = value
+        End Set
+    End Property
+
+
+
 #End Region
 
     Private Sub Bancos_PopIECompras_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -724,6 +740,10 @@ Partial Class Bancos_PopIECompras
                 ViewState("CveCuentaRetIVA") = ObjProveedor.CveCuentaRetIVA
                 ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
                 ViewState("CveCuentaComplementaria") = ObjProveedor.CveCuentaProveedoresComplementaria
+                ViewState("NotificarA") = ObjProveedor.NotificarA.Trim()
+
+
+
             Else
                 Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
             End If
@@ -3351,7 +3371,10 @@ Partial Class Bancos_PopIECompras
             If IdPoliza > 0 Then
                 StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
             End If
-            If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
+            If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
+
+            EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)
+
         Else
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgError)
@@ -3359,11 +3382,60 @@ Partial Class Bancos_PopIECompras
 
         ObjIE.Dispose()
         ObjMov.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
+
+#Region "ENVIAR CORREO NOTIFICACION DE PAGO"
+
+
+    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))
+            'Dim Hilo As New Threading.Thread(  EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
+            Hilo.Start()
+
+
+            If MostarAlert Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            End If
+
+        Catch ex As Exception
+
+            If MostarAlert Then
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+
+
+        End Try
+    End Sub
+
+    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+
+        Try
+            Dim ObjBancos As New ClsBancos()
+
+            If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+
+            ObjBancos.Dispose()
+
+        Catch ex As Exception
+            GuardaLog("Error al enviar notificación de pago PopIECompras --> " & ex.StackTrace.ToString)
+        End Try
+
+
+
+    End Sub
+
+#End Region
+
 #Region "COMPLEMENTO DE PAGO"
-
+
     Private Sub GeneraTimbre(CvePrePoliza As Integer)
 
         Dim Str As New StringBuilder
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 5ce744e3b..c19a66acc 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2365,7 +2365,8 @@ Partial Class Bancos_ProveedoresAbonar
 
                         'Notificación de Pago
                         If TxtNotificarA.Text.Trim <> "" AndAlso ChkEnviarCorreo.Checked Then
-                            NotificacionPago(CveIE, TxtNotificarA.Text.Trim)
+                            'NotificacionPago(CveIE, TxtNotificarA.Text.Trim)
+                            EnviarCorreoNotificacion(CveIE, TxtNotificarA.Text.Trim, "", UsuarioActual, False)
                         End If
 
                     End If
@@ -2785,261 +2786,302 @@ Partial Class Bancos_ProveedoresAbonar
 
 #Region "  NOTIFICACION PAGO  "
 
-    Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
 
-        If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
-            'Dim Param As New List(Of String)
 
-            'Param.Add(CorreoNotificarA) 'Para
-            'Param.Add("Notificaciones de pago") 'Asunto
-            'Param.Add(GeneraCorreo(CveIE)) 'Body
-            'Param.Add(CveIE.ToString) 'CveIE
-            Dim Body As String = GeneraCorreo(CveIE)
-            Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto
+    Private Sub EnviarCorreoNotificacion(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario, MostarAlert As Boolean)
 
-            Dim File As Byte() = Nothing
-            If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then
-                File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre)
-            End If
-
-            Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
+        Try
+            Dim Hilo As New Threading.Thread(Sub() EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
+            'Dim Hilo As New Threading.Thread(  EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar))
             Hilo.Start()
-        End If
+
+            If MostarAlert Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            End If
+
+        Catch ex As Exception
+
+            If MostarAlert Then
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+
+
+        End Try
+    End Sub
+
+    Private Sub EnviarCorreoNotifiMandaCorreocacionHilo(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActualNotificar As Usuario)
+
+
+        Try
+            Dim ObjBancos As New ClsBancos()
+
+            If ObjBancos.NotificacionPago(CveIENotificar, CorreoNotificarA, CopiaPara, UsuarioActualNotificar) Then
+                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+            End If
+
+            ObjBancos.Dispose()
+        Catch ex As Exception
+            GuardaLog("Error al enviar notificación de pago ProveedoresAbonar --> " & ex.StackTrace.ToString)
+        End Try
+
+
 
     End Sub
 
-    Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
-        'Dim Parametros As List(Of String) = DirectCast(Data, List(Of String))
-
-        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
-
-        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
-            Dim objIE As New ClsBancos
-            objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
-            objIE.Dispose()
-        End If
-    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("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
-            strBody.Append("<head> ")
-            strBody.Append("    <style type=""text/css""> ")
-            strBody.Append("        body ")
-            strBody.Append("        { ")
-            strBody.Append("            margin:0px; ")
-            strBody.Append("            padding:0px 0px 0px 0px; ")
-            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
-            strBody.Append("            font-size: 10px; ")
-            strBody.Append("            background-color:#F0F0F0; ")
-            strBody.Append("        } ")
-            strBody.Append("        a.Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            font-size:11px; ")
-            strBody.Append("            background-color:#F7F6F3; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Texto ")
-            strBody.Append("        { ")
-            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .TextoAlterno ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; height:20px;")
-            strBody.Append("        } ")
-            strBody.Append("        .BarraIdentidad ")
-            strBody.Append("        { ")
-            strBody.Append("            color:#FFFFFF; ")
-            strBody.Append("            background:#F0F0F0; ")
-            strBody.Append("            font-weight:bold; ")
-            strBody.Append("            font-size:19px; ")
-            strBody.Append("            font-style:oblique; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Titulos ")
-            strBody.Append("        { ")
-            strBody.Append("            background-color: Gray;")
-            strBody.Append("            color:White;  ")
-            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
-            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
-            strBody.Append("            text-decoration:none; ")
-            strBody.Append("        } ")
-            strBody.Append("        .Verde {color: #00CC00;} ")
-            strBody.Append("        .Negro {color: #000000;} ")
-            strBody.Append("        .Rojo {color: #FF0000;} ")
-            strBody.Append("    </style> ")
-            strBody.Append("</head> ")
-            strBody.Append("<body> ")
-            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
-            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("            <tr>")
-            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
-            strBody.AppendFormat("            </tr>")
-            strBody.AppendFormat("        </table>")
-            strBody.AppendFormat("    </fieldset>")
-            strBody.AppendFormat("</div><br/><br/>")
-
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <fieldset>")
-            strBody.AppendFormat("        <legend><b> </b></legend>")
-            strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
-
-            If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
-                strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
-            If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
-                strBody.Append("                <tr style=""height: 22px""> ")
-                strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
-                strBody.Append("                </tr> ")
-            End If
-
-            strBody.Append("                    <tr style=""height: 22px""> ")
-            strBody.AppendFormat("                  <td>&nbsp;</td> ")
-            strBody.Append("                    </tr> ")
-            strBody.Append("                </table> ")
-            strBody.AppendFormat("      </fieldset>")
-            strBody.Append("    </div> ")
 
 
-            strBody.AppendFormat("<div style='width: 600px'>")
-            strBody.AppendFormat("    <table style='width:100%'>")
-            strBody.AppendFormat("        <tr>")
-            strBody.AppendFormat("            <td style='vertical-align: top'>")
-            strBody.AppendFormat("                <fieldset>")
-            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
-            strBody.AppendFormat("                    <table width='100%'>")
-            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-            strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
-            strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Movimiento:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Banco:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Cuenta:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
-            strBody.AppendFormat("                        </tr>")
-            If objIE.CuentaDepositado.ToString <> "" Then
-                strBody.AppendFormat("                        <tr class='Texto'>")
-                strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
-                strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
-                strBody.AppendFormat("                        </tr>")
-            End If
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Fecha:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Importe:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td>Observaciones:</td>")
-            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                        <tr class='Texto'>")
-            strBody.AppendFormat("                            <td colspan='2'>")
-            strBody.AppendFormat("                                <hr />")
-            strBody.AppendFormat("                            </td>")
-            strBody.AppendFormat("                        </tr>")
-            strBody.AppendFormat("                    </table>")
-            strBody.AppendFormat("                </fieldset>")
-            strBody.AppendFormat("            </td>")
-            strBody.AppendFormat("      </tr>")
-            strBody.AppendFormat("  </table>")
-            strBody.AppendFormat("</div>")
+    'Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
+
+    '    If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
+
+    '        Dim Body As String = GeneraCorreo(CveIE)
+    '        Dim Comprobante = If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "") 'Archivo Adjunto
+
+    '        Dim File As Byte() = Nothing
+    '        If UsuarioActual.Empresa.Funcionalidad(545).ToEntero > 0 Then
+    '            File = NewGeneraBytesCxP(CveProveedor, UsuarioActual.Nombre)
+    '        End If
+
+    '        Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, CveIE, Comprobante, File))
+    '        Hilo.Start()
+    '    End If
+
+    'End Sub
+
+    'Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
+    '    'Dim Parametros As List(Of String) = DirectCast(Data, List(Of String))
+
+    '    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
+
+    '    If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
+    '        Dim objIE As New ClsBancos
+    '        objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
+    '        objIE.Dispose()
+    '    End If
+    '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("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
+    '        strBody.Append("<head> ")
+    '        strBody.Append("    <style type=""text/css""> ")
+    '        strBody.Append("        body ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            margin:0px; ")
+    '        strBody.Append("            padding:0px 0px 0px 0px; ")
+    '        strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+    '        strBody.Append("            font-size: 10px; ")
+    '        strBody.Append("            background-color:#F0F0F0; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        a.Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            font-size:11px; ")
+    '        strBody.Append("            background-color:#F7F6F3; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Texto ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .TextoAlterno ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; height:20px;")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .BarraIdentidad ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            color:#FFFFFF; ")
+    '        strBody.Append("            background:#F0F0F0; ")
+    '        strBody.Append("            font-weight:bold; ")
+    '        strBody.Append("            font-size:19px; ")
+    '        strBody.Append("            font-style:oblique; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Titulos ")
+    '        strBody.Append("        { ")
+    '        strBody.Append("            background-color: Gray;")
+    '        strBody.Append("            color:White;  ")
+    '        strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+    '        strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+    '        strBody.Append("            text-decoration:none; ")
+    '        strBody.Append("        } ")
+    '        strBody.Append("        .Verde {color: #00CC00;} ")
+    '        strBody.Append("        .Negro {color: #000000;} ")
+    '        strBody.Append("        .Rojo {color: #FF0000;} ")
+    '        strBody.Append("    </style> ")
+    '        strBody.Append("</head> ")
+    '        strBody.Append("<body> ")
+    '        strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+    '        strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("            <tr>")
+    '        strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+    '        strBody.AppendFormat("            </tr>")
+    '        strBody.AppendFormat("        </table>")
+    '        strBody.AppendFormat("    </fieldset>")
+    '        strBody.AppendFormat("</div><br/><br/>")
+
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <fieldset>")
+    '        strBody.AppendFormat("        <legend><b> </b></legend>")
+    '        strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+
+    '        If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+    '            strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        End If
+
+    '        If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+    '            strBody.Append("                <tr style=""height: 22px""> ")
+    '            strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
+    '            strBody.Append("                </tr> ")
+    '        End If
+
+    '        strBody.Append("                    <tr style=""height: 22px""> ")
+    '        strBody.AppendFormat("                  <td>&nbsp;</td> ")
+    '        strBody.Append("                    </tr> ")
+    '        strBody.Append("                </table> ")
+    '        strBody.AppendFormat("      </fieldset>")
+    '        strBody.Append("    </div> ")
 
 
-            'MOVIMIENTOS CHEQUE
-            If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-                Dim Textov33 As String = ""
-                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-                End If
-
-                strBody.AppendFormat("<div style='width: 1000px'>")
-                strBody.AppendFormat("    <table style='width:1000px'>")
-                strBody.AppendFormat("        <tr>")
-                strBody.AppendFormat("            <td style='vertical-align: top'>")
-                strBody.AppendFormat("                <fieldset>")
-                strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
-                strBody.AppendFormat("                    <table width='1000px'>")
-                strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
-                strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
-                strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("<div style='width: 600px'>")
+    '        strBody.AppendFormat("    <table style='width:100%'>")
+    '        strBody.AppendFormat("        <tr>")
+    '        strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '        strBody.AppendFormat("                <fieldset>")
+    '        strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+    '        strBody.AppendFormat("                    <table width='100%'>")
+    '        strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
+    '        strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Movimiento:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Banco:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Cuenta:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
+    '        strBody.AppendFormat("                        </tr>")
+    '        If objIE.CuentaDepositado.ToString <> "" Then
+    '            strBody.AppendFormat("                        <tr class='Texto'>")
+    '            strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
+    '            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
+    '            strBody.AppendFormat("                        </tr>")
+    '        End If
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Fecha:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Importe:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td>Observaciones:</td>")
+    '        strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                        <tr class='Texto'>")
+    '        strBody.AppendFormat("                            <td colspan='2'>")
+    '        strBody.AppendFormat("                                <hr />")
+    '        strBody.AppendFormat("                            </td>")
+    '        strBody.AppendFormat("                        </tr>")
+    '        strBody.AppendFormat("                    </table>")
+    '        strBody.AppendFormat("                </fieldset>")
+    '        strBody.AppendFormat("            </td>")
+    '        strBody.AppendFormat("      </tr>")
+    '        strBody.AppendFormat("  </table>")
+    '        strBody.AppendFormat("</div>")
 
 
-                For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
-                    strBody.AppendFormat("                        <tr class='Texto'>")
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
-                    strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
-                    strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
-                    strBody.AppendFormat("                        </tr>")
-                Next
+    '        'MOVIMIENTOS CHEQUE
+    '        If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+    '            Dim Textov33 As String = ""
+    '            If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
+    '                Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
+    '            End If
+
+    '            strBody.AppendFormat("<div style='width: 1000px'>")
+    '            strBody.AppendFormat("    <table style='width:1000px'>")
+    '            strBody.AppendFormat("        <tr>")
+    '            strBody.AppendFormat("            <td style='vertical-align: top'>")
+    '            strBody.AppendFormat("                <fieldset>")
+    '            strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
+    '            strBody.AppendFormat("                    <table width='1000px'>")
+    '            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
+    '            strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
+    '            strBody.AppendFormat("                        </tr>")
 
 
-                strBody.AppendFormat("                        <tr class='Texto'>")
-                strBody.AppendFormat("                            <td colspan='5'>")
-                strBody.AppendFormat("                                <hr />")
-                strBody.AppendFormat("                            </td>")
-                strBody.AppendFormat("                        </tr>")
-                strBody.AppendFormat("                    </table>")
-                strBody.AppendFormat("                </fieldset>")
-                strBody.AppendFormat("            </td>")
-                strBody.AppendFormat("      </tr>")
-                strBody.AppendFormat("  </table>")
-                strBody.AppendFormat("</div>")
-            End If
+    '            For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+    '                strBody.AppendFormat("                        <tr class='Texto'>")
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
+    '                strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
+    '                strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
+    '                strBody.AppendFormat("                        </tr>")
+    '            Next
 
-            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
 
-            strBody.Append("</body></html>")
-        End If
+    '            strBody.AppendFormat("                        <tr class='Texto'>")
+    '            strBody.AppendFormat("                            <td colspan='5'>")
+    '            strBody.AppendFormat("                                <hr />")
+    '            strBody.AppendFormat("                            </td>")
+    '            strBody.AppendFormat("                        </tr>")
+    '            strBody.AppendFormat("                    </table>")
+    '            strBody.AppendFormat("                </fieldset>")
+    '            strBody.AppendFormat("            </td>")
+    '            strBody.AppendFormat("      </tr>")
+    '            strBody.AppendFormat("  </table>")
+    '            strBody.AppendFormat("</div>")
+    '        End If
 
-        objIE.Dispose()
-        Return strBody.ToString
-    End Function
+    '        strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+
+    '        strBody.Append("</body></html>")
+    '    End If
+
+    '    objIE.Dispose()
+    '    Return strBody.ToString
+    'End Function
 
 #End Region
 
diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx
index 5f9970007..82e7afba0 100644
--- a/CxC/RepCxC.aspx
+++ b/CxC/RepCxC.aspx
@@ -141,6 +141,7 @@
                                     <asp:ListItem Text="Estatus Fact." Value="9"></asp:ListItem>
                                     <asp:ListItem Text="% IVA" Value="10"></asp:ListItem>
                                     <asp:ListItem Text="Límite de Crédito" Value="11"></asp:ListItem>
+                                    <asp:ListItem Text="Tipo Cliente" Value="12"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                         </div>
@@ -322,6 +323,19 @@
                             </div>
                         </div>
 
+
+                        <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
+                            Tipo Cliente:
+                        </div>
+                             
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
                     </div>
 
                 </div>
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb
index 7c3b73753..a207e9e54 100644
--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -199,7 +199,8 @@ Partial Class RepCxC
         If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                             "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
                             If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero,
-                            CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero) Then
+                            CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
+                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
@@ -378,53 +379,53 @@ Partial Class RepCxC
                 End If
             End If
 
-            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
-            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}",
+            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"))
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"))
 
             e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot
 
diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx
index f362fc720..e2805597e 100644
--- a/CxC/RepCxCDetalle.aspx
+++ b/CxC/RepCxCDetalle.aspx
@@ -118,6 +118,7 @@
                                     <asp:ListItem Text="Estatus Fact." Value="9"></asp:ListItem>
                                     <asp:ListItem Text="% IVA" Value="10"></asp:ListItem>
                                     <asp:ListItem Text="Límite de Crédito" Value="11"></asp:ListItem>
+                                    <asp:ListItem Text="Tipo Cliente" Value="12"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                         </div>
@@ -215,6 +216,18 @@
                             </asp:DropDownList>
                         </div>
 
+                         <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
+                            Tipo Cliente:
+                        </div>
+                             
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
 
                     </div>
 
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb
index 8b2f794e6..840738cfe 100644
--- a/CxC/RepCxCDetalle.aspx.vb
+++ b/CxC/RepCxCDetalle.aspx.vb
@@ -178,9 +178,37 @@ Partial Class RepCxCDetalle
         Set(value As Decimal)
             ViewState("LimiteCredito") = value
         End Set
-    End Property
+    End Property
+
+    Private Property TipoCliente As Integer
+        Get
+            If ViewState("TipoCliente") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("TipoCliente"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("TipoCliente") = value
+        End Set
+    End Property
+
+
+    Private Property CveMoneda As Integer
+        Get
+            If ViewState("CveMoneda") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveMoneda"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveMoneda") = value
+        End Set
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             ViewState("Opcion") = IfNull(Request("Op"), "-1")
@@ -252,7 +280,10 @@ Partial Class RepCxCDetalle
         CveCobranzaEstatus = If(Request("CveCobranzaEstatus") IsNot Nothing, Request("CveCobranzaEstatus").ToString, "-1").ToString.ToEntero
         CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToString, "-1").ToString.ToEntero
         LimiteCredito = If(Request("LimiteCredito") IsNot Nothing, Request("LimiteCredito").ToString, "-1").ToString.ToDecimal
-
+        TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString, "-1").ToString.ToEntero
+        CveMoneda = If(Request("CveMoneda") IsNot Nothing, Request("CveMoneda").ToString, "-1").ToString.ToEntero
+
+        DdlTipoCliente.SelectedValueExist(TipoCliente)
 
         If FechaF <> "-1" Then
             txtFechaF.Text = FechaF
@@ -387,7 +418,8 @@ Partial Class RepCxCDetalle
                                    Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
                                    RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF,
                                    FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero,
-                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito) Then
+                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
+                                   CveMoneda:=CveMoneda) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             dt = ObjMovtos.DtResultados
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 81a8d4702..d537bc6bb 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -633,7 +633,7 @@
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control  input-sm select2me" Width="200px">
                                                 <asp:ListItem Selected="True" Value="1">Frecuente</asp:ListItem>
-                                                <asp:ListItem Value="2">No Frecuente</asp:ListItem>
+                                                <asp:ListItem Value="2">Venta Mostrador</asp:ListItem>
                                             </asp:DropDownList>
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index cc9f9197d..e3966aaed 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2277,6 +2277,8 @@ Partial Class Ventas_ClientesAbonar
         IDPoliza = -1
         FolioIECancelado = ""
 
+        Anexo.Text = ""
+
         If UsuarioActual.Empresa.UsaAC Then
             TxtOtrosImportes.Text = ""
             UpDatos.Update()
diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx
index 09b1bb7d9..c917789c2 100644
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -302,7 +302,16 @@
                             <asp:CheckBox runat="server" ID="ChkLitraje" CssClass="mkcheck" />
                         </div>
 
+                          <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
 
+                       
 
                     </div>
                 </div>
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index c51511b3a..b8564290b 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -86,6 +86,7 @@ Partial Class Ventas_RepProductosServicios
         DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
         DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
         DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
+        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
 
@@ -266,7 +267,7 @@ Partial Class Ventas_RepProductosServicios
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
                                               UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                               CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
-                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked) Then
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -346,11 +347,11 @@ Partial Class Ventas_RepProductosServicios
             FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1")
             FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1")
 
-            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}",
+            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}",
                                                                                     e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                                                     e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                                                     e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),
-                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle)
+                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue))
 
 
             e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))
diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx
index de2f98f82..f0fb503c3 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -303,6 +303,18 @@
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+
+                             <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index 948eb61bc..989d36af3 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -60,6 +60,23 @@ Partial Class Ventas_RepProductosServiciosDetalle
             ViewState("Agrupador") = value
         End Set
     End Property
+
+    Private Property TipoCliente As Integer
+        Get
+
+            If ViewState("TipoCliente") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("TipoCliente").ToString.ToEntero
+            End If
+
+        End Get
+
+        Set(value As Integer)
+            ViewState("TipoCliente") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -299,6 +316,10 @@ Partial Class Ventas_RepProductosServiciosDetalle
         CveMarca = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca").ToEntero() > 0, Request("CveMarca").ToEntero(), -1).ToString.ToEntero
         CveClasificacionDetalle = If(Request("CveClasificacionDetalle") IsNot Nothing AndAlso Request("CveClasificacionDetalle").ToEntero() > 0, Request("CveClasificacionDetalle").ToEntero(), -1).ToString.ToEntero
 
+        TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString, "-1").ToString.ToEntero
+
+        DdlTipoCliente.SelectedValueExist(TipoCliente)
+
         If Fecha <> "-1" Then
             txtFechaI.Text = Fecha
             txtFechaF.Text = Fecha
@@ -410,7 +431,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                               DdlPS.SelectedValue.ToEntero, FechaI, FechaF, -1, FechaIEjec, FechaFEjec, -1, CveCliente,
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
                                               UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
-                                                     TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero()) Then
+                                              TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra,
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             TmpDT = ObjVentas.DtResultados
         Else
@@ -438,7 +460,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                                      FechaI, FechaF, Mes.ToEntero, FechaIEjec, FechaFEjec, MesEjec.ToEntero, CveCliente.ToEntero, CveSubProyectoEjecucion.ToEntero,
                                                      CveVendedor, CveUsuario.ToEntero, CveEstatus.ToEntero, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                                      GPO:=Gpo, CveMoneda:=CveMoneda, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                                     CveProveedorCompra:=CveProveedorCompra, CveMarca:=CveMarca) Then
+                                                     CveProveedorCompra:=CveProveedorCompra, CveMarca:=CveMarca, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             TmpDT = ObjVentas.DtResultados
         Else
diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx
index e63a976b6..0dc5dd450 100644
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -283,6 +283,7 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me"  DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
                         </div>
+
                         <label title="Condiciones de Pago" data-toggle="tooltip" class="col-md-1 truncate">Condiciones Pago:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlCondicionesPago" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
@@ -291,6 +292,16 @@
                                 <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+
+                         <label title="Tipo Cliente" data-toggle="tooltip" class="col-md-1 truncate">Tipo Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 1e00b530d..4e35dd634 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -54,7 +54,26 @@ Partial Class RepVentaDetalle
         Set(value As Integer)
             ViewState("CveMoneda") = value
         End Set
-    End Property
+    End Property
+
+
+    Private Property TipoCliente As Integer
+        Get
+            If ViewState("TipoCliente") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("TipoCliente").ToString.ToEntero
+            End If
+
+        End Get
+
+        Set(value As Integer)
+            ViewState("TipoCliente") = value
+        End Set
+    End Property
+
+
+
     Private Property TCEspecifico As Decimal
         Get
             Return ViewState("TCEspecifico").ToString.ToDecimal
@@ -141,7 +160,9 @@ Partial Class RepVentaDetalle
         TipoCambio = If(Request("TipoCambio") IsNot Nothing, Request("TipoCambio").ToString.ToEntero, -1).ToString.ToEntero
         TCEspecifico = If(Request("TCEspecifico") IsNot Nothing, Request("TCEspecifico").ToString.ToEntero, -1).ToString.ToDecimal
         CveMoneda = If(Request("CveMoneda") IsNot Nothing, Request("CveMoneda").ToString.ToEntero, -1).ToString.ToEntero
+        TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString.ToEntero, -1).ToString.ToEntero
 
+        DdlTipoCliente.SelectedValueExist(TipoCliente)
 
         'LISTBOXS
         TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString
@@ -461,7 +482,8 @@ Partial Class RepVentaDetalle
         If ObjVentas.GetRepVentasDetalle(DdlGrupo.SelectedValue.ToEntero, Anio.ToEntero, Mes.ToEntero, AnioMes, Fecha, CveCliente,
                                          IVA, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, FechaI, FechaF,
                                          CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
-                                         CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=CveCondicionesPago) Then
+                                         CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
+                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
             DtVentas = AddRows(ObjVentas.DtResultados)
             ImgImprimir.Enabled = True
             GvDatos.DataSource = AddRows(ObjVentas.DtResultados)
diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx
index 8f047fda7..ebafa4a4f 100644
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -284,6 +284,17 @@
                                 <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+
+                         <label title="Tipo Cliente" data-toggle="tooltip" class="col-md-1 truncate">Tipo Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 8ecb43232..077411a25 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -137,6 +137,7 @@ Partial Class Ventas_RepVentas
         DdlGrupo.Items.Insert(11, New ListItem("Mes Ejec.", "12"))
         DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13"))
         DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14"))
+        DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20"))
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("3")
     End Sub
@@ -320,7 +321,7 @@ Partial Class Ventas_RepVentas
 
         If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
                                   DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then
+                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -420,14 +421,14 @@ Partial Class Ventas_RepVentas
 
 
             'LIGA A DETALLE
-            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaI}&FechaF={FechaF}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}"
+            Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaI}&FechaF={FechaF}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}"
 
 
             e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"
             e.Row.FCLiteral("LtlCantidad").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlCantidad").Text & "</a>"
 
 
-            If DdlGrupo.SelectedValue.ToEntero > 16 AndAlso e.Row.DBCampo("Orden") = "2" Then
+            If DdlGrupo.SelectedValue.ToEntero > 16 AndAlso e.Row.DBCampo("Orden") = "2" AndAlso DdlGrupo.SelectedValue.ToEntero <> 20 Then
                 e.Row.CssClass = "SubTotales"
                 e.Row.Attributes.Add("style", "background:#CCCCCC !important")
             End If
diff --git a/Ventas/RepVentasPeriodo.aspx b/Ventas/RepVentasPeriodo.aspx
index 7741a082e..6a8b81c5a 100644
--- a/Ventas/RepVentasPeriodo.aspx
+++ b/Ventas/RepVentasPeriodo.aspx
@@ -117,6 +117,7 @@
                                     <asp:ListItem Text="Sucursal Ejec" Value="15"></asp:ListItem>
                                     <asp:ListItem Text="Año/Mes Sucursal" Value="17"></asp:ListItem>
                                     <asp:ListItem Text="% IVA Sucursal" Value="18"></asp:ListItem>
+                                    <asp:ListItem Text="Tipo Cliente" Value="19"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
 
@@ -233,6 +234,16 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
                         </div>
+
+                         <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepVentasPeriodo.aspx.vb b/Ventas/RepVentasPeriodo.aspx.vb
index 0a8a64cf9..9b733053f 100644
--- a/Ventas/RepVentasPeriodo.aspx.vb
+++ b/Ventas/RepVentasPeriodo.aspx.vb
@@ -193,7 +193,10 @@ Partial Class RepVentasPeriodo
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
         If ObjVentas.GetRepVentasPeriodos(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero,
-                                  DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario, VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero) Then
+                                  DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue,
+                                  DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
+                                  VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
+
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
diff --git a/vwd.webinfo b/vwd.webinfo
index 8404920ba..65b4102ee 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -70,6 +70,12 @@
     
   
     
+  
+    
+  
+    
+  
+