Giving date picker calendar option to user for date type fields in Oracle Forms. I am providing you the form (FoxCal.Fmx) and two libraries (General.plx and Calendar.pll). You can download these files by clicking below link:
Download Form and required PLL
Like us to get notifications for free source code in future, thanks.
How To Use
It is very simple to use, no need to attache any library to your form, just copy all three files to your current working directory of your application. Suppose you have a form and there is one or many date date type fields in the form. You have to create key-listval trigger for those date type fields or create a push button adjacent to those fields and paste the below code in when-button-pressed trigger:
DECLARE pl_id paramList; begin :GLOBAL.G_LOV_DATE := TRUNC(SYSDATE); Â pl_id := Get_Parameter_List('foxcal'); Â IF NOT Id_Null(pl_id) THENÂ Â Â Â Â destroy_parameter_list(pl_id); Â end if; Â pl_id := create_parameter_list('foxcal'); Â add_parameter(pl_id, 'XPOS', text_parameter, to_char(50)); Â add_parameter(pl_id, 'YPOS', text_parameter, to_char(100)); Â add_parameter(pl_id, 'CURRDATE', text_parameter, to_char(Sysdate)); Â add_parameter(pl_id, 'Label', text_parameter, 'Date Picker'); Â CALL_FORM('foxcal', no_hide, do_replace, query_only, no_share_library_data, pl_id); Â :yourdateitem := :Global.G_LOV_Date; Â erase('Global.G_LOV_DATE'); END;
Note: Your current working directory for form designer and runtime should be the directory where you copied the above mentioned three files.
Hard code the path to call foxcal eg. C:yourappfoxcal.fmx or copy all the files in your app directory and change the working directory of your application shortcut to that directory where you copied the files.
Hi , thaks for your contribution , I have a problem. I copied all three files to where i have my forms , and added the code to a button, but i get this error
FRM-40010 Cannot read from foxcal
Please help , thank you in advance
change yourdateitem to your form field item...
HIII ..... I GOT .... :yourdateitem := :Global.G_LOV_Date;.. BAD BIND VARIABLE ERROR 49
iam using forms 6i and 10g database on win7 32 bit
not show calendar only sysdate is apply
Could you provide .fmb file also sir please. Because its compiled under windows and my environment is under linux. Please Help
kindly provide foxcal.fmb OR provide foxcal.fmx (compiled with 11g Fusion middle ware Forms builder). because your foxcal.frm is running with 6i but not with 11g Fusion middleware.
can you compile foxcal.fmx in 11g