Esempio n. 1
0
//Check whether crytal report can login to the server
    private bool Logon(CrystalDecisions.CrystalReports.Engine.ReportDocument cr, string server, string database,
                       string user_id, string password)
    {
// Declare and instantiate a new connection info object.
        CrystalDecisions.Shared.ConnectionInfo ci;
        ci = new CrystalDecisions.Shared.ConnectionInfo();

        ci.ServerName   = server;
        ci.DatabaseName = database;
        ci.UserID       = user_id;
        ci.Password     = password; //password;
// ci.IntegratedSecurity = false;

// If the ApplyLogon function fails then return a false for this function.
// We are applying logon information to the main report at this stage.
        if (!ApplyLogon(cr, ci))
        {
            return(false);
        }

// Declare a subreport object.
        CrystalDecisions.CrystalReports.Engine.SubreportObject subobj;

// Loop through all the report objects and locate subreports.
// If a subreport is found then apply logon information to
// the subreport.
        foreach (CrystalDecisions.CrystalReports.Engine.ReportObject obj in cr.ReportDefinition.ReportObjects)
        {
            if (obj.Kind == CrystalDecisions.Shared.ReportObjectKind.SubreportObject)
            {
                subobj = (CrystalDecisions.CrystalReports.Engine.SubreportObject)obj;
                if (!ApplyLogon(cr.OpenSubreport(subobj.SubreportName), ci))
                {
                    return(false);
                }
            }
        }

// Return True if the code runs to this stage.
        return(true);
    }
Esempio n. 2
0
    /// <summary>
    /// 顯示報表
    /// </summary>
    private void ShowReport(DataSet ds)
    {
        #region 利用CrystalReport列印報表

        //使用者名稱
        DataTable dt1 = new DataTable();
        dt1 = (DataTable)Session["UserInfo"];
        string Login_Name = dt1.Rows[0]["Name"].ToString();
        string strFileName = "";

        CrystalDecisions.CrystalReports.Engine.ReportDocument report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
        ReportDocument SubReport = new ReportDocument();

        report.Load(Server.MapPath("./REPORT/CAA271/CAA27R01.rpt"));
        strFileName = HttpUtility.UrlEncode("結帳與開立憑證檢核表.PDF", System.Text.Encoding.UTF8);

        SubReport = report.OpenSubreport("CAA27R01_1");
        SubReport.SetDataSource(ds);

        report.SetDataSource(ds);

        report.SetParameterValue("par_Program_ID", "CAA27R01");
        report.SetParameterValue("par_LoginUser", Session["UID"].ToString() + Login_Name);

        System.IO.Stream streamPDF = report.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat);
        byte[] bytesPDF = new byte[streamPDF.Length];
        streamPDF.Read(bytesPDF, 0, bytesPDF.Length);
        streamPDF.Seek(0, System.IO.SeekOrigin.Begin);

        //export file  
        Response.ClearContent();
        Response.ClearHeaders();
        Response.AddHeader("content-disposition", "attachment;filename=" + strFileName);//pdf檔名  
        Response.ContentType = "application/pdf";
        Response.OutputStream.Write(bytesPDF, 0, bytesPDF.Length);
        Response.Flush();
        Response.Close();
        report.Close();
        #endregion
    }
Esempio n. 3
0
    private void ShowReport(DataSet ds)
    {
        try
        {
            string strFileName = "";
            CrystalDecisions.CrystalReports.Engine.ReportDocument report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            ReportDocument SubReport = new ReportDocument();
 
            report.Load(Server.MapPath("./REPORT/MKT06/CRMKT06R01.rpt"));
            strFileName = HttpUtility.UrlEncode("圖書採購卡.PDF", System.Text.Encoding.UTF8);

            SubReport = report.OpenSubreport("CRMKT0601_1");
            SubReport.SetDataSource(ds);

            report.SetDataSource(ds);

            System.IO.Stream streamPDF = report.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat);
            byte[] bytesPDF = new byte[streamPDF.Length];
            streamPDF.Read(bytesPDF, 0, bytesPDF.Length);
            streamPDF.Seek(0, System.IO.SeekOrigin.Begin);

            //export file  
            Response.ClearContent();
            Response.ClearHeaders();
            Response.AddHeader("content-disposition", "attachment;filename=" + strFileName);//pdf檔名  
            Response.ContentType = "application/pdf";
            Response.OutputStream.Write(bytesPDF, 0, bytesPDF.Length);
            Response.Flush();
            Response.Close();
        }
        catch (Exception ex)
        {
            ErrorMsgLabel.Text = ex.Message;
        }
        finally { }
    }
Esempio n. 4
0
        private static void report_BasketValue()
        {
            ADODB.Recordset rs = default(ADODB.Recordset);
            ADODB.Recordset rsPayment = default(ADODB.Recordset);
            ADODB.Recordset rsChannel = default(ADODB.Recordset);
            string sql = null;
            // Dim Report As New cryBasketValue
            CrystalDecisions.CrystalReports.Engine.ReportDocument Report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            Report.Load("cryBasketValue.rpt");

            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor;
            rs = modReport.getRSreport(ref "SELECT Report.Report_Heading, aCompany.Company_Name FROM aCompany, Report;");
            Report.SetParameterValue("txtCompanyName", rs.Fields("Company_Name"));
            Report.SetParameterValue("txtDayend", rs.Fields("Report_Heading"));
            rs.Close();
            rs = modReport.getRSreport(ref "SELECT * FROM Link Where LinkID=2 AND Link_SectionID=1");
            sql = "SELECT Count(theJoin.SaleID) AS CountOfSaleItemID, Sum(theJoin.quantity) AS quantity, Sum(theJoin.price) AS price, theJoin.Sale_PaymentType FROM (SELECT Sum(IIf([SaleItem_Reversal],0-[SaleItem_Quantity],[SaleItem_Quantity])) AS quantity, Sum(([SaleItem_Price]*[SaleItem_Quantity])) AS price, Sale.Sale_PaymentType, Sale.SaleID FROM SaleItem INNER JOIN Sale ON SaleItem.SaleItem_SaleID = Sale.SaleID Where (((SaleItem.SaleItem_Revoke) = 0) And ((SaleItem.SaleItem_DepositType) = 0)) GROUP BY Sale.Sale_PaymentType, Sale.SaleID) AS theJoin GROUP BY theJoin.Sale_PaymentType;";
            rsPayment = modReport.getRSreport(ref sql);
            sql = "SELECT Count(theJoin.SaleID) AS CountOfSaleItemID, Sum(theJoin.quantity) AS quantity, Sum(theJoin.price) AS price, aChannel.ChannelID, aChannel.Channel_Name FROM aChannel INNER JOIN (SELECT Sum(IIf([SaleItem_Reversal],0-[SaleItem_Quantity],[SaleItem_Quantity])) AS quantity, Sum(([SaleItem_Price]*[SaleItem_Quantity])) AS price, Sale.Sale_ChannelID, Sale.SaleID FROM SaleItem INNER JOIN Sale ON SaleItem.SaleItem_SaleID = Sale.SaleID Where (((SaleItem.SaleItem_Revoke) = 0) And ((SaleItem.SaleItem_DepositType) = 0)) GROUP BY Sale.Sale_ChannelID, Sale.SaleID) AS theJoin ON aChannel.ChannelID = theJoin.Sale_ChannelID GROUP BY aChannel.ChannelID, aChannel.Channel_Name;";
            rsChannel = modReport.getRSreport(ref sql);
            CrystalDecisions.CrystalReports.Engine.ReportDocument ReportNone = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            ReportNone.Load("cryNoRecords.rpt");
            if (rsPayment.BOF | rsPayment.EOF) {
                ReportNone.SetParameterValue("txtCompanyName", Report.ParameterFields("txtCompanyName").ToString);
                ReportNone.SetParameterValue("txtTitle", Report.ParameterFields("txtTitle").ToString);
                My.MyProject.Forms.frmReportShow.Text = ReportNone.ParameterFields("txtTitle").ToString;
                My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = ReportNone;
                My.MyProject.Forms.frmReportShow.mReport = ReportNone;
                My.MyProject.Forms.frmReportShow.sMode = "0";
                My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
                My.MyProject.Forms.frmReportShow.ShowDialog();
                return;
            }
            Report.OpenSubreport("Subreport1").Database.Tables(1).SetDataSource(rsPayment);
            Report.OpenSubreport("Subreport2").Database.Tables(1).SetDataSource(rsChannel);
            //Report.VerifyOnEveryPrint = True
            My.MyProject.Forms.frmReportShow.Text = Report.ParameterFields("txtTitle").ToString;
            My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = Report;
            My.MyProject.Forms.frmReportShow.mReport = Report;
            My.MyProject.Forms.frmReportShow.sMode = "0";
            My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
            My.MyProject.Forms.frmReportShow.ShowDialog();
        }
