Focal Point
Subfoot Issue

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

April 04, 2005, 03:06 PM
Kamesh
Subfoot Issue
Hi,
I'm using compound HTML report. It's not working when I use Subfoot on my report. If I comment that, it's working fine. I'm wondering what may be the issue with this.

Thanks
Kamesh
April 04, 2005, 04:36 PM
reFOCUSing
Can you post some code. Also does the problem happen if you create a similar report on the CAR table?
April 04, 2005, 06:17 PM
Kamesh
My code will look something like this. But it is working fine.
Note: this examples misses html, script, body and head tag as I'm not able to paste that here.

-DEFAULT &I=2;
-DEFAULT &J=0;
-DEFAULT &FORMAT='HTML';

DEFINE FILE CAR
NCAR/A20 = '&' || 'NEW' || CAR;
END
-RUN

TABLE FILE CAR
PRINT
CAR NOPRINT
IF RECORDLIMIT EQ 1
ON TABLE SUBHEAD
"SAMPLE REPORT"
"Printed on 03-25-2005"
ON TABLE PCHOLD FORMAT HTML
-******************************************
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT,IMAGE=/ibi_html/images/ibilogo.gif,
POSITION=(+0.000000 +0.000000),ALT='IBI Logo',JAVASCRIPT= closewin(),$
ENDSTYLE
END
-RUN

-HTMLFORM BEGIN
<TITLE>sample Report</TITLE>
function closewin()
{
window.close()
}
-HTMLFORM END

-LOOPBNK
-IF &J EQ &I THEN GOTO ENDPRG;
DEFINE FILE CAR ADD
SP/A1=HEXBYT(160,'A1');
END

TABLE FILE CAR
PRINT BODYTYPE MODEL OVER
SEATS DEALER_COST OVER
SP AS ''
BY CAR NOPRINT
IF CAR EQ 'BMW' OR 'JAGUAR'
WHERE RECORDLIMIT EQ 10
ON TABLE SUBHEAD
"DETAILS ABOUT BMW AND JAGUAR CARS"
ON CAR SUBFOOT
"SUBTOTAL: <ST.DEALER_COST"
ON TABLE SUBFOOT
"---END OF REPORT---"
ON TABLE NOTOTAL
ON TABLE SET PAGE NOLEAD
ON TABLE HOLD FORMAT HTMTABLE AS OUT1
ON TABLE SET STYLE *
-INCLUDE stylev01ir
ENDSTYLE
END
-RUN


TABLE FILE CAR
PRINT NCAR
BY CAR
IF CAR NE 'BMW'
WHERE RECORDLIMIT EQ 10
ON TABLE SUBHEAD
"DETAILS ABOUT CARS OTHER THAN BMW AND JAGUAR"
ON CAR SUBFOOT
"</1 SUBFOOT ON 2ND REPORT"
ON TABLE SUBFOOT
"---END OF REPORT---"
ON TABLE HOLD FORMAT HTMTABLE AS OUT2
ON TABLE SET STYLE *
-INCLUDE stylev01ir
ENDSTYLE
END
-RUN
-SET &J=&J+1;

-HTMLFORM BEGIN
table { border-collapse: collapse; }
td {border: 0px; padding-left: 4px;}
.rborder { border-right: 1px solid black; }
.tborder { border-top: 1px solid black; }
.bborder { border-bottom: 1px solid black;
border-top: 1px solid black; }
.border { border-bottom: 1px solid black;
border-top: 1px solid black;
page-break-before:always; }
.pagebreak {page-break-before:always; }
<table>
<TR><TD>!IBI.FIL.OUT1; </TD></TR>
<TR><TD>!IBI.FIL.OUT2;</TD></TR>
<p STYLE="page-break-before:always"></p>
</TABLE>
-HTMLFORM END


-GOTO LOOPBNK;

-ENDPRG

TABLE FILE CAR
BY CAR
WHERE RECORDLIMIT EQ 10
ON TABLE HOLD AS TEMPFILE
END
-RUN

TABLE FILE CAR
BY CAR
WHERE RECORDLIMIT EQ 10
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET STYLE *
-*INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN


TABLE FILE CAR
BY COUNTRY
WHERE RECORDLIMIT EQ 10
ON TABLE HOLD FORMAT HTMTABLE AS OUT3
ON TABLE SET STYLE *
-*INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN

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

-EXIT