SIG/Acarreos/RepAcarreos.aspx.vb

Imports Extensiones
Imports System.Data

Partial Class Acarreos_RepAcarreos

    Inherits ClsPaginas

#Region " PROPIEDADES"




#End Region


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaDdlChofer()
            CargaDdlSubProyectoOrigen()
            CargaDdlSubProyectoDestino()
            CargaDdlUnidad()
            CargaDdlTransportista()
            CargaDdlMaterial()
            CargaDdlNumContrato()
            txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
            txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
        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 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
            DdlUnidad.DataBind()

        End If
        ObjAcar.Dispose()
        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 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
            DdlMaterial.DataBind()

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

    Private Sub CargaDdlSubProyectoOrigen()
        DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
        DdlSubProyectoOrigen.DataBind()
        UPDatos.Update()
    End Sub
    Private Sub CargaDdlSubProyectoDestino()
        DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
        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 GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim Css As String = "Texto"
            If e.Row.DBCampo("Gpo") = "" Then
                e.Row.Visible = False
            End If
            If e.Row.DBCampo("Gpo") = "Total" And e.Row.RowIndex <> 0 Then
                e.Row.Visible = False
            End If
            If e.Row.RowIndex = 0 Then
                e.Row.CssClass = "Totales"
            End If

            e.Row.FCLiteral("LtlTotalVolumen").Text = FormatNumber(e.Row.FCLiteral("LtlTotalVolumen").Text, 2, , , TriState.True)

            Dim Liga As String = $"/Acarreos/RepAcarreosDetalle.aspx?&Gpo={e.Row.DBCampo("Gpo")}&CveUnidad={e.Row.DBCampo("CveUnidad")}&CveSubProyectoOrigen={e.Row.DBCampo("CveSubProyectoOrigen")}&CveChofer={e.Row.DBCampo("CveChofer")}&CveTransportista={e.Row.DBCampo("CveTransportista")}&FFinal={e.Row.DBCampo("FehaFin")}&FInicial={e.Row.DBCampo("FechaInicio")}&Grupo={e.Row.DBCampo("Grupo")}&CveSubProyectoDestino={e.Row.DBCampo("CveSubProyectoDestino")}&CveMaterial={e.Row.DBCampo("CveMaterial")}&CveAcarreoProyecto={e.Row.DBCampo("CveAcarreoProyecto")}"
            e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"
        End If
    End Sub

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        Dim ObjAcar As New ClsAcarreos()
        If ObjAcar.GetRepAcarreo(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyectoOrigen.SelectedValue.ToEntero, DdlTransportista.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, DdlSubProyectoDestino.SelectedValue.ToEntero, DdlMaterial.SelectedValue.ToEntero, DdlNumContrato.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjAcar.DtResultados
            GvDatos.DataBind()
        End If
        ObjAcar.Dispose()
        UPDatos.Update()
    End Sub
End Class