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) { //Shows today's date dtpFromDate.Text = System.DateTime.Now.ToString("d MMMM yyy"); dtpToDate.Text = System.DateTime.Now.ToString("d MMMM yyy"); } 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")); TableDataSource tSel1 = Report.GetDataSource("cash_sales") as TableDataSource; TableDataSource tSel2 = Report.GetDataSource("cash_refunds") as TableDataSource; TableDataSource tSel3 = Report.GetDataSource("credit_sales") as TableDataSource; TableDataSource tSel4 = Report.GetDataSource("credit_notes") as TableDataSource; string selection = "ID >= 0"; if (optZeroRated.Checked) { selection = "TotalVAT = 0"; txtHeader.Text += " (Zero-Rated)"; } else if (optNonZeroRated.Checked) { selection = "TotalVAT <> 0"; txtHeader.Text += " (Non Zero-Rated)"; } tSel1.SelectCommand = tSel1.SelectCommand.ToString().Replace("@Selection", selection); tSel2.SelectCommand = tSel2.SelectCommand.ToString().Replace("@Selection", selection); tSel3.SelectCommand = tSel3.SelectCommand.ToString().Replace("@Selection", selection); tSel4.SelectCommand = tSel4.SelectCommand.ToString().Replace("@Selection", selection); } private void Data1_AfterData(object sender, EventArgs e) { //Sales decimal subTotSalesTotTrans = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TransQty")) + Convert.ToDecimal(Report.GetColumnValue("credit_sales.TransQty")); decimal subTotSalesTotQty = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalItemQty")) + Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalItemQty")); decimal subTotSalesTotCost = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalCost")) + Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalCost")); decimal subTotSalesTotProfit = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalProfit")) + Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalProfit")); decimal subTotSalesTotExcl = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalExcl")) + Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalExcl")); decimal subTotSalesTotVAT = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalVAT")) + Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalVAT")); decimal subTotSalesTotIncl = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalIncl")) + Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalIncl")); txtSubSalesTotTrans.Text = subTotSalesTotTrans.ToString("# ###"); txtSubSalesTotQty.Text = subTotSalesTotQty.ToString("# ###"); txtSubSalesTotCost.Text = subTotSalesTotCost.ToString("# ###.00"); txtSubSalesTotProfit.Text = subTotSalesTotProfit.ToString("# ###.00"); txtSubSalesTotExcl.Text = subTotSalesTotExcl.ToString("# ###.00"); txtSubSalesTotVAT.Text = subTotSalesTotVAT.ToString("# ###.00"); txtSubSalesTotIncl.Text = subTotSalesTotIncl.ToString("# ###.00"); //Returns decimal subTotReturnsTotTrans = Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TransQty")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TransQty")); decimal subTotReturnsTotQty = Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalItemQty")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalItemQty")); decimal subTotReturnsTotCost = Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalCost")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalCost")); decimal subTotReturnsTotProfit = Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalProfit")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalProfit")); decimal subTotReturnsTotExcl = Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalExcl")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalExcl")); decimal subTotReturnsTotVAT = Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalVAT")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalVAT")); decimal subTotReturnsTotIncl = Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalIncl")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalIncl")); txtSubReturnsTotTrans.Text = subTotReturnsTotTrans.ToString("# ###"); txtSubReturnsTotQty.Text = subTotReturnsTotQty.ToString("# ###"); txtSubReturnsTotCost.Text = subTotReturnsTotCost.ToString("# ###.00"); txtSubReturnsTotProfit.Text = subTotReturnsTotProfit.ToString("# ###.00"); txtSubReturnsTotExcl.Text = subTotReturnsTotExcl.ToString("# ###.00"); txtSubReturnsTotVAT.Text = subTotReturnsTotVAT.ToString("# ###.00"); txtSubReturnsTotIncl.Text = subTotReturnsTotIncl.ToString("# ###.00"); //Total Cash decimal totCashTotTrans = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TransQty")) + Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TransQty")); decimal totCashTotQty = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalItemQty")) + Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalItemQty")); decimal totCashTotCost = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalCost")) + Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalCost")); decimal totCashTotProfit = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalProfit")) + Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalProfit")); decimal totCashTotExcl = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalExcl")) + Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalExcl")); decimal totCashTotVAT = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalVAT")) + Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalVAT")); decimal totCashTotIncl = Convert.ToDecimal(Report.GetColumnValue("cash_sales.TotalIncl")) + Convert.ToDecimal(Report.GetColumnValue("cash_refunds.TotalIncl")); txtTotCashTotTrans.Text = totCashTotTrans.ToString("# ###"); txtTotCashTotQty.Text = totCashTotQty.ToString("# ###"); txtTotCashTotCost.Text = totCashTotCost.ToString("# ###.00"); txtTotCashTotProfit.Text = totCashTotProfit.ToString("# ###.00"); txtTotCashTotExcl.Text = totCashTotExcl.ToString("# ###.00"); txtTotCashTotVAT.Text = totCashTotVAT.ToString("# ###.00"); txtTotCashTotIncl.Text = totCashTotIncl.ToString("# ###.00"); //Total Credit decimal totCreditTotTrans = Convert.ToDecimal(Report.GetColumnValue("credit_sales.TransQty")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TransQty")); decimal totCreditTotQty = Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalItemQty")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalItemQty")); decimal totCreditTotCost = Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalCost")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalCost")); decimal totCreditTotProfit = Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalProfit")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalProfit")); decimal totCreditTotExcl = Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalExcl")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalExcl")); decimal totCreditTotVAT = Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalVAT")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalVAT")); decimal totCreditTotIncl = Convert.ToDecimal(Report.GetColumnValue("credit_sales.TotalIncl")) + Convert.ToDecimal(Report.GetColumnValue("credit_notes.TotalIncl")); txtTotCreditTotTrans.Text = totCreditTotTrans.ToString("# ###"); txtTotCreditTotQty.Text = totCreditTotQty.ToString("# ###"); txtTotCreditTotCost.Text = totCreditTotCost.ToString("# ###.00"); txtTotCreditTotProfit.Text = totCreditTotProfit.ToString("# ###.00"); txtTotCreditTotExcl.Text = totCreditTotExcl.ToString("# ###.00"); txtTotCreditTotVAT.Text = totCreditTotVAT.ToString("# ###.00"); txtTotCreditTotIncl.Text = totCreditTotIncl.ToString("# ###.00"); //Total Sales txtTotTrans.Text = (subTotSalesTotTrans + subTotReturnsTotTrans).ToString("# ###"); txtTotQty.Text = (subTotSalesTotQty + subTotReturnsTotQty).ToString("# ###"); txtTotCost.Text = (subTotSalesTotCost + subTotReturnsTotCost).ToString("# ###.00"); txtTotProfit.Text = (subTotSalesTotProfit + subTotReturnsTotProfit).ToString("# ###.00"); txtTotExcl.Text = (subTotSalesTotExcl + subTotReturnsTotExcl).ToString("# ###.00"); txtTotVAT.Text = (subTotSalesTotVAT + subTotReturnsTotVAT).ToString("# ###.00"); txtTotIncl.Text = (subTotSalesTotIncl + subTotReturnsTotIncl).ToString("# ###.00"); //GP and Mup if (totCashTotExcl != 0) { txtCashGP.Text = ((totCashTotProfit/totCashTotExcl)*100).ToString("# ###.00"); } if (totCashTotCost != 0) { txtCashMup.Text = ((totCashTotProfit/totCashTotCost)*100).ToString("# ###.00"); } if (totCreditTotExcl != 0) { txtCreditGP.Text = ((totCreditTotProfit/totCreditTotExcl)*100).ToString("# ###.00"); } if (totCreditTotCost != 0) { txtCreditMup.Text = ((totCreditTotProfit/totCreditTotCost)*100).ToString("# ###.00"); } if ((subTotSalesTotCost + subTotReturnsTotCost) != 0) { txtTotMup.Text = ((subTotSalesTotProfit + subTotReturnsTotProfit)/(subTotSalesTotCost + subTotReturnsTotCost)*100).ToString("# ###.00"); } if ((subTotSalesTotExcl + subTotReturnsTotExcl) != 0) { txtTotGP.Text = ((subTotSalesTotProfit + subTotReturnsTotProfit)/(subTotSalesTotExcl + subTotReturnsTotExcl)*100).ToString("# ###.00"); } } } }