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

Agregando reporte de detalle de ventas mensuales

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-02-29 13:51:35 -07:00
parent 17eae8bc5a
commit 73d110410e
6 changed files with 284 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Ventas/RepVentasMensuales.aspx.vb
View File

@@ -85,4 +85,36 @@ Partial Class RepVentasMensuales
Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls")
End Sub
Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim CveCliente As Integer = -1
Dim CveSubProyecto As Integer = -1
If DdlModalidad.SelectedValue = "0" Then
CveCliente = e.Row.DataKey("Clave").ToEntero
CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
Else
CveSubProyecto = e.Row.DataKey("Clave")
End If
Dim FechaInicio As Date = TxtFechaI.Text
Dim FechaFin As Date = TxtFechaF.Text
Dim CveMarca As Integer = DdlMarca.SelectedValue.ToEntero
Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero
Dim URL As String = String.Format("/Ventas/RepVentasMensualesDetalle.aspx?CveCliente={0}&CveSubProyecto={1}&FechaInicio={2}&FechaFin={3}&CveMarca={4}&CveVendedor={5}",
CveCliente, CveSubProyecto, FechaInicio, FechaFin, CveMarca, CveVendedor)
e.Row.FCHyperLink("HlkNombre").NavigateUrl = URL
e.Row.FCHyperLink("LblEne").NavigateUrl = URL
e.Row.FCHyperLink("LblFeb").NavigateUrl = URL
e.Row.FCHyperLink("LblMzo").NavigateUrl = URL
e.Row.FCHyperLink("LblAbr").NavigateUrl = URL
e.Row.FCHyperLink("LblMay").NavigateUrl = URL
e.Row.FCHyperLink("LblJun").NavigateUrl = URL
e.Row.FCHyperLink("LblJul").NavigateUrl = URL
e.Row.FCHyperLink("LblAgo").NavigateUrl = URL
e.Row.FCHyperLink("LblSep").NavigateUrl = URL
e.Row.FCHyperLink("LblOct").NavigateUrl = URL
e.Row.FCHyperLink("LblNov").NavigateUrl = URL
e.Row.FCHyperLink("LblDic").NavigateUrl = URL
End If
End Sub
End Class