SIG/Acarreos/RepAcarreosDetalle.aspx.vb

Imports Extensiones
Imports System.Data

Partial Class Acarreos_RepAcarreosDetalle
    Inherits ClsPaginas

#Region " PROPIEDADES"
    Private Property Gpo As String
        Get
            If ViewState("Gpo") Is Nothing Then
                Return "-1"
            Else
                Return ViewState("Gpo").ToString
            End If
        End Get
        Set(value As String)
            ViewState("Gpo") = value
        End Set
    End Property

#End Region


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            txtFechaF.Text = Now.AddDays(0).ToShortDateString
            txtFechaI.Text = Now.AddYears(-1).ToShortDateString
            CargaDdlChofer()
            CargaDdlSubProyectoOrigen()
            CargaDdlSubProyectoDestino()
            CargaDdlUnidad()
            CargaDdlTransportista()
            CargaDdlMaterial()
            CargaDdlNumContrato()
            DdlAgrupador.SelectedValue = IfNull(Request("Grupo"), "1").ToString.ToEntero
            DdlChofer.SelectedValue = IfNull(Request("CveChofer"), "-1").ToString.ToEntero
            DdlSubProyectoOrigen.SelectedValue = IfNull(Request("CveSubProyectoOrigen"), "-1").ToString.ToEntero
            DdlSubProyectoDestino.SelectedValue = IfNull(Request("CveSubProyectoDestino"), "-1").ToString.ToEntero
            DdlTransportista.SelectedValue = IfNull(Request("CveTransportista"), "-1").ToString.ToEntero
            DdlUnidad.SelectedValue = IfNull(Request("CveUnidad"), "-1").ToString.ToEntero
            DdlMaterial.SelectedValue = IfNull(Request("CveMaterial"), "-1").ToString.ToEntero
            DdlNumContrato.SelectedValue = IfNull(Request("CveAcarreoProyecto"), "-1").ToString.ToEntero
            Gpo = IfNull(Request("Gpo"), "-1").ToString
            txtFechaF.Text = IfNull(Request("FFinal"), "-1").ToString
            txtFechaI.Text = IfNull(Request("FInicial"), "-1").ToString
            CargaDatos()

        End If
    End Sub

    Private Sub CargaDdlNumContrato()
        Dim ObjAcar As New ClsAcarreos
        If ObjAcar.GetAcarreosProyectos(-1, UsuarioActual.CveEmpresa, -1, "-1") Then
            DdlNumContrato.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlNumContrato.DataSource = ObjAcar.DtResultados
            DdlNumContrato.DataBind()
        End If
        ObjAcar.Dispose()
        UPDatos.Update()
    End Sub

    Private Sub CargaDatos()
        Dim ObjAcar As New ClsAcarreos()
        If ObjAcar.GetRepAcarreoDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue, DdlTransportista.SelectedValue, DdlChofer.SelectedValue, DdlUnidad.SelectedValue, UsuarioActual.CveEmpresa, Gpo, DdlAgrupador.SelectedValue, DdlSubProyectoDestino.SelectedValue, DdlMaterial.SelectedValue, DdlNumContrato.SelectedValue) Then
            GvDatos.DataSource = ObjAcar.DtResultados
            GvDatos.DataBind()
            Gpo = "-1"
        End If
        ObjAcar.Dispose()
        UPDatos.Update()
    End Sub

    Private Sub CargaDdlUnidad()
        Dim ObjAcar As New ClsAcarreos()
        If ObjAcar.GetUnidad(-1, 1, UsuarioActual.CveEmpresa,-1) Then
            DdlUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlUnidad.DataSource = ObjAcar.DtResultados
        End If
        ObjAcar.Dispose()

        DdlUnidad.DataBind()
        UPDatos.Update()
    End Sub

    Private Sub CargaDdlMaterial()
        Dim ObjAcar As New ClsAcarreos()
        If ObjAcar.GetMaterial(-1, 1, UsuarioActual.CveEmpresa) Then
            DdlMaterial.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlMaterial.DataSource = ObjAcar.DtResultados
        End If
        ObjAcar.Dispose()
        DdlMaterial.DataBind()
        UPDatos.Update()
    End Sub

    Private Sub CargaDdlChofer()
        Dim ObjAcar As New ClsAcarreos()
        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
            DdlChofer.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlChofer.DataSource = ObjAcar.DtResultados
            DdlChofer.DataBind()

        End If
        ObjAcar.Dispose()
        UPDatos.Update()
    End Sub

    Private Sub CargaDdlSubProyectoOrigen()
        DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
        DdlSubProyectoOrigen.DataBind()
        UPDatos.Update()
    End Sub

    Private Sub CargaDdlSubProyectoDestino()
        DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
        DdlSubProyectoDestino.DataBind()
        UPDatos.Update()
    End Sub

    Private Sub CargaDdlTransportista()
        Dim ObjAcar As New ClsAcarreos()
        If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
            DdlTransportista.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlTransportista.DataSource = ObjAcar.DtResultados
            DdlTransportista.DataBind()

        End If
        ObjAcar.Dispose()
        UPDatos.Update()
    End Sub

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim Css As String = "Texto"
            e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Unidad")
            e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("Volumen")
            If e.Row.DBCampo("Folio") = "" Then
                If DdlAgrupador.SelectedValue = 6 Or DdlAgrupador.SelectedValue = 7 Or DdlAgrupador.SelectedValue = 8 Then
                    e.Row.FCLiteral("LtlUnidad").Text = e.Row.DBCampo("Gpo")
                End If
                e.Row.FCLiteral("LtlVolumen").Text = e.Row.DBCampo("TotalVolumen")
                e.Row.CssClass = "Totales"
            End If
            e.Row.FCLiteral("LtlVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlVolumen").Text, 2, , , TriState.True)
            Dim Liga As String = $"/Acarreos/RegistroAcarreo.aspx?&CveAcarreo={e.Row.DataKey("CveAcarreo")}"
            e.Row.FCLiteral("LtlFolio").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
        End If
    End Sub
End Class