Focal Point
[CASE-OPEN] Problem solving the gap between header data and title data

This topic can be found at:
http://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/7717052686

April 27, 2017, 11:49 AM
manglum
[CASE-OPEN] Problem solving the gap between header data and title data
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
April 27, 2017, 01:14 PM
tomatosauce
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
April 27, 2017, 01:16 PM
tomatosauce
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
April 27, 2017, 01:40 PM
manglum
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
April 27, 2017, 01:45 PM
manglum
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
April 27, 2017, 06:06 PM
Waz
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!

April 27, 2017, 08:45 PM
manglum
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
April 28, 2017, 06:13 AM
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.


Cheers,
H.

WebFOCUS 8.1.05M
Oracle 11g - DB2
RedHat
April 28, 2017, 09:19 AM
manglum
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
April 28, 2017, 09:33 AM
manglum
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
May 05, 2017, 10:31 AM
FP Mod Chuck
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
May 05, 2017, 10:45 AM
manglum
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
May 05, 2017, 11:38 AM
FP Mod Chuck
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
May 05, 2017, 11:53 AM
manglum
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
May 05, 2017, 12:26 PM
FP Mod Chuck
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
May 05, 2017, 12:45 PM
Tom Flynn
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
May 05, 2017, 01:47 PM
manglum
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
May 15, 2017, 12:18 PM
FP Mod Chuck
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
May 17, 2017, 03:27 PM
manglum
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
May 28, 2017, 12:05 PM
Doug
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
May 29, 2017, 05:58 AM
Hank W.
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
June 01, 2017, 03:54 AM
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


_____________________
WF: 8.0.0.9 > going 8.2.0.5
June 01, 2017, 09:46 AM
manglum
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
June 01, 2017, 09:47 AM
manglum
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
June 01, 2017, 09:48 AM
manglum
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
June 01, 2017, 03:12 PM
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...


WF 8.2.0.3
Windows 10 64bit
HTML, AHTML, PDF, Excel
June 01, 2017, 04:01 PM
manglum
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
June 02, 2017, 05:46 AM
Tony A
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 
November 12, 2018, 09:20 AM
Aj_BI
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
November 13, 2018, 10:20 AM
jgelona
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.