diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 5ac87f648..508598c35 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -2409,83 +2409,11 @@ Partial Class OS_OrdenesServicios
 
 #Region "I M P R I M I R   PDF"
     Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
-        Dim params As New List(Of ReportParameter)
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-        Dim dt As DataTable = TmpDT
-        Dim DtMateriales As DataTable = TmpDTMaterialesDetalle
-
-        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
-        params.Add(New ReportParameter("Cliente", NombreCliente))
-        params.Add(New ReportParameter("Solicito", TxtSolicito.Text))
-        params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
-        params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("FechaRecibido", TxtFechaRecibido.Text.ToDate.ToShortDateString))
-        params.Add(New ReportParameter("FolioOS", CveFolio.ToString))
-        params.Add(New ReportParameter("ClienteTelefono", TelefonoCliente))
-        params.Add(New ReportParameter("ClienteCalle", ClienteDireccion))
-        params.Add(New ReportParameter("ClienteColonia", ClienteColonia))
-        params.Add(New ReportParameter("ClienteCiudad", ClienteCiudad))
-        params.Add(New ReportParameter("ClienteEstado", ClienteEstado))
-
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
-        Else
-            params.Add(New ReportParameter("LogoPath", ""))
-        End If
-
-        Dim lrds As New List(Of ReportDataSource)
-        Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = DtMateriales}
-        Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = dt}
-
-        lrds.Add(rds)
-        lrds.Add(rds2)
-
-        ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
+        Dim mensajeImprimir As New StringBuilder
+        mensajeImprimir.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", CveOS)))
+        Alert(mensajeImprimir.ToString, TipoMensaje.MsgInformacion)
     End Sub
 
-    Private Sub ImprimirAlGenerar()
-        Dim params As New List(Of ReportParameter)
-        Dim report As LocalReport = New LocalReport()
-
-        Dim dt As DataTable = TmpDT
-        Dim DtMateriales As DataTable = TmpDTMaterialesDetalle
-
-        report.ReportPath = String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa)
-
-        params.Add(New ReportParameter("Cliente", NombreCliente))
-        params.Add(New ReportParameter("Direccion", ClienteDireccion))
-        params.Add(New ReportParameter("NoDeCliente", TxtCodigo.Text))
-        params.Add(New ReportParameter("RFC", ClienteRFC))
-        params.Add(New ReportParameter("Poblacion", ClienteCiudad))
-        params.Add(New ReportParameter("Vendedor", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("Contacto", TxtSolicito.Text))
-        params.Add(New ReportParameter("Correo", ClienteMail))
-        params.Add(New ReportParameter("Sucursal", DdlSubProyecto.SelectedItem.Value))
-        params.Add(New ReportParameter("TipoServicio", "Reparación/Diagnostico"))
-        params.Add(New ReportParameter("DiaFecha", Date.Today.Day.ToString))
-        params.Add(New ReportParameter("MesFecha", Date.Today.Month.ToString))
-        params.Add(New ReportParameter("AñoFecha", Date.Today.Year.ToString))
-        params.Add(New ReportParameter("DiaVigencia", Date.Today.Day.ToString))
-        params.Add(New ReportParameter("MesVigencia", Date.Today.Month.ToString))
-        params.Add(New ReportParameter("AñoVigencia", Date.Today.Year.ToString))
-        params.Add(New ReportParameter("Folio", CveFolio.ToString))
-        params.Add(New ReportParameter("CodigoDeServicio", CveOS.ToString))
-        params.Add(New ReportParameter("FallaReportada", TxtDescripcion.Text))
-        params.Add(New ReportParameter("Copia", "Copia: Cliente"))
-
-        Dim lrds As New List(Of ReportDataSource)
-        Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = DtMateriales}
-        Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = dt}
-
-        lrds.Add(rds)
-        lrds.Add(rds2)
-
-        ImprimirPDF(String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
-    End Sub
 #End Region
 
 #Region "S O L I C I T A R  M A T E R I A L"