All,

I have a report request that I am trying to figure out how to handle. They would like the report rows collapsed/hidden until selected for view. For example when the report is first dispalyed they would like only the COUNTRY rows displayed, but then they would like to be able to click next to ENGLAND and have that protion expand (along with leaving the other COUNTRY rows unexpanded). Can someone give me some guidance on how to do this. I have been looking at some javascript, but not exactly sure what is really usable.

This message has been edited. Last edited by: Kerry,

IMHO, Keep it in WebFOCUS and use the DRILLDOWN functionality. I, personally, don't care to add JavaScript to a WebFOCUS procedure when WebFOCUS can, in fact, do what you want.
-Doug

DW,

You should create an ACCORDION report. The command for that is:

ON TABLE SET EXPANDABLE ON

Look into "Accordion Reports", here is a simple example:

TABLE FILE CAR
SUM RCOST
    DCOST
 BY COUNTRY
 BY CAR
 BY MODEL
ON TABLE HOLD AS H00A FORMAT HTML
ON TABLE SET EXPANDABLE ON
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLE *
  GRID=OFF, SIZE=9, $
ENDSTYLE
END
-RUN

-HTMLFORM BEGIN
!IBI.FIL.H00A;
-HTMLFORM END

Documentation: Creating Reports With WebFOCUS Language > Navigating Within an HTML Report > Controlling the Display of Sorted Data With Accordion Reports

If you have some summary columns, accordion reports may not suffice. There is also the OLAP option.

Doug - I would love to just do drilldowns, however the requirements is that everything at the higher level must stay visible. I have pitched just drilling down to the various levels with no success with the end user.

