[RBASE-L] - Re: get User input for the Where claus?

[A. Razzak Memon]

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.