Focal Point
[SOLVED] insert a 5 blank lines in tablear report not in the subfooter

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

July 19, 2016, 11:30 AM
Developer
[SOLVED] insert a 5 blank lines in tablear report not in the subfooter
HI

i have scenarios Like ,i have 10 records to display and insert a blank 5lines ,but not in sub footer part Plz give example

Thank you

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


WebFOCUS 8202
July 19, 2016, 12:09 PM
Ricardo Augusto
Explain better what do you need.


WebFOCUS 8.1.05 / APP Studio
July 19, 2016, 02:14 PM
Squatch
Do you mean 15 records, 10 with data and 5 with no data?

I don't know how to do that with a normal report. It could be done with jQuery, but dealing with a themed/styled report would be much more difficult than this simple example:

TABLE FILE ibisamp/car
PRINT CAR.ORIGIN.COUNTRY
CAR.COMP.CAR
CAR.CARREC.MODEL
WHERE CAR.ORIGIN.COUNTRY IN ('ENGLAND', 'ITALY', 'JAPAN');
ON TABLE HOLD AS CAR_FILE FORMAT HTML
ON TABLE NOTOTAL
ON TABLE SET CACHELINES 100
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET SQUEEZE ON
ON TABLE SET HTMLCSS ON
ON TABLE SET HTMLENCODE ON
ON TABLE SET EMPTYREPORT ON
ON TABLE SET GRWIDTH 1
END
-RUN

-HTMLFORM BEGIN
!IBI.FIL.CAR_FILE;
<script type="text/javascript" src="/ibi_html/javaassist/jquery/jquery_min.js"></script>
<script>
$(document).ready(function() {
	for (var i = 0; i < 5; i++) {
		$("tbody:first").append("<tr><td>&|nbsp;</td><td></td><td></td></tr>");
	}
});
</script>
-HTMLFORM END



App Studio
WebFOCUS 8.1.05M
Windows, All Outputs
July 20, 2016, 08:04 AM
MartinY
May not be elegant, but it does the trick

DEFINE FILE CAR
SEATS /I3 = 0;
ROWID /I3 = ROWID + 100;
END
TABLE FILE CAR
PRINT SEATS
BY ROWID
BY TOTAL COMPUTE MODEL /A24 = '';
BY COUNTRY NOPRINT
WHERE READLIMIT   EQ 5;
WHERE RECORDLIMIT EQ 5;
ON TABLE HOLD AS BLANKFIL FORMAT FOCUS
END
-RUN

DEFINE FILE CAR
ROWID  /I3 = ROWID + 1;
END
TABLE FILE CAR
PRINT COMPUTE SEATX /A3 = IF ROWID GE 100 THEN '' ELSE FPRINT(SEATS, 'I3', 'A3'); AS 'SEATS'
BY ROWID NOPRINT
BY MODEL
ON TABLE SET STYLE *
TYPE=DATA,
     COLUMN=SEATX,
     JUSTIFY=RIGHT,
$
ENDSTYLE
MORE
FILE BLANKFIL
END
-RUN



WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
July 20, 2016, 08:12 AM
Squatch
quote:
Originally posted by MartinY:
May not be elegant, but it does the trick

Yes it does. I like it!


App Studio
WebFOCUS 8.1.05M
Windows, All Outputs
July 20, 2016, 09:10 AM
Developer
Thank you its working fine
quote:
Originally posted by MartinY:
May not be elegant, but it does the trick

DEFINE FILE CAR
SEATS /I3 = 0;
ROWID /I3 = ROWID + 100;
END
TABLE FILE CAR
PRINT SEATS
BY ROWID
BY TOTAL COMPUTE MODEL /A24 = '';
BY COUNTRY NOPRINT
WHERE READLIMIT   EQ 5;
WHERE RECORDLIMIT EQ 5;
ON TABLE HOLD AS BLANKFIL FORMAT FOCUS
END
-RUN

DEFINE FILE CAR
ROWID  /I3 = ROWID + 1;
END
TABLE FILE CAR
PRINT COMPUTE SEATX /A3 = IF ROWID GE 100 THEN '' ELSE FPRINT(SEATS, 'I3', 'A3'); AS 'SEATS'
BY ROWID NOPRINT
BY MODEL
ON TABLE SET STYLE *
TYPE=DATA,
     COLUMN=SEATX,
     JUSTIFY=RIGHT,
$
ENDSTYLE
MORE
FILE BLANKFIL
END
-RUN



WebFOCUS 8202
July 20, 2016, 01:49 PM
MartinY
My pleasure to help.

Edit your first post, then in the subject add [SOLVED] at the beginning


WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007