79 lines
3.3 KiB
VB.net
79 lines
3.3 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
Partial Class AF_RepFlotillas
|
|
Inherits ClsPaginas
|
|
|
|
Private Sub AF_RepFlotillas_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaCombos()
|
|
End If
|
|
End Sub
|
|
|
|
#Region "C A R G A S"
|
|
Private Sub CargaCombos()
|
|
'Estatus AF
|
|
DdlEstatus.DataSource = GlobalDTEstadoActivoFijo
|
|
DdlEstatus.DataBind()
|
|
DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
'Tipos Activo
|
|
DdlTipoActivo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
|
|
DdlTipoActivo.DataBind()
|
|
DdlTipoActivo.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
'Proveedor
|
|
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
DdlProveedor.DataBind()
|
|
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
'CentroCosto
|
|
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlSubProyecto.DataBind()
|
|
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region " CARGA DATOS "
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
|
CargaDatos()
|
|
UPDatos.Update()
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
Dim ObjAF As New ClsAF()
|
|
Dim FechaI, FechaF As String
|
|
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
|
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
|
|
|
If ObjAF.GetRepCargasCombustible(FechaI, FechaF, DdlTipoActivo.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
|
GvDatos.DataSource = ObjAF.DtResultados
|
|
End If
|
|
GvDatos.DataBind()
|
|
|
|
ObjAF.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region " GV DATOS - ROW DATABOUND "
|
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim Css As String = "Texto"
|
|
' PARA LIGA
|
|
Dim FechaI, FechaF As String
|
|
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
|
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
|
|
|
|
|
'LIGA A DETALLE
|
|
Dim Liga As String = $"/AF/CatCargasCombustible.aspx?GPO={DdlGrupo.SelectedValue}&AnioMes={e.Row.DBCampo("AnioMes")}&CveProveedor={e.Row.DBCampo("CveProveedor")}&CveSubProyecto={e.Row.DBCampo("CveSubProyecto")}&CveTipoAF={ e.Row.DBCampo("CveTipoAF")}&CveAF={e.Row.DBCampo("CveAF")}&FechaI={FechaI}&FechaF={FechaF}"
|
|
|
|
e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ target='_blank' href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"
|
|
e.Row.FCLiteral("LtlCantidad").Text = "<a class=""" & Css & """ target='_blank' href=""" & Liga & """>" & e.Row.FCLiteral("LtlCantidad").Text & "</a>"
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
End Class
|