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. Moving forward, myibi is our community platform to learn, share, and collaborate. We have the same Focal Point forum categories in myibi, so you can continue to have all new conversations there. If you need access to myibi, contact us at myibi@ibi.com and provide your corporate email address, company, and name.


Connect to myibi
Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] Create 1 Report with multiple Tabs in Excel

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[CLOSED] Create 1 Report with multiple Tabs in Excel
 Login/Join
 
Member
posted
Hello

I got one Report with I would like to display in Excel in multiple Tabs. I know this is possible with the developer studio (which I, as a kind of business power user, am not using). I got a list with different items and I want each "adress" (debtor) an separate tab. With just Page Breaks (either HTML or Excel) its not really sufficient for the scheduled email distribution, as some user would have always to scroll down to their "adress".

many thanks for your support, I hope my request is clear enough.
regards

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


Webfocus 8.1
Windows 7
HTML, Excel, PDF
 
Posts: 10 | Registered: November 09, 2015Report This Post
Virtuoso
posted Hide Post
This sample code may give you a possible solution:

SET COMPOUND = BYTOC
-*
TABLE FILE CAR
 PRINT SALES
 BY COUNTRY
 BY CAR
 ON TABLE PCHOLD FORMAT XLSX
END


WebFOCUS 7.7.05
 
Posts: 1213 | Location: Seattle, Washington - USA | Registered: October 22, 2007Report This Post
Member
posted Hide Post
Can I do this in the Infoassist GUI? I don't compromise my report built in the GUI by entering text in the editor.


Webfocus 8.1
Windows 7
HTML, Excel, PDF
 
Posts: 10 | Registered: November 09, 2015Report This Post
Master
posted Hide Post
Assuming the debtor is the first BY field, Dan is correct.

ON TABLE PCHOLD FORMAT XLSX BYTOC
also works.

If it isn't the first BY field, things get a lot more complicated.

GUI ?? What's that ?? ... Mad


WebFOCUS 7.7.05 Windows, Linux, DB2, IBM Lotus Notes, Firebird, Lotus Symphony/OpenOffice. Outputs PDF, Excel 2007 (for OpenOffice integration), WP
 
Posts: 674 | Location: Guelph, Ontario, Canada ... In Focus since 1985 | Registered: September 28, 2010Report This Post
Guru
posted Hide Post
In InfoAssist you can get the result you want by selecting the "Table of Contents" button on the "Format" ribbon.

This adds the code that Dan supplied and the first (left-most) BY field will be the one that the tabs break on

Cheers

Stu


WebFOCUS 8.2.03 (8.2.06 in testing)
 
Posts: 253 | Location: Melbourne, Australia | Registered: February 07, 2007Report This Post
Member
posted Hide Post
Thanks a lot Stu, that's what I was looking for.

GUI = Graphical User Interface

equal to the Info Assist - Report Builder.

regards


Webfocus 8.1
Windows 7
HTML, Excel, PDF
 
Posts: 10 | Registered: November 09, 2015Report This Post
Master
posted Hide Post
ValEit - As you spend more time in this forum you'll notice there are a few old codgers like myself who have been programming in FOCUS/WebFOCUS for a very long time. Most of us still write our code by hand and don't use the GUI.

Of course we know what a GIU is - I was being sarcastic - but don't like the restrictions, or how long it takes to make a report compared to doing it manually.

And ultimately there are things that are simply not possible with the GUI, and even if they became so, it boils down to clicking for half an hour versus typing for 5 minutes.

I spend an awful lot of my time working with vastly different databases and files and merging information. So I'm always writing little snippets of code to check out what the data looks like or count the number of instances of this or that. The GUI, quite frankly, would take me 10 times as long to accomplish the same thing.

And quite frankly, I don't ever expect the GUI to be able to produce something like the following. This report produces the tabs that you referenced at the beginning of this thread, but cleverly IMHO gets around the restriction that the first BY field (which produces the tabs) must also be the field that tells ReportCaster where to distribute the output.

-INCLUDE FILEDEFS
-SET &WORK_DIR2='/home/iadmin/ibi/apps/chemosales';

-SET &THISMONTH=EDIT(&YYMD, '$$$$99$$');
-SET &THISYEAR=EDIT(&YYMD, '9999$$$$');
-SET &LASTYEAR=&THISYEAR -1;
-DEFAULTH &SALESREP=' ';

