Imports Extensiones

Partial Class General_JAMComparativos
    Inherits ClsPaginas

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

    Private Sub CargaDatos()
        Dim Dif As New ClsGenerales


        If Dif.JAMComparativo(RBLInv.SelectedValue.ToEntero) Then
            GvI.DataSource = Dif.DtResultados
            LblInv.Text = String.Format("{0} Registros", Dif.DtResultados.Rows.Count)
        End If

        If Dif.JAMComparativo(RblCxC.SelectedValue.ToEntero) Then
            GvCxC.DataSource = Dif.DtResultados
            LblCxC.Text = String.Format("{0} Registros", Dif.DtResultados.Rows.Count)
        End If
        If Dif.JAMComparativo(RBLCxP.SelectedValue.ToEntero) Then
            GvCxP.DataSource = Dif.DtResultados
            LblCxP.Text = String.Format("{0} Registros", Dif.DtResultados.Rows.Count)
        End If

        Dif.Dispose()
        GvI.DataBind()
        GvCxC.DataBind()
        GvCxP.DataBind()
    End Sub

    Private Sub BtnExcelCxC_Click(sender As Object, e As EventArgs) Handles BtnExcelCxC.Click
        GvCxC.ExportToExcel("CuentasxCobrar")
    End Sub

    Private Sub BtnExcelCxP_Click(sender As Object, e As EventArgs) Handles BtnExcelCxP.Click
        GvCxP.ExportToExcel("CuentasxPagar")
    End Sub

    Private Sub BtnExcelInv_Click(sender As Object, e As EventArgs) Handles BtnExcelInv.Click
        GvI.ExportToExcel("Inventarios")
    End Sub

    Private Sub RblCxC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblCxC.SelectedIndexChanged
        CargaDatos()
    End Sub

    Private Sub RBLCxP_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCxP.SelectedIndexChanged
        CargaDatos()
    End Sub



    Private Sub RblInv_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLInv.SelectedIndexChanged
        CargaDatos()
    End Sub
End Class