[SOLVED] Making part of report expandable

April 10, 2015, 07:48 AM

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.

Tia

This message has been edited. Last edited by: <Kathryn Henning>,

April 10, 2015, 09:35 AM

GavinL

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

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.