set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO

/*----------------------------------------------------------------------------------------------------
Author:        Craig Buchanan
Date:        2/6/2006
Description:    Returns the greater of two dates
Parameters:    @Date1 - datetime to be compared
@Date2 - datetime to be compared
----------------------------------------------------------------------------------------------------*/
CREATE FUNCTION [dbo].[MaximumDate] (
@Date1    datetime,
@Date2    datetime
)

RETURNS datetime AS
BEGIN

RETURN CASE
WHEN @Date1 IS NULL AND @Date2 IS NULL THEN NULL
WHEN @Date1 IS NULL THEN @Date2
WHEN @Date2 IS NULL THEN @Date1
WHEN @Date1 > @Date2 THEN @Date1
WHEN @Date2 > @Date1 THEN @Date2
WHEN @Date2 = @Date1 THEN @Date2
ELSE NULL
END

END

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
/*----------------------------------------------------------------------------------------------------
Author:        Craig Buchanan
Date:        2/6/2006
Description:    Returns the lessor of two dates
Parameters:    @Date1 - datetime to be compared
@Date2 - datetime to be compared
----------------------------------------------------------------------------------------------------*/
CREATE FUNCTION [dbo].[MinimumDate] (
@Date1    datetime,
@Date2    datetime
)
RETURNS datetime AS
BEGIN

RETURN CASE
WHEN @Date1 IS NULL AND @Date2 IS NULL THEN NULL
WHEN @Date1 IS NULL THEN @Date2
WHEN @Date2 IS NULL THEN @Date1
WHEN @Date1 < @Date2 THEN @Date1
WHEN @Date2 < @Date1 THEN @Date2
WHEN @Date2 = @Date1 THEN @Date2
ELSE NULL
END

END


'determine current file location
Dim Path: Path=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName)-1)'.DTS files to be imported
Dim Sources: Sources = Array("File0.dts","File1.dts")

‘import each file
Dim i
For i = 0 To Ubound(Sources)
Import Path & “\” & Sources(i)
Next

Sub Import(FilePath)

Dim P: Set P = CreateObject(“DTS.Package”)
With P
.LoadFromStorageFile FilePath, “”
‘import to local database, using a trusted connection
.SaveToSQLServer “(local)”, , ,256
End With

Set P = Nothing

End Sub

