OT: Passing a filter variable from a program to a report

Yahoo Archive
1
Hello,

I am trying to write a program that passes filter variables to a
specific Report. I have downloaded the file at yahoogroups that does this
with a date range but I can't seem to modify it to work with different hard
coded filters. I have a report that I wanted to filter the salesrep.name to
eq. a certain rep. Any ideas would be helpful.

Here is the code I am trying to modify:
------------------------------------
DO:
DEFINE VARIABLE cVars AS CHARACTER.
DEFINE VARIABLE cPrnDestination AS CHARACTER.
DEFINE VARIABLE lReturnValue AS LOGICAL.

cVars = "STARTDATE=" + STRING(txtStartDate:SCREEN-VALUE)
+ CHR(10)
+ "ENDDATE=" + STRING(txtEndDate:SCREEN-VALUE).

IF chkPreview:SCREEN-VALUE = "Yes" THEN
cPrnDestination = "D".
ELSE
cPrnDestination = "?".

lReturnValue = winRB:LOAD-MOUSE-POINTER("WAIT").

RUN m:\progress\gui\aderb\_printrb(
"m:\vantage\ud\menu.prl", /* RB-REPORT-LIBRARY */
"Delta Employee Labor", /* RB-REPORT-NAME */
"", /* RB-DB-CONNECTION */
"", /* RB-INCLUDE-RECORDS */
"", /* RB-FILTER */
"", /* RB-MEMO-FILE */
cPrnDestination, /* RB-PRINT-DESTINATION */
"", /* RB-PRINTER-NAME */
"", /* RB-PRINTER-PORT */
"", /* RB-OUTPUT-FILE */
0, /* RB-NUMBER-COPIES - zero */
0, /* RB-BEGIN-PAGE - zero */
0, /* RB-END-PAGE - zero */
no, /* RB-TEST-PATTERN */
"", /* RB-WINDOW-TITLE */
yes, /* RB-DISPLAY-ERRORS */
yes, /* RB-DISPLAY-STATUS */
no, /* RB-NO-WAIT */
cVars). /* RB-OTHER-PARAMETERS */

lReturnValue = winRB:LOAD-MOUSE-POINTER("ARROW").

APPLY "CHOOSE" TO btnCancel.
END.

--------------------------

Kevin Larkin
Ferguson Perforating