Date Range in Xbasic

[Alan Lucas]

The following xbasic code is an attempt to get the start date and end date into global variables vcStartdate and vcEnddate and then to place these variables on a report.

The problem is that after selecting the date range from the record list box and selecting preview I get a response that "there are no records in the layout". Ther are records there but this code does not seem to hold the dates selected.


'Preview a report, label, letter, form or browse layout. You can specify which records to preview.
filter = " (Var->vcStartdate >= [varC->prms.Parameter1] ) .AND. (Var->vcEnddate prms.Parameter2] )"
get_parameters_string = \cr\lf\cr\lf\cr\lf

Parameter2|Var-vcEnddate|Character|Record List-List Box||\cr\lf\cr\lf\cr\lf
%string%
ok_label = "&OK"
cancel_label = "&Cancel"
dialog_title = "Parameters"

'Prompt for parameter values. Store results in a 'dot' variable called 'prms'
dim prms as p
prms = ui_get_parameters(dialog_title,get_parameters_string,ok_label,cancel_label)

if prms.last_button_pressed = "OK" then
'Replace parameters in the filter with actual values
query.filter = replace_parameters(filter,local_variables())

query.order = ""
else
end
end if



'Prompt user whether to print, or preview the layout. Set default to Preview
prompt_result = ui_get_print_or_preview("Preview ")
If prompt_result = "Print" then

:Report.Print("CoG Consolidated",query.filter,query.order)

Else if prompt_result = "Preview" then
:Report.Preview("CoG Consolidated",query.filter,query.order)
End if


Any ideas

Alan

[Selwyn Rabins]

RE: Date Range in Xbasic

it would be easier to answer this question if you actually attached your code so that i could see your script.

[Al Buchholz]

RE: Date Range in Xbasic

Have you tried using current_filter from the drag and drop list on the report?

[Alan Lucas]

RE: Date Range in Xbasic

Selwyn,

appologise for being sloppy, i copied the xbasic code and paste into the forum.

attached is a small db "date test". i first used action scripting and then converted it into xbasic to see if i could identify why the date variables were not selecting the dates selected from the record list dropdown box.

hope this will help you

alan

[Alan Lucas]

RE: Date Range in Xbasic

Al,

yes i can do that but for my clients i would like something more professional hence trying to get the date global variables onto the report.

alan

[Selwyn Rabins]

RE: Date Range in Xbasic

see attached database.

run the script 'prompt_for_dates'.

you will see that i used an action script with two actions.
1st action is an "xdialog" action that prompts for two dates. I see that you have defined your date field as a character field. so it prompts for vcstatedate and vcenddate as GLOBAL character fields.

2nd action is to print your report. I specified a filter for the report as

ctod(date) >= ctod(var->vcstartdate) .and. ctod(date) vcenddate)

i used the ctod() function to convert the "character" dates to real dates so that the date comparisons would work properly.

3. i edited your report and added the vcstartdate and vcenddate varabiables to the list of variables (by pressing the V button on the toolbar).

[Alan Lucas]

RE: Date Range in Xbasic

Thank you Selwyn, works a treat.

alan

[Fred Daniel]

RE: Date Range in Xbasic

I uste the bhyuilt inj date calander in A5 to prompt for the dates. On the report I place the date field in my table and select the value as first and place it a second time and select Last. It thyen displays the first and last dates in the report based on the range of values.

[Alan Lucas]

RE: Date Range in Xbasic

Hi Fred,

Thanks for your input. I looked at using the inbuilt calander but I needed to have a dropdown box to select the range of actual dates that the report is based upon, this makes the selection user friendly and not have the user try and remember the date ranges.

To over come this i use a character date field and the CTOD() function suggested by Selwyn in Action Scripting. See the previous thread from Selwyn. This method works perfectly for my report selections.

Give it a go.

Alan