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)
{
dtpFromDate.Text = System.DateTime.Now.ToString("d MMMM yyy");
dtpToDate.Text = System.DateTime.Now.ToString("d MMMM yyy");
cboOrderBy.Text = "Description";
cboSelItem.Text = "Date";
cboSelection.Text = "All";
}
private void Data2_AfterData(object sender, EventArgs e)
{
txtSelProductCode.Text = "Items Sold for - " + Report.GetParameterValue("SelProductCode").ToString();
txtSelDescription.Text = Report.GetColumnValue("SelectedProduct.Description").ToString();
}
private void btnOk_Click(object sender, EventArgs e)
{
Report.SetParameterValue("FromDate", dtpFromDate.Value.ToString("yyyy-MM-dd"));
Report.SetParameterValue("ToDate", dtpToDate.Value.ToString("yyyy-MM-dd"));
//Report.SetParameterValue("OrderBy", cboOrderBy.Text); DOES NOT WORK ?????
TableDataSource tItemsSold = Report.GetDataSource("items_sold") as TableDataSource;
//For Selection
string selection = String.Empty;
if (cboSelection.Text == "All")
{
txtSelectionFeedback.Text = "Selection: All";
selection = "p.ID > 0";
}
else if (cboSelection.Text == "Products Only")
{
txtSelectionFeedback.Text = "Selection: Products Only";
selection = "p.IsProduct = 1";
}
else if (cboSelection.Text == "Services Only")
{
txtSelectionFeedback.Text = "Selection: Services Only";
selection = "p.IsProduct = 0";
}
else if (cboSelection.Text == "Category =")
{
txtSelectionFeedback.Text = "Selection: Category = " + cboCategory.Text;
selection = "p.Category = '" + cboCategory.Text + "'";
}
else if (cboSelection.Text == "Sub Category =")
{
txtSelectionFeedback.Text = "Selection: Sub Category = " + cboSubCategory.Text;
selection = "p.SubCategory = '" + cboSubCategory.Text + "'";
}
else if (cboSelection.Text == "Location =")
{
txtSelectionFeedback.Text = "Selection: Location = " + cboLocation.Text;
selection = "p.Location = '" + cboLocation.Text + "'";
}
else if (cboSelection.Text == "Sub Location =")
{
txtSelectionFeedback.Text = "Selection: Sub Location = " + cboSubLocation.Text;
selection = "p.SubLocation = '" + cboSubLocation.Text + "'";
}
else if (cboSelection.Text == "Below Min. Qty")
{
txtSelectionFeedback.Text = "Selection: Items below Min. Qty";
selection = "p.QtyAvailable < p.MinQty";
}
else if (cboSelection.Text == "Main Supplier =")
{
txtSelectionFeedback.Text = "Selection: Main Supplier = " + cboSupplier.Text;
selection = "p.MainSupplierID = '" + ComboBox2.Text + "'";
}
else if (cboSelection.Text == "On Promotion")
{
txtSelectionFeedback.Text = "Selection: On Promotion ";
selection = "i.IsOnPromotion = 1";
}
else if (cboSelection.Text == "Not on Promotion")
{
txtSelectionFeedback.Text = "Selection: Not on Promotion ";
selection = "i.IsOnPromotion = 0";
}
tItemsSold.SelectCommand = tItemsSold.SelectCommand.ToString().Replace("@Selection", selection);
//For Items Sold
string orderBy = String.Empty;
if (cboOrderBy.Text == "Product code")
orderBy = "ProductCode";
else if (cboOrderBy.Text == "Description")
orderBy = "Description";
else if (cboOrderBy.Text == "Qty sold")
orderBy = "Qty DESC";
else if (cboOrderBy.Text == "Profit made")
orderBy = "Profit DESC";
tItemsSold.SelectCommand = tItemsSold.SelectCommand.ToString().Replace("@OrderBy", orderBy);
//For Selected Item
TableDataSource tSelItem = Report.GetDataSource("SelectedProduct") as TableDataSource;
if (cboSelItem.Text == "Date")
orderBy = "DATE_FORMAT(`Date`,'%Y-%m-%d')";
else if (cboOrderBy.Text == "Document #")
orderBy = "TransID";
else if (cboOrderBy.Text == "Client Name")
orderBy = "ClientName";
else if (cboOrderBy.Text == "Sales Rep")
orderBy = "SalesRep";
tSelItem.SelectCommand = tSelItem.SelectCommand.ToString().Replace("@OrderBy", orderBy);
}
private void DataFooter1_AfterData(object sender, EventArgs e)
{
decimal totProfit = Convert.ToDecimal(Report.GetTotalValue("Total_Profit").ToString());
decimal totExcl = Convert.ToDecimal(Report.GetTotalValue("Total_Excl").ToString());
if (totExcl != 0)
{
decimal avgGP = (totProfit/totExcl);
decimal avgMUP = (avgGP/(1-avgGP));
txtTotGP.Text = (avgGP * 100).ToString("#.00");
txtTotMup.Text = (avgMUP * 100).ToString("#.00");
}
else
{
txtTotGP.Text = "0.00";
txtTotMup.Text = "0.00";
}
//total Qty Column format
int decimalValue = Convert.ToInt32(Report.GetColumnValue("programs_config.QtyDecimalValue"));
decimal qtyVal = 0;
if (Decimal.TryParse(txtQtyTotal.Text, out qtyVal))
{
txtQtyTotal.Text = String.Format("{0:F" + decimalValue + "}", qtyVal);
}
}
private void Data1_AfterData(object sender, EventArgs e)
{
//total Qty Column format
int decimalValue = Convert.ToInt32(Report.GetColumnValue("programs_config.QtyDecimalValue"));
decimal qtyVal = 0;
if (Decimal.TryParse(txtQty.Text, out qtyVal))
{
txtQty.Text = String.Format("{0:F" + decimalValue + "}", qtyVal);
}
if (Decimal.TryParse(txtQtyAvail.Text, out qtyVal))
{
txtQtyAvail.Text = String.Format("{0:F" + decimalValue + "}", qtyVal);
}
}
private void cboSelection_SelectedIndexChanged(object sender, EventArgs e)
{
cboCategory.Visible = false;
cboSubCategory.Visible = false;
cboLocation.Visible = false;
cboSubLocation.Visible = false;
cboSupplier.Visible = false;
if (cboSelection.Text == "Category =")
cboCategory.Visible = true;
else if (cboSelection.Text == "Sub Category =")
cboSubCategory.Visible = true;
else if (cboSelection.Text == "Location =")
cboLocation.Visible = true;
else if (cboSelection.Text == "Sub Location =")
cboSubLocation.Visible = true;
else if (cboSelection.Text == "Main Supplier =")
cboSupplier.Visible = true;
}
}
}