AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Renombramiento metodo de pago forma de pago clientes

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-01-26 11:57:33 -07:00
parent 920fc3d904
commit 1ac3b883d4
19 changed files with 15341 additions and 3399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Contabilidad/RegPrePolizaS.aspx
View File

@@ -81,12 +81,12 @@
<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>
<li>
<asp:LinkButton ID="LnkImprimePDFResumen" runat="server" Visible="false" OnClick="LnkImprimePDFResumen_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir PDF Resumen</asp:LinkButton>
</li>
<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>
</li>--%>
<%-- <li>
<asp:LinkButton ID="LnkImprimeExcelResumen" runat="server" Visible="false" OnClick="LnkImprimeExcelResumen_Click" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color:#686868;"></i> Imprimir Excel Resumen</asp:LinkButton>
</li>
</li>--%>
<asp:UpdatePanel runat="server">

35
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -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