All, I have a report spanning a selected financial half year, e.g. 1401 which contain 26 weeks. What we would like to do is to be able to expand only 5 out of 22 lines. Is it possible? Preferable, we also would like to get rid of the + sign for the other rows.
TiaThis message has been edited. Last edited by: <Kathryn Henning>,
Not sure if this will help or not, but we built our own. Little bit of JQuery and HTML and we have a menu that expands, with the first two starting up expanded.
When we click on the green titles, it expands and collapses.
Code: had to change some things to protect my company, but this is the generic version.
SET NODATA = ''
DEFINE FILE TBLDATAMYDATA ADD
STYLECONDCD/I5=
IF TBLDATAMYDATA.TBLDATAMYDATA.PARENT EQ -1
AND TBLDATAMYDATA.TBLDATAMYDATA.ENABLED EQ -1
THEN 1
ELSE IF TBLDATAMYDATA.TBLDATAMYDATA.PARENT EQ -1
AND TBLDATAMYDATA.TBLDATAMYDATA.ENABLED EQ 0
THEN 2
ELSE 3;
CONDDISPLAYVAL/A50V=
IF STYLECONDCD EQ 2 THEN 'NOT LINKED'
ELSE TBLDATAMYDATA.TBLDATAMYDATA.DISPLAYVALUE;
STATUSIMG/A200V=
IF STYLECONDCD EQ 1 THEN '<img src="/ibi_apps/WFServlet.ibfs?IBFS1_action=RUNFEX&|IBFS_path=/WFC/Repository/MYTEST/images/greencheck.PNG" align="middle" width="30"/> '
ELSE IF STYLECONDCD EQ 2 THEN '<img src="/ibi_apps/WFServlet.ibfs?IBFS1_action=RUNFEX&|IBFS_path=/WFC/Repository/MYTEST/images/redx.PNG" align="middle" width="30"/> '
ELSE '';
ITEMDISPVL/A250V=STATUSIMG | TBLDATAMYDATA.TBLDATAMYDATA.ITEM;
ITEMHTMLCD/A5000V=IF STYLECONDCD EQ 1 AND TBLDATAMYDATA.TBLDATAMYDATA.EXPANDEDIND EQ -1 THEN '<tr class="header" id="expandeddiv"><td class="headerval1" colspan="2">'||ITEMDISPVL||'</td></tr>'
ELSE IF STYLECONDCD EQ 1 AND TBLDATAMYDATA.TBLDATAMYDATA.EXPANDEDIND EQ 0 THEN '<tr class="header" id="collapseddiv"><td class="headerval3" colspan="2">'||ITEMDISPVL||'</td><td class="headerval4">'||CONDDISPLAYVAL||'</th></tr>'
ELSE IF STYLECONDCD EQ 2 THEN '<tr class="header" id="nodatadiv"><td class="headerval5">'||ITEMDISPVL||'</td><td class="headerval6">'||CONDDISPLAYVAL||'</th></tr>'
ELSE '<tr class="data"><td class="dataval1">'||ITEMDISPVL||'</td><td class="dataval2">'||CONDDISPLAYVAL||'</td></tr>';
END
TABLE FILE TBLDATAMYDATA
PRINT
TBLDATAMYDATA.TBLDATAMYDATA.ITEMHTMLCD
BY LOWEST TBLDATAMYDATA.TBLDATAMYDATA.GROUPID NOPRINT
BY LOWEST TBLDATAMYDATA.TBLDATAMYDATA.ORDERING NOPRINT
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS HOLDDIV FORMAT INTERNAL
END
-RUN
-HTMLFORM BEGIN
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<script src="/ibi_html/javaassist/jquery/jquery_min.js"></script>
<script type='text/javascript'>//<![CDATA[
$(window).load(function(){
$('tr.data').slideToggle(1);
$(expandeddiv).nextUntil('tr.header').slideToggle(1);
$('.header').click(function(){
$(this).nextUntil('tr.header').slideToggle(1);
});
});//]]>
</script>
<style type="text/css">
tr.header {
cursor:pointer;
vertical-align:middle;
line-height:30px;
}
table{padding: 5px; width: 220px; border-collapse: collapse; vertical-align=middle;}
.headerval1 { font-family:'Segoe UI', Calibri, sans-serif ; font-size:10pt; font-weight:bold; color:#424649; background-color:#DEEFDE; padding-top:0pt; padding-bottom:0pt; border-top: 5.00pt SOLID #FFFFFF; border-bottom: NONE; border-right: NONE; border-left: NONE; vertical-align:middle; }
.headerval3 { font-family:'Segoe UI', Calibri, sans-serif ; font-size:10pt; font-weight:bold; color:#424649; background-color:#DEEFDE; padding-top:0pt; padding-bottom:0pt; border-top: 5.00pt SOLID #FFFFFF; border-bottom: NONE; border-right: NONE; border-left: NONE; vertical-align:middle; }
.headerval5 { font-family:'Segoe UI', Calibri, sans-serif ; font-size:10pt; color:#424649; background-color:#F7DEDE; padding-top:0pt; padding-bottom:0pt; border-top: 5.00pt SOLID #FFFFFF; border-bottom: NONE; border-right: NONE; border-left: NONE; vertical-align:middle; }
.headerval6 { font-family:'Segoe UI', Calibri, sans-serif ; font-size:8pt; color:#424649; background-color:#F7DEDE; padding-top:0pt; padding-bottom:0pt; border-top: 5.00pt SOLID #FFFFFF; border-bottom: NONE; border-right: NONE; border-left: NONE; vertical-align:middle; }
.dataval1 { font-family:'Segoe UI', Calibri, sans-serif ; font-size:10pt; color:#424649; padding-top:0pt; padding-bottom:0pt; border-top: 5.00pt SOLID #FFFFFF; border-bottom: NONE; border-right: NONE; border-left: NONE; vrtical-align:middle; }
.dataval2 { font-family:'Segoe UI', Calibri, sans-serif ; font-size:10pt; color:#424649; padding-top:0pt; padding-bottom:0pt; text-align:right; border-top: 5.00pt SOLID #FFFFFF; border-bottom: NONE; border-right: NONE; border-left: NONE; vertical-align:middle; }
</style>
</head>
<body>
<table>
-REPEAT HENDNUM FOR &MYDATA FROM 1 TO &LINES
-READFILE HOLDDIV
!IBI.AMP.ITEMHTMLCD;
-HENDNUM
-ENDLOOP
</table>
</body>
</html>
-HTMLFORM END
- FOCUS Man, just FOCUS! ----------------------------- Product: WebFOCUS Version: 8.1.04 Server: Windows 2008 Server
April 10, 2015, 10:59 AM
Håkan
Thanks Gavin, I will take a look after the weekend. In the meantime, we tried using a compound report, the first with EXPANDEDBYROW OFF and the second with EXPANDEDBYROW ON, and it seems to work.