Esempio n. 5
0
        private static void report_Banking()
        {
            ADODB.Recordset rs = default(ADODB.Recordset);
            string sql = null;
            //Dim Report As New cryBanking
            CrystalDecisions.CrystalReports.Engine.ReportDocument Report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            Report.Load("cryBanking.rpt");
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor;
            rs = modReport.getRSreport(ref "SELECT Report.Report_Heading, aCompany.Company_Name FROM aCompany, Report;");
            Report.SetParameterValue("txtCompanyName", rs.Fields("Company_Name"));
            Report.SetParameterValue("txtDayend", rs.Fields("Report_Heading"));
            rs.Close();
            rs = modReport.getRSreport(ref "SELECT aPOS.POSID, aPOS.POS_Name, Sum(Declaration.Declaration_Cash) AS SumOfDeclaration_Cash, Sum(Declaration.Declaration_CashServer) AS SumOfDeclaration_CashServer, Sum(Declaration.Declaration_CashCount) AS SumOfDeclaration_CashCount, Sum(Declaration.Declaration_Cheque) AS SumOfDeclaration_Cheque, Sum(Declaration.Declaration_ChequeServer) AS SumOfDeclaration_ChequeServer, Sum(Declaration.Declaration_ChequeCount) AS SumOfDeclaration_ChequeCount, Sum(Declaration.Declaration_Card) AS SumOfDeclaration_Card, Sum(Declaration.Declaration_CardServer) AS SumOfDeclaration_CardServer, Sum(Declaration.Declaration_CardCount) AS SumOfDeclaration_CardCount, Sum(Declaration.Declaration_Payout) AS SumOfDeclaration_Payout, Sum(Declaration.Declaration_PayoutServer) AS SumOfDeclaration_PayoutServer, Sum(Declaration.Declaration_PayoutCount) AS SumOfDeclaration_PayoutCount FROM Declaration INNER JOIN aPOS ON Declaration.Declaration_POSID = aPOS.POSID GROUP BY aPOS.POSID, aPOS.POS_Name;");
            CrystalDecisions.CrystalReports.Engine.ReportDocument ReportNone = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            ReportNone.Load("cryNoRecords.rpt");
            if (rs.BOF | rs.EOF) {
                ReportNone.SetParameterValue("txtCompanyName", Report.ParameterFields("txtCompanyName").ToString);
                ReportNone.SetParameterValue("txtTitle", Report.ParameterFields("txtTitle").ToString);
                My.MyProject.Forms.frmReportShow.Text = ReportNone.ParameterFields("txtTitle").ToString;
                My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = ReportNone;
                My.MyProject.Forms.frmReportShow.mReport = ReportNone;
                My.MyProject.Forms.frmReportShow.sMode = "0";
                My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
                My.MyProject.Forms.frmReportShow.ShowDialog();
                return;
            }

            Report.OpenSubreport("Subreport1").Database.Tables(1).SetDataSource(rs);
            Report.OpenSubreport("Subreport2").Database.Tables(1).SetDataSource(rs);

            //Report.VerifyOnEveryPrint = True
            My.MyProject.Forms.frmReportShow.Text = Report.ParameterFields("txtTitle").ToString;
            My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = Report;
            My.MyProject.Forms.frmReportShow.mReport = Report;
            My.MyProject.Forms.frmReportShow.sMode = "0";
            My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
            My.MyProject.Forms.frmReportShow.ShowDialog();
        }
Esempio n. 6
0
        public static void report_GRV(ref int id)
        {
            string rsItem1SQL = null;
            ADODB.Recordset rs = default(ADODB.Recordset);
            ADODB.Recordset rsPurch = default(ADODB.Recordset);
            ADODB.Recordset rsCredit = default(ADODB.Recordset);
            ADODB.Recordset rsPurchDeposit = default(ADODB.Recordset);
            ADODB.Recordset rsCreditDeposit = default(ADODB.Recordset);
            ADODB.Recordset rsItem0 = default(ADODB.Recordset);
            ADODB.Recordset rsItem1 = default(ADODB.Recordset);
            ADODB.Recordset rsDeposit0 = default(ADODB.Recordset);
            ADODB.Recordset rsDeposit1 = default(ADODB.Recordset);

            ADODB.Recordset rsData = default(ADODB.Recordset);
            string sql = null;
            //UPGRADE_ISSUE: cry object was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
            //Dim Report As New cry
            CrystalDecisions.CrystalReports.Engine.ReportDocument Report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            Report.Load("cryGRV");
            //UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor;
            rsData = modRecordSet.getRS(ref "SELECT GRV.*, [GRV_ContentExclusive]*([GRV_Ullage]/100) AS Ullage, PurchaseOrder.*, Supplier.*, Company.*, GRV.GRVID, Person.Person_FirstName & ' ' & Person.Person_LastName AS Name FROM Company, (GRV INNER JOIN (PurchaseOrder INNER JOIN Supplier ON PurchaseOrder.PurchaseOrder_SupplierID = Supplier.SupplierID) ON GRV.GRV_PurchaseOrderID = PurchaseOrder.PurchaseOrderID) INNER JOIN Person ON GRV.GRV_PersonID = Person.PersonID WHERE (((GRV.GRVID)=" + id + "));");
            if (rsData.RecordCount) {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Database. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.Database.Tables(1).SetDataSource(rsData);
            } else {
                rsData = modRecordSet.getRS(ref "SELECT GRV.*, [GRV_ContentExclusive]*([GRV_Ullage]/100) AS Ullage, PurchaseOrder.*, Supplier.*, Company.*, GRV.GRVID, 'Logged In User' AS Name FROM Company, GRV INNER JOIN (PurchaseOrder INNER JOIN Supplier ON PurchaseOrder.PurchaseOrder_SupplierID = Supplier.SupplierID) ON GRV.GRV_PurchaseOrderID = PurchaseOrder.PurchaseOrderID WHERE (((GRV.GRVID)=" + id + "));");
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Database. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.Database.Tables(1).SetDataSource(rsData);
            }
            rsPurch = modRecordSet.getRS(ref "SELECT Sum(((([GRVItem_PackSize]/[StockItem_Quantity]*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])) AS exclusive, Sum(((([GRVItem_PackSize]/[StockItem_Quantity]*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100)) AS inclusive, Sum(([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100)) AS depositIncl FROM GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)=0) AND ((GRVItem.GRVItem_GRVID)=" + id + "));");
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Database. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Report.Database.Tables(2).SetDataSource(rsPurch);
            rsCredit = modRecordSet.getRS(ref "SELECT Sum(((([GRVItem_PackSize]/[StockItem_Quantity]*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])) AS exclusiveCredit, Sum(((([GRVItem_PackSize]/[StockItem_Quantity]*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100)) AS inclusiveCredit, Sum(([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100)) AS depositInclCredit FROM GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)<>0) AND ((GRVItem.GRVItem_GRVID)=" + id + "));");
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Database. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Report.Database.Tables(3).SetDataSource(rsCredit);
            rsPurchDeposit = modRecordSet.getRS(ref "SELECT Sum((IIf([GRVDeposit_Type]=1 Or [GRVDeposit_Type]=3,[GRVDeposit_Quantity]*([GRVDeposit_CaseQuantity]*[GRVDeposit_UnitCost]*(1+[GRVDeposit_VatRate]/100)),0))+(IIf([GRVDeposit_Type]=2 Or [GRVDeposit_Type]=3,[GRVDeposit_quantity]*([GRVDeposit_CaseCost]*(1+[GRVDeposit_VatRate]/100)),0))) AS inclusiveDepositReturn From GRVDeposit WHERE (((GRVDeposit.GRVDeposit_GRVID)=" + id + ") AND ((GRVDeposit.GRVDeposit_Return)=0));");
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Database. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Report.Database.Tables(4).SetDataSource(rsPurchDeposit);
            rsCreditDeposit = modRecordSet.getRS(ref "SELECT Sum((IIf([GRVDeposit_Type]=1 Or [GRVDeposit_Type]=3,[GRVDeposit_Quantity]*([GRVDeposit_CaseQuantity]*[GRVDeposit_UnitCost]*(1+[GRVDeposit_VatRate]/100)),0))+(IIf([GRVDeposit_Type]=2 Or [GRVDeposit_Type]=3,[GRVDeposit_quantity]*([GRVDeposit_CaseCost]*(1+[GRVDeposit_VatRate]/100)),0))) AS inclusiveDepositPurch From GRVDeposit WHERE (((GRVDeposit.GRVDeposit_GRVID)=" + id + ") AND ((GRVDeposit.GRVDeposit_Return)<>0));");
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Database. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Report.Database.Tables(5).SetDataSource(rsCreditDeposit);

            //'Set rsItem0 = getRS("SELECT StockItem.StockItem_Name AS GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost FROM GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)=0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));")
            //Set rsItem0 = getRS("SELECT StockItem.StockItem_Name AS GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost FROM GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)=0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));")
            // > Set rsItem0 = getRS("SELECT StockItem.StockItem_Name AS GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ([GRVItem_ContentCost]-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (([GRVItem_ContentCost]-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, GRVItem.GRVItem_Quantity, PriceChannelLnk.PriceChannelLnk_Price, GRVItem.GRVItem_Price FROM (GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID) LEFT JOIN PriceChannelLnk ON GRVItem.GRVItem_StockItemID = PriceChannelLnk.PriceChannelLnk_StockItemID WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)=0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));")

            //commented lines to put    StockItem.StockItem_SupplierCode
            //rsItem1SQL = "SELECT GRVItem.GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost, " & _
            //'"GRVItem.GRVItem_Price FROM (GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID) WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)=0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));"
            //UPGRADE_WARNING: Couldn't resolve default property of object rsItem1SQL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            rsItem1SQL = "SELECT GRVItem.GRVItem_Name, StockItem.StockItem_SupplierCode, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost, " + "GRVItem.GRVItem_Price FROM (GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID) WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)=0) AND ((GRVItem.GRVItem_GRVID)=" + id + "));";
            //commented lines to put    StockItem.StockItem_SupplierCode

            //rsItem1SQL = "SELECT GRVItem.GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost, " & _
            //' "PriceChannelLnk.PriceChannelLnk_Price, GRVItem.GRVItem_Price FROM (GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID) LEFT JOIN PriceChannelLnk ON (GRVItem.GRVItem_StockItemID = PriceChannelLnk.PriceChannelLnk_StockItemID) AND (GRVItem.GRVItem_StockItemQuantity = PriceChannelLnk.PriceChannelLnk_Quantity) WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)=0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));"
            rsItem0 = modRecordSet.getRS(ref rsItem1SQL);
            if (rsItem0.RecordCount == 0) {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section2").SectionFormat.EnableSuppress = true;
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section2").SectionFormat.EnableSuppress = false;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport1. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.OpenSubreport("Subreport1").Database.Tables(1).SetDataSource(rsItem0);
            }

            rsDeposit0 = modRecordSet.getRS(ref "SELECT GRVDeposit.*, IIf([GRVDeposit_Type]=2 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseCost]),0)+IIf([GRVDeposit_Type]=1 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseQuantity]*[GRVDeposit_UnitCost]),0) AS exclusive, IIf([GRVDeposit_Type]=2 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseCost]*(1+[GRVDeposit_VatRate]/100)),0)+IIf([GRVDeposit_Type]=1 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseQuantity]*[GRVDeposit_UnitCost]*(1+[GRVDeposit_VatRate]/100)),0) AS inclusive From GRVDeposit WHERE (((GRVDeposit.GRVDeposit_GRVID)=" + id + ") AND ((GRVDeposit.GRVDeposit_Return)<>0));");
            //
            if (rsDeposit0.RecordCount == 0) {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section3").SectionFormat.EnableSuppress = true;
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section3").SectionFormat.EnableSuppress = false;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.OpenSubreport("Subreport2").Database.Tables(1).SetDataSource(rsDeposit0);
            }

            //Set rsItem1 = getRS("SELECT GRVItem.GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost FROM GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)<>0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));")

            //commented lines to put    StockItem.StockItem_SupplierCode
            //rsItem1SQL = "SELECT GRVItem.GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost, " & _
            //'"GRVItem.GRVItem_Price FROM (GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID) WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)<>0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));"
            //UPGRADE_WARNING: Couldn't resolve default property of object rsItem1SQL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            rsItem1SQL = "SELECT GRVItem.GRVItem_Name, StockItem.StockItem_SupplierCode, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost, " + "GRVItem.GRVItem_Price FROM (GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID) WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)<>0) AND ((GRVItem.GRVItem_GRVID)=" + id + "));";
            //commented lines to put    StockItem.StockItem_SupplierCode

            //rsItem1SQL = "SELECT GRVItem.GRVItem_Name, GRVItem.GRVItem_Code, GRVItem.GRVItem_PackSize, GRVItem.GRVItem_Quantity, GRVItem.GRVItem_ContentCost, GRVItem.GRVItem_DepositCost, GRVItem.GRVItem_DiscountAmount, GRVItem.GRVItem_VatRate, ([GRVItem_DepositCost]*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS depositInclusive, ((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity] AS contentExclusive, (((([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost])-[GRVItem_DiscountAmount])*[GRVItem_Quantity])*(1+[GRVItem_VatRate]/100) AS contentInclusive, (([GRVItem_PackSize]/[StockItem_Quantity])*[GRVItem_ContentCost]) AS contentCost, " & _
            //'"PriceChannelLnk.PriceChannelLnk_Price, GRVItem.GRVItem_Price FROM (GRVItem INNER JOIN StockItem ON GRVItem.GRVItem_StockItemID = StockItem.StockItemID) LEFT JOIN PriceChannelLnk ON (GRVItem.GRVItem_StockItemID = PriceChannelLnk.PriceChannelLnk_StockItemID) AND (GRVItem.GRVItem_StockItemQuantity = PriceChannelLnk.PriceChannelLnk_Quantity) WHERE (((GRVItem.GRVItem_Quantity)<>0) AND ((GRVItem.GRVItem_Return)<>0) AND ((GRVItem.GRVItem_GRVID)=" & id & "));"
            rsItem1 = modRecordSet.getRS(ref rsItem1SQL);
            if (rsItem1.RecordCount == 0) {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section4").SectionFormat.EnableSuppress = true;
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section4").SectionFormat.EnableSuppress = false;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.OpenSubreport("Subreport3").Database.Tables(1).SetDataSource(rsItem1);
            }

            rsDeposit1 = modRecordSet.getRS(ref "SELECT GRVDeposit.*, IIf([GRVDeposit_Type]=2 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseCost]),0)+IIf([GRVDeposit_Type]=1 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseQuantity]*[GRVDeposit_UnitCost]),0) AS exclusive, IIf([GRVDeposit_Type]=2 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseCost]*(1+[GRVDeposit_VatRate]/100)),0)+IIf([GRVDeposit_Type]=1 Or [GRVDeposit_Type]=3,([GRVDeposit_CaseQuantity]*[GRVDeposit_UnitCost]*(1+[GRVDeposit_VatRate]/100)),0) AS inclusive From GRVDeposit WHERE (((GRVDeposit.GRVDeposit_GRVID)=" + id + ") AND ((GRVDeposit.GRVDeposit_Return)=0));");
            //
            if (rsDeposit1.RecordCount == 0) {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section5. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section5").SectionFormat.EnableSuppress = true;
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section5. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section5").SectionFormat.EnableSuppress = false;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.OpenSubreport("Subreport4").Database.Tables(1).SetDataSource(rsDeposit1);
            }

            //UPGRADE_WARNING: Couldn't resolve default property of object Report.VerifyOnEveryPrint. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            //'Report.VerifyOnEveryPrint = True
            My.MyProject.Forms.frmReportShow.Text = "Goods Receiving";
            //UPGRADE_WARNING: Couldn't resolve default property of object frmReportShow.CRViewer1.ReportSource. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            //UPGRADE_WARNING: Couldn't resolve default property of object Report. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = Report;
            My.MyProject.Forms.frmReportShow.mReport = Report;
            My.MyProject.Forms.frmReportShow.sMode = "0";
            My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
            //UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
            My.MyProject.Forms.frmReportShow.ShowDialog();
        }
