SIG/GPS/RepGastos.aspx.vb

Option Explicit On
Option Strict On
Imports Extensiones

Partial Class GPS_RepGastos
    Inherits ClsPaginas
#Region "PROPIEDADES"
    Private Property CveGPSGasto() As Integer
        Get
            Return If(IsNothing(ViewState("CveGPSGasto")), -1, CInt(ViewState("CveGPSGasto")))
        End Get
        Set
            ViewState("CveGPSGasto") = Value
        End Set
    End Property
    Private Property Modalidad() As String
        Get
            Return If(IsNothing(ViewState("Modalidad")), "", (ViewState("Modalidad").ToString))
        End Get
        Set
            ViewState("Modalidad") = Value
        End Set
    End Property
#End Region

    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargaCombos()
            CargaDatos()
        End If
    End Sub

#Region "CARGAS"
    Private Sub CargaCombos()

        txtFechaI.Text = $"01/{DateTime.Now.ToString("MM")}/{DateTime.Now.Year} 00:00"
        txtFechaF.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"

        Dim ObjGPS As New ClsGPS()
        If ObjGPS.GetTrayectos(-1, -1, UsuarioActual.CveCliente) Then
            DdlTrayecto.DataSource = ObjGPS.DtResultados
            DdlTrayectoFiltro.DataSource = ObjGPS.DtResultados
        End If
        ObjGPS.Dispose()

        DdlTrayecto.DataBind()
        DdlTrayectoFiltro.DataBind()

        UPFiltros.Update()
        UpModal.Update()
    End Sub
    Private Sub CargaDatos()
        Dim ObjGral As New ClsGPS
        If ObjGral.GetGastos(-1, UsuarioActual.CveCliente, CveTrayecto:=DdlTrayectoFiltro.SelectedValue.ToEntero()) Then
            GvDatos.DataSource = ObjGral.DtResultados
        End If
        ObjGral.Dispose()
        GvDatos.DataBind()
        UpDatos.Update()
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub

#End Region

#Region "BOTONES"

    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
        LimpiaModal()
        DivTrayecto.Visible = False
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)

        CveGPSGasto = gvRow.DataKey("CveGPSGasto").ToEntero()
        TxtCantidad.Text = gvRow.DataKey("Cantidad")
        TxtPrecio.Text = gvRow.DataKey("Precio")
        TxtDescripcion.Text = gvRow.DataKey("Descripcion")
        TxtObs.Text = gvRow.DataKey("Observaciones")
        TxtFecha.Text = gvRow.DataKey("Fecha").ToDateTime().ToString("dd/MM/yyyy hh:mm:ss")

        Modalidad = "U"
        BtnGuardar.Text = "Actualizar"
        ltlMotititulo.Text = "Actualizar Gasto"
        RegistraScript("$('#DModal').modal('show')")
        UpModal.Update()
    End Sub
    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        Dim ObjPS As New ClsGPS
        Dim CveGasto = gvRow.DataKey("CveGPSGasto").ToEntero
        If ObjPS.RemoveGasto(CveGasto) Then
            Alert("El gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If
        ObjPS.Dispose()
        CargaDatos()
    End Sub

    Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs)
        LimpiaModal()
        DivTrayecto.Visible = True
        Modalidad = "A"
        BtnGuardar.Text = "Agregar"
        ltlMotititulo.Text = "Agregar Gasto"

        UpModal.Update()
        RegistraScript("$('#DModal').modal()")
    End Sub
    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
        Dim ObjPS As New ClsGPS
        If Modalidad = "A" Then
            If ObjPS.AddGasto(TxtCantidad.Text.ToDecimal(), TxtPrecio.Text.Trim().ToDecimal(), TxtDescripcion.Text.Trim(), TxtObs.Text.Trim(), TxtFecha.Text.ToDateTime(),
                              2, UsuarioActual.CveUsuario, UsuarioActual.CveCliente, CveTrayecto:=DdlTrayecto.SelectedValue.ToEntero()) Then
                RegistraScript("$('#DModal').modal('hide')")
                Alert("El Gasto se agregó correctamente.", TipoMensaje.MsgInformacion)
            End If
        ElseIf Modalidad = "U" Then
            If ObjPS.UpdateGasto(CveGPSGasto, TxtCantidad.Text.ToDecimal(), TxtPrecio.Text.Trim().ToDecimal(), TxtDescripcion.Text.Trim(), TxtObs.Text.Trim(), TxtFecha.Text.ToDateTime(), UsuarioActual.CveUsuario) Then
                RegistraScript("$('#DModal').modal('hide')")
                Alert("El Gasto se agregó correctamente.", TipoMensaje.MsgInformacion)
            End If
        End If
        ObjPS.Dispose()
        CargaDatos()
    End Sub

#End Region

#Region "LIMPIAR"
    Protected Sub LimpiaModal()
        TxtCantidad.Text = ""
        TxtPrecio.Text = ""
        TxtDescripcion.Text = ""
        TxtObs.Text = ""
        TxtFecha.Text = ""
        DdlTrayecto.SelectedValueExist("-1")
    End Sub

#End Region

#Region "GRIDVIEW"
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            'If e.Row.DBCampo("Estatus") = "True" Then
            '    e.Row.Cells(1).ForeColor = Drawing.Color.Green
            '    e.Row.Cells(1).Font.Bold = True
            '    e.Row.Cells(1).Text = "Activo"
            'Else
            '    e.Row.Cells(1).Text = "Inactivo"
            '    e.Row.Cells(1).ForeColor = Drawing.Color.Red
            '    e.Row.Cells(1).Font.Bold = True
            'End If
        End If
    End Sub

#End Region

End Class