On the Accordian report, the issue there is that I Want to make sure that all the "detail" feilds always display, no matter which By Level they are at. The basic use of the Accordian Report is perfect for what I need, if I can figure out how to always show the detail fields (basically I have detail to show at each level For example England would have the total sales for all english cars, so I want that row to always show detail If someone can tell me how to do that I'll be golden

With OLAP the problem seems to be that I am unsure how to only show the rows at the levels that were requested (ie show all Country Totals, but only the CAR totals for the countries that were selected.

DW,
This is a possible solution:

  
TABLE FILE CAR
SUM SALES
BY COUNTRY
SUM SALES
BY COUNTRY
BY CAR
SUM SALES
BY COUNTRY
BY CAR
BY MODEL
PRINT
     SALES
BY COUNTRY
BY CAR
BY MODEL
BY BODYTYPE
ON TABLE SET PAGE-NUM OFF
ON TABLE SET EXPANDABLE ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
END

It you used multiverb request with the accordion, would that help?

Regards,
Mika

TABLE FILE CAR
SUM RCOST
DCOST
BY COUNTRY

SUM RCOST
DCOST
BY COUNTRY
BY CAR
BY MODEL
ON TABLE SET EXPANDABLE ON
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLE *
GRID=OFF, SIZE=9, $
ENDSTYLE
END
-RUN

Expandable doesn't even really work as it expands it across the page.. Here is what the output look like currently. What I want to do is make it so that the car and makes are hidden until I expand the country. But they need to appear on their own lines. I figure this probably has to be done with javascript, but how to apply it is the problem I am having.

If you'd like to create the report you can do so with the following code:

  
-* File testCARORDERING.fex
TABLE FILE CAR
SUM COUNTRY/A50 AS 'COL1'
    RCOST
 DCOST
COMPUTE ORDERA/I5= IF COUNTRY NE LAST COUNTRY THEN LAST ORDERA + 1 ELSE LAST ORDERA;
COMPUTE ORDERB/I5= 0;
COMPUTE ORDERC /I5= 0;
BY COUNTRY NOPRINT
ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS DATA FORMAT ALPHA
END
-RUN
FILEDEF DATA DISK DATA.FTM (APPEND
-RUN
TABLE FILE CAR
SUM  COMPUTE COL1/A50= '  ' | CAR;
    RCOST
 DCOST
COMPUTE ORDERA/I5= IF COUNTRY NE LAST COUNTRY THEN LAST ORDERA + 1 ELSE LAST ORDERA;
COMPUTE ORDERB/I5= IF CAR NE LAST CAR THEN LAST ORDERB + 1 ELSE LAST ORDERB;
COMPUTE ORDERC /I5= 0;
BY COUNTRY NOPRINT
BY CAR NOPRINT
ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS DATA FORMAT ALPHA
END
-RUN
TABLE FILE CAR
SUM COMPUTE COL1/A50= '    ' | MODEL;
    RCOST
 DCOST
COMPUTE ORDERA/I5= IF COUNTRY NE LAST COUNTRY THEN LAST ORDERA + 1 ELSE LAST ORDERA;
COMPUTE ORDERB/I5= IF CAR NE LAST CAR THEN LAST ORDERB + 1 ELSE LAST ORDERB;
COMPUTE ORDERC/I5= IF MODEL NE LAST MODEL THEN LAST ORDERC + 1 ELSE LAST ORDERC;
BY COUNTRY NOPRINT
BY CAR NOPRINT
BY MODEL NOPRINT
ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS DATA FORMAT ALPHA
END
-RUN
TABLE FILE DATA
PRINT RETAIL_COST DEALER_COST
BY ORDERA NOPRINT
BY ORDERB NOPRINT
BY ORDERC NOPRINT
BY COL1
ON TABLE SET SHOWBLANKS ON
END

COL1 RETAIL_COST DEALER_COST
ENGLAND 45,319 37,853
JAGUAR 22,369 18,621
V12XKE AUTO 8,878 7,427
XJ12L AUTO 13,491 11,194
JENSEN 17,850 14,940
INTERCEPTOR III 17,850 14,940
TRIUMPH 5,100 4,292
TR7 5,100 4,292
FRANCE 5,610 4,631
PEUGEOT 5,610 4,631
504 4 DOOR 5,610 4,631

FML with a hierarchy?

This is a very simplistic example of hiding and showing rows:

-*-- Hide and Show DIVS to demonstrate displaying extra data for a cell on a report
-SET &ECHO=ALL;

SET HOLDLIST   = PRINTONLY
SET ASNAMES    = ON
SET HOLDFORMAT = ALPHA
SET PAGE       = NOLEAD
-RUN

DEFINE FILE CAR
NOTE/A50 =
IF COUNTRY IN ('ITALY', 'W GERMANY') THEN 'This is a note for Group 1' ELSE
IF COUNTRY IN ('ENGLAND', 'JAPAN')   THEN 'This is a note for Group 2' ELSE 'This is a note for Group 3';
END
-RUN

TABLE FILE CAR
PRINT
COUNTRY
NOTE
CAR
MODEL
DEALER_COST
RETAIL_COST
SALES
COMPUTE COUNTER/I4 = COUNTER + 1;

BY COUNTRY                  NOPRINT
BY CAR                      NOPRINT
BY MODEL                    NOPRINT

ON TABLE HOLD AS H001
END
-RUN

DEFINE FILE H001
LINK_OPEN/A125 = IF NOTE EQ '' THEN '' ELSE
'<img id="idI' || EDIT(COUNTER) ||
'" src="/approot/baseapp/1.gif" width="9" height="9"' ||
' onClick="fnToggle(''' || EDIT(COUNTER) || ''')">';

NOTE_EXTRA/A999 = IF NOTE EQ '' THEN '' ELSE
'</TD>' ||
'<tr><td></td><td colspan=5 class="Detail">' ||
'<div id="idC' || EDIT(COUNTER) || '" style="display: ''none'';">' ||
NOTE ||
'</div>' ||
'</td></tr>'
;
END
-RUN

TABLE FILE H001
PRINT
LINK_OPEN           AS ''
COUNTRY             AS 'Country'
CAR                 AS 'Car'
MODEL               AS 'Model'
DEALER_COST         AS 'Dealer,Cost'
RETAIL_COST         AS 'Retail,Cost'
SALES               AS 'Sales'
NOTE_EXTRA          AS ''

BY COUNTRY          NOPRINT
BY CAR              NOPRINT
BY MODEL            NOPRINT

ON COUNTRY SUBHEAD
" "

HEADING CENTER
"Car Sales"
" "

ON TABLE HOLD AS H002 FORMAT HTMTABLE

ON TABLE SET STYLE *
TYPE=REPORT,  GRID=OFF, SQUEEZE=ON, $

TYPE=HEADING, CLASS=Heading, $

TYPE=TITLE,   CLASS=Title, $
TYPE=TITLE,   COLUMN=P1, CLASS=Blank, $
TYPE=TITLE,   COLUMN=P8, CLASS=Blank, $

TYPE=DATA,    CLASS=Data, $
TYPE=DATA,    COLUMN=P1, CLASS=Blank, $
TYPE=DATA,    COLUMN=P8, CLASS=Blank, $
ENDSTYLE
END
-RUN
-IF &FOCERRNUM NE 0 GOTO FOC_ERROR;

-SET &ECHO=OFF;

-HTMLFORM BEGIN
<html>
<head>
<title>Car Test</title>
<style>

TABLE
  { font-family: Verdana, sans-serif; font-size: 7pt; }
</style>

<script language="JavaScript">

function fnToggle(vCounter)
{
vDIV = eval("idC" + vCounter);
vIMG = eval("idI" + vCounter);

if (vDIV.style.display == 'none')
  {
  vDIV.style.display = '';
  vIMG.src = "/approot/baseapp/0.gif";
  }
else
  {
  vDIV.style.display = 'none';
  vIMG.src = "/approot/baseapp/1.gif";
  }
}
</script>
</head>

<body>
<center>

!IBI.FIL.H002;

</center>
</body>
</html>
-HTMLFORM END
-EXIT

-FOCERROR
-EXIT

I hope you find something of use here. It relies on these two images: (named 0.gif and 1.gif)

I can see your dilemma with OLAP. But, a drilldown to another fex should work. If not, have you considered the Active Reports?

I also remember seing the following code somewhere in the forum (apologies to the original author - can't remember who it was) that was so cool I stored it in a back corner. It does something similar to what you are looking for. The code might not do exactly what you need but the concept may get you where you want to go.

DEFINE  FILE CAR
 Key/A26         = COUNTRY | CAR ;
 Id/A26          = CTRAN(26,Key,32,95,Id) ;
 ShowDetail/A100 = '<input type=checkbox onclick="funShowHide[this.checked,''' | Id | ''')">' ;
 Control/A60     = '<input type=hidden name="' | Id | '">' ;
END
TABLE   FILE CAR
 PRINT
        MODEL
        BODYTYPE
        SEATS
        DEALER_COST
        RETAIL_COST
        SALES
        Control      AS ''
 BY     COUNTRY   NOPRINT
 BY     CAR       NOPRINT
 ON     CAR SUBHEAD
        " "
        "<COUNTRY> <CAR>"
        "Show Detail <ShowDetail "
 ON     TABLE HOLD AS CTRL_RPT FORMAT HTMTABLE
 ON     TABLE SET HTMLCSS ON
 ON     TABLE SET STYLE *
TYPE=SUBHEAD, SIZE=12, $
TYPE=DATA, CLASS=cssHide, $
END
-RUN
-HTMLFORM BEGIN
<html>
<head>
<STYLE>
.cssHide {
 display: none ;
}
.cssShow {
 display: inline ;
}
</STYLE>
<script language="JavaScript">
 function funShowHide(_State,_Key) {
  var _Lines = document.getElementsByName(_Key) ;
  for (_c1=0;_c1<_Lines.length;_c1++) {
    var _TD = _Lines[_c1].parentElement ;
    var _TR = _TD.parentElement ;
    for (_c2=0;_c2<_TR.childNodes.length - 1 ; _c2++) {
      _TR.childNodes[_c2].className=_State?'cssShow':'cssHide';
    }
  }
 }
</script>
</head>
!IBI.FIL.CTRL_RPT;
</html>
-HTMLFORM END
-RUN

quote:

I also remember seing the following code somewhere in the forum

That mine, I was wondering where I left it.

DW,

You could drill down recursively to your own fex and thus on each click go to the next level:

  
-* File dwf3.fex
-SET &ECHO=ALL;
-DEFAULT &COUNTRY=' ', &CAR=' ', &MODEL=' '
TABLE FILE CAR
SUM COMPUTE COL1/A50= '    ' | MODEL;
    RCOST
 DCOST
COMPUTE ORDERA/I5= IF COUNTRY NE LAST COUNTRY THEN LAST ORDERA + 1 ELSE LAST ORDERA;
COMPUTE ORDERB/I5= IF CAR NE LAST CAR THEN LAST ORDERB + 1 ELSE LAST ORDERB;
COMPUTE ORDERC/I5= IF MODEL NE LAST MODEL THEN LAST ORDERC + 1 ELSE LAST ORDERC;
BY COUNTRY 
BY CAR 
BY MODEL 
ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS DATA FORMAT ALPHA
END
FILEDEF DATA DISK DATA.FTM (APPEND
-RUN

DEFINE FILE CAR
C/A16=' ';
M/A24=' ';
END
TABLE FILE CAR
SUM  COMPUTE COL1/A50= '  ' | CAR;
    RCOST
 DCOST
COMPUTE ORDERA/I5= IF COUNTRY NE LAST COUNTRY THEN LAST ORDERA + 1 ELSE LAST ORDERA;
COMPUTE ORDERB/I5= IF CAR NE LAST CAR THEN LAST ORDERB + 1 ELSE LAST ORDERB;
COMPUTE ORDERC /I5= 0;
BY COUNTRY 
BY CAR
BY M 
ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS DATA FORMAT ALPHA
END
-RUN
TABLE FILE CAR
SUM COUNTRY/A50 AS 'COL1'
    RCOST
 DCOST
COMPUTE ORDERA/I5= IF COUNTRY NE LAST COUNTRY THEN LAST ORDERA + 1 ELSE LAST ORDERA;
COMPUTE ORDERB/I5= 0;
COMPUTE ORDERC /I5= 0;
BY COUNTRY
BY C
BY M

ON TABLE SET ASNAMES ON
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS DATA FORMAT ALPHA
END
-RUN
TABLE FILE DATA
PRINT RETAIL_COST DEALER_COST
BY ORDERA NOPRINT
BY ORDERB NOPRINT
BY ORDERC NOPRINT
BY COUNTRY NOPRINT
BY CAR NOPRINT
BY MODEL  NOPRINT
BY COL1
-IF &MODEL NE ' ' GOTO #COUNTRY;
-IF &CAR NE ' ' GOTO #MODEL;
-IF &COUNTRY NE ' ' GOTO #CAR; 
-#COUNTRY
WHERE CAR EQ ' '
WHERE MODEL EQ ' '
-GOTO #SHOW
-#CAR
WHERE (COUNTRY EQ '&COUNTRY' AND CAR NE ' ') OR (CAR EQ ' ')
WHERE MODEL EQ '&MODEL'
-GOTO #SHOW
-#MODEL
WHERE (COUNTRY EQ '&COUNTRY' AND CAR EQ '&CAR' AND MODEL NE ' ' )
   OR (COUNTRY EQ '&COUNTRY' AND CAR EQ '&CAR' AND MODEL EQ ' ' )
   OR (CAR EQ ' ' AND MODEL EQ ' ')
-#SHOW
ON TABLE SET SHOWBLANKS ON
ON TABLE SET STYLE *
TYPE=DATA, COLUMN=COL1, FOCEXEC=DWF3(COUNTRY=COUNTRY CAR=CAR MODEL=MODEL), $
ENDSTYLE
END