APP HOLD BASEAPP

-* Get a list of the sales reps and count how many their are

TABLE FILE SALES_TARGS
SUM SALESREP
BY SALESREP NOPRINT
ON TABLE HOLD AS ALLREPS FORMAT ALPHA
END

-SET &NUMREPS=&LINES;
-SET &ADMIN_EMAILS='xx@xxxx.net; xx@xxxxx.com; xx@xxxxx.com;';
-*SET &ADMIN_EMAILS='xx@xxxxx.net';
-SET &REPDATE=EDIT(&YYMD, '9999-99-99');

-RUN

-READFILE ALLREPS
-REPEAT ENDREPEAT &NUMREPS TIMES

-SET &SUBJECT='Targets and Sales for ' | &SALESREP | ' ' | &REPDATE;

-SET &SREP_EMAIL=IF &SALESREP EQ 'EM' THEN 'xxx@xxxxx.com' ELSE
-				IF &SALESREP EQ 'WO' THEN 'xxx@xxxxx.com' ELSE
-				LOCASE(3, &SALESREP, 'A3') || '@xxxxx.com';

-SET &ALL_EMAILS=&SREP_EMAIL || ';' | &ADMIN_EMAILS;
-*SET &ALL_EMAILS=&ADMIN_EMAILS;

-*TYPE &ALL_EMAILS


-* On some of the original spreadsheets all of the periods in product codes were replaced with zeros
-SET &BADCODES=IF &SALESREP EQ 'CL' OR 'FA' OR 'MP' OR 'JCF' THEN 'Y' ELSE 'N';


DEFINE FILE SALES_TARGS
PROD_DESC/A25=EDIT(PDESC, '9999999999999999999999999$$$$$$$$$$$$$$$$$$$$$$$$$$');
SALESREP/A3=IF EDIT(CCODE, '99$$$$') EQ 'PR' THEN 'FA' ELSE SALESREP;
END

-* For sales reps that sell products from the SAE database we need a different set of computations
-IF &SALESREP EQ 'EM' OR 'WO' GOTO SAE;

DEFINE FILE CINVEDB2
PROD_DESC/A25=IF '&BADCODES' = 'Y' AND PDESC CONTAINS '.'
			   THEN STRREP(25, PDESC, 1, '.', 1, '0', 25, PROD_DESC) ELSE PDESC;
END

DEFINE FILE NEWORDER
PDESC2/A25=EDIT(PDESC, '9999999999999999999999999$$$$$$$$$$$$$$$$$$$$');
PROD_DESC/A25= IF '&BADCODES' = 'Y' AND PDESC CONTAINS '.'
               THEN STRREP(25, PDESC2, 1, '.', 1, '0', 25, PROD_DESC) ELSE PDESC2;
END

-* Extract the commission products
MATCH FILE SALES_TARGS
SUM TARG_QTY
BY PROD_DESC
BY MTH
BY CCODE
WHERE TARG_QTY NE 0
AND SALESREP EQ '&SALESREP';
RUN
FILE CINVEDB2
BY PROD_DESC
AFTER MATCH HOLD OLD-NOT-NEW
RUN
FILE NEWORDER
SUM SOLDBY
BY PROD_DESC
AFTER MATCH HOLD OLD-AND-NEW AS COMM_TARGS FORMAT ALPHA
END


-*Extract the direct products
MATCH FILE SALES_TARGS
SUM TARG_QTY
BY PROD_DESC
BY MTH
BY CCODE
WHERE TARG_QTY NE 0
AND SALESREP EQ '&SALESREP';
RUN
FILE CINVEDB2
SUM PDESC
BY PROD_DESC
AFTER MATCH HOLD OLD-AND-NEW
RUN
FILE NEWORDER
SUM SOLDBY
BY PROD_DESC
AFTER MATCH HOLD AS DIR_TARGS FORMAT ALPHA
END

-THREE

DEFINE FILE COMM_TARGS
PDESC/A45=PROD_DESC;
DEPT/A1='C';
COMM_TARG_QTY/D12=TARG_QTY;
COMM_SOLDBY/A2=SOLDBY;
END

