Hi Fellow Focus users!

Just looking for a code example so that when I add my report to RDF, I get a calendar filter. Currently, I'm just getting a textbox with the values I have in my code '12345678'. When I change this to a date, however it works just fine, I'm just not getting that calendar icon for users to pick from and I dont want the users to have to manually type in a date.

Any help is appreciated, thanks!

Using Webfocus App Studio 8202M

This message has been edited. Last edited by: FP Mod Chuck,

Ratios

Welcome to Focal Point... It is a great WebFOCUS forum for developers.

You have to create the calendar control in the html composer.

quote:

You have to create the calendar control in the html composer.

Thank you for the welcome Chuck.

I'm not using the html composer, but the new RDF Page in 8202. When I add my fex to the page, filters are automatically detected if I write my code a certain way. But I don't know how to write it so that the calendar option appears. Any examples would be great. Thanks

This message has been edited. Last edited by: ratios,

Sounds as if you're using the new WF Designer tool and not the RDF templates.

Where are you accessing them from? WF Home page > Repository > Domain > right-click > New Page??

Yes, sounds more like that but I'm using the web version that is connected to AppStudio 8202 and yes it shows up under Domains.

This message has been edited. Last edited by: ratios,

You need to make sure that your amper variable has the format included in it.

Example:

 WHERE [report date field] EQ &REPORT_DATE.(|FORMAT=&YYMD).Report Date:.QUOTEDSTRING.;  

This message has been edited. Last edited by: Hallway,

quote:

WHERE [report date field] EQ &REPORT_DATE.(|FORMAT=&YYMD).Report Date:.QUOTEDSTRING.;

Hmmm... thanks Hallway but for some reason I'm getting (FOC224) SYNTAX ERROR. Any other ways to code this so I can get that calendar icon in the output?

This message has been edited. Last edited by: ratios,

Hallway,

I kept tweaking your code until I got it! This worked for me:

WHERE [report date field] EQ &REPORT_DATE.(|FORMAT=YYMD).Report Date:.QUOTEDSTRING;

you can see I removed the ampersand from the YYMD and the full stop at the end of the word QUOTEDSTRING.

Now when I pull that fex in, I get a little calendar icon for my users to select a date from at runtime.

Thanks everyone for the help. This was my first post here and you all helped to make it successful.

DOH!!

Good catches, I'm glad you figured it out.

Sorry about that *sheepish grin*

Didn't even see that *sheepish grin* Now, I'm just trying to figure out how to get yesterday's date in there as a default... always something to work on.

Hey ratios,

Not sure if you've figured out how you'd get yesterday's date set as the default date in your calendar control pop-up yet, but since you are new, WebFOCUS comes with a list of built-in functions that let you manipulate values for dates, date-times, etc.

If you go here you'll find some very useful functions that will help you in your quest.

If you're still having troubles, let us know.

DATE MINUS ONE

 


DEFINE FILE CAR
PROPERNAME/A50 = PATIENTLASTNAME|', '|PATIENTFIRSTNAME;
NDCPROPER/A13 = EDIT(NDC,'99999-9999-99');
DATETIME/HMDYS = DT(&DATEHMDYS);
 [B]DATETIME_MINUS_ONE[/B]/HYYMDS = HADD(DT(&DATEHYYMDS), 'HOUR', -25, 20, 'HYYMDS');
DATETIME_MINUS_TWO/HMDYS = DATETIME_MINUS_ONE;
END


TABLE FILE CAR
BY CAR NOPRINT
HEADING
"DATETIME_MINUS_ONE <DATETIME_MINUS_ONE"
"DATETIME_MINUS_TWO <DATETIME_MINUS_TWO"
"DATE &DATE"
"DATEMYY &DATEMYY"
"DATEDMtrYY &DATEDMtrYY"
"DATEQYY &DATEQYY"
"DATEHYYMDS &DATEHYYMDS"
"DATEDMY &DATEDMY"
"DATEDMYY &DATEDMYY"
"DATEMDY &DATEMDY"
"DATEMDYY &DATEMDYY"
"DATEYMD &DATEYMD"
"DATEYYMD &DATEYYMD"
"DMY &DMY"
"DMYY &DMYY"
"MDY &MDY"
"MDYY &MDYY"
"TOD &TOD"
"YMD &YMD"
"YYMD &YYMD"
"DateTime &DATE &TOD"
"DateTime2 &DATEMDYY &TOD"


ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
GRID=OFF,$
TYPE=HEADING,OBJECT=TEXT,ITEM=1,POSITION=0,$
TYPE=HEADING,OBJECT=TEXT,ITEM=2,POSITION=3.5,$
END