Set current date as default

Yes Joe, that is possible. But it depends a bit on what you're using to create the drop down box. If it is the html layout painter, then this thing does not have the possibility to do that. But if you're using a fex to populate the box, then you can do this easily by coding it in a define:

DEFINE FILE file
OPTIONDATE/A100 = IF DATEFLD EQ '&YYMD' THEN
    '<OPTION NAME=DATEFLD SELECTED VALUE='| DATEFLD | '>'| DATEFLD | '</OPTION>' ELSE
    '<OPTION NAME=DATEFLD VALUE='| DATEFLD | '>'| DATEFLD | '</OPTION>';
END

TABLE FILE FILE
PRINT OPTIONDATE
ON TABLE PCHOLD
END

And then use the resulting hold file to populate your drop-down box.

Hope this helps ...

GamP

- Using AS 8.2.01 on Windows 10 - IE11.
	in Focus since 1988

Posts: 1961 | Location: Netherlands | Registered: September 25, 2007

Ignored post by GamP posted

Show Post

JOE

Platinum Member

posted

Hide Post

I found an active x function called date picker. I placed this object on my html form and assigned it the variable name dte. When I run the code, it does not recognize the dte variable. Here is my code.

 <HTML>
<HEAD>
<TITLE>HtmlPage</TITLE>
<BASE href=HTTP://ppnta369:8080>
<META content="MSHTML 6.00.2900.3243" name=GENERATOR>
<SCRIPT id=clientEventHandlersJS type=text/javascript>
//Begin function window_onload
function window_onload() {
UpdateData();
// TODO: Add your event handler code here
}
//End function window_onload
</SCRIPT>

<SCRIPT for=window eventname="onload">window.onload = function() { window_onload(); }</SCRIPT>
</HEAD>
<BODY style="OVERFLOW: auto">
<FORM id=form2 style="Z-INDEX: 3; LEFT: 90px; WIDTH: 509px; POSITION: absolute; TOP: 170px; HEIGHT: 265px" tabIndex=3 name=form2 onsubmit="OnExecute(this);return false;" method=post requests_list="0" fexlist_list="report1" default_slider_type="4" form_prompt_location="1" form_number_of_visible_rows="4" form_number_of_columns="4" vert_dist_between_controls="10" form_hor_dist_between_controls="10" form_dist_between_desc_and_input="10">
<OBJECT id=activex1 style="Z-INDEX: 1; LEFT: 170px; WIDTH: 110px; POSITION: absolute; TOP: 100px; HEIGHT: 30px" tabIndex=1 classid=clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1 name=dte>
<PARAM NAME="_ExtentX" VALUE="2910">
<PARAM NAME="_ExtentY" VALUE="794">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackColor" VALUE="-2147483633">
<PARAM NAME="CalendarTitleForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTrailingForeColor" VALUE="-2147483631">
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831105">
<PARAM NAME="UpDown" VALUE="0">
<PARAM NAME="CurrentDate" VALUE="39499">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205"></OBJECT>
<INPUT id=form2Submit style="Z-INDEX: 4; LEFT: 5px; BACKGROUND-IMAGE: url(/ibi_html/javaassist/ibi/html/describe/run16.gif); WIDTH: 38px; BACKGROUND-REPEAT: no-repeat; POSITION: absolute; TOP: 78px; HEIGHT: 22px; BACKGROUND-COLOR: lavender" tabIndex=4 type=submit value=" " name=ITEM1> 
<INPUT id=form2Reset style="Z-INDEX: 5; LEFT: 48px; BACKGROUND-IMAGE: url(/ibi_html/javaassist/ibi/html/describe/reset.gif); WIDTH: 38px; BACKGROUND-REPEAT: no-repeat; POSITION: absolute; TOP: 78px; HEIGHT: 22px; BACKGROUND-COLOR: lavender" tabIndex=5 type=reset value=" " name=reset1> 
<FIELDSET id=form2_formbodyid style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; Z-INDEX: 6; LEFT: 5px; PADDING-BOTTOM: 0px; OVERFLOW: auto; WIDTH: 499px; BORDER-TOP-STYLE: none; PADDING-TOP: 0px; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; POSITION: absolute; TOP: 5px; HEIGHT: 73px; BORDER-BOTTOM-STYLE: none" tabIndex=6 formbody="1">
<SPAN id=pane1 style="Z-INDEX: 7; LEFT: 0px; WIDTH: 477px; POSITION: absolute; TOP: 0px; HEIGHT: 51px" tabIndex=7 elementtype="32" name="Manager">Manager 
<SELECT id=combobox1 style="Z-INDEX: 8; LEFT: 0px; WIDTH: 477px; POSITION: absolute; TOP: 15px; HEIGHT: 22px" tabIndex=8 size=1 name=Manager defaultlocation="29,0,51,477" dfformat="A50V" ibiformat="A50V" addalloption="0" accept="0" operation datafield="MANAGER" displayfield="MANAGER" datasource="team_hiarchy.mas" requiredfield="36074408" datatype="1" datafieldtype="INTIGER" sourcetype="typeMaster"></SELECT></SPAN></FIELDSET></FORM>
<xml id=ibi_requests>
<requests>
	