DEFINE FILE DIR_TARGS
PDESC/A45=PDESC;
DEPT/A1='D';
DIR_TARG_QTY/D12=TARG_QTY;
DIR_SOLDBY/A2=SOLDBY;
END

-* Merge commission and direct targets
MATCH FILE COMM_TARGS
SUM COMM_TARG_QTY COMM_SOLDBY
BY DEPT
BY PROD_DESC
BY PDESC
BY MTH
BY CCODE
RUN
FILE DIR_TARGS
SUM DIR_TARG_QTY DIR_SOLDBY
BY DEPT
BY PROD_DESC
BY PDESC
BY MTH
BY CCODE
AFTER MATCH HOLD OLD-OR-NEW
END


-* Add some fields
DEFINE FILE HOLD
TARG_QTY/D12=IF DEPT EQ 'C' THEN COMM_TARG_QTY ELSE DIR_TARG_QTY;
SOLDBY/A2=IF DEPT EQ 'C' THEN COMM_SOLDBY ELSE DIR_SOLDBY;
DUMMY/A1=' ';
END

SET ALL=ON

TABLE FILE HOLD
SUM
DUMMY
TARG_QTY
BY DEPT
BY CCODE
BY PDESC
BY MTH
BY SOLDBY
WHERE MTH LE &THISMONTH
ON TABLE HOLD AS ALL_TARGS
END


-* Get actual order info
DEFINE FILE NEWORDER
MTH/M=BLDATE;
DUMMY/A1=' ';
LAST_FOB/D12.4N=IF BL_YEAR EQ &LASTYEAR THEN FOB ELSE 0;
LAST_FOBT/D12N=IF BL_YEAR EQ &LASTYEAR THEN FOB * PQTY ELSE 0;
THIS_FOBT/D12N=IF BL_YEAR EQ &THISYEAR THEN FOB * PQTY ELSE 0;
PQTY=IF BL_YEAR EQ &THISYEAR THEN PQTY ELSE 0;
END

TABLE FILE NEWORDER
SUM
DUMMY
LAST_FOBT THIS_FOBT LAST_FOB
PQTY
SOLDBY
BY BL_YEAR
BY DEPT
BY CCODE
BY PDESC
BY MTH
WHERE MTH LE &THISMONTH
AND BL_YEAR GE &LASTYEAR
AND SALESREP EQ '&SALESREP';
ON TABLE HOLD AS ORDERS FORMAT ALPHA
END


-SET &CURRENCY='Dollars';

-GOTO PRINTREPORT

-******************************************************************************

-SAE
-* This section is for dealing with orders placed through the SAE database

-SET &CURRENCY='Quetzales';

USE
/home/iadmin/ibi/apps/calidad/saeorder.foc AS SAEORDER
END

DEFINE FILE SAEORDER
SOLDBY=UPCASE(2, SOLDBY, 'A2');
END


MATCH FILE SALES_TARGS
SUM TARG_QTY
BY PDESC
BY MTH
BY CCODE
WHERE SALESREP EQ '&SALESREP'
AND TARG_QTY NE 0
RUN
FILE SAEORDER
SUM SOLDBY
BY PDESC
WHERE COMPANY EQ '01'
AFTER MATCH HOLD OLD-AND-NEW AS SAE_TARGS FORMAT ALPHA
END


DEFINE FILE SAE_TARGS
DUMMY/A1=' ';
END

SET ALL=ON

TABLE FILE SAE_TARGS
SUM
DUMMY
TARG_QTY
COMPUTE DEPT/A1='D';
BY CCODE
BY PDESC
BY MTH
BY SOLDBY
WHERE MTH LE &THISMONTH
ON TABLE HOLD AS ALL_TARGS
END



DEFINE FILE SAEORDER
CCODE/A6=EDIT(CCODE, '999999$$$$');
MTH/M=BLDATE;
DUMMY/A1=' ';
LAST_FOB/D12.4N=IF BL_YEAR EQ &LASTYEAR THEN FOB ELSE 0;
LAST_FOBT/D12=IF BL_YEAR EQ &LASTYEAR THEN FOB * PQTY ELSE 0;
THIS_FOBT/D12=IF BL_YEAR EQ &THISYEAR THEN FOB * PQTY ELSE 0;
PQTY/D12C=IF BL_YEAR EQ &THISYEAR THEN PQTY ELSE 0;
END

