using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Windows.Forms;
using System.Drawing;
using System.Data;
using FastReport;
using FastReport.Data;
using FastReport.Dialog;
using FastReport.Barcode;
using FastReport.Table;
using FastReport.Utils;
namespace FastReport
{
public class ReportScript
{
private void Form1_Shown(object sender, EventArgs e)
{
cboSelection.Text = "All";
cboGroupBy.Text = "All";
cboOrderBy.Text = "Description";
}
private void btnOk_Click(object sender, EventArgs e)
{
//Report.SetParameterValue("OrderBy", cboOrderBy.Text); DOES NOT WORK ?????
TableDataSource tProducts = Report.GetDataSource("products") as TableDataSource;
string selColumn = String.Empty;
string orderBy1 = String.Empty;
if (cboGroupBy.Text == "All")
{
selColumn = "ProductID AS Selection, ";
txtGroupBy.Text = String.Empty;
}
else if (cboGroupBy.Text == "Location")
{
selColumn = "Location AS Selection, ";
GroupByHeader.StartNewPage = true;
GroupByFooter.StartNewPage = true;
orderBy1 = "Selection, ";
}
else if (cboGroupBy.Text == "Sub-Location")
{
selColumn = "SubLocation AS Selection, ";
GroupByHeader.StartNewPage = true;
GroupByFooter.StartNewPage = true;
orderBy1 = "Selection, ";
}
else if (cboGroupBy.Text == "Category")
{
selColumn = "Category AS Selection, ";
GroupByHeader.StartNewPage = true;
GroupByFooter.StartNewPage = true;
orderBy1 = "Selection, ";
}
else if (cboGroupBy.Text == "Sub-Category")
{
selColumn = "SubCategory AS Selection, ";
GroupByHeader.StartNewPage = true;
GroupByFooter.StartNewPage = true;
orderBy1 = "Selection, ";
}
string orderBy2 = String.Empty;
if (cboOrderBy.Text == "Item code")
orderBy2 = "ProductCode";
else if (cboOrderBy.Text == "Description")
orderBy2 = "Description";
else if (cboOrderBy.Text == "Qty Available")
orderBy2 = "QtyAvailable";
string selection = String.Empty;
string excludeZeroQtys = String.Empty;
if (chkExcludeZeroQtys.Checked)
excludeZeroQtys = " AND QtyAvailable <> 0";
if (cboSelection.Text == "All")
{
txtSelectionFeedback.Text = "Selection: All";
selection = "ID > 0" + excludeZeroQtys;
}
else if (cboSelection.Text == "Location =")
{
txtSelectionFeedback.Text = "Selection: Location = " + cboLocation.Text;
selection = "Location = '" + cboLocation.Text + "'" + excludeZeroQtys;
}
else if (cboSelection.Text == "Sub-Location =")
{
txtSelectionFeedback.Text = "Selection: Sub-Location = " + cboSubLocation.Text;
selection = "SubLocation = '" + cboSubLocation.Text + "'" + excludeZeroQtys;
}
else if (cboSelection.Text == "Category =")
{
txtSelectionFeedback.Text = "Selection: Category = " + cboCategory.Text;
selection = "Category = '" + cboCategory.Text + "'" + excludeZeroQtys;
}
else if (cboSelection.Text == "Sub-Category =")
{
txtSelectionFeedback.Text = "Selection: Sub-Category = " + cboSubCategory.Text;
selection = "SubCategory = '" + cboSubCategory.Text + "'" + excludeZeroQtys;
}
else if (cboSelection.Text == "Products Only")
{
txtSelectionFeedback.Text = "Selection: Products Only";
selection = "IsProduct = 1" + excludeZeroQtys;
}
else if (cboSelection.Text == "Services Only")
{
txtSelectionFeedback.Text = "Selection: Services Only";
selection = "IsProduct = 0" + excludeZeroQtys;
}
tProducts.SelectCommand = "SELECT " + selColumn + " ProductCode, Description, CostPrice, SellingPrice, QtyAvailable " +
"FROM products WHERE CompanyID = @CompanyID AND " + selection +
" ORDER BY " + orderBy1 + orderBy2;
//MessageBox.Show(tProducts.SelectCommand);
}
private void cboSelection_SelectedIndexChanged(object sender, EventArgs e)
{
if (cboSelection.Text == "Location =")
cboLocation.Visible = true;
else if (cboSelection.Text == "Sub-Location =")
cboSubLocation.Visible = true;
else if (cboSelection.Text == "Category =")
cboCategory.Visible = true;
else if (cboSelection.Text == "Sub-Category =")
cboSubCategory.Visible = true;
}
}
}