--================================================================================
--Author: Craig Buchanan;craig.buchanan@cogniza.com
--Purpose: Generates a table of data ranges (the most recent 12 months, plus
-- three of Crystal Reports named-date ranges: MonthToDate,LastFullMonth
-- and YearToDate
--Parameters: None
--Returns: a table of date range values
--================================================================================
DROP FUNCTION dbo.DateRanges
GO
CREATE FUNCTION dbo.DateRanges ()
RETURNS @DateRangeTable TABLE (
[Sequence] decimal,
StartDate smalldatetime,
EndDate smalldatetime,
Value varchar(25),
[Description] varchar(20)
)
AS
BEGIN
--grab the system's date/time (using a view)
DECLARE @EndDate Datetime
SELECT @EndDate = Now
FROM dbo.GetNow
--calculate the first date of the current month
DECLARE @FirstOfMonth Datetime
SET @FirstOfMonth = CONVERT(VARCHAR,DatePart(m,@EndDate)) + '/1/' + CONVERT(CHAR(4),DatePart(yyyy,@EndDate))
--calculate the first day of the month, 12 months ago
DECLARE @StartDate Datetime
SET @StartDate = DateAdd(m,-12,@FirstOfMonth)
--create a sequence number generator
DECLARE @i int
SET @i = 1
--insert 12 months of data
WHILE @StartDate < @FirstOfMonth
BEGIN
INSERT INTO @DateRangeTable (
[Sequence],
StartDate,
EndDate,
Value,
[Description]
)
VALUES (
@i,
@StartDate,
DateAdd(m,1,@StartDate)-1,
--create a value in the format i;StartDate:EndDate
--ensure i is 0 padded
Right( '0' + convert(varchar, @i), 2) + ';' +
CONVERT(CHAR(10),@StartDate,110) + ':' +
CONVERT(CHAR(10),DateAdd(m,1,@StartDate)-1,110),
DATENAME(mm, @StartDate) + ' ' + CONVERT(VARCHAR,DATEPART(yyyy, @StartDate))
)
--add a month; increment counter
SET @StartDate = DateAdd(m,1,@StartDate)
SET @i = @i + 1
END
--add crystal report data ranges in the format index;DateRange
--'Year to Date'
INSERT INTO @DateRangeTable ([Sequence],StartDate,EndDate,Value,[Description])
VALUES (
@i,
'1/1/' + CONVERT(CHAR(4),DatePart(yyyy, @EndDate)),
CONVERT(CHAR(10),@EndDate,110),
Right( '0' + convert(varchar, @i), 2) + ';YearToDate','Year To Date'
)
SET @i = @i + 1
--'Last Full Month'
INSERT INTO @DateRangeTable ([Sequence],StartDate,EndDate,Value,[Description])
VALUES (
@i,
CONVERT(CHAR(10),DateAdd(m,-1,@FirstOfMonth),110),
CONVERT(CHAR(10),@FirstOfMonth-1,110),
Right( '0' + convert(varchar, @i), 2) + ';LastFullMonth','Last Full Month'
)
SET @i = @i + 1
--'Month to Date'
INSERT INTO @DateRangeTable ([Sequence],StartDate,EndDate,Value,[Description])
VALUES (
@i,
CONVERT(VARCHAR,DatePart(m, @EndDate)) + '/1/' + CONVERT(CHAR(4),DatePart(yyyy, @EndDate)),
CONVERT(CHAR(10),@EndDate,110),
Right( '0' + convert(varchar, @i), 2) + ';MonthToDate','Month To Date'
)
SET @i = @i + 1
RETURN
END
GO
GRANT SELECT ON dbo.DateRanges TO PUBLIC
GO

DateRanges SQL Script

DROP VIEW dbo.GetNow
GO
CREATE VIEW dbo.GetNow AS
SELECT GetDate() Now
GO
GRANT SELECT ON dbo.GetNow TO PUBLIC
GO

Objective

Give the report

Instructions

Create the Sql Server Components

A Sql Server user-defined function (see Sql Server: DateRanges Function) will dynamically create the values that are needed for the this project. This function needs a Sql Server view (see Sql Server: GetNow View) to generate the system’s current date/time.

Create Data Connection

1. Open the Business View Manager and log in.
2. Create a new Data Connection.
3. Configure the Data Connection to attach to the appropriate Sql Server database.
4. Save the Data Connection as ‘Sql Server DC’.

Create a Data Foundation

1. In the Business View Manager, create a Data Foundation.
2. Select ‘Sql Server DC’ as the Data Connection.
3. Save the Data Foundation as ‘Sql Server DF’.

Create a Business View

1. In the Business View Manager, create a Business View.
2. Save the Business View as ‘Sql Server BV’.

Create a Command Object

1. Create a Command Object in the Data Foundation. Add the following text to the Command Object:

SELECT *
FROM dbo.DateRanges()
ORDER BY Sequence DESC

2. Save the Command Object as ‘DateRanges’.

Create a Business Element

1. Create a new Business Element in the Business View Manager.
2. Add the Description and Value fields from the ‘DateRanges’ Command Object.
3. Save the Business Element as ‘DateRanges’.

Add Business Element to Business View

1. Open the Business View.
2. From the ‘Insert’ menu, select ‘Insert Business Elements…’.
3. Locate and select the ‘DateRanges’ Business Element, click ‘Add’, then ‘Close’.

Create the List of Values

1. Create a new List of Value in the Business View Manager.
2. Select the desired Business View from the ‘Select Business View’ window.
3. Enter ‘Date Range LoV’ in the ‘Name’ textbox.
4. Expand the ‘DateRanges’ Business Element in the ‘Available Fields’ list.
5. Select ‘Value’, then click the ‘>’ button.
6. Check ‘Sort by Value in Descending Order’.
7. Choose ‘Description’ from the ‘Description Field’ dropdown list.
8. Click ‘OK’ to save the List of Values.

Examine Repository

Open the Repository Explorer in the Business View Manager. The list of objects for the Date Range Parameter should resemble this list:

Create the Dynamic Parameter

1. Create a new report using Crystal Reports XI.
2. Connect to the Repository that contains the ‘Sql Server BV’ Business View.
3. Create a new parameter, named ‘Date Range’. Leave the ‘Prompt Group Text’ textfield blank.
4. Select ‘Dynamic’ from the ‘List of Values’ dropdown list.
5. Select the Existing radio button and choose ‘Date Range LoV’ from the list.
6. Click ‘Create Parameter’ in the ‘Parameters’ column of the ‘Choose a Data Source’ group.
7. Set ‘Prompt Text’ to ‘Choose Date Range’.
8. Set ‘Sort Order’ to ‘Descending by Value’.
9. Set ‘Prompt With Description Only’ to ‘True’.
10. Click ‘OK’ to save the parameter.

Modify the Report

1. Add the CDateTime Custom Function to the report (see Crystal Reports: CDateTime).
2. Add a Custom Function named ‘getDateRange’ (see below) to the report.
3. Edit the Record Selection Formula. Add the following code:
   //set the database field to the value that is extracted from the 'Date Range' parameter
{table.date_field} IN getDateRange({?Date Range})
4. Add a formula field to display the date range. Add the following code to the formula:
   CStr(Minimum(getDateRange ({?Date Range}))) + " - " + CStr(Maximum(getDateRange ({?Date Range})))
   Add the formula field to the report.

Summary

When the report is run, the parameter form will resemble:

Dynamic Date-Range Parameter Sample

getDateRange Custom Function

'--------------------------------------------------------------------------------
'Author: Craig Buchanan;craig.buchanan@cogniza.com
'Purpose: Convert a string value into its equivalent Date Range
'Parameters: text - a string in the format index;startDate:endDate
' or index;NamedDateRange
' e.g. 1;1/1/2006:12/31/2006 or 2;MonthToDate
'Returns: Date Range
'--------------------------------------------------------------------------------
Function getDateRange (text as string) As Date Range
If Instr(text,";")=0 Then Exit Function
Dim value as string: value = Split(text,";")(2)
If Instr(value,":")=0 Then
getDateRange = CDateRange (value)
Else
Dim startDate as Date: startDate = Cdate(Split(value,":")(1))
dim endDate as Date: endDate = cdate(Split(value,":")(2))
getDateRange = startDate to endDate
End If
End Function