-- simplificación de código, un solo lugar para impresión de póliza

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>

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