diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5710ba58f..aa2a73f8c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1582,8 +1582,6 @@ Partial Class Compras_Compras
                 CargaFletesAgregados()
             End If
 
-
-
             InicializaOC()
 
             'Valida si el IVA del XML es está bien calculado
@@ -3210,6 +3208,10 @@ Partial Class Compras_Compras
                 InventarioMov()
                 HabilitaNCInv()
 
+                If Request("RG") IsNot Nothing Then
+                    BtnRegenerarPrePolizaAlmacen_Click(Nothing, Nothing)
+                End If
+
             Else
                 Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             End If
@@ -8108,6 +8110,10 @@ Partial Class Compras_Compras
                                         Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
                                     End If
 
+                                    If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
+                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
+                                    End If
+
                                     If CveMovimientoInventario > 0 Then
                                         Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
                                         Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)