//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); }
/// <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 }
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 { } }
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(); }
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(); }
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(); }
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(); }
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(); } }