62 lines
2.0 KiB
VB.net
62 lines
2.0 KiB
VB.net
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
|