Esempio n. 7
0
        public static void loadDayEndReportPrev(ref int id, ref int monthId)
        {
            int lTotal = 0;
            ADODB.Recordset rs = default(ADODB.Recordset);
            ADODB.Recordset rsBanking = default(ADODB.Recordset);
            ADODB.Recordset rsPayout = default(ADODB.Recordset);
            ADODB.Recordset rsSupplier = default(ADODB.Recordset);
            ADODB.Recordset rsShrink = default(ADODB.Recordset);
            ADODB.Recordset rsCustomer = default(ADODB.Recordset);
            ADODB.Recordset rsQuote = default(ADODB.Recordset);
            ADODB.Recordset rsConsignment = default(ADODB.Recordset);
            string sql = null;
            //Dim Report As New cryDayEndForm
            CrystalDecisions.CrystalReports.Engine.ReportDocument Report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            Report.Load("cryDayEndForm.rpt");
            int gParameters = 0;
            const short gParChannel = 1;
            const short gParStock = 2;
            const short gParShrink = 4;
            const short gParSupplier = 8;
            const short gParCustomer = 16;
            const short gParQuote = 32;
            const short gParConsignment = 64;
            const short gParPastelReport = 128;
            //Pastel Variable

            ADODB.Connection cn = default(ADODB.Connection);
            short x = 0;
            string databaseName = null;

            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor;
            rs = modRecordSet.getRS(ref "SELECT * FROM Company");
            Report.SetParameterValue("txtCompanyName", rs.Fields("Company_Name"));
            gParameters = Convert.ToInt32(0 + rs.Fields("Company_DayEndBit").Value);
            rs.Close();

            rs = modRecordSet.getRS(ref "SELECT * FROM DayEnd WHERE DayEndID = " + id);
            //ReportNone.Load("cryNoRecords.rpt")
            CrystalDecisions.CrystalReports.Engine.ReportDocument ReportNone = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            ReportNone.Load("cryNoRecords.rpt");
            if (rs.BOF | rs.EOF) {
                ReportNone.SetParameterValue("txtCompanyName", Report.ParameterFields("txtCompanyName").ToString);
                ReportNone.SetParameterValue("txtTitle", Report.ParameterFields("txtTitle").ToString);
                My.MyProject.Forms.frmReportShow.Text = ReportNone.ParameterFields("txtTitle").ToString;
                My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = ReportNone;
                My.MyProject.Forms.frmReportShow.mReport = ReportNone;
                My.MyProject.Forms.frmReportShow.sMode = "0";
                My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
                My.MyProject.Forms.frmReportShow.ShowDialog();
                return;
            }
            Report.Database.Tables(1).SetDataSource(rs);
            databaseName = "month" + monthId + ".mdb";
            cn = modRecordSet.openConnectionInstance(ref Convert.ToString(databaseName));
            if (cn == null) {
                return;
            }

            if (My.MyProject.Forms.frmMenu.gSuper == true) {
                sql = "SELECT POS.POSID, POS.POS_Name, Sum(Declaration.Declaration_Cash) AS SumOfDeclaration_Cash, Sum(Declaration.Declaration_CashServer) AS SumOfDeclaration_CashServer, Sum(Declaration.Declaration_CashCount) AS SumOfDeclaration_CashCount, Sum(Declaration.Declaration_Cheque) AS SumOfDeclaration_Cheque, Sum(Declaration.Declaration_ChequeServer) AS SumOfDeclaration_ChequeServer, Sum(Declaration.Declaration_ChequeCount) AS SumOfDeclaration_ChequeCount, Sum(Declaration.Declaration_Card) AS SumOfDeclaration_Card, Sum(Declaration.Declaration_CardServer) AS SumOfDeclaration_CardServer, Sum(Declaration.Declaration_CardCount) AS SumOfDeclaration_CardCount, Sum(Declaration.Declaration_Payout) AS SumOfDeclaration_Payout, Sum(Declaration.Declaration_PayoutServer) AS SumOfDeclaration_PayoutServer, Sum(Declaration.Declaration_PayoutCount) AS SumOfDeclaration_PayoutCount FROM Declaration INNER JOIN POS ON Declaration.Declaration_POSID = POS.POSID Where (((Declaration.Declaration_DayEndID) = " + id + ")) ";
                sql = sql + "GROUP BY POS.POSID, POS.POS_Name;";
            } else {
                sql = "SELECT POS.POSID, POS.POS_Name, Sum(IIf(IIf(IsNull(Declaration.Declaration_CashDrop),0,Declaration.Declaration_CashDrop)=0,Declaration.Declaration_Cash,Declaration.Declaration_CashDrop)) AS SumOfDeclaration_Cash, Sum(IIf(IIf(IsNull(Declaration.Declaration_CashServerDrop),0,Declaration.Declaration_CashServerDrop)=0,Declaration.Declaration_CashServer,Declaration.Declaration_CashServerDrop)) AS SumOfDeclaration_CashServer, Sum(IIf(IIf(IsNull(Declaration.Declaration_CashCountDrop),0,Declaration.Declaration_CashCountDrop)=0,Declaration.Declaration_CashCount,Declaration.Declaration_CashCountDrop)) AS SumOfDeclaration_CashCount, ";
                sql = sql + "Sum(Declaration.Declaration_Cheque) AS SumOfDeclaration_Cheque, Sum(Declaration.Declaration_ChequeServer) AS SumOfDeclaration_ChequeServer, Sum(Declaration.Declaration_ChequeCount) AS SumOfDeclaration_ChequeCount, Sum(Declaration.Declaration_Card) AS SumOfDeclaration_Card, Sum(Declaration.Declaration_CardServer) AS SumOfDeclaration_CardServer, Sum(Declaration.Declaration_CardCount) AS SumOfDeclaration_CardCount, Sum(Declaration.Declaration_Payout) AS SumOfDeclaration_Payout, Sum(Declaration.Declaration_PayoutServer) AS SumOfDeclaration_PayoutServer, Sum(Declaration.Declaration_PayoutCount) AS SumOfDeclaration_PayoutCount FROM Declaration INNER JOIN POS ON Declaration.Declaration_POSID = POS.POSID Where (((Declaration.Declaration_DayEndID) = " + id + ")) ";
                sql = sql + "GROUP BY POS.POSID, POS.POS_Name;";
            }
            Debug.Print(sql);
            //Set rsBanking = getRS(sql)
            rsBanking = new ADODB.Recordset();
            rsBanking.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);

            //Set rsPayout = getRS("select * from Payout WHERE Payout_DayEndID = " & id)
            rsPayout = new ADODB.Recordset();
            sql = "select * from M_Payout WHERE Payout_DayEndID = " + id;
            rsPayout.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);

            if (rsBanking.RecordCount == 0) {
                Report.ReportDefinition.Sections("Section2").SectionFormat.EnableSuppress = true;
                Report.ReportDefinition.Sections("Section3").SectionFormat.EnableSuppress = true;
            } else {
                Report.ReportDefinition.Sections("Section2").SectionFormat.EnableSuppress = false;
                Report.ReportDefinition.Sections("Section3").SectionFormat.EnableSuppress = false;
                Report.OpenSubreport("Subreport1").Database.Tables(1).SetDataSource(rsBanking);
                Report.OpenSubreport("Subreport2").Database.Tables(1).SetDataSource(rsBanking);
            }
            if (rsPayout.RecordCount == 0) {
                Report.ReportDefinition.Sections("Section4").SectionFormat.EnableSuppress = true;
            } else {
                Report.ReportDefinition.Sections("Section4").SectionFormat.EnableSuppress = false;
                Report.OpenSubreport("Subreport4").Database.Tables(1).SetDataSource(rsPayout);
            }

            //************************************
            //*** Sales Channels
            //************************************

            if (gParameters & gParChannel) {
                rs = modRecordSet.getRS(ref "SELECT * FROM Channel");

                while (!(rs.EOF)) {
                    switch (rs.Fields("ChannelID").Value) {
                        case 1:
                            Report.SetParameterValue("txtSC1", rs.Fields("Channel_Code"));
                            break;
                        case 2:
                            Report.SetParameterValue("txtSC2", rs.Fields("Channel_Code"));
                            break;
                        case 3:
                            Report.SetParameterValue("txtSC3", rs.Fields("Channel_Code"));
                            break;
                        case 4:
                            Report.SetParameterValue("txtSC4", rs.Fields("Channel_Code"));
                            break;
                        case 5:
                            Report.SetParameterValue("txtSC5", rs.Fields("Channel_Code"));
                            break;
                        case 6:
                            Report.SetParameterValue("txtSC6", rs.Fields("Channel_Code"));
                            break;
                        case 7:
                            Report.SetParameterValue("txtSC7", rs.Fields("Channel_Code"));
                            break;
                        case 8:
                            Report.SetParameterValue("txtSC8", rs.Fields("Channel_Code"));
                            break;
                        case 9:
                            Report.SetParameterValue("txtSC9", rs.Fields("Channel_Code"));
                            break;
                    }
                    rs.moveNext();
                }
                rs.Close();

                //Set rs = getRS("SELECT Sum(Sale.Sale_Discount) AS amount FROM Consignment RIGHT JOIN (Consignment AS Consignment_1 RIGHT JOIN Sale ON Consignment_1.Consignment_SaleID = Sale.SaleID) ON Consignment.Consignment_ReversalSaleID = Sale.SaleID WHERE (((Consignment.ConsignmentID) Is Null) AND ((Consignment_1.ConsignmentID) Is Null) AND ((Sale.Sale_PaymentType)<>5));")
                //Set rs = New Recordset
                if (rs.State)
                    rs.Close();
                sql = "SELECT Sum(Sale.Sale_Discount) AS amount FROM Consignment RIGHT JOIN (Consignment AS Consignment_1 RIGHT JOIN Sale ON Consignment_1.Consignment_SaleID = Sale.SaleID) ON Consignment.Consignment_ReversalSaleID = Sale.SaleID WHERE (((Consignment.ConsignmentID) Is Null) AND ((Consignment_1.ConsignmentID) Is Null) AND ((Sale.Sale_PaymentType)<>5));";
                rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
                if (Information.IsDBNull(rs.Fields("amount").Value)) {
                    Report.SetParameterValue("txtSCmDiscount", "0.00");
                } else {
                    if (rs.RecordCount) {
                        Report.SetParameterValue("txtSCmDiscount", Strings.FormatNumber(0 - rs.Fields("amount").Value, 2));
                    } else {
                        Report.SetParameterValue("txtSCmDiscount", "0.00");
                    }
                }
                rs.Close();

                //Set rs = getRS("SELECT Sum([SaleItem_Price]*[SaleItem_Quantity]) AS SCTotal, Sale.Sale_ChannelID FROM Consignment AS Consignment_1 RIGHT JOIN (Consignment RIGHT JOIN (Sale INNER JOIN SaleItem ON Sale.SaleID = SaleItem.SaleItem_SaleID) ON Consignment.Consignment_SaleID = Sale.SaleID) ON Consignment_1.Consignment_ReversalSaleID = Sale.SaleID Where (((SaleItem.SaleItem_Revoke) = False) And ((Consignment.ConsignmentID) Is Null) And ((Consignment_1.ConsignmentID) Is Null) And ((Sale.Sale_DayEndID) = " & id & ")) GROUP BY Sale.Sale_ChannelID;")
                //Set rs = New Recordset
                if (rs.State)
                    rs.Close();
                sql = "SELECT Sum([SaleItem_Price]*[SaleItem_Quantity]) AS SCTotal, Sale.Sale_ChannelID FROM Consignment AS Consignment_1 RIGHT JOIN (Consignment RIGHT JOIN (Sale INNER JOIN SaleItem ON Sale.SaleID = SaleItem.SaleItem_SaleID) ON Consignment.Consignment_SaleID = Sale.SaleID) ON Consignment_1.Consignment_ReversalSaleID = Sale.SaleID Where (((SaleItem.SaleItem_Revoke) = False) And ((Consignment.ConsignmentID) Is Null) And ((Consignment_1.ConsignmentID) Is Null) And ((Sale.Sale_DayEndID) = " + id + ")) GROUP BY Sale.Sale_ChannelID;";
                rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
                lTotal = Convert.ToDecimal(Report.ParameterFields("txtSCmDiscount").ToString);
                while (!(rs.EOF)) {
                    switch (rs.Fields("Sale_ChannelID").Value) {
                        case 1:
                            Report.SetParameterValue("txtSCm1", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 2:
                            Report.SetParameterValue("txtSCm2", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 3:
                            Report.SetParameterValue("txtSCm3", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 4:
                            Report.SetParameterValue("txtSCm4", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 5:
                            Report.SetParameterValue("txtSCm5", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 6:
                            Report.SetParameterValue("txtSCm6", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 7:
                            Report.SetParameterValue("txtSCm7", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 8:
                            Report.SetParameterValue("txtSCm8", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 9:
                            Report.SetParameterValue("txtSCm9", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                    }
                    lTotal = lTotal + rs.Fields("SCTotal").Value;
                    rs.moveNext();
                }
                Report.SetParameterValue("txtSCmTotal", Strings.FormatNumber(lTotal, 2));
            } else {
                Report.ReportDefinition.Sections("Section5").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParStock) {
                //*******************************************
                //***Stock Movement
                //*******************************************
                //Set rs = getRS("SELECT Sum([DayEndStockItemLnk_QuantitySales]*[DayEndStockItemLnk_ListCost]) AS listSales, Sum([DayEndStockItemLnk_QuantitySales]*[DayEndStockItemLnk_ActualCost]) AS actualSales, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ListCost]) AS listShrink, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ActualCost]) AS actualShrink, Sum([DayEndStockItemLnk_QuantityGRV]*[DayEndStockItemLnk_ListCost]) AS listGRV, Sum([DayEndStockItemLnk_QuantityGRV]*[DayEndStockItemLnk_ActualCost]) AS actualGRV From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" & id & "));")
                if (rs.State)
                    rs.Close();
                sql = "SELECT Sum([DayEndStockItemLnk_QuantitySales]*[DayEndStockItemLnk_ListCost]) AS listSales, Sum([DayEndStockItemLnk_QuantitySales]*[DayEndStockItemLnk_ActualCost]) AS actualSales, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ListCost]) AS listShrink, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ActualCost]) AS actualShrink, Sum([DayEndStockItemLnk_QuantityGRV]*[DayEndStockItemLnk_ListCost]) AS listGRV, Sum([DayEndStockItemLnk_QuantityGRV]*[DayEndStockItemLnk_ActualCost]) AS actualGRV From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id + "));";
                rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
                if (rs.RecordCount) {
                    Report.SetParameterValue("txtSHRL", Strings.FormatNumber(rs.Fields("listShrink").Value, 2));
                    Report.SetParameterValue("txtSHRA", Strings.FormatNumber(rs.Fields("actualShrink").Value, 2));
                    Report.SetParameterValue("txtGRVL", Strings.FormatNumber(rs.Fields("listGRV").Value, 2));

                    Report.SetParameterValue("txtGRVA", Strings.FormatNumber(rs.Fields("actualGRV").Value, 2));
                    Report.SetParameterValue("txtSaleL", Strings.FormatNumber(rs.Fields("listSales").Value, 2));
                    Report.SetParameterValue("txtSaleA", Strings.FormatNumber(rs.Fields("actualSales").Value, 2));
                }

                //Set rs = getRS("SELECT Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_ListCost]) AS list, Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_actualCost]) AS actual From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" & id & "));")
                if (rs.State)
                    rs.Close();
                sql = "SELECT Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_ListCost]) AS list, Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_actualCost]) AS actual From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id + "));";
                rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);

                if (rs.RecordCount) {
                    Report.SetParameterValue("txtSHLclose", Strings.FormatNumber(rs.Fields("list").Value, 2));
                    Report.SetParameterValue("txtSHAclose", Strings.FormatNumber(rs.Fields("actual").Value, 2));
                }

                rs = modRecordSet.getRSwaitron(ref "SELECT Sum([DayEndStockItemLnk_Quantity]*[DayEndStockItemLnk_ListCost]) AS list, Sum([DayEndStockItemLnk_Quantity]*[DayEndStockItemLnk_actualCost]) AS actual From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id + "));", ref cn);
                if (rs.RecordCount) {
                    Report.SetParameterValue("txtSHLopen", Strings.FormatNumber(rs.Fields("list").Value, 2));
                    Report.SetParameterValue("txtSHAopen", Strings.FormatNumber(rs.Fields("actual").Value, 2));
                } else {
                    Report.SetParameterValue("txtSHLopen", Strings.FormatNumber(0, 2));
                    Report.SetParameterValue("txtSHAopen", Strings.FormatNumber(0, 2));
                }

                rs = modRecordSet.getRSwaitron(ref "SELECT Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_ListCost]) AS list, Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_actualCost]) AS actual From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id - 1 + "));", ref cn);
                if (rs.RecordCount) {
                    Report.SetParameterValue("txtSHLPrevclose", Strings.FormatNumber(rs.Fields("list").Value, 2));
                    Report.SetParameterValue("txtSHAPrevclose", Strings.FormatNumber(rs.Fields("actual").Value, 2));
                } else {
                    Report.SetParameterValue("txtSHLPrevclose", Strings.FormatNumber(0, 2));
                    Report.SetParameterValue("txtSHAPrevclose", Strings.FormatNumber(0, 2));
                }
                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLPrevclose").ToString))
                    Report.SetParameterValue("txtSHLPrevclose", Report.ParameterFields("txtSHLopen").ToString);
                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAPrevclose").ToString))
                    Report.SetParameterValue("txtSHAPrevclose", Report.ParameterFields("txtSHAopen").ToString);
                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLopen").ToString)) {
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLPrevclose").ToString)) {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0, 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0 - Convert.ToDecimal(Report.ParameterFields("txtSHLPrevclose").ToString), 2));
                    }
                } else {
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLPrevclose").ToString)) {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHLopen").ToString), 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHLopen").ToString) - Convert.ToDecimal(Report.ParameterFields("txtSHLPrevclose").ToString), 2));
                    }
                }

                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAopen").ToString)) {
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAPrevclose").ToString)) {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0, 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0 - Convert.ToDecimal(Report.ParameterFields("txtSHAPrevclose").ToString), 2));
                    }
                } else {
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAPrevclose").ToString)) {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHAopen").ToString), 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHAopen").ToString) - Convert.ToDecimal(Report.ParameterFields("txtSHAPrevclose").ToString), 2));
                    }
                }

            } else {
                Report.ReportDefinition.Sections("Section6").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParShrink) {
                rsShrink = modRecordSet.getRSwaitron(ref "SELECT StockItem.StockItem_Name, Sum(DayEndStockItemLnk.DayEndStockItemLnk_QuantityShrink) AS SumOfDayEndStockItemLnk_QuantityShrink, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ListCost]) AS list, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ActualCost]) AS actual FROM DayEndStockItemLnk INNER JOIN StockItem ON DayEndStockItemLnk.DayEndStockItemLnk_StockItemID = StockItem.StockItemID Where (((DayEndStockItemLnk.DayEndStockItemLnk_QuantityShrink) <> 0) And ((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID) = " + id + ")) GROUP BY StockItem.StockItem_Name ORDER BY StockItem.StockItem_Name;", ref cn);

                if (rsShrink.RecordCount == 0) {
                    Report.ReportDefinition.Sections("Section7").SectionFormat.EnableSuppress = true;
                } else {
                    Report.ReportDefinition.Sections("Section7").SectionFormat.EnableSuppress = false;
                    Report.OpenSubreport("Subreport4").Database.Tables(1).SetDataSource(rsShrink);
                }
            } else {
                Report.ReportDefinition.Sections("Section7").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParSupplier) {
                rsSupplier = modRecordSet.getRSwaitron(ref "SELECT Supplier.Supplier_Name, SupplierTransaction.* FROM SupplierTransaction INNER JOIN Supplier ON SupplierTransaction.SupplierTransaction_SupplierID = Supplier.SupplierID Where (((SupplierTransaction.SupplierTransaction_DayEndID) = " + id + ") And ((SupplierTransaction.SupplierTransaction_TransactionTypeID) = 2 Or (SupplierTransaction.SupplierTransaction_TransactionTypeID) = 3)) ORDER BY SupplierTransaction.SupplierTransaction_DayEndID, SupplierTransaction.SupplierTransactionID;", ref cn);
                if (rsSupplier.RecordCount == 0) {
                    Report.ReportDefinition.Sections("Section8").SectionFormat.EnableSuppress = true;
                } else {
                    Report.ReportDefinition.Sections("Section8").SectionFormat.EnableSuppress = false;
                    Report.OpenSubreport("Subreport5").Database.Tables(1).SetDataSource(rsSupplier);
                }
            } else {
                Report.ReportDefinition.Sections("Section8").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParCustomer) {
                rsCustomer = modRecordSet.getRSwaitron(ref "SELECT Customer.Customer_InvoiceName, TransactionType.TransactionType_Name, CustomerTransaction.CustomerTransaction_Reference, CustomerTransaction.CustomerTransaction_Date, CustomerTransaction.CustomerTransaction_Description, CustomerTransaction.CustomerTransaction_Amount, CustomerTransaction.CustomerTransaction_DayEndID, CustomerTransaction.CustomerTransaction_Description, TransactionType.TransactionTypeID FROM (CustomerTransaction INNER JOIN Customer ON CustomerTransaction.CustomerTransaction_CustomerID = Customer.CustomerID) INNER JOIN TransactionType ON CustomerTransaction.CustomerTransaction_TransactionTypeID = TransactionType.TransactionTypeID Where (((CustomerTransaction.CustomerTransaction_DayEndID) = " + id + ")) ORDER BY Customer.Customer_InvoiceName, CustomerTransaction.CustomerTransaction_Date;", ref cn);
                if (rsCustomer.RecordCount == 0) {
                    Report.ReportDefinition.Sections("Section9").SectionFormat.EnableSuppress = true;
                } else {
                    Report.ReportDefinition.Sections("Section9").SectionFormat.EnableSuppress = false;
                    Report.OpenSubreport("Subreport6").Database.Tables(1).SetDataSource(rsCustomer);
                }
            } else {
                Report.ReportDefinition.Sections("Section9").SectionFormat.EnableSuppress = true;
            }

            //    If gParameters And gParQuote Then
            //        Set rsQuote = getRS("SELECT Quote.* From Quote Where (((Quote.Quote_DayEndID) = " & id & ")) ORDER BY Quote.Quote_Name;")
            //        If rsQuote.RecordCount = 0 Then
            //            Report.Section10.Suppress = True
            //        Else
            //            Report.Section10.Suppress = False
            //            Report.Subreport7.OpenSubreport.Database.Tables(1).SetDataSource rsQuote, 3
            //        End If
            //    Else
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section10. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Report.ReportDefinition.Sections("Section10").SectionFormat.EnableSuppress = true;
            //    End If

            if (gParameters & gParQuote) {
                rsConsignment = modRecordSet.getRSwaitron(ref "SELECT Consignment.*, Sale.Sale_Total AS saleAmount,0 as completeAmount,0 as returnAmount FROM Consignment INNER JOIN Sale ON Consignment.Consignment_SaleID = Sale.SaleID Where (((Consignment.Consignment_DayEndID) = " + id + ")) Union SELECT Consignment.*, 0 AS saleAmount, [saleComplete]![Sale_Total] AS completeAmount, [SaleReturned]![Sale_Total]+[saleComplete]![Sale_Total] AS returnAmount FROM (Consignment INNER JOIN Sale AS SaleReturned ON Consignment.Consignment_ReversalSaleID = SaleReturned.SaleID) INNER JOIN Sale AS saleComplete ON Consignment.Consignment_CompleteSaleID = saleComplete.SaleID WHERE (((Consignment.Consignment_DayEndID)=" + id + "));", ref cn);
                if (rsConsignment.RecordCount == 0) {
                    Report.ReportDefinition.Sections("Section11").SectionFormat.EnableSuppress = true;
                } else {
                    Report.ReportDefinition.Sections("Section11").SectionFormat.EnableSuppress = false;
                    Report.OpenSubreport("Subreport8").Database.Tables(1).SetDataSource(rsConsignment);
                }
            } else {
                Report.ReportDefinition.Sections("Section11").SectionFormat.EnableSuppress = true;
            }

            //Report.VerifyOnEveryPrint = True
            My.MyProject.Forms.frmReportShow.Text = Report.ParameterFields("txtTitle").ToString;
            My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = Report;
            My.MyProject.Forms.frmReportShow.mReport = Report;
            My.MyProject.Forms.frmReportShow.sMode = "0";
            My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
            My.MyProject.Forms.frmReportShow.ShowDialog();
        }
