Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Use Calendar for Date prompt - lIke ePortfoilio 1

Status
Not open for further replies.
Turkbear

Turkbear

Technical User
Mar 22, 2002
8,631
US
Hi,
In CE8.5, the custom pages we develop work great, but for Date prompts the user has to type in the dates - Is there a way to use the nice calendar that ePortfolio ( or Crystal itself) provides..
I can tell from the source code that it seems to involve lots of includes but it is hard to tell how many are actually needed to integrate this feature in a custom page.

Thanks for any advice...

[profile]
 
Sort by date Sort by votes
Are you stating that you want CSP or ASP code to invoke a calendar control?

What viewer are you using, or are you collecting parms in a CSP page? Why not just invoke the Active-X viewer?

-k
 
Upvote 0 Downvote
Hi,
My users have asked that the Date prompts appear on the same custom page style ( we use both asp and csp) as the other parameter prompts.

We use custom code to generate a table with a drop-down list of possible values for a given parameter - we would like to do the same for Date prompts but with the calendar
function instead of the Date(yyyy,mm,dd) format it currently shows..

The main code we use is called from a csp page with a parameter name test( snippets follow:)

Code: 
// Query for a report.
	ReportID=String(Request.QueryString.Item ("ReportID"));
	
	if (ReportID == "undefined" ) {
	// No report was specified in the URL so select the first report in the database.
		
		// Retrieve the SI_ID before selecting the whole report.
		// SI_ID is indexed and faster to retrieve than the entire report.
		try {
		 Result = IStore.Query
		 ("Select SI_PROCESSINFO.SI_PROMPTS From CI_INFOOBJECTS Where SI_PROGID = 'CrystalEnterprise.Report'");
		}
		catch(e) {
			Response.Write (&quot;Example failed: try logging on first!<BR>&quot;);
		}
		// Retrieve the entire report using the ID.
		 Result = IStore.Query
		 (&quot;Select SI_PROCESSINFO.SI_PROMPTS From CI_INFOOBJECTS Where SI_ID = &quot; + Result.Item(1).ID);
	} else {
		// Retrieve the report using the specified ID.
		try {
			Result = IStore.Query
			(&quot;Select SI_PROCESSINFO.SI_PROMPTS From CI_INFOOBJECTS Where SI_ID = &quot; + ReportID);
		}
		catch(e) {
			Response.Write (&quot;Example failed: try logging on first!<BR>&quot;);
		}
	}

		// Retrieve the report.
		 ReportObject = Result.Item(1);

		// Retrieve the report interface.
		ReportInterface = ReportObject.PluginInterface(&quot;&quot;);
		Response.Write (&quot;<span class='tableHeading' >&quot; + ReportObject.Title + &quot;</span><BR>&quot;);
		Response.Write (&quot;To view the report choose values for the parameters below and click the view report button.<BR>&quot;);
		Response.Write 
			(&quot;<FORM Name=ParamForm Action='ViewMultiReport.csp?NumParams=&quot; 
			+ ReportInterface.ReportParameters.Count
			+ &quot;&ReportID=&quot; 
			+ ReportObject.ID
			+ &quot;' Method=POST target= 'CART_REPORTS'&quot;
			+ &quot; onsubmit=\&quot;window.open('', 'CART_REPORTS', 'fullscreen=no,location=yes,scrollbars=no,menubars=yes,toolbars=yes,resizable=yes')\&quot;>&quot;);
		if (ReportInterface.ReportParameters.Count > 0 ) {
			// If there are parameters start listing them.
			NumP = 0;
			var reportPars = ReportInterface.ReportParameters;
			for (i=1;i<=reportPars.Count;i++)
			{
				Response.Write (&quot;<TR><TD>&quot;);
				// Display the text that prompts the user to enter 
				// a value for the parameter.
				NumP = NumP + 1;
				
				// Contstruct the names of the controls.
				Name = &quot;Param&quot; + NumP;
				ListName = &quot;List&quot; + NumP;
				param = reportPars.Item(i);
				ParamName = param.ParameterName;
				Pname = &quot;Pname&quot; + NumP;
				// Retrieve the parameter's default values.
				ParamValues = RetrieveValues(param);
				switch (ParamName)
				{
				case &quot;VendorName&quot;:
					Response.Write (&quot;<P><B>Choose the desired Vendor:</B><BR>&quot; );
					writeVendors(Name);
					Response.Write(&quot;<script>&quot;);
					Response.Write(&quot;if (navigator.appName.indexOf(\&quot;Micro\&quot;)>=0) {&quot;);
					Response.Write(&quot;document.write(\&quot;Click any row in Vendor list to make the list active and then start<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;typing the Vendor name to sort down to desired Vendor and select that Vendor.<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;Press the Escape key to reset search.<BR>\&quot;);&quot;);
					Response.Write(&quot;}&quot;);
					Response.Write(&quot;</script>&quot;);
					break;
			        case &quot;BeginingOrganizationID&quot;:
					Response.Write (&quot;<P><B>Choose the desired Low Organization:</B><BR>&quot; );
					writeWMSOrgs(Name,Pname,ParamName);
					Response.Write(&quot;<script>&quot;);
					Response.Write(&quot;if (navigator.appName.indexOf(\&quot;Micro\&quot;)>=0) {&quot;);
					Response.Write(&quot;document.write(\&quot;Click any row in Oraganization list to make the list active and then start<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;typing the Org Name to sort down to desired Starting Org and select that one - For Multiple picks use Cntrl-Click.<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;Press the Escape key to reset search.<BR>\&quot;);&quot;);
					Response.Write(&quot;}&quot;);
					Response.Write(&quot;</script>&quot;);
					Response.Write(&quot;<input type='hidden' value=' &quot; + Parray[i] + &quot;'>&quot;);
					break;
				case &quot;EndingOrganizationID&quot;:
					Response.Write (&quot;<P><B>Choose the desired High Organization:</B><BR>&quot; );
					writeWMSOrgs(Name,Pname,ParamName);
					Response.Write(&quot;<script>&quot;);
					Response.Write(&quot;if (navigator.appName.indexOf(\&quot;Micro\&quot;)>=0) {&quot;);
					Response.Write(&quot;document.write(\&quot;Click any row in Oraganization list to make the list active and then start<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;typing the Org Name to sort down to desired Ending Org and select that one - For Multiple picks use Cntrl-Click.<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;Press the Escape key to reset search.<BR>\&quot;);&quot;);
					Response.Write(&quot;}&quot;);
					Response.Write(&quot;</script>&quot;);
					Response.Write(&quot;<input type='hidden' value=' &quot; + Parray[i] + &quot;'>&quot;);
					break;	
				case &quot;FiscalYear&quot;:
					Response.Write (&quot;<P><B>Choose the desired Fiscal Year:</B><BR>&quot; );
					writeWMSFY(Name,Pname,ParamName);
					Response.Write(&quot;<script>&quot;);
					Response.Write(&quot;if (navigator.appName.indexOf(\&quot;Micro\&quot;)>=0) {&quot;);
					Response.Write(&quot;document.write(\&quot;Click any row in list to make it active and then start<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;typing the FY Name to sort down to desired Year and select that one<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;Press the Escape key to reset search.<BR>\&quot;);&quot;);
					Response.Write(&quot;}&quot;);
					Response.Write(&quot;</script>&quot;);
					Response.Write(&quot;<input type='hidden' value=' &quot; + Parray[i] + &quot;'>&quot;);
					break;
				case &quot;EmpNbr&quot;:
					Response.Write (&quot;<P><B>Choose the desired Employee(s):</B><BR>&quot; );
					writeEmployees(Name,Pname,ParamName);
					Response.Write(&quot;<script>&quot;);
					Response.Write(&quot;if (navigator.appName.indexOf(\&quot;Micro\&quot;)>=0) {&quot;);
					Response.Write(&quot;document.write(\&quot;Click any row in Employee list to make the list active and then start<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;typing the Employee name to sort down to desired Employee and select that Employee - For Multiple picks use Cntrl-Click.<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;Press the Escape key to reset search.<BR>\&quot;);&quot;);
					Response.Write(&quot;}&quot;);
					Response.Write(&quot;</script>&quot;);
					Response.Write(&quot;<input type='hidden' value=' &quot; + Parray[i] + &quot;'>&quot;);
					break;
			        case &quot;WhatEmpNbr&quot;:
					Response.Write (&quot;<P><B>Choose the desired Employee(s):</B><BR>&quot; );
					writeEmployeesAFMS(Name,Pname,ParamName);
					Response.Write(&quot;<script>&quot;);
					Response.Write(&quot;if (navigator.appName.indexOf(\&quot;Micro\&quot;)>=0) {&quot;);
					Response.Write(&quot;document.write(\&quot;Click any row in Employee list to make the list active and then start<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;typing the Employee name to sort down to desired Employee and select that Employee - For Multiple picks use Cntrl-Click.<BR>\&quot;);&quot;);
					Response.Write(&quot;document.write(\&quot;Press the Escape key to reset search.<BR>\&quot;);&quot;);
					Response.Write(&quot;}&quot;);
					Response.Write(&quot;</script>&quot;);
					Response.Write(&quot;<input type='hidden' value=' &quot; + Parray[i] + &quot;'>&quot;);
					break;
[code]
[/color]
For example, if the parameter name is EmpNbr the above code calls the following:
[COLOR=green]
[code]
function writeEmployees(Name,pitem,pname)
{
        
	if (myconn == null) {
		connectToWhs();
	}
	SqlStrEmp = &quot;Select trim(empl_nbr) enum,empl_nm from warehouse.hr_public order by empl_nm&quot;;

	RS1 = myconn.Execute(SqlStrEmp);

   	Response.Write(&quot;	<table border=0 cellpadding=0 cellspacing=2 width=580>&quot;);
	Response.Write(&quot;	<tr>&quot;);
	Response.Write(&quot;		<td><SELECT NAME='&quot; + Name + &quot;' Size=10 MULTIPLE onkeypress='evalKey()'>&quot;);
		
   while (! RS1.EOF) 
    {
	    empID= RS1(&quot;enum&quot;) ;
	    empName=RS1(&quot;empl_nm&quot;);
		Response.Write(&quot;<OPTION VALUE='&quot; + empID  + &quot;'>&quot; + empName + &quot;</OPTION>&quot;);
		RS1.MoveNext();
	}            
	Response.Write(&quot;		</SELECT></td>&quot;);
	Response.Write(&quot;<script>&quot;);
	Response.Write(&quot;document.ParamForm.&quot; + Name + &quot;.selectedIndex=0;&quot;);
	Response.Write(&quot;</script>&quot;);
	Response.Write(&quot;	</tr>&quot;);
	Response.Write(&quot;</table>&quot;);
	Response.Write(&quot;<input type='hidden' name='&quot; + pitem + &quot;' value='&quot; + pname +&quot;'>&quot;)
	Response.Write(&quot;<p></p>&quot;);
	
	RS1.close;
	myconn.close;
	myconn=null;
}


This creates a table on the users page with a list of employees and, once one or some are selected, passes that info to Crystal ( with several other code segments involved).
I would like to have the Date params handled the same way, with the calendar option included.
The current Date method is:

Code: 
function write_begindate(ParamValues,Name,pitem,pname)
{
	Response.Write(&quot;	<table border=0 cellpadding=0 cellspacing=2 width=580>&quot;)
	Response.Write(&quot;	<tr>&quot;)
	valueString = &quot;&quot;;
	if (ParamValues != null) {
		if (ParamValues.length > 0) {
			valueString = ParamValues[0];
		}
	} else {
		var d = new Date();
		var month = d.getMonth() + 1;
		valueString = &quot;Date(&quot; + d.getFullYear() + &quot;, &quot; + month + &quot;, &quot; + d.getDate() + &quot; )&quot;;
	}
	
	Response.Write (&quot;<input type='text' name='&quot; + Name + &quot;' value='&quot; + valueString + &quot;' onchange='validateDate(this)' size='20'>&quot;);
        Response.Write(&quot;	</tr>&quot;);
        Response.Write(&quot;</table>&quot;);
	Response.Write(&quot;<input type='hidden' name='&quot; + pitem + &quot;' value='&quot; + pname +&quot;'>&quot;)
	Response.Write(&quot;<p></p>&quot;);	
}


Any way to get this to use the calendar function?

Thanks,
[profile]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

T
  • Locked
  • Question
Date comparison Formula
Replies
2
Views
619
TPG_IT
T
D
  • Locked
  • Question
Comparing two Date Ranges
Replies
0
Views
393
doodledump
D
supportsvc
  • Locked
  • Question
Date prompt use in Formula with DatePart? 2
2 3
Replies
42
Views
1K
pmax9999
pmax9999
inkbird01
  • Locked
  • Question
Filters &gt; Record Selection for dates between
Replies
4
Views
444
pmax9999
pmax9999
sofseattle
  • Locked
  • Question
Crystal formula for barcode display shows extra characters in date format?
Replies
1
Views
387
BobSuruncle
BobSuruncle

Part and Inventory Search

Sponsor

Back
Top