Commit inicial Ventas Productivo

General/JAMComparativos.aspx.vb

@@ -0,0 +1,61 @@
+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