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

Prestamo Proveedores Exportar Excel, Ajuestes carta porte nom 043, Balance Genera Formato RepSituacionFinanciera.rdlc fix variables error en expreciones por tipo de dato

Browse Source
This commit is contained in:
rakcsle
2025-03-07 08:48:01 -07:00
parent 61475a8d1f
commit 6ea94bedc5
4 changed files with 62 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/PrestamosdeProveedor.aspx
View File

@@ -10,6 +10,18 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpAcciones">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkExportar" runat="server" Visible="true"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkExportar" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>

22
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -307,5 +307,27 @@ Partial Class Inventarios_PrestamosdeProveedor
Private Sub BtnCargaPendientes_Click(sender As Object, e As EventArgs) Handles BtnCargaPendientes.Click
CargaDatos()
End Sub
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
Dim SbFiltros As New StringBuilder()
'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value)
SbFiltros.AppendFormat("Folio : {0}|", TxtFolioEntrega.Text)
'If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
GvD.Columns(1).Visible = False
UppEntrega.Update()
GvD.ExportToExcelGembox("PrestamosProveedores", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString())
GvD.Columns(1).Visible = True
UppEntrega.Update()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
End Class