diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 31f7c6a87..0e2a3a5aa 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1454,9 +1454,7 @@ Partial Class PopUpVerFactura
         End If
 
 
-
-
-        'IMPRIME VALE
+        'IMPRIME POLIZA
         If UrlParametros("OP").ToString = "PREPO" Then
             If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
                 ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
@@ -6947,47 +6945,90 @@ Partial Class PopUpVerFactura
 #End Region
 
 
-#Region "OP PREPO"
-
+#Region "IMPRESION POLIZAS"
 
     Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
 
+        If Not CvePrePoliza > 0 Then Exit Sub
 
+        Dim ObjConta As New ClsContabilidad
 
+        If ObjConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
 
-        If Not CvePrePoliza > 0 Then
-            Exit Sub
-        End If
+            Dim drp As DataRow = ObjConta.DtResultados.FiltroPrimero("")
 
+            If drp IsNot Nothing Then
 
-        'ObjContabilidad.Dispose()
+                Dim DtDetalle As New DataTable
+                Dim CveTipoPolizaImp As Integer
+                Dim FolioPoliza As String
+                Dim ConceptoPolizaImp As String
+                Dim CveMonedaImp As Integer
+                Dim TipoPolImp As String
+                Dim RutaReporte As String
+                Dim params = New List(Of ReportParameter)
 
-        Dim rutaArchivo As String = ""
-        Dim params As New List(Of ReportParameter)
-        Dim Bytes As Byte() = Nothing
-        Dim DtDetalle As New DataTable
-        Dim CveTipoPolizaImp As Integer = 0
-        Dim FolioPoliza As String = ""
-        Dim ConceptoPolizaImp As String = ""
-        Dim CveMonedaImp As Integer = 0
-        Dim TipoPolizaString = ""
+                TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
+                CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero
+                ConceptoPolizaImp = drp("Concepto").ToString
+                FolioPoliza = drp("FolioPoliza").ToString
+                CveMonedaImp = drp("CveMoneda").ToString.ToEntero
+                Dim TipoPolizaString As String = If(CveTipoPolizaImp = 1, "I", If(CveTipoPolizaImp = 2, "E", "D")).ToString
 
-        Dim ObjContabilidad As New ClsContabilidad
+                If UsuarioActual.Empresa.Funcionalidad(282) = "1" Then
 
-        Dim TipoPolImp As String = ""
+                    Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
+                    RutaReporte = RutaFormatoReporte("PolizasResumen.rdlc")
 
+                    If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                        Dim dr As DataRow
+                        DtDetalle = ObjConta.DtResultados
+                        dr = DtDetalle.Rows(0)
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                        params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
+                        params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("Numero", FolioPoliza))
+                        params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+                        params.Add(New ReportParameter("CodigoPostal", ""))
+                        params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
+                        params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
+                        params.Add(New ReportParameter("Folio", FolioPoliza))
+                        params.Add(New ReportParameter("pImg", RutaImagenLogo))
+                    End If
+                    ObjConta.Dispose()
+                Else
+                    RutaReporte = RutaFormatoReporte("Polizas.rdlc")
+                    If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
 
-        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                        Dim dr As DataRow
+                        DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
+                        dr = DtDetalle.Rows(0)
 
-            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                        params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
+                        params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
+                        params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+                        params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
+                        params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+                        params.Add(New ReportParameter("CodigoPostal", ""))
+                        If UsuarioActual.CveEmpresa.Contiene(141) Then
+                            params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
+                        Else
+                            params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+                        End If
+                        If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+                            params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+                        End If
+                        If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
+                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                        End If
+                    End If
+                    ObjConta.Dispose()
+                End If
 
-            If dr IsNot Nothing Then
-
-                TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
-                CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero
-                ConceptoPolizaImp = dr("Concepto").ToString
-                FolioPoliza = dr("FolioPoliza").ToString
-                CveMonedaImp = dr("CveMoneda").ToString.ToEntero
+                ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
 
             Else
                 Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
@@ -6995,124 +7036,7 @@ Partial Class PopUpVerFactura
 
         End If
 
