Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link Par2: User selection of any key for a report 2001-10-25 -- Mark try this out...
AT ThisWindow.Init Priority 8505
!
! Prompt the user for which sort order they wish to use.
! If appropriate, prompt them for range and selection data.
!
Case Popup('By Key_1|By Key_2 (Ranged) By Key_2 (Ranged and summary)')
Of 1
LOC:Var = TRUE !Print Details
ThisReport.AddSortOrder(PRE:Key)
Of 2
LOC:Var = TRUE !Print Details
RangePromptForm(Desired:Minimum,Desired:Maximum)
IF GLOBALRESPONCE = RequestCancelled THEN RETURN.
ThisReport.AddSortOrder(PRE:Key)
ThisReport.AddRange(PRE:Field,Desired:Minimum,Desired:Maximum)
Of 3
RangePromptForm(Desired:Minimum,Desired:Maximum)
IF GLOBALRESPONCE = RequestCancelled THEN RETURN.
LOC:Var = FALSE !Don't print the details, just kick out the summary.
ThisReport.AddSortOrder(PRE:Key)
ThisReport.AddRange(PRE:Field,Desired:Minimum,Desired:Maximum)
END
ThisReport.SetSort(2) !Go ahead and apply the "2nd" sort that you have just
picked.
This lets you run the report on ANY key in the file. Real handy when you
would
otherwise be writing 17 identical reports...
Today is November 21, 2024, 7:21 am This article has been viewed 35216 times.
|
|