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

-

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-10-02 12:53:36 -07:00
parent 68144d5373
commit e1a5d171ba
11 changed files with 210 additions and 388 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/RepFletes.aspx
View File

@@ -20,7 +20,17 @@
<%--<li>
<asp:LinkButton ID="ImgAdd" PostBackUrl="/Inventarios/Fletes.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nuevo Flete</asp:LinkButton>
</li>--%>
<li>
<asp:LinkButton ID="LkbPDF" CommandArgument="-1" OnClick="LkbPDF_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LkbExcel" CommandArgument="-1" OnClick="LkbExcel_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LkbPDF" />
<asp:PostBackTrigger ControlID="LkbExcel" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">

51
Inventarios/RepFletes.aspx.vb
View File

@@ -3,6 +3,8 @@ Option Strict On
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Compras_RepFletes
Inherits ClsPaginas
@@ -62,22 +64,57 @@ Partial Class Compras_RepFletes
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Folio As String = e.Row.DBCampo("Folio").ToString
Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero
Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero()
Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete))
e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url
e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url
e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url
'Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero
'Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra")
'e.Row.Cells(4).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>"
'e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>"
'e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>"
'e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>"
If Folio = "Total" Then
e.Row.FCHyperLink("HlkFolio").Font.Underline = False
e.Row.CssClass = "Totales"
End If
End If
End Sub
Private Sub Imprimir(formato As String)
Dim Filtros As New StringBuilder("")
Filtros.AppendFormat(If(TxtFolio.Text.Length > 0, String.Format("<b>Folio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFolio.Text), ""))
Filtros.AppendFormat(If(DdlProveedores.SelectedValue.ToEntero() > 0, String.Format("<b>Proveedor: </b>{0}&nbsp;&nbsp;&nbsp;", DdlProveedores.SelectedText), ""))
Filtros.AppendFormat(If(TxtFechaI.Text.Length > 0, String.Format("<b>Fecha Inicio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaI.Text), ""))
Filtros.AppendFormat(If(TxtFechaF.Text.Length > 0, String.Format("<b>Fecha Final: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaF.Text), ""))
Filtros.AppendFormat(If(DdlTipoGasto.SelectedValue.ToEntero > 0, String.Format("<b>Opción: </b>{0}&nbsp;&nbsp;&nbsp;", DdlTipoGasto.SelectedItem.Text), ""))
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Filtros", Filtros.ToString))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
If Not ArchivoRuta.Exists Then
ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtFletes, params, "Reporte de fletes", formato)
Else
ImprimirPDF("Empresas/Grales/Formatos/RepFletes.rdlc", DtFletes, params, "Reporte de fletes", formato)
End If
End Sub
Protected Sub LkbPDF_Click(sender As Object, e As EventArgs)
Imprimir("PDF")
End Sub
Protected Sub LkbExcel_Click(sender As Object, e As EventArgs)
Imprimir("Excel")
End Sub
#End Region
End Class