TABLE FILE SAEORDER
SUM
DUMMY
LAST_FOBT THIS_FOBT LAST_FOB
PQTY
SOLDBY
COMPUTE DEPT/A1='D';
BY BL_YEAR
BY CCODE
BY PDESC
BY MTH
WHERE COMPANY EQ '01'
WHERE MTH LE &THISMONTH
AND BL_YEAR GE &LASTYEAR
AND SALESREP EQ '&SALESREP';
ON TABLE HOLD AS ORDERS FORMAT FOCUS
END

-*GOTO DONE

-* End of section for SAE orders
-*******************************************************************************

-PRINTREPORT



MATCH FILE ORDERS
PRINT
DUMMY NOPRINT
LAST_FOBT THIS_FOBT LAST_FOB
BY DEPT
BY CCODE
BY PDESC
BY MTH
BY SOLDBY
BY PQTY
RUN
FILE ALL_TARGS
PRINT
DUMMY NOPRINT
BY DEPT
BY CCODE
BY PDESC
BY MTH
BY SOLDBY
BY TARG_QTY
WHERE PDESC NE ''
AFTER MATCH HOLD AS H001 OLD-OR-NEW
END
-RUN


SET NODATA=0

DEFINE FILE H001
DUMMY/A20=' ';
MTH2/MONtr=MTH;
LONGDEPT/A10=IF DEPT EQ 'C' THEN 'Commission' ELSE 'Direct';
PQTY2/D12=PQTY;
C_QTY/D12=IF DEPT EQ 'C' THEN PQTY ELSE 0;
C_TARG_QTY/D12=IF DEPT EQ 'C' THEN TARG_QTY ELSE 0;
D_QTY/D12=IF DEPT EQ 'D' THEN PQTY ELSE 0;
D_TARG_QTY/D12=IF DEPT EQ 'D' THEN TARG_QTY ELSE 0;
THIS_PROJECT/D12C=IF TARG_QTY EQ 0 THEN 0 ELSE TARG_QTY * LAST_FOB;
END

SET COMPOUND=BYTOC

TABLE FILE H001
SUM
     H001.H001.C_QTY NOPRINT
     H001.H001.C_TARG_QTY NOPRINT
     COMPUTE TOT_C_VAR/D12C = C_QTY - C_TARG_QTY; NOPRINT
     COMPUTE TOT_C_VAR_PCT/D6% = C_QTY / C_TARG_QTY * 100; NOPRINT
     H001.H001.D_QTY NOPRINT
     H001.H001.D_TARG_QTY NOPRINT
     COMPUTE TOT_D_VAR/D12C = D_QTY - D_TARG_QTY; NOPRINT
     COMPUTE TOT_D_VAR_PCT/D6% = D_QTY / D_TARG_QTY * 100; NOPRINT
     COMPUTE TOT_VAR/D6% = PQTY / TARG_QTY * 100; NOPRINT
BY  H001.H001.MTH2 NOPRINT
SUM
     H001.H001.DEPT AS ' '
     H001.H001.C_QTY AS '&THISYEAR,Commission'
     H001.H001.C_TARG_QTY AS 'Commission,Target'
     COMPUTE C_VARIANCE/D21 = IF DEPT EQ 'C' AND TARG_QTY EQ 0 THEN 0 ELSE C_QTY - C_TARG_QTY; AS 'Commission,Variance'
     COMPUTE PCT_C_VARIANCE/D6% = IF DEPT EQ 'C' AND TARG_QTY EQ 0 OR PQTY EQ 0 THEN 0 ELSE C_QTY / C_TARG_QTY * 100; AS 'Comm,Pct of,Target'
     H001.H001.D_QTY AS '&THISYEAR,Direct'
     H001.H001.D_TARG_QTY AS 'Direct,Target'
     COMPUTE D_VARIANCE/D21 = IF DEPT EQ 'D' AND TARG_QTY EQ 0 THEN 0 ELSE D_QTY - D_TARG_QTY; AS 'Direct,Variance'
     COMPUTE PCT_D_VARIANCE/D6% = IF DEPT EQ 'D' AND TARG_QTY EQ 0 OR PQTY EQ 0 THEN 0 ELSE D_QTY / D_TARG_QTY * 100; AS 'Direct,Pct of,Target'
     H001.H001.PQTY2/D12C AS '&THISYEAR,Both'
     H001.H001.TARG_QTY AS '&THISYEAR,Target'
     COMPUTE VARIANCE/D12 = IF TARG_QTY EQ 0 THEN 0 ELSE PQTY2 - TARG_QTY; AS '&THISYEAR,Variance'
     COMPUTE PCT_VARIANCE/D6% = IF TARG_QTY EQ 0 OR PQTY EQ 0 THEN 0 ELSE PQTY2 / TARG_QTY * 100; AS 'Pct of,Target'
     H001.H001.LAST_FOBT AS '&LASTYEAR,Actual,&CURRENCY'
     H001.H001.THIS_FOBT AS '&THISYEAR,Actual,&CURRENCY'
     H001.H001.THIS_PROJECT AS '&THISYEAR,Projected,&CURRENCY'