<request requestid="0" targetname="report1" ibif_ex="report1" targettype="0" sourcetype="typeAdhocfex" ibiapp_app="">
		
<![CDATA[-* File TEAMADSCORES.fex
JOIN
 TEAM_HIARCHY.TEAM_HIARCHY.TEAMNAME IN TEAM_HIARCHY TO MULTIPLE
 TBLARCH.TBLARCH.TEAMNAME IN TBLARCH AS J0
 END
TABLE FILE TEAM_HIARCHY
SUM
     COMPUTE COMPPER/D12.1% = ( COMPLIANCE / SCHEDULED ) * 100;
 AS 'Compliance %'
BY TEAMNAME
HEADING
"&Manager<+0> <+0>for <+0>&dte"
FOOTING
""
WHERE MANAGER EQ '&Manager';
WHERE NOM_DATE EQ '&dte';
ON TABLE SET PAGE-NUM OFF
ON TABLE SUMMARIZE COMPPER AS 'TOTAL'
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     UNITS=IN,
     PAGESIZE='Letter',
     LEFTMARGIN=0.250000,
     RIGHTMARGIN=0.250000,
     TOPMARGIN=0.250000,
     BOTTOMMARGIN=0.250000,
     SQUEEZE=ON,
     ORIENTATION=PORTRAIT,
$
     DEFMACRO=COND0001,
     MACTYPE=RULE,
     WHEN=N2 LT .90,
$
     DEFMACRO=COND0002,
     MACTYPE=RULE,
     WHEN=N2 LT 90,
$
     GRAPHTYPE=DATA,
     COLUMN=N2,
     GRAPHCOLOR='GREEN',
     GRAPHLOOK=BAR,
$
     GRAPHTYPE=DATA,
     COLUMN=N2,
     GRAPHCOLOR='RED',
     MACRO=COND0002,
$
TYPE=REPORT,
     GRID=OFF,
     FONT='ARIAL',
     SIZE=10,
     COLOR='BLACK',
     BACKCOLOR='NONE',
     STYLE=NORMAL,
     RIGHTGAP=0.125000,
$
TYPE=DATA,
     COLOR=RGB(45 32 15),
$
TYPE=DATA,
     COLUMN=N1,
     TARGET='_self',
     FOCEXEC=v4adh(TEAMNAME=N1 dte=&dte.QUOTEDSTRING),
$
TYPE=TITLE,
     COLOR=RGB(199 135 73),
     STYLE=-UNDERLINE+BOLD,
$
TYPE=HEADING,
     SIZE=18,
     COLOR='WHITE',
     BACKCOLOR=RGB(191 54 61),
     STYLE=BOLD,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     FONT='VERDANA',
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=2,
     FONT='VERDANA',
     STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=3,
     FONT='VERDANA',
     SIZE=10,
     STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=4,
     FONT='VERDANA',
     SIZE=10,
     STYLE=BOLD+ITALIC,
$
TYPE=FOOTING,
     COLOR=RGB(45 32 15),
     BACKCOLOR=RGB(199 135 73),
     STYLE=BOLD,
$
TYPE=SUBHEAD,
     SIZE=18,
     COLOR=RGB(191 54 61),
     BACKCOLOR='WHITE',
     STYLE=BOLD,
$
TYPE=SUBFOOT,
     COLOR=RGB(199 135 73),
     BACKCOLOR=RGB(45 32 15),
     STYLE=BOLD,
$
ENDSTYLE
END]]>
		
<variables>
			
<variable field="Manager" file="team_hiarchy.mas" desc="Manager" datatype="0" operation="" default="" name="Manager" textvarname="" accept="0" type="unresolved" select="0" min="" max="" controltype="7" create="1"></variable>
			
<variable field="dte" file="team_hiarchy.mas" desc="dte" datatype="0" operation="" default="" name="dte" textvarname="" accept="0" type="unresolved" select="0" min="" max="" controltype="7" create="1"></variable></variables></request></requests>
</xml></BODY></HTML>

Thanks!

WebFocus 7.7.02 WinXP

Posts: 236 | Registered: May 12, 2006

Ignored post by JOE posted

Show Post

GamP

Virtuoso

posted

Hide Post

Joe,

I think this is due to the fact that it concerns an active-x object in this case.
It does not have one single well-defined and standard value, so the form that it resides in will not pass the values on. Maybe there is a way to retrieve the values from an active-x object using javascript, but I'm afraid that such coding is way beyond my knowledge.

GamP

- Using AS 8.2.01 on Windows 10 - IE11.
	in Focus since 1988

Posts: 1961 | Location: Netherlands | Registered: September 25, 2007

Ignored post by GamP posted

Show Post

Please Wait. Your request is being processed...

Read-Only Topic

Focal Point

Focal Point Forums

WebFOCUS/FOCUS Forum on Focal Point

Set current date as default

Focal Point | Privacy Statement | Terms of Service