Hi Razzak; That's great! I didn't know you could do that, and I will certainly use it elsewhere. But in this instance, it would be too much for my User; I need something simpler. I tried to build some Dialogs:
Set Var vCrew_ID integer = NULL set Var vTodayDate Date = #date set var vEnv# integer = NULL DIALOG 'Enter your Crew ID:' vCrewID vEndKey 1 CAPTION 'Sort Clause A' ICON QUESTION DIALOG 'Enter Today''s date:' vTodayDate vEndKey 1 CAPTION 'Sort Clause B' ICON QUESTION DIALOG 'Enter the Envelope#:' vEnv# vEndKey 1 CAPTION 'Sort Clause C' ICON QUESTION print pettycsh where Crew_ID = .vCrew_ID and toddate = .vTodayDate and env# = .vEnv# order By Crew_ID, toddate, env#, recno clear var vCrew_ID clear var vTodayDate clear var vEnv# return -It asks for the Crew_ID, but still shows the last one entered? -It does not ask for the second dialog (it did before I added the Set Var commands) -It does not ask for the third dialog (same as above) -Nothing happens at the print command?? -Rather than have 3 separate Dialog boxes appear, is there a way to combine them all into one? In the Application Builder, if I wanted just one piece of info, shouldn't this work? @'Enter your Crew ID' Lin On Fri, 07 Mar 2008 22:44:24 -0500, "A. Razzak Memon" <[EMAIL PROTECTED]> said: > At 08:25 PM 3/7/2008, Lin MacDonald wrote: > > >In my Application, I have created an Action to print a report. > >I need to get 3 pieces of information from my User to define > >which rows should print. > > > >Tried this, which did not work: > > > >PRINT pettycsh WHERE Crew_ID = @'Enter your Crew ID' AND env# = > >@'Enter Envelope Number' AND toddate = #date ORDER BY recno ASC > > > >Tried just putting in: > > > >PRINT pettycsh WHERE Crew_ID = @'Enter your Crew ID' > > > >still nothing. I don't get a dialog box, nor message -- > > > >What am I doing wrong here? > > > Hello Lin, > > Try the following technique to achieve your goal: > > -- Start here ... > -- Build your own where clause using the #WHERE User Interface > SET VAR vWhereSortClause TEXT = NULL > CLS > CHOOSE vWhereSortClause FROM #WHERE IN TableViewName + > OPTION THEMENAME R:BASE Rocks! > IF (SLEN(.vWhereSortClause)) < 10 THEN > GOTO Done > ELSE > CLS > PRINT PettyCsh &vWhereSortClause OPTION SCREEN > ENDIF > LABEL Done > CLEAR VAR vWhereSortClause > RETURN > -- End here ... > > -- Example 01: > > CONNECT RRBYW14 > SET VAR vWhereSortClause TEXT = NULL > CLS > CHOOSE vWhereSortClause FROM #WHERE IN Customer + > OPTION THEMENAME R:BASE Rocks! > IF (SLEN(.vWhereSortClause)) < 10 THEN > GOTO Done > ELSE > CLS > PRINT CustomFormLetter &vWhereSortClause OPTION SCREEN > ENDIF > LABEL Done > CLEAR VAR vWhereSortClause,RBTI_REPORT_NAME > RETURN > > Have fun! > > Very Best R:egards, > > Razzak. > > References 1. mailto:[EMAIL PROTECTED]