BY  H001.H001.MTH2 NOPRINT
BY  H001.H001.CCODE AS 'Customer'
BY  H001.H001.PDESC AS 'Product'
SUM
     H001.H001.PQTY/D12C AS ''
BY  H001.H001.MTH2 NOPRINT
BY  H001.H001.CCODE AS 'Customer'
BY  H001.H001.PDESC AS 'Product'
ACROSS H001.H001.LONGDEPT AS ''
ACROSS H001.H001.SOLDBY AS ''

ON H001.H001.MTH2 RECOMPUTE
     'H001.H001.C_QTY'
     'H001.H001.C_TARG_QTY'
     C_VARIANCE
     PCT_C_VARIANCE
     'H001.H001.D_QTY'
     'H001.H001.D_TARG_QTY'
     D_VARIANCE
     PCT_D_VARIANCE
     'H001.H001.PQTY2'
     'H001.H001.TARG_QTY'
     VARIANCE
     PCT_VARIANCE
     'H001.H001.LAST_FOBT'
     'H001.H001.THIS_FOBT'
     'H001.H001.THIS_PROJECT'
     'H001.H001.PQTY' AS 'Totals '
HEADING
"Targets and actual sales for &SALESREP "
"Report Date <+0>&DATEtrMDYY <+0> "
ON TABLE SUBFOOT
" "
"This report runs from the file &FOCFEXNAME"
ON TABLE HOLD AS 'Targets and Sales for &SALESREP &REPDATE' FORMAT EXL07
ON TABLE SET STYLE *
     INCLUDE = problue,
