Jump to content
The ibi Community has moved to a new platform: Please Sign In and choose Forgot Password to continue

Can some one please help me on this? What im trying to do is


Merin Joseph

Recommended Posts

image.thumb.png.a5ee19c64e4f3e91282f456fdd18cb10.pngimage.thumb.png.35e1823c1ca7c320de57a252029d0e2f.pnghere is the code which i have related to this. at present this dropdown is not working after i chained the link.

-PROMPT &ABC.(<'PROJECT',Project>,<'GLOBAL',Global>).Select.QUOTEDSTRING;

-IF &ABC EQ 'PROJECT' THEN GOTO BY_PROJECT ELSE ENDSELECT ;

-BY_PROJECT

WHERE NEW_PROJECTNAME_ALPHA EQ &NEW_PROJECTNAME_ALPHA.(OR(FIND NEW_PROJECTNAME_ALPHA IN SHIELD/PROJECTS |FORMAT=A410V,SORT=ASCENDING)).PROJECTS:.;

-GOTO ENDSELECT

-ENDSELECT

Full code-DEFAULTH &SUBSIDIARY = 1;-PROMPT &WFFMT.(<AHTML,AHTML>,<Excel,XLSX>).Format.QUOTEDSTRING;-PROMPT &ZRT.(OR(FIND ZRT IN ZRT_LISTING)).ZRT.;-PROMPT &ABC.(<'PROJECT',Project>,<'GLOBAL',Global>).Select.QUOTEDSTRING;-INCLUDE IBFS:/WFC/Repository/Shield/common_content/zrt_select_list.fex-RUN -*COMPONENT=Join_J001 JOIN CALLS.CALLS.CUSTOMERID IN SHIELD/CALLS TO UNIQUE CUSTOMERS.CUSTOMERS.ID IN SHIELD/CUSTOMERS TAG J001 AS J001 END-*COMPONENT=Join_J002 JOIN CUSTOMERS.CUSTOMERS.ID IN SHIELD/CALLS TO UNIQUE CUSTOMERADDRESSES.CUSTOMERADDRESSES.CUSTOMERID IN SHIELD/CUSTOMERADDRESSES TAG J002 AS J002 END-*COMPONENT=Join_J020 JOIN J002.CUSTOMERADDRESSES.ADDRESSTYPEID IN SHIELD/CALLS TO UNIQUE ADDRESSTYPES.ADDRESSTYPES.ID IN SHIELD/ADDRESSTYPES TAG J020 AS J020 END-*COMPONENT=Join_J021 JOIN J002.CUSTOMERADDRESSES.ADDRESSID IN SHIELD/CALLS TO UNIQUE ADDRESSES.ADDRESSES.ID IN SHIELD/ADDRESSES TAG J021 AS J021 END-*COMPONENT=Join_J005 JOIN CALLS.CALLS.CREATEDUSERZRT IN SHIELD/CALLS TO UNIQUE PROJECTS.PROJECTS.CREATEDUSERZRT IN SHIELD/PROJECTS TAG J005 AS J005 END-*COMPONENT=Join_J006 JOIN J005.PROJECTS.CREATEDUSERZRT IN SHIELD/CALLS TO UNIQUE SURVEYS.SURVEYS.CREATEDUSERZRT IN SHIELD/SURVEYS TAG J006 AS J006 END-*COMPONENT=Join_J007 JOIN J006.SURVEYS.SURVEYTYPEID IN SHIELD/CALLS TO UNIQUE SURVEYTYPES.SURVEYTYPES.ID IN SHIELD/SURVEYTYPES TAG J007 AS J007 END-*COMPONENT=Join_J008 JOIN CALLS.CALLS.ID IN SHIELD/CALLS TO UNIQUE CALLSURVEYANSWERS.CALLSURVEYANSWERS.CALLID IN SHIELD/CALLSURVEYANSWERS TAG J008 AS J008 END-*COMPONENT=Join_J009 JOIN J008.CALLSURVEYANSWERS.SURVEYQUESTIONID IN SHIELD/CALLS TO UNIQUE SURVEYQUESTIONS.SURVEYQUESTIONS.ID IN SHIELD/SURVEYQUESTIONS TAG J009 AS J009 ENDDEFINE FILE SHIELD/CALLS ZRT1/A4 = CALLS.CALLS.CREATEDUSERZRT; END TABLE FILE SHIELD/CALLS BY CALLS.CALLS.CALLNUMBER AS 'Call Number' BY CALLS.CALLS.STARTTIME/HMDYIA AS 'Call Time' BY J001.CUSTOMERS.ID AS 'Customer ID' BY J001.CUSTOMERS.NAME AS 'Store Name' BY J021.ADDRESSES.ADDRESS1 AS 'Store Address' BY J021.ADDRESSES.CITY AS 'Store City' BY J021.ADDRESSES.STATE AS 'Store State' BY J021.ADDRESSES.ZIP AS 'Store Zip' BY J005.PROJECTS.CREATEDUSERZRT AS 'ZRT' BY J009.SURVEYQUESTIONS.TEXT AS 'Questions' BY J008.CALLSURVEYANSWERS.ANSWER AS 'Answers'-IF &ABC EQ 'PROJECT' THEN GOTO BY_PROJECT ELSE ENDSELECT ;-BY_PROJECT BY J005.PROJECTS.NEW_PROJECTNAME_ALPHA WHERE NEW_PROJECTNAME_ALPHA EQ &NEW_PROJECTNAME_ALPHA.(OR(FIND NEW_PROJECTNAME_ALPHA IN SHIELD/PROJECTS |FORMAT=A410V,SORT=ASCENDING)).PROJECTS:.;-GOTO ENDSELECT-ENDSELECT WHERE STARTTIME FROM DT(&STARTTIME_YEAR_D_FROM.(|FORMAT=YYMD,LINK_TO=STARTTIME_YEAR_D_TO,TITLE='START_DATE').STARTTIME_YEAR_D From.QUOTEDSTRING) TO DT(&STARTTIME_YEAR_D_TO.(|FORMAT=YYMD,LINK_TO=STARTTIME_YEAR_D_FROM,TITLE='END_DATE').STARTTIME_YEAR_D To.QUOTEDSTRING); WHERE ZRT1 IN FILE ZRTFILE-* WHERE J007.SURVEYTYPES.ID EQ 1 ;HEADING "Activities" "From Call Date: &STARTTIME_YEAR_D_FROM To Call Date: &STARTTIME_YEAR_D_TO " "As of &DATE "-* "&NEW_PROJECTNAME_ALPHA"FOOTING "Title of the Procedure : IBFS:/WFC/Repository/Shield/Reports/Activities.fex" "Swisher International, Inc.<+0>________________________<+0>Confidential Information"ON TABLE SET PAGE-NUM NOLEADON TABLE SET ASNAMES ONON TABLE NOTOTALON TABLE SET AUTOFIT ONON TABLE PCHOLD AS 'Activities' FORMAT &WFFMTON TABLE SET HTMLEMBEDIMG ONON TABLE SET HTMLCSS ONON TABLE SET BYDISPLAY ONON TABLE SET STYLE *INCLUDE = IBFS:/WFC/Repository/Shield/common_content/Swisher_Shield_Theme.sty,$ENDSTYLEEND-RUN
Link to comment
Share on other sites

You are creating your parameters page in App Studio's HTML Canvas?

I think to accomplish this you will need to write a WebFOCUS procedure that produces the values for the Projects dropdown. The procedure would have parameter variables to filter and invoke the logic for producing the necessary values to display in the dropdown.

See the documentation for it here:

App Studio User's Manual - Using Custom Procedures to Retrieve Dynamic Values, page 457

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
  • Create New...