Renombramiento metodo de pago forma de pago clientes

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1,6 +1,7 @@
 
 Imports System.Data
 Imports System.Net.NetworkInformation
+'Imports DocumentFormat.OpenXml
 Imports Extensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
@@ -251,10 +252,10 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If Not Page.IsPostBack Then
 
-            If UsuarioActual.Empresa.Funcionalidad(282).ToEntero > 0 Then
-                LnkImprimePDFResumen.Visible = True
-                LnkImprimeExcelResumen.Visible = True
-            End If
+            'If UsuarioActual.Empresa.Funcionalidad(282).ToEntero > 0 Then
+            '    LnkImprimePDFResumen.Visible = True
+            '    LnkImprimeExcelResumen.Visible = True
+            'End If
 
             Tick = DateTime.Now.Ticks.ToString
 
@@ -2723,9 +2724,19 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 #Region "Paquete Egresos"
     Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs)
-        ImprimirPolizaPDF(IdPoliza)
+
+
+        If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then
+
+            ImprimePrePolizasDetalleResumen("PDF")
+        Else
+            ImprimirPolizaPDF(IdPoliza)
+
+        End If
+
+
     End Sub
-    Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
+    Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
 
         'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
 
@@ -2782,10 +2793,10 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
 
-        Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
+        'Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
         ObjConta.Dispose()
 
-    End Function
+    End Sub
 
 
 
@@ -3260,6 +3271,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             params.Add(New ReportParameter("UsuarioRegistro", TxtUsuarioElaboro.Text))
             params.Add(New ReportParameter("ConceptoPoliza", ConceptoPoliza))
 
+            params.Add(New ReportParameter("Folio", TxtFolio.Text))
+
 
 
 
@@ -3292,9 +3305,9 @@ Partial Class ContabilidadC_RegPrePolizaS
         ImprimePrePolizasDetalleResumen("PDF")
     End Sub
 
-    Protected Sub LnkImprimeExcelResumen_Click(sender As Object, e As EventArgs)
-        ImprimePrePolizasDetalleResumen("Excel")
-    End Sub
+    'Protected Sub LnkImprimeExcelResumen_Click(sender As Object, e As EventArgs)
+    '    ImprimePrePolizasDetalleResumen("Excel")
+    'End Sub
 
 
 End Class