-        ObjContabilidad.Dispose()
-
-        Select Case CveTipoPolizaImp
-            Case 1
-                TipoPolizaString = "I"
-                Exit Select
-            Case 2
-                TipoPolizaString = "E"
-                Exit Select
-            Case Else
-                TipoPolizaString = "D"
-                Exit Select
-        End Select
-
-        If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then
-
-
-            Dim Archivo As System.IO.FileInfo
-
-            Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
-
-            Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
-            Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
-
-            Dim ObjConta As New ClsContabilidad
-
-            If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-
-                Dim dr As DataRow
-                DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
-                dr = DtDetalle.Rows(0)
-
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
-                params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
-                params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
-
-                params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
-
-                params.Add(New ReportParameter("Numero", FolioPoliza))
-                params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
-                params.Add(New ReportParameter("CodigoPostal", ""))
-
-                params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
-                params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
-
-                params.Add(New ReportParameter("Folio", FolioPoliza))
-
-
-                If Logo.Exists Then
-                    params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}"))
-                Else
-                    params.Add(New ReportParameter("pImg", ""))
-                End If
-
-
-                If Archivo.Exists Then
-                    rutaArchivo = Archivo.FullName
-                Else
-                    rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
-                End If
-
-
-            End If
-            ObjConta.Dispose()
-
-
-        Else
-
-            Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
-            params = New List(Of ReportParameter)
-
-            Dim ObjConta As New ClsContabilidad
-            'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
-            If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-
-                Dim dr As DataRow
-                DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
-                dr = DtDetalle.Rows(0)
-                Dim ruta As String = ""
-
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
-                params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
-                params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
-
-                If UsuarioActual.CveEmpresa.Contiene(141) Then
-                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
-                Else
-                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
-                End If
-
-                FolioPoliza = dr("FolioPoliza").ToString
-                params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
-                params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
-                params.Add(New ReportParameter("CodigoPostal", ""))
-
-                If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
-                    params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
-                End If
-                If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
-                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                End If
-
-                If Archivo.Exists Then
-                    rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
-                Else
-                    rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc"
-                End If
-            End If
-            ObjConta.Dispose()
-        End If
-
-
-        ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
-
-
-
+        ObjConta.Dispose()
 
     End Sub
 
diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 214930c38..4ba7be742 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -78,8 +78,8 @@
                 <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkImprimirPDF" runat="server" Visible="true" OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:LinkButton>
-            </li>
+                <asp:HyperLink ID="HplImprimirPDF" runat="server" Target="_blank" Visible="false" ><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:HyperLink>
+             </li>
 
       <%--    <li>
                 <asp:LinkButton ID="LnkImprimePDFResumen" runat="server" Visible="true" OnClick="LnkImprimePDFResumen_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir PDF Resumen</asp:LinkButton>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index fdc1f8757..9493d9f22 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -311,7 +311,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Else
                     BtnEliminar.Visible = False
                     LnkExcel.Visible = True
-                    LnkImprimirPDF.Visible = False
                     DvPlantilla.Visible = True
 
                     TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
@@ -337,7 +336,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 CreaDT()
                 BtnEliminar.Visible = False
                 LnkExcel.Visible = True
-                LnkImprimirPDF.Visible = False
                 DvPlantilla.Visible = True
 
                 TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
@@ -464,7 +462,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtUsuarioElaboro.Text = dr("Usuario").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
-
+                HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"
+                HplImprimirPDF.Visible = True
                 If UsuarioActual.CveRol = 1 Then
                     TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
                 End If
@@ -543,7 +542,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 RegistraScript("comparar();")
 
                 LnkExcel.Visible = False
-                LnkImprimirPDF.Visible = True
             Else
                 Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnEliminar.Visible = False
@@ -2165,23 +2163,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         RegistraScript("calculateCargo()", "abono")
         RegistraScript("comparar()", "compara")
     End Sub
-    'Protected Sub DdlSubProyectoFiltroMov_SelectedIndexChanged(sender As Object, e As EventArgs)
-    '    For Each Gvr As GridViewRow In GvMov.Rows
-    '        If DdlSubProyectoFiltroMov.SelectedValue.ToEntero > 0 Then
-    '            If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = DdlSubProyectoFiltroMov.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Then
-    '                Gvr.Visible = True
-    '            Else
-    '                Gvr.Visible = False
-    '            End If
-    '        Else
-    '            Gvr.Visible = True
-    '        End If
-    '    Next
-    '    UpPrePoliza.Update()
-    '    RegistraScript("calculateAbono()", "cargo")
-    '    RegistraScript("calculateCargo()", "abono")
-    '    RegistraScript("comparar()", "compara")
-    'End Sub
 
     Private Sub GvMov_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvMov.RowEditing
         Actualizar = True
