As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.
Join the TIBCO Community TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.
From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
Request access to the private WebFOCUS User Group (login required) to network with fellow members.
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.
I have created a report that has some busy text in the header / subhead area. I want to display a title "...FEE" over the columns and have a border (box) wrapped around it.
Originally posted by Tomsweb: I have created a report that has some busy text in the header / subhead area. I want to display a title "...FEE" over the columns and have a border (box) wrapped around it.
Tom, I couldn't find a way to style a border for a specific line in a heading. I then tried to demote the second line of your TABHEADING to a SUBHEAD. Here is what I came up with (I'll try to play around with the idea a bit more):
DEFINE FILE CAR
SP/A1=' ';
END
TABLE FILE CAR
SUM
CAR.BODY.DEALER_COST AS ''
CAR.BODY.RETAIL_COST AS ''
CAR.BODY.SALES AS ''
BY SP NOPRINT
BY CAR.ORIGIN.COUNTRY AS ''
ON SP SUBHEAD
"The base rate is<TOT.DEALER_COST<TOT.RETAIL_COST<TOT.SALES"
" "
"COUNTRY<+0>DEALER COST<+0>RETAIL COST<+0>SALES"
ON TABLE SUBHEAD
"INTCH/OTHER FEE SUMMARY"
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLEMBEDIMG ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = warm,
$
TYPE=TABHEADING,
BORDER-TOP=LIGHT,
BORDER-BOTTOM=LIGHT,
BORDER-LEFT=LIGHT,
BORDER-RIGHT=LIGHT,
BORDER-TOP-COLOR='BLACK',
BORDER-BOTTOM-COLOR='BLACK',
BORDER-LEFT-COLOR='BLACK',
BORDER-RIGHT-COLOR='BLACK',
$
TYPE=TABHEADING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
WIDTH=5.125,
$
TYPE=SUBHEAD,
BY=1,
HEADALIGN=BODY,
BORDER-TOP=OFF,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=TEXT,
ITEM=1,
JUSTIFY=LEFT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=FIELD,
ITEM=1,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=FIELD,
ITEM=2,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=FIELD,
ITEM=3,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=2,
BACKCOLOR=WHITE,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
BACKCOLOR=WHITE,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=1,
STYLE=BOLD,
JUSTIFY=LEFT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=2,
STYLE=BOLD,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=3,
STYLE=BOLD,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=4,
STYLE=BOLD,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
ENDSTYLE
END
Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF
Posts: 1980 | Location: Tel Aviv, Israel | Registered: March 23, 2006
My previous example was a bit quick and didn't take into account the possibility of a report with more than 1 page. Following is a further example. Of course it would be much easier if WF allowed border per line of HEAD be it HEADING, TABHEADING or SUBHEAD...
DEFINE FILE CAR
SP/A1=' ';
END
TABLE FILE CAR
SUM
CAR.BODY.DEALER_COST AS ''
CAR.BODY.RETAIL_COST AS ''
CAR.BODY.SALES AS ''
COMPUTE LL/I5=LAST LL + 1; NOPRINT
BY SP NOPRINT
BY CAR.ORIGIN.COUNTRY AS ''
BY CAR AS ''
ON COUNTRY PAGE-BREAK
ON SP SUBHEAD
"The base rate is<+0> <TOT.DEALER_COST<TOT.RETAIL_COST<TOT.SALES"
" "
"COUNTRY<+0>CAR<+0>DEALER COST<+0>RETAIL COST<+0>SALES"
" "
HEADING
"COUNTRY<+0>CAR<+0>DEALER COST<+0>RETAIL COST<+0>SALES"
WHEN LL GT 1;
ON TABLE SUBHEAD
"INTCH/OTHER FEE SUMMARY"
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLEMBEDIMG ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = warm,
$
TYPE=HEADING,
HEADALIGN=BODY,
SIZE=9,
STYLE=BOLD,
COLOR=BLACK,
$
TYPE=HEADING,
OBJECT=TEXT,
ITEM=1,
JUSTIFY=LEFT,
WIDTH=1.000,
$
TYPE=HEADING,
OBJECT=TEXT,
ITEM=2,
JUSTIFY=LEFT,
WIDTH=1.000,
$
TYPE=HEADING,
OBJECT=TEXT,
ITEM=3,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=HEADING,
OBJECT=TEXT,
ITEM=4,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=HEADING,
OBJECT=TEXT,
ITEM=5,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=TABHEADING,
BORDER-TOP=LIGHT,
BORDER-BOTTOM=LIGHT,
BORDER-LEFT=LIGHT,
BORDER-RIGHT=LIGHT,
BORDER-TOP-COLOR='BLACK',
BORDER-BOTTOM-COLOR='BLACK',
BORDER-LEFT-COLOR='BLACK',
BORDER-RIGHT-COLOR='BLACK',
$
TYPE=TABHEADING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
WIDTH=5.125,
$
TYPE=SUBHEAD,
BY=1,
HEADALIGN=BODY,
BORDER-TOP=OFF,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=TEXT,
ITEM=1,
JUSTIFY=LEFT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=FIELD,
ITEM=1,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=FIELD,
ITEM=2,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=1,
OBJECT=FIELD,
ITEM=3,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=2,
BACKCOLOR=WHITE,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
BACKCOLOR=WHITE,
$
TYPE=SUBHEAD,
BY=1,
LINE=4,
BACKCOLOR=WHITE,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=1,
STYLE=BOLD,
JUSTIFY=LEFT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=2,
STYLE=BOLD,
JUSTIFY=LEFT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=3,
STYLE=BOLD,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=4,
STYLE=BOLD,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
TYPE=SUBHEAD,
BY=1,
LINE=3,
OBJECT=TEXT,
ITEM=5,
STYLE=BOLD,
JUSTIFY=RIGHT,
WIDTH=1.000,
$
ENDSTYLE
END
This message has been edited. Last edited by: Danny-SRL,
Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF
Posts: 1980 | Location: Tel Aviv, Israel | Registered: March 23, 2006
The COMPUTE numbers the lines of the report. It is used in order to prevent the HEADING to appear on the first page, since it is replaced by the SUBHEAD. The SUBHEAD appears only once because it is linked to the DEFINEd field SP which doesn't change value throughout the report and it is used to show the "second line" of the TABHEADING out of the borders. A bit convoluted, maybe, but it gets the work done, which goes to show that there is always a way with WebFOCUS.
You say you get an error. What is the error? Did you enter the COMPUTE within the scope of a PRINT/SUM verb?
Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF
Posts: 1980 | Location: Tel Aviv, Israel | Registered: March 23, 2006
Hallway, Your solution is elegant. However, I have an issue with mixing HTML and WF. In my view one should be able to do everything with the code. I know there are some shortcomings which force one to be creative but this should be a signal to IBI to provide features. Using Tom's example, "border" should be accessible for any item in all headings.
Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF
Posts: 1980 | Location: Tel Aviv, Israel | Registered: March 23, 2006
Originally posted by Danny-SRL: I agree that it is valid. It's just that I would prefer WF to do the trick on it's own.
I agree that there are many GREAT tools that WF does provide, and that there probably should be a WF solution for this. This would probably be a good NFR (New Feature Request).
However, there is SO MUCH MORE that you can do with basic HTML, CSS and JS. Not to mention so many more resources on the web to help in these. Fortunately, IBI recognizes this and gives us the tools, like HTMLFORM, JSURL and CSSURL (as Waz mentioned), to be able to use these basic (and sometimes complex) web development tools.
So, I ask... Why go to a buffet, and only eat the mashed potatoes?
Hallway
Prod: 8202M1
Test: 8202M4
Repository:
OS:
Outputs:
Posts: 608 | Location: Salt Lake City, UT, USA | Registered: November 18, 2015