Consider this a gift, if it works that is.... :) Best of luck. mt
Report below...make the file in notepad using the name above, then cut and paste away! Then place it in your reports folder.
//--- Report Summary --- //
Begin ReportSummary ReportType = reporttypeSales ReportTitle = "Tax Exempt Customers Report" PageOrientation = pageorientationPortrait OutLineMode = True Groups = 0 GroupDescription = "" DisplayLogo = True LogoFileName = "MyLogo.bmp" ProcedureCall = "" TablesQueried = "FROM TransactionEntry WITH(NOLOCK) INNER JOIN [Transaction] WITH(NOLOCK) ON TransactionEntry.TransactionNumber [Transaction].TransactionNumber LEFT JOIN Customer WITH(NOLOCK) ON [Transaction].CustomerID = Customer.ID" SelCriteria = "(Customer.TaxExempt=1)" GroupBy = "Customer.AccountNumber" SortOrder = "Sales DESC" End ReportSummary
//--- Title Rows ---//
Begin TitleRow Text = "" Font = "Arial" FontBold = True FontSize = 16 Color = "Blue" End TitleRow
Begin TitleRow Text = "" Font = "Arial" FontBold = True FontSize = 12 Color = "Black" End TitleRow
Begin TitleRow Text = "Generated On " Font = "Arial" FontBold = True FontSize = 10 Color = "Black" End TitleRow
//--- Filters ---//
Begin Filter FieldName = "[Transaction].Time" FilterOp = reportfilteropBetween FilterLoLim = "" FilterHilim = "" End Filter
//--- Columns ---//
Begin Column FieldName = "AccountNumber" DrillDownFieldName = "Customer.AccountNumber" DrillDownReportName = "" Title = "Account #" VBDataType = vbString Formula = "MAX(Customer.AccountNumber)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1485 GroupMethod = groupmethodNone ColFormat = "" End Column
Begin Column FieldName = "CustomerName" DrillDownFieldName = "" DrillDownReportName = "" Title = "Name" VBDataType = vbString Formula = "MAX(Customer.LastName + ', ' + Customer.FirstName)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1950 GroupMethod = groupmethodNone ColFormat = "" End Column
Begin Column FieldName = "CustomerCompany" DrillDownFieldName = "" DrillDownReportName = "" Title = "Company" VBDataType = vbString Formula = "MAX(Customer.Company)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1950 GroupMethod = groupmethodNone ColFormat = "" End Column
Begin Column FieldName = "QtySold" DrillDownFieldName = "" DrillDownReportName = "" Title = "Qty Sold" VBDataType = vbDouble Formula = "SUM(TransactionEntry.Quantity)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1395 GroupMethod = groupmethodSum ColFormat = "#.##" End Column
Begin Column FieldName = "Sales" DrillDownFieldName = "" DrillDownReportName = "" Title = "Sales" VBDataType = vbCurrency Formula = "SUM(TransactionEntry.Price * TransactionEntry.Quantity)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1620 GroupMethod = groupmethodSum ColFormat = "" End Column
Begin Column FieldName = "Profit" DrillDownFieldName = "" DrillDownReportName = "" Title = "Profit" VBDataType = vbCurrency Formula = "SUM((TransactionEntry.Price - TransactionEntry.Cost) * TransactionEntry.Quantity)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1620 GroupMethod = groupmethodSum ColFormat = "" End Column
Begin Column FieldName = "[Transaction].Time" DrillDownFieldName = "" DrillDownReportName = "" Title = "Date Sold" VBDataType = vbDate Formula = "" ColHidden = True ColNotDisplayable = True FilterDisabled = False ColWidth = 1035 GroupMethod = groupmethodNone ColFormat = "" End Column
Begin Column FieldName = "TaxNumber" DrillDownFieldName = "" DrillDownReportName = "" Title = "Tax Number" VBDataType = vbString Formula = "MAX(Customer.TaxNumber)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1950 GroupMethod = groupmethodNone ColFormat = "" End Column
Show Quoted Text