diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 1a8c0f482..5731c6c7d 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -1208,7 +1208,7 @@ Partial Class Bancos_PopIEVentas
         Dim ConceptoPoliza As String = String.Format("{0} {1}", NombreCliente, SerieFolio)
         Dim CveCuentaDeposito As Integer = If(DdlCuentaDeposito.Items.Count > 0, DdlCuentaDeposito.SelectedValue.ToEntero, 0)
         Dim FechaDocumento As Date = FechaVenta
-        Dim StrMsg As New StringBuilder
+        'Dim StrMsg As New StringBuilder
 
         'Saca moneda en que se va a pagar segun metodo de pago
         Select Case RBLContado.SelectedValue
@@ -1412,30 +1412,96 @@ Partial Class Bancos_PopIEVentas
         If MsgError = "" Then
             ObjIE.Commit()
 
-            StrMsg.Append("El Documento se guardó correctamente.<br/>")
-            'Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
-            If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
-            '07-05-2018 - Timbra Complemento de pago
+            Dim StrMsg As New StringBuilder
+            StrMsg.AppendFormat("Abono Registrado Correctamente. Folio <b><a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>{1}</a></b> <br/>", CveIE, ObjIE.Folio)
+
+            If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
+                StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
+                Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
+                StrMsg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>")
+            End If
+
+            '''No hay IdPoliza Aqui esta definido  IdPoliza perono se genra en ninguna parte
+            'If IdPoliza > 0 Then StrMsg.AppendFormat("Poliza: <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>{1}</a> <br/>", IdPoliza, FolioPoliza)
+
+            '''No se generan NCS
+            'For Each RespuestaNotaCredito As RespuestaNotaCredrito In NCGeneradas
+            '    If RespuestaNotaCredito IsNot Nothing AndAlso RespuestaNotaCredito.Respuesta IsNot Nothing Then
+            '        Try
+            '            Dim ObjTimbradoNC As New Timbrado
+            '            Dim TimbroNC As Boolean = ObjTimbradoNC.TimbrarFactura(UsuarioActual, RespuestaNotaCredito.ObjFacturaNC)
+            '            If Not TimbroNC Then
+            '                Alert(ObjTimbradoNC.MensajeErrorCFDI, TipoMensaje.MsgError)
+            '            End If
+            '            ObjTimbradoNC = Nothing
+            '        Catch ex As Exception
+            '            OnError("Ocurrió un error al timbrar la NC.", ex)
+            '        End Try
+            '        StrMsg.AppendFormat("Nota de crédito generada correctamente.<br/><br/> Folio: <a href='/Ventas/Ventas.aspx?CveVenta={0}' target='_blank' class='Texto'>{1}</a><br/>", RespuestaNotaCredito.Respuesta.CveVenta, RespuestaNotaCredito.Respuesta.SerieFolio)
+            '    End If
+            'Next
+
+
+            '''No se genran Anticnpos
+            'If ObjFacturaAnt IsNot Nothing Then
+            '    Dim MsgTimbrado As String = ""
+            '    Try
+            '        ObjFacturaAnt.PreparaTimbre()
+            '        MsgTimbrado = TimbrarFactura(ObjFacturaAnt, True)
+            '        StrMsg.AppendFormat("<br/><br/>Anticipo generado correctamente.<br/> Folio: <a href='/Ventas/Ventas.aspx?CveVenta={0}' target='_blank' class='Texto'>{1}</a><br/>", ObjFacturaAnt.CveVenta, ObjFacturaAnt.SerieFolio)
+
+            '        If Not String.IsNullOrEmpty(MsgTimbrado) Then
+            '            Dim StrEr As String = $"<div id = 'DivTipoCambioAdvertencia'  class='alert alert-danger' style='padding: 5px; margin-bottom: 5px; padding-right: 25px;'><strong style = 'font-size: 20px; margin-right: 25px;' > Comprobante no emitido :  </strong><br/> {MsgTimbrado}<br/>Por favor inténtelo de nuevo a través del botón 'Emitir' en ventas.</div>"
+            '            StrMsg.AppendFormat("<br/>{0}<br/>", StrEr)
+            '        End If
+
+            '    Catch ex As Exception
+            '        GuardaLogAD(ex.ToString())
+            '        StrMsg.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
+            '    End Try
+
+            'End If
+
+
             Dim TextoComplementoPago As String = ""
-
-            If ObjIE.Folio <> "" Then StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
-
             If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
                 Dim SeriesPago As New List(Of String)
                 SeriesPago.Add(SerieFolio)
 
                 Dim CveVentas As New List(Of Integer)
                 CveVentas.Add(CveVenta)
+                StrMsg.Append($"<br/>")
                 TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago)
                 StrMsg.Append($"<br/>{TextoComplementoPago}")
             End If
 
-            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 UsuarioActual.Empresa.TipoContabilidad = 1 Then
-                StrMsg.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjMov.ContaFolio)
-            End If
+
+
+            'StrMsg.Append("El Documento se guardó correctamente.<br/>")
+            'If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
+            ''07-05-2018 - Timbra Complemento de pago
+            'Dim TextoComplementoPago As String = ""
+
+            'If ObjIE.Folio <> "" Then StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
+
+            'If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
+            '    Dim SeriesPago As New List(Of String)
+            '    SeriesPago.Add(SerieFolio)
+
+            '    Dim CveVentas As New List(Of Integer)
+            '    CveVentas.Add(CveVenta)
+            '    TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago)
+            '    StrMsg.Append($"<br/>{TextoComplementoPago}")
+            'End If
+
+            '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 UsuarioActual.Empresa.TipoContabilidad = 1 Then
+            '    StrMsg.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjMov.ContaFolio)
+            'End If
+
+
 
             Alert($"{StrMsg.ToString}<br/>", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")