$
TYPE=DATA,
     COLUMN=N25,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N24,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N23,
     BACKCOLOR=( RGB(221 255 238) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N17,
     BACKCOLOR=( RGB(221 255 238) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N2,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N3,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N4,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N5,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N6,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N7,
     BACKCOLOR=( RGB(255 255 185) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N8,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N9,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N10,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N11,
     BACKCOLOR=( RGB(221 255 238) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N12,
     BACKCOLOR=( RGB(234 234 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N13,
     BACKCOLOR=( RGB(234 234 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N14,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N15,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N16,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N21,
     BACKCOLOR=( RGB(234 234 255) 'WHITE' ),
$
TYPE=DATA,
     COLUMN=N22,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=DATA,
     ACROSSCOLUMN=N1,
     BACKCOLOR=( RGB(221 255 255) 'WHITE' ),
$
TYPE=TITLE,
     COLUMN=N2,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N3,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N4,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N5,
     BACKCOLOR=RGB(153 204 255),
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N6,
     BACKCOLOR=RGB(153 204 255),
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N7,
     BACKCOLOR=RGB(153 204 255),
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N8,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N9,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N10,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N11,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N12,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N13,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N14,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N15,
     JUSTIFY=CENTER,
$
TYPE=TITLE,
     COLUMN=N16,
     JUSTIFY=CENTER,
$
TYPE=SUBFOOT,
     HEADALIGN=BODY,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=3,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=2,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=3,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=4,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=5,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=6,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=7,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=8,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=9,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=10,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=11,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=12,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=13,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=1,
     OBJECT=TEXT,
     ITEM=14,
     BACKCOLOR='NONE',
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=TEXT,
     ITEM=1,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=1,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=2,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=3,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=4,
     COLOR='BLACK',
     BACKCOLOR=RGB(234 234 255),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=5,
     COLOR='BLACK',
     BACKCOLOR=RGB(234 234 255),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=6,
     COLOR='BLACK',
     BACKCOLOR=RGB(234 234 255),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=7,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=8,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=9,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=10,
     COLOR='BLACK',
     BACKCOLOR=RGB(234 234 255),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=11,
     COLOR='BLACK',
     BACKCOLOR=RGB(234 234 255),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=12,
     COLOR='BLACK',
     BACKCOLOR=RGB(234 234 255),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=13,
     COLOR='BLACK',
     BACKCOLOR=RGB(234 234 255),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=14,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBFOOT,
     BY=1,
     LINE=2,
     OBJECT=FIELD,
     ITEM=15,
     COLOR='BLACK',
     BACKCOLOR=RGB(221 255 238),
     COLSPAN=1,
     JUSTIFY=LEFT,
$
TYPE=SUBTOTAL,
     BY=1,
     SIZE=9,
     BACKCOLOR=RGB(255 255 185),
$
TYPE=ACROSSVALUE,
     ACROSS=1,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     JUSTIFY=CENTER,
$
TYPE=ACROSSVALUE,
     ACROSS=2,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     JUSTIFY=CENTER,
$
TYPE=ACROSSTITLE,
     ACROSS=1,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     JUSTIFY=CENTER,
$
TYPE=ACROSSTITLE,
     ACROSS=2,
     SIZE=9,
     COLOR='WHITE',
     BACKCOLOR=RGB(147 172 219),
     JUSTIFY=CENTER,
$
ENDSTYLE
END
-RUN



EX EDAMAIL &ALL_EMAILS, ReportCaster@xxxxx.com, &SUBJECT,a,XLSX,baseapp/Targets and Sales for &SALESREP &REPDATE
-RUN
-READFILE ALLREPS
-ENDREPEAT
-RUN

TABLE FILE H001
SUM DUMMY NOPRINT
BY CCODE NOPRINT
HEADING
"Targets and Sales Reports completed"
END

-DONE

This message has been edited. Last edited by: George Patton,


WebFOCUS 7.7.05 Windows, Linux, DB2, IBM Lotus Notes, Firebird, Lotus Symphony/OpenOffice. Outputs PDF, Excel 2007 (for OpenOffice integration), WP
 
Posts: 674 | Location: Guelph, Ontario, Canada ... In Focus since 1985 | Registered: September 28, 2010Report This Post
Platinum Member
posted Hide Post
George - you whippersnapper - I got my 35 year badge last March. Music

I use the GUI to see how IBI thinks we should code complex report formatting. When you are the only developer on a project it gives you a second opinion of how to attack a pixel perfect report request.


WebFOCUS 8.2.03 - Production
WebFOCUS 8.2.04 - Sand Box
Windows 2012 R2 Server
HTML, PDF, Excel
In FOCUS since 1980
 
Posts: 115 | Location: Seattle, WA | Registered: April 07, 2015Report This Post
Master
posted Hide Post
Haha ... I'll take that as a compliment! Of course I do use the GUI for styling - that's one area where it is superior to hand coding, but in what is above, only the final report went through the GUI grinder. I also use the GUI for creating launch pages because I only have a rudimentary knowledge of HTML and don't care to learn it at this stage in my life. (I'm learning Maintain instead).


WebFOCUS 7.7.05 Windows, Linux, DB2, IBM Lotus Notes, Firebird, Lotus Symphony/OpenOffice. Outputs PDF, Excel 2007 (for OpenOffice integration), WP
 
Posts: 674 | Location: Guelph, Ontario, Canada ... In Focus since 1985 | Registered: September 28, 2010Report This Post
Member
posted Hide Post
I know this is a closed topic, but I have a question on it.. We have a report in Business Objects that produces multiple tabs with different formatting. Since we have moved to WebFocus and InfoAssist, are we able to do the same thing in InfoAssist? If not, we can certainly create it in App_Studio or other ways, but the power users really want to have this capability. Thank you.


WebFOCUS 8.0, Windows
Excel, HTML, PDF
 
Posts: 11 | Registered: December 15, 2015Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] Create 1 Report with multiple Tabs in Excel

Copyright © 1996-2020 Information Builders