Focal Point Banner


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.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CASE-OPEN] Problem solving the gap between header data and title data
Page 1 2 

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[CASE-OPEN] Problem solving the gap between header data and title data
 Login/Join
 
Platinum Member
posted
Hello all. Let me first state that I've done lots of searching on this topic but have yet to find a solution that works in my version of Webfocus.

I have the following code which produces a report that has 5 lines of header before the title and data. I would like to eliminate the gap between the last header line and the title data below it.

Any help you can provide would be much appreciated!




-DEFAULTH &WF_FMT = 'HTML'
SET DROPBLNKLINE=ON
-SET &FileTitle = 'Executive Shrink Recap - ' | FINYRPOSTED | ' ' | 'WK'| FINWKPOSTED ;

DEFINE FILE EBRRPT_RPT_MONDAY_EXECUTIVE_RECAP_TBL
LOADDAY/A2=SUBSTR(11,EDIT(RUNDATE),10,11,2,LOADDAY);
LOADMONTH/A2=SUBSTR(11,EDIT(RUNDATE),8,9,2,LOADMONTH);
LOADYEAR/A4=SUBSTR(11,EDIT(RUNDATE),4,7,4,LOADYEAR);
RUNDATE/A10=LOADMONTH || '/' || LOADDAY || '/' || LOADYEAR;
FY_BEGIN_M/M =FY_BEGIN;
FY_BEGIN_D/D =FY_BEGIN;
FY_BEGIN_DATE/A13= TRIM('L',EDIT(FY_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(FY_BEGIN_D),11,'0',1,'A6');
FY_END_M/M =RPTEND;
FY_END_D/D =RPTEND;
FY_END_DATE/A13 = TRIM('L',EDIT(FY_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(FY_END_D),11,'0',1,'A6');
FYRDATERANGE/A30 = FY_BEGIN_DATE | ' to ' | FY_END_DATE;
QTR_BEGIN_M/M =QTR_BEGIN;
QTR_BEGIN_D/D =QTR_BEGIN;
QTR_BEGIN_DATE/A13= TRIM('L',EDIT(QTR_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(QTR_BEGIN_D),11,'0',1,'A6');
QTR_END_M/M =RPTEND;
QTR_END_D/D =RPTEND;
QTR_END_DATE/A13 = TRIM('L',EDIT(QTR_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(QTR_END_D),11,'0',1,'A6');
QTRDATERANGE/A30 = QTR_BEGIN_DATE | ' to ' | QTR_END_DATE;
PD_BEGIN_M/M =PD_BEGIN;
PD_BEGIN_D/D =PD_BEGIN;
PD_BEGIN_DATE/A13= TRIM('L',EDIT(PD_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(PD_BEGIN_D),11,'0',1,'A6');
PD_END_M/M =RPTEND;
PD_END_D/D =RPTEND;
PD_END_DATE/A13 = TRIM('L',EDIT(PD_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(PD_END_D),11,'0',1,'A6');
PDDATERANGE/A30 = PD_BEGIN_DATE | ' to ' | PD_END_DATE;
WK_BEGIN_M/M =WK_BEGIN;
WK_BEGIN_D/D =WK_BEGIN;
WK_BEGIN_DATE/A13= TRIM('L',EDIT(WK_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(WK_BEGIN_D),11,'0',1,'A6');
WK_END_M/M =RPTEND;
WK_END_D/D =RPTEND;
WK_END_DATE/A13 = TRIM('L',EDIT(WK_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(WK_END_D),11,'0',1,'A6');
WKDATERANGE/A30 = WK_BEGIN_DATE | ' to ' | WK_END_DATE;
DIVLABEL/A20 = IF SDIV EQ 99 THEN 'Company' ELSE 'Division ' | TRIM('L',EDIT(SDIV),11,'0',1,'A11');
YTDTYRATE/D7.2%=YTDTYRATE * 100;
YTDLYRATE/D7.2%=YTDLYRATE * 100;
QTDTYRATE/D7.2%=QTDTYRATE * 100;
QTDLYRATE/D7.2%=QTDLYRATE * 100;
PTDTYRATE/D7.2%=PTDTYRATE * 100;
PTDLYRATE/D7.2%=PTDLYRATE * 100;
WTDTYRATE/D7.2%=WTDTYRATE * 100;
WTDLYRATE/D7.2%=WTDLYRATE * 100;
ytdlabel/A3='YTD';
qtdlabel/A22='QTD - Financial Qtr '| TRIM('L',EDIT(FINQTRPOSTED),11,'0',1,'A2');
ptdlabel/A22='PTD - Financial Pd '| TRIM('L',EDIT(FINPDPOSTED),11,'0',1,'A2');
wtdlabel/A22='WTD - Financial Wk '| TRIM('L',EDIT(FINWKPOSTED),11,'0',1,'A2');
tylylabel/A28= 'Reconciled Results TY vs LY';
asofdatelabel/A24= 'Results as of ' | RUNDATE;


END

TABLE FILE EBRRPT_RPT_MONDAY_EXECUTIVE_RECAP_TBL
HEADING CENTER
"<+0> <+0>Executive Shrink Recap"
"<+0> <+0><asofdatelabel"
"<+0>Reconciled Results TY vs LY"
"<+0> <+0><ytdlabel<+0><qtdlabel<+0><ptdlabel<+0><wtdlabel"
"<+0> <+0><FYRDATERANGE<+0><QTRDATERANGE<+0><PDDATERANGE<+0><WKDATERANGE"



PRINT
DIVLABEL AS ''
YTDSCNT AS 'Store,Count'
YTDTYRATE AS ' ,TY Rate'
YTDLYRATE AS ' ,LY Rate'
YTDVAR/D10 AS ' ,Var'
QTDSCNT AS 'Store,Count'
QTDTYRATE AS ' ,TY Rate'
QTDLYRATE AS ' ,LY Rate'
QTDVAR/D10 AS ' ,Var'
PTDSCNT AS 'Store,Count'
PTDTYRATE AS ' ,TY Rate'
PTDLYRATE AS ' ,LY Rate'
PTDVAR/D10 AS ' ,Var'
WTDSCNT AS 'Store,Count'
WTDTYRATE AS ' ,TY Rate'
WTDLYRATE AS ' ,LY Rate'
WTDVAR/D10 AS ' ,Var'

WHERE SDIV EQ 99;

ON TABLE SET PAGE NOLEAD
ON TABLE SET PAGE OFF
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET DROPBLNKLINE ON
ON TABLE SET HTMLCSS ON
ON TABLE SET UNITS INCHES
ON TABLE SET STYLE *

-GOTO STYLE_&WF_FMT
-STYLE_HTML
HEADALIGN=BODY, FONT='Calibri', SIZE=12, COLOR=BLACK, GRID=OFF, $
-*TYPE=REPORT, LEFTGAP=.1, RIGHTGAP=.1, TOPGAP=0.02, BOTTOMGAP=0.02, $
-*TYPE=REPORT, SQUEEZE=ON,$
TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=2, JUSTIFY=CENTER, SIZE=20, COLSPAN=16, STYLE=BOLD,  $

TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=2, OBJECT=FIELD, ITEM=1, JUSTIFY=CENTER, SIZE=16, COLSPAN=16, STYLE=BOLD+ITALIC,  $

TYPE=HEADING, LINE=3, BACKCOLOR=WHITE, STYLE=BOLD, JUSTIFY=LEFT, $
TYPE=HEADING, LINE=3, OBJECT=TEXT, ITEM=1, COLSPAN=3, BACKCOLOR=WHITE, $

TYPE=HEADING, LINE=4, BACKCOLOR=RGB(22 54 92), BORDER-COLOR=RGB(22 54 92), STYLE=BOLD, COLOR=WHITE, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=4, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=1, COLSPAN=4, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=2, COLSPAN=4, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=3, COLSPAN=4, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=4, COLSPAN=4, $

TYPE=HEADING, LINE=5, BACKCOLOR=RGB(22 54 92), BORDER-COLOR=RGB(22 54 92), STYLE=BOLD, COLOR=WHITE, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=5, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=1, COLSPAN=4, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=2, COLSPAN=4, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=3, COLSPAN=4, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=4, COLSPAN=4, $

TYPE=TITLE, COLOR=BLACK, BACKCOLOR= RGB(184 204 228), STYLE=-UNDERLINE+BOLD, JUSTIFY=CENTER, SIZE=10, $
TYPE=TITLE, COLUMN=DIVLABEL, BACKCOLOR=WHITE, $
TYPE=TITLE, COLUMN=YTDSCNT, BORDER-LEFT=LIGHT, $
TYPE=TITLE, COLUMN=YTDVAR, BORDER-RIGHT=LIGHT, $
TYPE=TITLE, COLUMN=QTDVAR, BORDER-RIGHT=LIGHT, $
TYPE=TITLE, COLUMN=PTDVAR, BORDER-RIGHT=LIGHT, $
TYPE=TITLE, COLUMN=WTDVAR, BORDER-RIGHT=LIGHT, $

TYPE=DATA, BACKCOLOR=WHITE, JUSTIFY=CENTER, STYLE=NORMAL, BORDER-BOTTOM=LIGHT, $
TYPE=DATA, COLUMN=DIVLABEL, BORDER-BOTTOM=OFF, STYLE=BOLD, JUSTIFY=RIGHT, $
TYPE=DATA, COLUMN=YTDSCNT, BORDER-LEFT=LIGHT, $
TYPE=DATA, COLUMN=YTDVAR, BORDER-RIGHT=LIGHT, $
TYPE=DATA, COLUMN=QTDVAR, BORDER-RIGHT=LIGHT, $
TYPE=DATA, COLUMN=PTDVAR, BORDER-RIGHT=LIGHT, $
TYPE=DATA, COLUMN=WTDVAR, BORDER-RIGHT=LIGHT, $

-GOTO STYLE_DONE



-STYLE_PDF
-*PDF STYLING GOES IN THIS SECTION



-GOTO STYLE_DONE


-STYLE_DONE
ENDSTYLE
END
-RUN



  

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


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Gold member
posted Hide Post
what happens when you replace ON TABLE SET DROPBLNKLINE OFF with ON TABLE SET DROPBLNKLINE ALL ?


Tharun Katanguru
SBOX- 8205 DEV/TEST/PROD : 8105 8205
Linux, All Outputs
 
Posts: 52 | Location: BOWL OF PASTA | Registered: October 13, 2016Report This Post
Gold member
posted Hide Post
The DROPBLNKLINE parameter suppresses blank lines around subtotals, subheadings, and subfootings when formatting a report for output. In addition, certain data lines may be blank and appear as blank lines on the report output. You can eliminate these blank lines from the report output using the SET DROPBLNKLINE=ON command.

This setting does not apply to the following output formats: HOLD/PCHOLD/SAVE formats, ALPHA, INTERNAL, BINARY, COM, COMT, COMMA, TAB, TABT, FIX, DFIX, all DBMS, VSAM, LOTUS, SYLK, DIF, FOCUS, and XFOCUS.

The syntax is:
SET DROPBLNKLINE = {OFF|ON|BODY|HEADING|ALL}

where:
OFF - Inserts system-generated blank lines as well as empty data lines. OFF is the default value.
ON|BODY - Removes system-generated blank lines within the body of the report, for example, before and after subheads. In addition, certain data lines that may be blank and appear as blank lines on the report output will be removed from the output. BODY is a synonym for ON.
HEADING - Removes the blank lines between headings and titles and between the report body and the footing. Works in positioned formats (PDF, PS, DHTML, PPT) when a request has a border or backcolor StyleSheet attribute anywhere in the report.
ALL - Provides both the ON and HEADING behaviors

by Francis
http://forums.informationbuild...1057331/m/9547004076


Tharun Katanguru
SBOX- 8205 DEV/TEST/PROD : 8105 8205
Linux, All Outputs
 
Posts: 52 | Location: BOWL OF PASTA | Registered: October 13, 2016Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by tomatosauce:
what happens when you replace ON TABLE SET DROPBLNKLINE OFF with ON TABLE SET DROPBLNKLINE ALL ?


Nothing happens


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by tomatosauce:

The syntax is:
SET DROPBLNKLINE = {OFF|ON|BODY|HEADING|ALL}

where:
OFF - Inserts system-generated blank lines as well as empty data lines. OFF is the default value.
ON|BODY - Removes system-generated blank lines within the body of the report, for example, before and after subheads. In addition, certain data lines that may be blank and appear as blank lines on the report output will be removed from the output. BODY is a synonym for ON.
HEADING - Removes the blank lines between headings and titles and between the report body and the footing. Works in positioned formats (PDF, PS, DHTML, PPT) when a request has a border or backcolor StyleSheet attribute anywhere in the report.
ALL - Provides both the ON and HEADING behaviors

by Francis
http://forums.informationbuild...1057331/m/9547004076


I have done SET DROPBLNKLINE for each of the options above to no effect. I've seen this post before in my research.


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Expert
posted Hide Post
Also, if you post code, please use the code tags.

It make the code readable and stops some of the code disappearing.


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

 
Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Waz:
Also, if you post code, please use the code tags.

It make the code readable and stops some of the code disappearing.


Sorry, I used the tags but deleted part of the tag by accident. It has been corrected.


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Platinum Member
posted Hide Post
The SET DROPBLNKLINE doesn't bite on HEADING when you have different border styles between the heading and the column titles or the data and the footing.


Cheers,
H.

WebFOCUS 8.1.05M
Oracle 11g - DB2
RedHat
 
Posts: 115 | Location: Brighton UK | Registered: February 19, 2005Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Hank W.:
The SET DROPBLNKLINE doesn't bite on HEADING when you have different border styles between the heading and the column titles or the data and the footing.


Do you mean strictly between the last heading and the top of the titles? I removed any border styling there and it didn't remove the gap. Or are you saying you cannot use borders at all?


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Hank W.:
The SET DROPBLNKLINE doesn't bite on HEADING when you have different border styles between the heading and the column titles or the data and the footing.


So, I went through and removed all border styling from my report and it indeed removed the gap between the header and the title line. However now I have white grid lines between all my header, title and data columns. Solved one problem and introduced another. :-)


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Virtuoso
posted Hide Post
Hi Manglum

Please re-post your most current code.

Thanks,


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
 
Posts: 2127 | Location: Customer Support | Registered: April 12, 2005Report This Post
Platinum Member
posted Hide Post
Chuck, The code posted above contains the border formatting and the code below contains no border formatting.



-DEFAULTH &WF_FMT = 'HTML'
SET DROPBLNKLINE=ON
-SET &FileTitle = 'Executive Shrink Recap - ' | FINYRPOSTED | ' ' | 'WK'| FINWKPOSTED ;

DEFINE FILE EBRRPT_RPT_MONDAY_EXECUTIVE_RECAP_TBL
LOADDAY/A2=SUBSTR(11,EDIT(RUNDATE),10,11,2,LOADDAY);
LOADMONTH/A2=SUBSTR(11,EDIT(RUNDATE),8,9,2,LOADMONTH);
LOADYEAR/A4=SUBSTR(11,EDIT(RUNDATE),4,7,4,LOADYEAR);
RUNDATE/A10=LOADMONTH || '/' || LOADDAY || '/' || LOADYEAR;
FY_BEGIN_M/M =FY_BEGIN;
FY_BEGIN_D/D =FY_BEGIN;
FY_BEGIN_DATE/A13= TRIM('L',EDIT(FY_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(FY_BEGIN_D),11,'0',1,'A6');
FY_END_M/M =RPTEND;
FY_END_D/D =RPTEND;
FY_END_DATE/A13 = TRIM('L',EDIT(FY_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(FY_END_D),11,'0',1,'A6');
FYRDATERANGE/A30 = FY_BEGIN_DATE | ' to ' | FY_END_DATE;
QTR_BEGIN_M/M =QTR_BEGIN;
QTR_BEGIN_D/D =QTR_BEGIN;
QTR_BEGIN_DATE/A13= TRIM('L',EDIT(QTR_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(QTR_BEGIN_D),11,'0',1,'A6');
QTR_END_M/M =RPTEND;
QTR_END_D/D =RPTEND;
QTR_END_DATE/A13 = TRIM('L',EDIT(QTR_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(QTR_END_D),11,'0',1,'A6');
QTRDATERANGE/A30 = QTR_BEGIN_DATE | ' to ' | QTR_END_DATE;
PD_BEGIN_M/M =PD_BEGIN;
PD_BEGIN_D/D =PD_BEGIN;
PD_BEGIN_DATE/A13= TRIM('L',EDIT(PD_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(PD_BEGIN_D),11,'0',1,'A6');
PD_END_M/M =RPTEND;
PD_END_D/D =RPTEND;
PD_END_DATE/A13 = TRIM('L',EDIT(PD_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(PD_END_D),11,'0',1,'A6');
PDDATERANGE/A30 = PD_BEGIN_DATE | ' to ' | PD_END_DATE;
WK_BEGIN_M/M =WK_BEGIN;
WK_BEGIN_D/D =WK_BEGIN;
WK_BEGIN_DATE/A13= TRIM('L',EDIT(WK_BEGIN_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(WK_BEGIN_D),11,'0',1,'A6');
WK_END_M/M =RPTEND;
WK_END_D/D =RPTEND;
WK_END_DATE/A13 = TRIM('L',EDIT(WK_END_M),11,'0',1,'A6') || '/' || TRIM('L',EDIT(WK_END_D),11,'0',1,'A6');
WKDATERANGE/A30 = WK_BEGIN_DATE | ' to ' | WK_END_DATE;
DIVLABEL/A20 = IF SDIV EQ 99 THEN 'Company' ELSE 'Division ' | TRIM('L',EDIT(SDIV),11,'0',1,'A11');
YTDTYRATE/D7.2%=YTDTYRATE * 100;
YTDLYRATE/D7.2%=YTDLYRATE * 100;
QTDTYRATE/D7.2%=QTDTYRATE * 100;
QTDLYRATE/D7.2%=QTDLYRATE * 100;
PTDTYRATE/D7.2%=PTDTYRATE * 100;
PTDLYRATE/D7.2%=PTDLYRATE * 100;
WTDTYRATE/D7.2%=WTDTYRATE * 100;
WTDLYRATE/D7.2%=WTDLYRATE * 100;
ytdlabel/A3='YTD';
qtdlabel/A22='QTD - Financial Qtr '| TRIM('L',EDIT(FINQTRPOSTED),11,'0',1,'A2');
ptdlabel/A22='PTD - Financial Pd '| TRIM('L',EDIT(FINPDPOSTED),11,'0',1,'A2');
wtdlabel/A22='WTD - Financial Wk '| TRIM('L',EDIT(FINWKPOSTED),11,'0',1,'A2');
tylylabel/A28= 'Reconciled Results TY vs LY';
asofdatelabel/A24= 'Results as of ' | RUNDATE;


END

TABLE FILE EBRRPT_RPT_MONDAY_EXECUTIVE_RECAP_TBL
HEADING CENTER
"<+0> <+0>Executive Shrink Recap"
"<+0> <+0><asofdatelabel"
"<+0>Reconciled Results TY vs LY"
"<+0> <+0><ytdlabel<+0><qtdlabel<+0><ptdlabel<+0><wtdlabel"
"<+0> <+0><FYRDATERANGE<+0><QTRDATERANGE<+0><PDDATERANGE<+0><WKDATERANGE"



PRINT
DIVLABEL AS ''
YTDSCNT AS 'Store,Count'
YTDTYRATE AS ' ,TY Rate'
YTDLYRATE AS ' ,LY Rate'
YTDVAR/D10 AS ' ,Var'
QTDSCNT AS 'Store,Count'
QTDTYRATE AS ' ,TY Rate'
QTDLYRATE AS ' ,LY Rate'
QTDVAR/D10 AS ' ,Var'
PTDSCNT AS 'Store,Count'
PTDTYRATE AS ' ,TY Rate'
PTDLYRATE AS ' ,LY Rate'
PTDVAR/D10 AS ' ,Var'
WTDSCNT AS 'Store,Count'
WTDTYRATE AS ' ,TY Rate'
WTDLYRATE AS ' ,LY Rate'
WTDVAR/D10 AS ' ,Var'

WHERE SDIV EQ 99;

ON TABLE SET PAGE NOLEAD
ON TABLE SET PAGE OFF
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET DROPBLNKLINE ON
ON TABLE SET HTMLCSS ON
ON TABLE SET UNITS INCHES
ON TABLE SET STYLE *

-GOTO STYLE_&WF_FMT
-STYLE_HTML
HEADALIGN=BODY, FONT='Calibri', SIZE=12, COLOR=BLACK, GRID=OFF, $
-*TYPE=REPORT, LEFTGAP=.1, RIGHTGAP=.1, TOPGAP=0.02, BOTTOMGAP=0.02, $
-*TYPE=REPORT, SQUEEZE=ON,$
TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=2, JUSTIFY=CENTER, SIZE=20, COLSPAN=16, STYLE=BOLD,  $

TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=2, OBJECT=FIELD, ITEM=1, JUSTIFY=CENTER, SIZE=16, COLSPAN=16, STYLE=BOLD+ITALIC,  $

TYPE=HEADING, LINE=3, BACKCOLOR=WHITE, STYLE=BOLD, JUSTIFY=LEFT, $
TYPE=HEADING, LINE=3, OBJECT=TEXT, ITEM=1, COLSPAN=3, BACKCOLOR=WHITE, $

TYPE=HEADING, LINE=4,  STYLE=BOLD, BACKCOLOR=RGB(22 54 92), COLOR=WHITE, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=4, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=1, COLSPAN=4, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=2, COLSPAN=4, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=3, COLSPAN=4, $
TYPE=HEADING, LINE=4, OBJECT=FIELD, ITEM=4, COLSPAN=4, $

TYPE=HEADING, LINE=5, BACKCOLOR=RGB(22 54 92), STYLE=BOLD, COLOR=WHITE, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=5, OBJECT=TEXT, ITEM=1, COLSPAN=1, BACKCOLOR=WHITE, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=1, COLSPAN=4, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=2, COLSPAN=4, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=3, COLSPAN=4, $
TYPE=HEADING, LINE=5, OBJECT=FIELD, ITEM=4, COLSPAN=4, $

TYPE=TITLE, COLOR=BLACK, BACKCOLOR= RGB(184 204 228), STYLE=-UNDERLINE+BOLD, JUSTIFY=CENTER, SIZE=10, $
TYPE=TITLE, COLUMN=DIVLABEL, BACKCOLOR=WHITE, $
TYPE=TITLE, COLUMN=YTDSCNT, $
TYPE=TITLE, COLUMN=YTDVAR, $
TYPE=TITLE, COLUMN=QTDVAR, $
TYPE=TITLE, COLUMN=PTDVAR, $
TYPE=TITLE, COLUMN=WTDVAR, $

TYPE=DATA, BACKCOLOR=WHITE, JUSTIFY=CENTER, STYLE=NORMAL, $
TYPE=DATA, COLUMN=DIVLABEL, STYLE=BOLD, JUSTIFY=RIGHT, $
TYPE=DATA, COLUMN=YTDSCNT, $
TYPE=DATA, COLUMN=YTDVAR, $
TYPE=DATA, COLUMN=QTDVAR, $
TYPE=DATA, COLUMN=PTDVAR, $
TYPE=DATA, COLUMN=WTDVAR, $

-GOTO STYLE_DONE



-STYLE_PDF
-*PDF STYLING GOES IN THIS SECTION

















-GOTO STYLE_DONE


-STYLE_DONE
ENDSTYLE
END
-RUN



  


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Virtuoso
posted Hide Post
Hi Manglum

I added this code


BORDER-TOP-COLOR=RGB(22 54 92),
BORDER-BOTTOM-COLOR=RGB(22 54 92),
BORDER-LEFT-COLOR=RGB(22 54 92),
BORDER-RIGHT-COLOR=RGB(22 54 92),


after this code


TYPE=HEADING,
LINE=4,
OBJECT=TEXT,
ITEM=1,
BACKCOLOR='NONE',
COLSPAN=1,
JUSTIFY=CENTER,


And the white borders went away..

A


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
 
Posts: 2127 | Location: Customer Support | Registered: April 12, 2005Report This Post
Platinum Member
posted Hide Post
Chuck,
Yes, of course they do :-) But if you look back at the original problem, whenever border formatting is employed there appears a blank white line (a gap) between the header data and the title line. I need that white gap to disappear.


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Virtuoso
posted Hide Post
Manglum

Sorry about that. You are right! You may want to open a case or maybe someone else has the answer. I'm sorry I was no help...

Regards,


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
 
Posts: 2127 | Location: Customer Support | Registered: April 12, 2005Report This Post
Expert
posted Hide Post
Have you tried these SET commands at the top:
SET PRINTPLUS=ON, TITLELINE=SKIP


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
 
Posts: 1972 | Location: Centennial, CO | Registered: January 31, 2006Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Tom Flynn:
Have you tried these SET commands at the top:
SET PRINTPLUS=ON, TITLELINE=SKIP


Tom, No effect.


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Virtuoso
posted Hide Post
Hi Manglum

I think you should open a case with techsupport to see if they have an answer..

Thanks,


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
 
Posts: 2127 | Location: Customer Support | Registered: April 12, 2005Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Chuck Wolff:
Hi Manglum

I think you should open a case with techsupport to see if they have an answer..

Thanks,


Case opened.


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Expert
posted Hide Post
Wishing you well in all that you do my Friend...




   In FOCUS Since 1983 ~ from FOCUS to WebFOCUS.
   Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206
 
Posts: 3132 | Location: Tennessee, Nashville area | Registered: February 23, 2005Report This Post
Platinum Member
posted Hide Post
quote:
You may want to open a case or maybe someone else has the answer.


It's a 'documented feature' Razzer


Cheers,
H.

WebFOCUS 8.1.05M
Oracle 11g - DB2
RedHat
 
Posts: 115 | Location: Brighton UK | Registered: February 19, 2005Report This Post
Master
posted Hide Post
Okay,

I'm going for "one of the worst hacks ever"-award.


You could add
-HTMLFORM BEGIN
<style>
.x19{display:none;}
</style>
-HTMLFORM END


either before the TABLE or after the END.

Works fine for HTML, aslong as the layout doesn't change.



Greets,
Dave


_____________________
WF: 8.0.0.9 > going 8.2.0.5
 
Posts: 668 | Location: Veghel, The Netherlands | Registered: February 16, 2010Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Dave:
Okay,

I'm going for "one of the worst hacks ever"-award.


You could add
-HTMLFORM BEGIN
<style>
.x19{display:none;}
</style>
-HTMLFORM END


either before the TABLE or after the END.

Works fine for HTML, aslong as the layout doesn't change.



Greets,
Dave


Thanks Dave. I tried this in both ways you listed above and it still doesn't work in HTML output.


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Hank W.:


It's a 'documented feature' Razzer


I'm finding lots of those. and several that aren't yet documented features...lol


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by Doug:
Wishing you well in all that you do my Friend...


Thank you Doug, best wishes to you as well.


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Gold member
posted Hide Post
quote:
Originally posted by Dave:
Okay,

I'm going for "one of the worst hacks ever"-award.


You could add
-HTMLFORM BEGIN
<style>
.x19{display:none;}
</style>
-HTMLFORM END


either before the TABLE or after the END.

Works fine for HTML, aslong as the layout doesn't change.



Greets,
Dave


This blank line is one of the most frustrating things to deal with in WebFOCUS and I wish there was an easier way to remove it. The above code DOES work, but you must first run your report, then use the developer tools in IE/Chrome/etc to inspect the blank line to get the class name. It is normally some variant of x1,x2,x3, etc. Then use the code posted by Dave. If you change anything in your report, then the class can randomly change as well and you will have to update the class name.

A new feature request to have a setting to disable this line would be nice though...


WF 8.2.0.3
Windows 10 64bit
HTML, AHTML, PDF, Excel
 
Posts: 83 | Registered: April 13, 2015Report This Post
Platinum Member
posted Hide Post
quote:
Originally posted by capples:
quote:
Originally posted by Dave:
Okay,

I'm going for "one of the worst hacks ever"-award.


You could add
-HTMLFORM BEGIN
<style>
.x19{display:none;}
</style>
-HTMLFORM END


either before the TABLE or after the END.

Works fine for HTML, aslong as the layout doesn't change.



Greets,
Dave


This blank line is one of the most frustrating things to deal with in WebFOCUS and I wish there was an easier way to remove it. The above code DOES work, but you must first run your report, then use the developer tools in IE/Chrome/etc to inspect the blank line to get the class name. It is normally some variant of x1,x2,x3, etc. Then use the code posted by Dave. If you change anything in your report, then the class can randomly change as well and you will have to update the class name.

A new feature request to have a setting to disable this line would be nice though...


OK. So that x19 needs to be changes to whatever I find the class name to be and it will work? I'll give that a shot!


WebFOCUS 8
Windows, All Outputs
 
Posts: 111 | Registered: July 23, 2015Report This Post
Expert
posted Hide Post
Alternatively you could leave out your borders (as you did above) and then add the following. You don't have to pre-execute your code to make sure that you have the correct class!

Obviously only for HTML as I guess that your next step is the other output format(s) styling (unless you've already pulled out you hair doing that Wink)

-HTMLFORM BEGIN
<style>
table{border-collapse:collapse;}
</style>
-HTMLFORM END


T



In FOCUS
since 1986
WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Member
posted Hide Post
Hi All, as per the information available over various earlier posts for similar issue and per the IBI documentation, the DROPBLNKLINE is not applicable to EXCEL format and there seems no straight forward way to achieve the same. As soon as we apply border to the DATA/REPORT, the blank line between HEADER and TITLE appears automatically. However, I have generated a workaround that meets the requirement. I have done the PoC on only three columns and anyone can extend the same as per the real time requirement.

Guys, again this is perhaps my first reply over the WebFOCUS community so I'd be more that glad to receive your positive up-votes and feedback. These would help me keep energetic for more repliesSmiler
 TABLE FILE CAR
PRINT
COMPUTE COUNTRY/A10 = 'COUNTRY';
COMPUTE CAR/A16		= 'CAR';
COMPUTE MODEL/A24	= 'MODEL';
BY HIGHEST 1 COUNTRY NOPRINT
ON TABLE HOLD AS CAR_TITLE
END
-RUN

TABLE FILE CAR
PRINT
CAR.ORIGIN.COUNTRY 	
CAR.COMP.CAR        
CAR.CARREC.MODEL 
BY COUNTRY NOPRINT
ON TABLE HOLD AS CAR_DATA
END
-RUN

TABLE FILE CAR_TITLE
PRINT 
COUNTRY 
CAR 
MODEL
ON TABLE HOLD AS CAR_FNL
MORE 
FILE CAR_DATA
END
-RUN

TABLE FILE CAR_FNL
PRINT 
COUNTRY AS '' 
CAR AS '' 
MODEL AS ''
BY COMPUTE BLK/A1 = ''; NOPRINT
ON BLK SUBHEAD
"Markets and Discounts"
ON TABLE SET PAGE OFF
ON TABLE PCHOLD FORMAT XLSX
ON TABLE SET BYDISPLAY ON
ON TABLE SET DROPBLNKLINE HEADING
ON TABLE SET EMPTYREPORT ON
ON TABLE SET SHOWBLANKS OFF
ON TABLE SET STYLE *
TYPE=DATA,BORDER-TOP=LIGHT,BORDER-BOTTOM=LIGHT,BORDER-LEFT=LIGHT,BORDER-RIGHT=LIGHT,SIZE=10,$
TYPE=DATA, COLUMN=COUNTRY, FONT='CALIBRI',SIZE=14,COLOR='WHITE',BACKCOLOR=RGB(83 141 213),STYLE=BOLD,JUSTIFY=CENTER,WHEN=COUNTRY EQ 'COUNTRY', $
TYPE=DATA, COLUMN=CAR, FONT='CALIBRI',SIZE=14,COLOR='WHITE',BACKCOLOR=RGB(83 141 213),STYLE=BOLD,JUSTIFY=CENTER,WHEN=CAR EQ 'CAR', $
TYPE=DATA, COLUMN=MODEL, FONT='CALIBRI',SIZE=14,COLOR='WHITE',BACKCOLOR=RGB(83 141 213),STYLE=BOLD,JUSTIFY=CENTER,WHEN=MODEL EQ 'MODEL', $
TYPE=SUBHEAD, FONT='CAMBRIA',SIZE=16,COLOR=RGB(31 73 125),STYLE=BOLD, JUSTIFY=CENTER,$
ENDSTYLE
END


 


WebFOCUS 8
Windows, All Outputs
 
Posts: 6 | Registered: January 08, 2018Report This Post
Master
posted Hide Post
Can you use a template file with an Auto_Open macro? Borders, Group Borders and much more are so much easier. Almost every excel report we do uses this method.


In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
 
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006Report This Post
  Powered by Social Strata Page 1 2  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CASE-OPEN] Problem solving the gap between header data and title data

Copyright © 1996-2020 Information Builders