Esempio n. 8
0
        public static void loadDayEndReport(ref int id, ref string sPath = "", ref bool bFAIL = false)
        {
            int lTotal = 0;
            ADODB.Recordset rs = default(ADODB.Recordset);
            ADODB.Recordset rsBanking = default(ADODB.Recordset);
            ADODB.Recordset rsPayout = default(ADODB.Recordset);
            ADODB.Recordset rsSupplier = default(ADODB.Recordset);
            ADODB.Recordset rsShrink = default(ADODB.Recordset);
            ADODB.Recordset rsCustomer = default(ADODB.Recordset);
            ADODB.Recordset rsQuote = default(ADODB.Recordset);
            ADODB.Recordset rsConsignment = default(ADODB.Recordset);
            string sql = null;
            //Dim Report As New cryDayEnd
            CrystalDecisions.CrystalReports.Engine.ReportDocument Report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            int gParameters = 0;
            const short gParChannel = 1;
            const short gParStock = 2;
            const short gParShrink = 4;
            const short gParSupplier = 8;
            const short gParCustomer = 16;
            const short gParQuote = 32;
            const short gParConsignment = 64;
            const short gParPastelReport = 128;
            //Pastel Variable

            Report.Load("cryDatEnd");
            //UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor;
            rs = modRecordSet.getRS(ref "SELECT * FROM Company");
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtCompanyName. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            Report.SetParameterValue("txtCompanyName", rs.Fields("Company_Name"));
            gParameters = Convert.ToInt32(0 + rs.Fields("Company_DayEndBit").Value);
            rs.Close();

            //change translation for report
            //
            modRecordSet.rsLang.filter = "LanguageLayoutLnk_LanguageID=" + 1974;
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport1_Text9. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            if (modRecordSet.rsLang.RecordCount)
                Report.SetParameterValue("Subreport1_Text9", Strings.Replace(modRecordSet.rsLang.Fields("LanguageLayoutLnk_Description").Value, Constants.vbCrLf, " "));
            //
            modRecordSet.rsLang.filter = "LanguageLayoutLnk_LanguageID=" + 1975;
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport1_Text8. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            if (modRecordSet.rsLang.RecordCount)
                Report.SetParameterValue("Subreport1_Text8", Strings.Replace(modRecordSet.rsLang.Fields("LanguageLayoutLnk_Description").Value, Constants.vbCrLf, " "));
            //
            modRecordSet.rsLang.filter = "LanguageLayoutLnk_LanguageID=" + 1974;
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport2_Text4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            if (modRecordSet.rsLang.RecordCount)
                Report.SetParameterValue("Subreport2_Text4", Strings.Replace(modRecordSet.rsLang.Fields("LanguageLayoutLnk_Description").Value, Constants.vbCrLf, " "));
            //
            modRecordSet.rsLang.filter = "LanguageLayoutLnk_LanguageID=" + 1975;
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport2_Text3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            if (modRecordSet.rsLang.RecordCount)
                Report.SetParameterValue("Subreport2_Text3", Strings.Replace(modRecordSet.rsLang.Fields("LanguageLayoutLnk_Description").Value, Constants.vbCrLf, " "));
            //
            //change translation for report

            rs = modRecordSet.getRS(ref "SELECT * FROM DayEnd WHERE DayEndID = " + id);
            //UPGRADE_ISSUE: cryNoRecords object was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6B85A2A7-FE9F-4FBE-AA0C-CF11AC86A305"'
            CrystalDecisions.CrystalReports.Engine.ReportDocument ReportNone = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
            ReportNone.Load("cryNoRecords");
            //'ReportNone.Load("cryNoRecords.rpt")
            if (rs.BOF | rs.EOF) {
                if (Module1.bUploadReport == true) {
                    bFAIL = true;
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtCompanyName. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    //UPGRADE_WARNING: Couldn't resolve default property of object ReportNone.txtCompanyName. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    ReportNone.SetParameterValue("txtCompanyName", Report.ParameterFields("txtCompanyName"));
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtTitle. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    //UPGRADE_WARNING: Couldn't resolve default property of object ReportNone.txtTitle. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    ReportNone.SetParameterValue("txtTitle", Report.ParameterFields("txtTitle"));
                    //UPGRADE_WARNING: Couldn't resolve default property of object ReportNone.txtTitle. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    My.MyProject.Forms.frmReportShow.Text = ReportNone.ParameterFields("txtTitle").ToString;
                    //UPGRADE_WARNING: Couldn't resolve default property of object frmReportShow.CRViewer1.ReportSource. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    //UPGRADE_WARNING: Couldn't resolve default property of object ReportNone. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = ReportNone;
                    My.MyProject.Forms.frmReportShow.mReport = ReportNone;
                    My.MyProject.Forms.frmReportShow.sMode = "0";
                    My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
                    //UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
                    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
                    My.MyProject.Forms.frmReportShow.ShowDialog();
                }
                return;
            }
            //UPGRADE_WARNING: Couldn't resolve default property of object Report.Database. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

            Report.Database.Tables(1).SetDataSource(rs);
            if (My.MyProject.Forms.frmMenu.gSuper == true) {
                sql = "SELECT POS.POSID, POS.POS_Name, Sum(Declaration.Declaration_Cash) AS SumOfDeclaration_Cash, Sum(Declaration.Declaration_CashServer) AS SumOfDeclaration_CashServer, Sum(Declaration.Declaration_CashCount) AS SumOfDeclaration_CashCount, Sum(Declaration.Declaration_Cheque) AS SumOfDeclaration_Cheque, Sum(Declaration.Declaration_ChequeServer) AS SumOfDeclaration_ChequeServer, Sum(Declaration.Declaration_ChequeCount) AS SumOfDeclaration_ChequeCount, Sum(Declaration.Declaration_Card) AS SumOfDeclaration_Card, Sum(Declaration.Declaration_CardServer) AS SumOfDeclaration_CardServer, Sum(Declaration.Declaration_CardCount) AS SumOfDeclaration_CardCount, Sum(Declaration.Declaration_Payout) AS SumOfDeclaration_Payout, Sum(Declaration.Declaration_PayoutServer) AS SumOfDeclaration_PayoutServer, Sum(Declaration.Declaration_PayoutCount) AS SumOfDeclaration_PayoutCount FROM Declaration INNER JOIN POS ON Declaration.Declaration_POSID = POS.POSID Where (((Declaration.Declaration_DayEndID) = " + id + ")) ";
                sql = sql + "GROUP BY POS.POSID, POS.POS_Name;";
            } else {
                sql = "SELECT POS.POSID, POS.POS_Name, Sum(IIf(IIf(IsNull(Declaration.Declaration_CashDrop),0,Declaration.Declaration_CashDrop)=0,Declaration.Declaration_Cash,Declaration.Declaration_CashDrop)) AS SumOfDeclaration_Cash, Sum(IIf(IIf(IsNull(Declaration.Declaration_CashServerDrop),0,Declaration.Declaration_CashServerDrop)=0,Declaration.Declaration_CashServer,Declaration.Declaration_CashServerDrop)) AS SumOfDeclaration_CashServer, Sum(IIf(IIf(IsNull(Declaration.Declaration_CashCountDrop),0,Declaration.Declaration_CashCountDrop)=0,Declaration.Declaration_CashCount,Declaration.Declaration_CashCountDrop)) AS SumOfDeclaration_CashCount, ";
                sql = sql + "Sum(Declaration.Declaration_Cheque) AS SumOfDeclaration_Cheque, Sum(Declaration.Declaration_ChequeServer) AS SumOfDeclaration_ChequeServer, Sum(Declaration.Declaration_ChequeCount) AS SumOfDeclaration_ChequeCount, Sum(Declaration.Declaration_Card) AS SumOfDeclaration_Card, Sum(Declaration.Declaration_CardServer) AS SumOfDeclaration_CardServer, Sum(Declaration.Declaration_CardCount) AS SumOfDeclaration_CardCount, Sum(Declaration.Declaration_Payout) AS SumOfDeclaration_Payout, Sum(Declaration.Declaration_PayoutServer) AS SumOfDeclaration_PayoutServer, Sum(Declaration.Declaration_PayoutCount) AS SumOfDeclaration_PayoutCount FROM Declaration INNER JOIN POS ON Declaration.Declaration_POSID = POS.POSID Where (((Declaration.Declaration_DayEndID) = " + id + ")) ";
                sql = sql + "GROUP BY POS.POSID, POS.POS_Name;";
            }
            Debug.Print(sql);
            rsBanking = modRecordSet.getRS(ref sql);

            rsPayout = modRecordSet.getRS(ref "select * from Payout WHERE Payout_DayEndID = " + id);

            if (rsBanking.RecordCount == 0) {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section2").SectionFormat.EnableSuppress = true;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section3").SectionFormat.EnableSuppress = true;
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section2").SectionFormat.EnableSuppress = false;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section3").SectionFormat.EnableSuppress = false;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport1. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.OpenSubreport("Subreport1").Database.Tables(1).SetDataSource(rsBanking);
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.OpenSubreport("Subreport2").Database.Tables(1).SetDataSource(rsBanking);
            }
            if (rsPayout.RecordCount == 0) {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section4").SectionFormat.EnableSuppress = true;
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section4").SectionFormat.EnableSuppress = false;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.OpenSubreport("Subreport3").Database.Tables(1).SetDataSource(rsPayout);
            }

            //************************************
            //*** Sales Channels
            //************************************

            if (gParameters & gParChannel) {
                rs = modRecordSet.getRS(ref "SELECT * FROM Channel");

                while (!(rs.EOF)) {
                    switch (rs.Fields("ChannelID").Value) {
                        case 1:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC1. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC1", rs.Fields("Channel_Code"));
                            break;
                        case 2:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC2", rs.Fields("Channel_Code"));
                            break;
                        case 3:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC3", rs.Fields("Channel_Code"));
                            break;
                        case 4:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC4", rs.Fields("Channel_Code"));
                            break;
                        case 5:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC5. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC5", rs.Fields("Channel_Code"));
                            break;
                        case 6:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC6. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC6", rs.Fields("Channel_Code"));
                            break;
                        case 7:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC7. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC7", rs.Fields("Channel_Code"));
                            break;
                        case 8:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC8. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC8", rs.Fields("Channel_Code"));
                            break;
                        case 9:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSC9. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSC9", rs.Fields("Channel_Code"));
                            break;
                    }
                    rs.moveNext();
                }
                rs.Close();

                rs = modRecordSet.getRS(ref "SELECT Sum(Sale.Sale_Discount) AS amount FROM Consignment RIGHT JOIN (Consignment AS Consignment_1 RIGHT JOIN Sale ON Consignment_1.Consignment_SaleID = Sale.SaleID) ON Consignment.Consignment_ReversalSaleID = Sale.SaleID WHERE (((Consignment.ConsignmentID) Is Null) AND ((Consignment_1.ConsignmentID) Is Null) AND ((Sale.Sale_PaymentType)<>5));");
                //UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
                if (Information.IsDBNull(rs.Fields("amount").Value)) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCmDiscount. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSCmDiscount", "0.00");
                } else {
                    if (rs.RecordCount) {
                        //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCmDiscount. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                        Report.SetParameterValue("txtSCmDiscount", Strings.FormatNumber(0 - rs.Fields("amount").Value, 2));
                    } else {
                        //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCmDiscount. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                        Report.SetParameterValue("txtSCmDiscount", "0.00");
                    }
                }
                rs.Close();

                rs = modRecordSet.getRS(ref "SELECT Sum([SaleItem_Price]*[SaleItem_Quantity]) AS SCTotal, Sale.Sale_ChannelID FROM Consignment AS Consignment_1 RIGHT JOIN (Consignment RIGHT JOIN (Sale INNER JOIN SaleItem ON Sale.SaleID = SaleItem.SaleItem_SaleID) ON Consignment.Consignment_SaleID = Sale.SaleID) ON Consignment_1.Consignment_ReversalSaleID = Sale.SaleID Where (((SaleItem.SaleItem_Revoke) = False) And ((Consignment.ConsignmentID) Is Null) And ((Consignment_1.ConsignmentID) Is Null) And ((Sale.Sale_DayEndID) = " + id + ")) GROUP BY Sale.Sale_ChannelID;");
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCmDiscount. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                //UPGRADE_WARNING: Couldn't resolve default property of object lTotal. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                lTotal = Convert.ToDecimal(Report.ParameterFields("txtSCmDiscount").ToString);
                while (!(rs.EOF)) {
                    switch (rs.Fields("Sale_ChannelID").Value) {
                        case 1:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm1. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm1", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 2:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm2", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 3:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm3. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm3", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 4:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm4", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 5:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm5. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm5", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 6:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm6. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm6", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 7:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm7. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm7", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 8:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm8. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm8", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                        case 9:
                            //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCm9. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Report.SetParameterValue("txtSCm9", Strings.FormatNumber(rs.Fields("SCTotal").Value, 2));
                            break;
                    }
                    //UPGRADE_WARNING: Couldn't resolve default property of object lTotal. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    lTotal = lTotal + rs.Fields("SCTotal").Value;
                    rs.moveNext();
                }
                //UPGRADE_WARNING: Couldn't resolve default property of object lTotal. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSCmTotal. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtSCmTotal", Strings.FormatNumber(lTotal, 2));
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section5. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section5").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParStock) {
                //*******************************************
                //***Stock Movement
                //*******************************************
                rs = modRecordSet.getRS(ref "SELECT Sum([DayEndStockItemLnk_QuantitySales]*[DayEndStockItemLnk_ListCost]) AS listSales, Sum([DayEndStockItemLnk_QuantitySales]*[DayEndStockItemLnk_ActualCost]) AS actualSales, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ListCost]) AS listShrink, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ActualCost]) AS actualShrink, Sum([DayEndStockItemLnk_QuantityGRV]*[DayEndStockItemLnk_ListCost]) AS listGRV, Sum([DayEndStockItemLnk_QuantityGRV]*[DayEndStockItemLnk_ActualCost]) AS actualGRV From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id + "));");

                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHRL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtSHRL", Strings.FormatNumber(rs.Fields("listShrink").Value, 2));
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHRA. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtSHRA", Strings.FormatNumber(rs.Fields("actualShrink").Value, 2));
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtGRVL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtGRVL", Strings.FormatNumber(rs.Fields("listGRV").Value, 2));

                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtGRVA. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtGRVA", Strings.FormatNumber(rs.Fields("actualGRV").Value, 2));
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSaleL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtSaleL", Strings.FormatNumber(rs.Fields("listSales").Value, 2));
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSaleA. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtSaleA", Strings.FormatNumber(rs.Fields("actualSales").Value, 2));

                rs = modRecordSet.getRS(ref "SELECT Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_ListCost]) AS list, Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_actualCost]) AS actual From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id + "));");
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtSHLclose", Strings.FormatNumber(rs.Fields("list").Value, 2));
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.SetParameterValue("txtSHAclose", Strings.FormatNumber(rs.Fields("actual").Value, 2));

                rs = modRecordSet.getRS(ref "SELECT Sum([DayEndStockItemLnk_Quantity]*[DayEndStockItemLnk_ListCost]) AS list, Sum([DayEndStockItemLnk_Quantity]*[DayEndStockItemLnk_actualCost]) AS actual From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id + "));");
                if (rs.RecordCount) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLopen. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHLopen", Strings.FormatNumber(rs.Fields("list").Value, 2));
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAopen. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHAopen", Strings.FormatNumber(rs.Fields("actual").Value, 2));
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLopen. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHLopen", Strings.FormatNumber(0, 2));
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAopen. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHAopen", Strings.FormatNumber(0, 2));
                }

                rs = modRecordSet.getRS(ref "SELECT Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_ListCost]) AS list, Sum(([DayEndStockItemLnk_Quantity]-[DayEndStockItemLnk_QuantitySales]-[DayEndStockItemLnk_QuantityShrink]+[DayEndStockItemLnk_QuantityGRV])*[DayEndStockItemLnk_actualCost]) AS actual From DayEndStockItemLnk WHERE (((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID)=" + id - 1 + "));");
                if (rs.RecordCount) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHLPrevclose", Strings.FormatNumber(rs.Fields("list").Value, 2));
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHAPrevclose", Strings.FormatNumber(rs.Fields("actual").Value, 2));
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHLPrevclose", Strings.FormatNumber(0, 2));
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.SetParameterValue("txtSHAPrevclose", Strings.FormatNumber(0, 2));
                }
                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLPrevclose").ToString))
                    Report.SetParameterValue("txtSHLPrevclose", Report.ParameterFields("txtSHLopen").ToString);

                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAPrevclose").ToString))
                    Report.SetParameterValue("txtSHAPrevclose", Report.ParameterFields("txtSHAopen").ToString);
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLopen. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLopen").ToString)) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLPrevclose").ToString)) {
                        //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSVarianceL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0, 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0 - Convert.ToDecimal(Report.ParameterFields("txtSHLPrevclose").ToString), 2));
                    }
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHLPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHLPrevclose").ToString)) {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHLopen").ToString), 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHLopen").ToString), 2 - Convert.ToDecimal(Report.ParameterFields("txtSHLPrevclose").ToString), 2));
                    }
                }

                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAopen. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAopen").ToString)) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAPrevclose").ToString)) {
                        //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSVarianceL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0, 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(0 - Convert.ToDecimal(Report.ParameterFields("txtSHAPrevclose").ToString), 2));
                    }
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtSHAPrevclose. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    if (string.IsNullOrEmpty(Report.ParameterFields("txtSHAPrevclose").ToString)) {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHAopen").ToString), 2));
                    } else {
                        Report.SetParameterValue("txtSVarianceL", Strings.FormatNumber(Convert.ToDecimal(Report.ParameterFields("txtSHAopen").ToString), 2 - Convert.ToDecimal(Report.ParameterFields("txtSHAPrevclose").ToString), 2));
                    }
                }

            } else {
                Report.ReportDefinition.Sections("Section6").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParShrink) {
                rsShrink = modRecordSet.getRS(ref "SELECT StockItem.StockItem_Name, Sum(DayEndStockItemLnk.DayEndStockItemLnk_QuantityShrink) AS SumOfDayEndStockItemLnk_QuantityShrink, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ListCost]) AS list, Sum([DayEndStockItemLnk_QuantityShrink]*[DayEndStockItemLnk_ActualCost]) AS actual FROM DayEndStockItemLnk INNER JOIN StockItem ON DayEndStockItemLnk.DayEndStockItemLnk_StockItemID = StockItem.StockItemID Where (((DayEndStockItemLnk.DayEndStockItemLnk_QuantityShrink) <> 0) And ((DayEndStockItemLnk.DayEndStockItemLnk_DayEndID) = " + id + ")) GROUP BY StockItem.StockItem_Name ORDER BY StockItem.StockItem_Name;");

                if (rsShrink.RecordCount == 0) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section7. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section7").SectionFormat.EnableSuppress = true;
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section7. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section7").SectionFormat.EnableSuppress = false;
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport4. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.OpenSubreport("Subreport4").Database.Tables(1).SetDataSource(rsShrink);
                }
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section7. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section7").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParSupplier) {
                rsSupplier = modRecordSet.getRS(ref "SELECT Supplier.Supplier_Name, SupplierTransaction.* FROM SupplierTransaction INNER JOIN Supplier ON SupplierTransaction.SupplierTransaction_SupplierID = Supplier.SupplierID Where (((SupplierTransaction.SupplierTransaction_DayEndID) = " + id + ") And ((SupplierTransaction.SupplierTransaction_TransactionTypeID) = 2 Or (SupplierTransaction.SupplierTransaction_TransactionTypeID) = 3)) ORDER BY SupplierTransaction.SupplierTransaction_DayEndID, SupplierTransaction.SupplierTransactionID;");
                if (rsSupplier.RecordCount == 0) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section8. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section8").SectionFormat.EnableSuppress = true;
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section8. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section8").SectionFormat.EnableSuppress = false;
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport5. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.OpenSubreport("Subreport5").Database.Tables(1).SetDataSource(rsSupplier);
                }
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section8. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section8").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParCustomer) {
                rsCustomer = modRecordSet.getRS(ref "SELECT Customer.Customer_InvoiceName, TransactionType.TransactionType_Name, CustomerTransaction.CustomerTransaction_Reference, CustomerTransaction.CustomerTransaction_Date, CustomerTransaction.CustomerTransaction_Description, CustomerTransaction.CustomerTransaction_Amount, CustomerTransaction.CustomerTransaction_DayEndID, CustomerTransaction.CustomerTransaction_Description, TransactionType.TransactionTypeID FROM (CustomerTransaction INNER JOIN Customer ON CustomerTransaction.CustomerTransaction_CustomerID = Customer.CustomerID) INNER JOIN TransactionType ON CustomerTransaction.CustomerTransaction_TransactionTypeID = TransactionType.TransactionTypeID Where (((CustomerTransaction.CustomerTransaction_DayEndID) = " + id + ")) ORDER BY Customer.Customer_InvoiceName, CustomerTransaction.CustomerTransaction_Date;");
                if (rsCustomer.RecordCount == 0) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section9. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section9").SectionFormat.EnableSuppress = true;
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section9. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section9").SectionFormat.EnableSuppress = false;
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport6. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.OpenSubreport("Subreport6").Database.Tables(1).SetDataSource(rsCustomer);
                }
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section9. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section9").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParQuote) {
                rsQuote = modRecordSet.getRS(ref "SELECT Quote.* From Quote Where (((Quote.Quote_DayEndID) = " + id + ")) ORDER BY Quote.Quote_Name;");
                if (rsQuote.RecordCount == 0) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section10. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section10").SectionFormat.EnableSuppress = true;
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section10. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section10").SectionFormat.EnableSuppress = false;
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport7. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.OpenSubreport("Subreport7").Database.Tables(1).SetDataSource(rsQuote);
                }
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section10. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section10").SectionFormat.EnableSuppress = true;
            }

            if (gParameters & gParQuote) {
                rsConsignment = modRecordSet.getRS(ref "SELECT Consignment.*, Sale.Sale_Total AS saleAmount,0 as completeAmount,0 as returnAmount FROM Consignment INNER JOIN Sale ON Consignment.Consignment_SaleID = Sale.SaleID Where (((Consignment.Consignment_DayEndID) = " + id + ")) Union SELECT Consignment.*, 0 AS saleAmount, [saleComplete]![Sale_Total] AS completeAmount, [SaleReturned]![Sale_Total]+[saleComplete]![Sale_Total] AS returnAmount FROM (Consignment INNER JOIN Sale AS SaleReturned ON Consignment.Consignment_ReversalSaleID = SaleReturned.SaleID) INNER JOIN Sale AS saleComplete ON Consignment.Consignment_CompleteSaleID = saleComplete.SaleID WHERE (((Consignment.Consignment_DayEndID)=" + id + "));");
                if (rsConsignment.RecordCount == 0) {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section11. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section11").SectionFormat.EnableSuppress = true;
                } else {
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section11. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.ReportDefinition.Sections("Section11").SectionFormat.EnableSuppress = false;
                    //UPGRADE_WARNING: Couldn't resolve default property of object Report.Subreport8. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                    Report.OpenSubreport("Subreport8").Database.Tables(1).SetDataSource(rsConsignment);
                }
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Section11. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ReportDefinition.Sections("Section11").SectionFormat.EnableSuppress = true;
            }

            //UPGRADE_WARNING: Couldn't resolve default property of object Report.VerifyOnEveryPrint. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
            //'Report.VerifyOnEveryPrint = True
            if (Module1.bUploadReport == true) {
                Report.FileName = sPath;
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.ExportOptions. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.RPTR, sPath);
                //Report.ExportOptions.DiskFileName = sPath
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.ExportOptions. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.HTML40, sPath);
                //Report.ExportOptions.HTMLFileName = sPath
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.ExportOptions. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                //Report.ExportOptions.DestinationType = CRAXDRT.CRExportDestinationType.crEDTDiskFile
                //Report.ExportOptions.DestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.ExportOptions. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                //Report.ExportOptions.FormatType = CRAXDRT.CRExportFormatType.crEFTExplorer32Extend
                //Report.ExportOptions.FormatType = CrystalDecisions.Shared.ExportFormatType.HTML40
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.Export. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                //Report.Export(False)
                //UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
            } else {
                //UPGRADE_WARNING: Couldn't resolve default property of object Report.txtTitle. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                My.MyProject.Forms.frmReportShow.Text = Report.ParameterFields("txtTitle").ToString;
                My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = Report;
                My.MyProject.Forms.frmReportShow.mReport = Report;
                My.MyProject.Forms.frmReportShow.sMode = "0";
                My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
                System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
                My.MyProject.Forms.frmReportShow.ShowDialog();
            }
        }