diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index a5f621127..2f2075c60 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1542,14 +1542,14 @@ Partial Class Bancos_PopIECompras
                     Exit Sub
                 End If
 
-                For Each rw As GridViewRow In GvDeudores.Rows
+                For Each rw As GridViewRow In GvAcreedores.Rows
                     If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
                         Pago.CveIE = rw.DataKey("CveIE").ToEntero
                         Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
                         Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
                         Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
                         Pago.CveProveedor = DdlDeudor.SelectedValue.ToEntero
-                        Pago.TipoPago = "DD"
+                        Pago.TipoPago = "Egsc"
                         If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                             MsgError = "No se pudo insertar la póliza"
                         Else
@@ -1624,9 +1624,14 @@ Partial Class Bancos_PopIECompras
             If ObjConta IsNot Nothing Then ObjConta.Commit()
             Dim StrMsg As New StringBuilder
             StrMsg.Append("El Documento se guardó correctamente.<br/>")
-            If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
-            If IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
-
+            If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                StrMsg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
+            Else
+                If IdPoliza > 0 Then
+                    StrMsg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+                End If
+            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();")
 
             EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)