diff --git a/Ventas/PopUpBuscarFolio.aspx b/Ventas/PopUpBuscarFolio.aspx
index e05a1490b..a725c5285 100644
--- a/Ventas/PopUpBuscarFolio.aspx
+++ b/Ventas/PopUpBuscarFolio.aspx
@@ -269,6 +269,9 @@
         function Ir(v) {
             gotourl('/Ventas/Ventas.aspx?CveVenta=' + v);
         }
+        function IrPV(v) {
+            gotourl('/Ventas/PV.aspx?CveVenta=' + v);
+        }
         Sys.Application.add_load(function (s, e) {
       
         });
diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb
index 744463516..04777e43d 100644
--- a/Ventas/PopUpBuscarFolio.aspx.vb
+++ b/Ventas/PopUpBuscarFolio.aspx.vb
@@ -159,6 +159,10 @@ Partial Class PopUpBuscarFolio
             e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
 
             Dim Liga As String = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveVenta"))
+            If UsuarioActual.CveEmpresa = 140 AndAlso e.Row.DBCampo("TipoDocto").Contiene("Rem") Then
+                Liga = String.Format("<a class='Texto' href='javascript:IrPV(""{0}"");'>", e.Row.DBCampo("CveVenta"))
+            End If
+
             e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:27px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
             e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
             e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)