-* File EXL_HEADER.fex

TABLE FILE CAR
HEADING 
" "
" "
" TEST THIS FOCEXEC "
" "
"DATE: &DATEMDYY <+0> <+0>Page:<+1 <TABPAGENO>"
" "
PRINT
DEALER
RETAIL
-* 
BY COUNTRY
BY CAR

ON TABLE PCHOLD FORMAT EXL07
ON TABLE NOTOTAL
ON TABLE SET HTMLCSS ON 
ON TABLE SET STYLE *
TYPE=REPORT,
FONT=ARIAL,
SIZE=9,
$
TYPE=HEADING,
HEADALIGN=BODY,
COLOR=BLACK,
SIZE=9,
SQUEEZE=ON,
$
TYPE=HEADING,
LINE=3,
COLSPAN=5,
JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=5,
ITEM=1,
COLSPAN=1,
JUSTIFY=LEFT,
COLOR=GREEN,
$
TYPE=HEADING,
LINE=5,
ITEM=2,
COLSPAN=2,
JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=5,
ITEM=3,
COLSPAN=1,
OBJECT=TEXT,
JUSTIFY=LEFT,
COLOR=PURPLE,
$

TYPE=TITLE,
STYLE=BOLD,
$
ENDSTYLE
END
-RUN

-EXIT

quote:

I dug through the Tech Support and Focalpoint documentation, and I solved the problem.

-* File car_sample.fex

-SET &XHR = EDIT(&TOD,'99');
-SET &XMN = EDIT(&TOD,'$$$99');
-*
-SET &ADHR = IF &XHR GT 12 THEN (&XHR - 12) ELSE &XHR;
-SET &XTIME = &ADHR | ':' | &XMN;

TABLE FILE CAR
SUM SALES
-*
COMPUTE PAGEX/A5 = FTOA(TABPAGENO,'(F5S)', 'A5'); NOPRINT
COMPUTE PAGEY/A5 = LJUST(5, PAGEX, 'A5'); NOPRINT
COMPUTE PAGEZ/A20 = 'PAGE:'||PAGEY; NOPRINT
COMPUTE LINE7/A13 = 'RPT: PIPS9417'; NOPRINT
COMPUTE LINE8/A13 = 'PGM: PIPS9417'; NOPRINT
BY COUNTRY
BY CAR
BY MODEL
HEADING
" "
" "
"*** BOOGIE'S BRATS AND CAR WASH ***"
"WE LOVE OUR CUSTOMERS !!!"
" "
"DATE: &DATEMDYY <+0>               <+0><PAGEZ"
-*"TIME: &XTIME <+0>CASE MAINTENANCE DAILY CHANGE REPORT <+0>RPT: PIPS9417"
"TIME: &XTIME <+0> <+0><LINE7"
"<+0> <+0><LINE8"
""
ON TABLE SUBFOOT
" "
"**** END OF REPORT ****"

ON TABLE SET PAGE NOPAGE
-*ON TABLE PCHOLD FORMAT HTML
ON TABLE PCHOLD FORMAT EXL07
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=HEADING, HEADALIGN=BODY, $
TYPE=HEADING, LINE=1, COLSPAN=4, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=2, COLSPAN=4, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=3, COLSPAN=4, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=4, COLSPAN=4, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=5, COLSPAN=4, JUSTIFY=CENTER, $
-**** LINE=6
TYPE=HEADING, LINE=6, ITEM=1, OBJECT=TEXT, COLOR=GREEN, $
-***TYPE=HEADING, LINE=6, ITEM=2, OBJECT=TEXT, COLSPAN=2, COLOR=BLUE, POSITION=0.25, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=6, ITEM=2, OBJECT=TEXT, COLSPAN=2, COLOR=GREEN, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=6, ITEM=3, OBJECT=TEXT, COLSPAN=4, COLOR=BROWN, JUSTIFY=RIGHT, $
-*OTO NOWAY
-**** LINE=7
TYPE=HEADING, LINE=7, ITEM=1, OBJECT=TEXT, COLOR=GREEN, $
TYPE=HEADING, LINE=7, ITEM=2, OBJECT=TEXT, COLSPAN=2, COLOR=BLUE, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=7, ITEM=3, OBJECT=TEXT, COLSPAN=4, COLOR=BROWN, JUSTIFY=LEFT, $
-**** LINE=8
TYPE=HEADING, LINE=8, OBJECT=TEXT, COLSPAN=3, COLOR=RED, JUSTIFY=RIGHT,$
TYPE=TABFOOTING, COLSPAN=4, HEADALIGN=BODY, JUSTIFY=CENTER, COLOR=BLUE, $
ENDSTYLE
END
-RUN