@@ -2717,75 +2698,6 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
 
-#Region "Paquete Egresos"
-    Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs)
-
-        If UsuarioActual.Empresa.Funcionalidad(282) = "1" Then
-            ImprimePrePolizasDetalleResumen("PDF")
-        Else
-            ImprimirPolizaPDF()
-        End If
-
-    End Sub
-
-    Private Sub ImprimirPolizaPDF()
-
-        Dim params As New List(Of ReportParameter)
-        Dim Bytes As Byte() = Nothing
-        Dim Ruta As String = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
-        Dim Archivo As New System.IO.FileInfo(Ruta)
-
-        Dim ObjConta As New ClsContabilidad
-
-        If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-            Dim dtVC As DataTable
-            Dim dr As DataRow
-            dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
-            dr = dtVC.Rows(0)
-
-            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
-            params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
-            params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
-
-            If UsuarioActual.CveEmpresa.Contiene(141) Then
-                params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
-            Else
-                params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
-            End If
-            params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
-            params.Add(New ReportParameter("Moneda", ""))
-            params.Add(New ReportParameter("CodigoPostal", ""))
-
-            If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
-                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
-            End If
-            If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
-                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            End If
-            If Archivo.Exists Then
-
-                Ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
-
-            Else
-                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                Ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
-            End If
-
-            ImprimirbytesPDF(StreamPDF(Ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
-
-        End If
-
-        ObjConta.Dispose()
-
-    End Sub
-
-
-
-
-
-#End Region
 
 #Region "Crear A Partier de"
 
@@ -2923,7 +2835,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     'Next
                 End If
                 LnkExcel.Visible = False
-                LnkImprimirPDF.Visible = True
+                HplImprimirPDF.Visible = True
             Else
                 Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnEliminar.Visible = False
@@ -3215,44 +3127,6 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
 
-    Private Sub ImprimePrePolizasDetalleResumen(Optional Tipo As String = "PDF")
-
-        Dim params As New List(Of ReportParameter)
-        Dim TipoPolizaString As String = If(DdlTipoPoliza.SelectedValue = "1", "I", If(DdlTipoPoliza.SelectedValue = "2", "E", "D")).ToString
-
-        Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
-        Dim ConceptoPoliza As String = TxtConcepto.Text
-        Dim RutaReporte As String = RutaFormatoReporte("PolizasResumen.rdlc")
-        Dim ObjConta As New ClsContabilidad
-
-        If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-            Dim dtVC As DataTable
-            Dim dr As DataRow
-
-            dtVC = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
-            dr = dtVC.Rows(0)
-            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            params.Add(New ReportParameter("TipoPoliza", DdlTipoPoliza.SelectedItem.Text))
-            params.Add(New ReportParameter("Finicio", TxtFechaDocumento.Text))
-            params.Add(New ReportParameter("FFin", TxtFechaDocumento.Text))
-            params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text))
-            params.Add(New ReportParameter("Numero", TxtFolio.Text))
-            params.Add(New ReportParameter("Moneda", If(CveMoneda = 2, "Dolar", "Peso Mexicano")))
-            params.Add(New ReportParameter("CodigoPostal", ""))
-            params.Add(New ReportParameter("UsuarioRegistro", TxtUsuarioElaboro.Text))
-            params.Add(New ReportParameter("ConceptoPoliza", ConceptoPoliza))
-            params.Add(New ReportParameter("Folio", TxtFolio.Text))
-            params.Add(New ReportParameter("pImg", RutaImagenLogo))
-
-            ImprimirbytesPDF(StreamPDF(RutaReporte, dtVC, params, "PrePoliza", Formato:=Tipo), $"P{TipoPolizaString}{TxtFolio.Text}", Formato:=Tipo, Descarga:=True)
-
-        End If
-        ObjConta.Dispose()
-
-    End Sub
-    Protected Sub LnkImprimePDFResumen_Click(sender As Object, e As EventArgs)
-        ImprimePrePolizasDetalleResumen("PDF")
-    End Sub
 
 
 End Class