SIG/Ventas/RepIngresosDetalle.aspx.vb

Imports Extensiones

Partial Class Ventas_RepIngresosDetalle
    Inherits ClsPaginas

#Region "Propiedades"
    Private Property RsFechaI() As String
        Get
            Return If(IsNothing(ViewState("RsFechaI")), "-1", CStr(ViewState("RsFechaI")))
        End Get
        Set
            ViewState("RsFechaI") = Value
        End Set
    End Property
    Private Property RsFechaF() As String
        Get
            Return If(IsNothing(ViewState("RsFechaF")), "-1", CStr(ViewState("RsFechaF")))
        End Get
        Set
            ViewState("RsFechaF") = Value
        End Set
    End Property
    Private Property TipoDoc() As String
        Get
            Return If(IsNothing(ViewState("TipoDoc")), "-1", CStr(ViewState("TipoDoc")))
        End Get
        Set
            ViewState("TipoDoc") = Value
        End Set
    End Property
    Private Property CveSubProyecto() As Integer
        Get
            Return If(IsNothing(ViewState("CveSubProyecto")), -1, ViewState("CveSubProyecto").ToString().ToEntero())
        End Get
        Set
            ViewState("CveSubProyecto") = Value
        End Set
    End Property

    Private Property CveConceptoContable() As Integer
        Get
            Return If(IsNothing(ViewState("CveConceptoContable")), -1, ViewState("CveConceptoContable").ToString().ToEntero())
        End Get
        Set
            ViewState("CveConceptoContable") = Value
        End Set
    End Property

    Private Property CveCuenta() As Integer
        Get
            Return If(IsNothing(ViewState("CveCuenta")), -1, ViewState("CveCuenta").ToString().ToEntero())
        End Get
        Set
            ViewState("CveCuenta") = Value
        End Set
    End Property

    Private Property TipoAmortizacion() As Integer
        Get
            Return If(IsNothing(ViewState("TipoAmortizacion")), -1, ViewState("TipoAmortizacion").ToString().ToEntero())
        End Get
        Set
            ViewState("TipoAmortizacion") = Value
        End Set
    End Property


#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
            DdlSubProyecto.DataBind()
            RsFechaI = If(IsNothing(Request("RsFechaI")), "", Request("RsFechaI").ToString())
            RsFechaF = If(IsNothing(Request("RsFechaF")), "", Request("RsFechaF").ToString())
            TipoDoc = If(IsNothing(Request("TipoDoc")), "", Request("TipoDoc").ToString())
            CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString()).ToEntero
            CveSubProyecto = If(IsNothing(Request("CveSubProyecto")), 0, Request("CveSubProyecto").ToString().ToEntero())
            CveConceptoContable = If(IsNothing(Request("CveConceptoContable")), -1, Request("CveConceptoContable").ToString().ToEntero())
            TipoAmortizacion = If(IsNothing(Request("TipoAmortizacion")), -1, Request("TipoAmortizacion").ToString().ToEntero())
            TxtFechaInicio.Text = If(RsFechaI.Length > 6, DateTime.ParseExact(RsFechaI, "yyyy/MM/dd", Nothing).ToString("dd/MM/yyyy"), "")
            TxtFechaFin.Text = If(RsFechaF.Length > 6, DateTime.ParseExact(RsFechaF, "yyyy/MM/dd", Nothing).ToString("dd/MM/yyyy"), "")
            DdlTipoDocto.SelectedValueExist(TipoDoc)
            DdlSubProyecto.SelectedValueExist(CveSubProyecto.ToString())
            '
            LnkFiltrar_Click(LnkFiltrar, EventArgs.Empty)
        End If
    End Sub
    Protected Sub CargaRepIngresosDetalle()
        Dim ObjRepI As New ClsVentas()
        If ObjRepI.RepIngresosDetalle(UsuarioActual.CveEmpresa, If(RsFechaI = "", MinFecha, RsFechaI.ToDate), If(RsFechaF = "", MaxFecha, RsFechaF.ToDate), TipoDoc, CveSubProyecto, CveConceptoContable, CveCuenta, TipoAmortizacion) Then
            GVRepIngresos.DataSource = ObjRepI.DtResultados
        End If
        ObjRepI.Dispose()
        GVRepIngresos.DataBind()
        upDatosRepI.Update()
    End Sub
    Protected Sub LnkFiltrar_Click(sender As Object, e As EventArgs)
        RsFechaI = TxtFechaInicio.Text.Replace("__/__/____", "").Trim()
        RsFechaI = If(RsFechaI.Length > 6, RsFechaI.ToDate().ToString("yyyy/MM/dd"), "-1")
        RsFechaF = TxtFechaFin.Text.Replace("__/__/____", "").Trim()
        RsFechaF = If(RsFechaF.Length > 6, RsFechaF.ToDate().ToString("yyyy/MM/dd"), "-1")
        TipoDoc = DdlTipoDocto.SelectedValue
        CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero()
        CargaRepIngresosDetalle()
    End Sub
    Protected Sub GVRepIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("GTipoDocto").ToString().ToEntero() = -1 OrElse e.Row.DBCampo("SerieFolio").ToString() = "TOTAL" Then
                e.Row.CssClass = "Totales"
            End If
        End If
    End Sub
End Class