-* File mchargebacks_html.fex
TABLE FILE MCHARGEBACK
PRINT
CARD_NUMBER AS '&ACCOUNT_NO_LBL'
TOKEN AS '&TOKEN_LBL'
COUNT_OF_CHARGEBACKS AS '&CHARGEBACKS_LBL'
AMOUNT AS '&AMOUNT_LBL'
BY HIGHEST COUNT_OF_CHARGEBACKS NOPRINT
COMPUTE EXPORT_URL/A2000 = IF '&IN_OUTFORMAT' NE 'HTML' THEN ' ' ELSE
'<select javascript id="output" style=" FONT-SIZE: 7pt; FONT-FAMILY: Arial; " '
|'onchange="var url_file=''/ibi_apps/WFServlet?IBIF_webapp=/ibi_apps''+''&'' '
|'+''&''+''IBIC_server=EDASERVE''+''&''+''IBIWF_msgviewer=OFF'' '
|'+''&''+''IBIAPP_app=mchargebacks''+''&''+''IBIF_ex=mchargebacks.fex''+''&''+''CLICKED_ON='' '
|'+''&''+''OCM_SESSION_KEY=&OCM_SESSION_KEY'' '
|'+''&''+''IN_CHARGEBACKDATE_TOKEN=&IN_CHARGEBACKDATE_TOKEN'' '
|'+''&''+''IN_CARDNUMBER=&IN_CARDNUMBER'' '
|'+''&''+''IN_TOKEN=&IN_TOKEN'' '
|'+''&''+''OUTLET=&OUTLET'' '
|'+''&''+''LISTVAL=&LISTVAL''+''&''+''LISTLBL=&LISTLBL'' '
|'+''&''+''IN_OUTFORMAT=''+ output.value '
|'; window.open(url_file);'
|'" name="output"><option value="HTML">&EXPORT_AS_LBL ...</option><option value="PDF">PDF</option><option value="EXL2K">XLS</option><option value="COMT">CSV</option></select>'; NOPRINT
ON TABLE SUBHEAD
"&REPORT_TITLE"
"&REPORT_RUN_DATE_LBL &DATEFORMAT"
"<EXPORT_URL"
"&REPORT_CRITERIA_LBL"
" "
"&HLBL1 <+0> <+0> &HVAL1 <+0> &HLBL2 <+0> <+0> &HVAL2"
"&HLBL3 <+0> <+0> &HVAL3 <+0> &HLBL4 <+0> <+0> &HVAL4"
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = elavoncommoncss/reportingcommonwfstyle,
$
ENDSTYLE
END
And for some strange reason it prints the export in the actual report a few times listed as ** EXPORT_URL Export As ...(dropdown). I have this working fine in other reports.This message has been edited. Last edited by: Kerry,
WebFOCUS 8.0.08 Solaris HTML, PDF, XLS, CSV
September 15, 2010, 04:52 PM
Waz
Are you able to move the compute to a define, outside the TABLE FiLE
Waz...
Prod:
WebFOCUS 7.6.10/8.1.04
Upgrade:
WebFOCUS 8.2.07
OS:
Linux
Outputs:
HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!
September 15, 2010, 06:40 PM
Suzy
Would it make a difference if the code changed from this.
-* File mchargebacks_html.fex
TABLE FILE MCHARGEBACK
PRINT
CARD_NUMBER NOPRINT
COMPUTE EXPORT_URL/A3000 = IF '&IN_OUTFORMAT' NE 'HTML' THEN ' ' ELSE
'<select javascript id="output" style=" FONT-SIZE: 7pt; FONT-FAMILY: Arial; " '
||'onchange=postform() name="output"> '
||'<option value="HTML">&EXPORT_AS_LBL ...</option>selected'
||'<option value="PDF">PDF</option>'
||'<option value="EXL2K">XLS</option>'
||'<option value="COMT">CSV</option></select>'; NOPRINT
ON TABLE SUBHEAD
"&MULTIPLE_CHARGEBACKS_REPORT_TITLE_LBL"
"&REPORT_RUN_DATE_LBL &DATEFORMAT"
"<EXPORT_URL"
"&REPORT_CRITERIA_LBL"
" "
"&HLBL1 <+0> <+0> &HVAL1 <+0> &HLBL2 <+0> <+0> &HVAL2"
"&HLBL3 <+0> <+0> &HVAL3 <+0> &HLBL4 <+0> <+0> &HVAL4"
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS HEAD1 FORMAT HTMTABLE
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = elavoncommoncss/reportingcommonwfstyle,
$
ENDSTYLE
END
TABLE FILE MCHARGEBACK
PRINT
CARD_NUMBER AS '&ACCOUNT_NO_LBL'
TOKEN AS '&TOKEN_LBL'
COUNT_OF_CHARGEBACKS AS '&CHARGEBACKS_LBL'
AMOUNT AS '&AMOUNT_LBL'
BY HIGHEST COUNT_OF_CHARGEBACKS NOPRINT
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS MAIN1 FORMAT HTMTABLE
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = elavoncommoncss/reportingcommonwfstyle,
$
ENDSTYLE
END
-HTMLFORM BEGIN
<HTML>
<SCRIPT src="/ibi_html/javascript/changeatoform.js" type=text/javascript></SCRIPT>
<SCRIPT type=text/javascript>
function postform(){
document.forms.ibi.IN_OUTFORMAT.value=output.value;
document.forms.ibi.submit();
}
</SCRIPT>
<form name=ibi action="/ibi_apps/WFServlet" method=post target=ibi>
<input type=hidden name=IBIAPP_app value="mchargebacks" >
<input type=hidden name=IBIF_ex value=mchargebacks.fex >
<input type=hidden name=IN_CHARGEBACKDATE_TOKEN value="&IN_CHARGEBACKDATE_TOKEN" >
<input type=hidden name=IN_CARDNUMBER value="&IN_CARDNUMBER" >
<input type=hidden name=IN_TOKEN value="&IN_TOKEN" >
<input type=hidden name=OUTLET value="&OUTLET" >
<input type=hidden name=LISTVAL value="&LISTVAL" >
<input type=hidden name=LISTLBL value="&LISTLBL" >
<input id=IN_OUTFORMAT type=hidden name=IN_OUTFORMAT value="" >
</form>
!IBI.FIL.HEAD1;
!IBI.FIL.MAIN1;
</HTML>
-HTMLFORM END