Imports Extensiones
Imports System.Data
Partial Class AF_CatCargasCombustible
    Inherits ClsPaginas

    Private Sub AF_CatCargasCombustible_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            CargaDatos()
            CargaProveedor()
            CargaCombustible()
            CargaAF()
        End If
    End Sub

#Region "C A R G A S "
    Private Sub CargaDatos()
        Dim ObjAF As New ClsAF()

        Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
        Dim CveProveedor = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString
        Dim CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString
        Dim CveTipoAF = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString
        Dim CveAF = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
        Dim FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
        Dim FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString


        Dim sMes As String
        Dim sDias As String = ""
        Dim dias As Integer = 0
        Dim sAnio As String = If(AnioMes <> "-1", AnioMes.Substring(0, 4), "")

        If AnioMes.Trim.Length = 7 Then
            sMes = AnioMes.Substring(5, 2).ToEntero.ToString("00")
        Else
            sMes = If(AnioMes <> "-1", AnioMes.Substring(5, 1).ToEntero.ToString("00"), "")
        End If

        If AnioMes <> "-1" Then
            FechaI = String.Format("01/{0}/{1}", sMes, sAnio)
            FechaF = FechaI.ToDate.LastDayOfMonth
        End If

        If ObjAF.GetCargasCombustible(CveAF, CveProveedor, CveTipoAF, CveSubProyecto, FechaI, FechaF, UsuarioActual.CveEmpresa, CveCargaCombustible:=-1) Then
            GvCargaCombustible.DataSource = ObjAF.DtResultados
            GvCargaCombustible.DataBind()
        End If

        ObjAF.Dispose()
        UpDatos.Update()
    End Sub
    Private Sub CargaProveedor()
        DdlProveedor.Items.Clear()
        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedor.DataBind()

        UpAddCargaCombustible.Update()
    End Sub
    Private Sub CargaCombustible()
        Dim ObjAF As New ClsAF()
        DdlCombustible.Items.Clear()

        If ObjAF.GetCombustibles(-1, 1, UsuarioActual.CveEmpresa) Then
            DdlCombustible.Items.Insert(0, New ListItem("Seleccione", "-1"))
            DdlCombustible.DataSource = ObjAF.DtResultados
            DdlCombustible.DataBind()
        End If

        ObjAF.Dispose()
        UpAddCargaCombustible.Update()
    End Sub
    Private Sub CargaAF()
        Dim ObjAF As New ClsAF()
        DdlActivoFijo.Items.Clear()

        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, "-1", -1) Then
            DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
            DdlActivoFijo.DataSource = ObjAF.DtResultados
            DdlActivoFijo.DataBind()
        End If

        ObjAF.Dispose()
        UpAddCargaCombustible.Update()
    End Sub
#End Region

#Region "A G R E G A R "
    Private Sub LnkCargaCombustible_Click(sender As Object, e As EventArgs) Handles LnkCargaCombustible.Click
        HdnModalidad.Value = "A"
        UpDatos.Update()
        BtnAgregarCarga.Text = "Agregar"
        myModalLabel.InnerText = "Agregar Operador"
        TxtFecha.Text = ""
        TxtFolio.Text = ""
        TxtCantidad.Text = ""
        TxtCosto.Text = ""
        TxtOdometro.Text = ""

        DdlActivoFijo.SelectedIndex = 0
        DdlCombustible.SelectedIndex = 0
        DdlProveedor.SelectedIndex = 0
        UpAddCargaCombustible.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCargaCombustible"))
    End Sub
    Private Sub BtnAgregarCarga_Click(sender As Object, e As EventArgs) Handles BtnAgregarCarga.Click
        Dim ObjAF As New ClsAF
        Dim FechaCarga As DateTime

        FechaCarga = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtFecha.Text, TimeSelector.Hour, TimeSelector.Minute, TimeSelector.AmPm))

        If ObjAF.AddCargaCombustible(DdlCombustible.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, TxtFolio.Text.Trim, FechaCarga, CkhTanque.Checked, TxtCantidad.Text.ToDouble, TxtCosto.Text.ToDouble,
                                        TxtOdometro.Text.ToDouble, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            Alert("Se registró la carga correctamente.", TipoMensaje.MsgInformacion)
        End If

        CargaDatos()
        ObjAF.Dispose()
        UpDatos.Update()
        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCargaCombustible"))
    End Sub

#End Region

End Class