Jump to content
The ibi Community has moved to a new platform: Please Sign In and choose Forgot Password to continue

If I am creating a compound XLSX, and one of the tabs has no...


Diana Watkins

Recommended Posts

If I am creating a compound XLSX, and one of the tabs has no results, the next tabs column titles disappear. If I tweak the report to show results in the first tab, the column titles show up again.

For instance SHEET1 dislays all items in inventory that are red, SHEET2 displays all items that are blue. If there are no results for SHEET1, the column titles for SHEET2 disappear - even if there are results for SHEET2.

Any ideas I am using v.8202

Link to comment
Share on other sites

Sure thing, here you go:

JOIN CLEAR *

-SET &ISO1=DATECVT(DATEADD(DATECVT(&YYMD,I8YYMD,YYMD),D,-1),YYMD,I8YYMD);

JOIN

INNER DRCODE IN DRSTATDET TO UNIQUE DRCODE IN DRIVERS AS J7

END

JOIN

INNER DRDV# IN DRSTATDET TO UNIQUE XCDIV IN DIVXBU AS J8

END

TABLE FILE DRSTATDET

PRINT

DRDV# AS Division

DRFMGR AS FOM

DRSUPR AS FM

DRUNIT AS Truck#

BY DRCODE AS Driver,Code

WHERE (ENTDATE2 EQ &ISO1) AND (DRSTATDET.DRSTATDET.DRSTAT EQ B) AND (DRIVERS.DRIVERS.DRSTAT EQ B);

WHERE BU2 EQ GLASS;

WHERE CTYPE EQ DEDICATED;

ON TABLE SET BYDISPLAY ON

ON TABLE SET EMPTYREPORT ON

ON TABLE SET PAGE-NUM NOLEAD

ON TABLE PCHOLD FORMAT XLSX OPEN

ON TABLE SET HTMLEMBEDIMG ON

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

$

INCLUDE = IBFS:/WFC/Repository/Public/Style/np_gphc_theme.sty,

$

TYPE=REPORT, TITLETEXT=B Stat,

$

ENDSTYLE

END

JOIN CLEAR *

JOIN

LEFT_OUTER DRCODE IN FILLINS1 TO UNIQUE DRCODE IN HOMEDV2 AS J15

END

JOIN

LEFT_OUTER DRCODE IN FILLINS1 TO UNIQUE DRCODE IN INF2 AS J16

END

TABLE FILE FILLINS1

PRINT

DRNAME

DRUNIT

DRSTAT

DRSUPR

DRFMGR

COIC AS Driver,Type

AVAIL AS Avail,Status

@ISOFMTUSA AS PTA

PTATIME AS PTA Time

HOME_DIV AS Home,Div

TRTRDE AS Date,Trans

COMPUTE DAYS1/P33=&TODAYH-TRTRDH; AS Days,Fill in

JBTYP_DESC AS Fill in,Desc

HOME_FM AS FM Trans, From

BY CTYPE AS CUST,TYPE

BY BU2 AS BU

BY DRDV# AS DIV

BY DRCODE AS CODE

WHERE HOME_DIV EQ MSN;

WHERE JBTYP_DESC CONTAINS DOCK;

ON TABLE SET BYDISPLAY ON

ON TABLE SET EMPTYREPORT ON

ON TABLE PCHOLD FORMAT XLSX CLOSE

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

$

INCLUDE = IBFS:/WFC/Repository/Public/Style/np_gphc_theme.sty,

$

TYPE=REPORT, TITLETEXT=Dock Fill ins,

$

ENDSTYLE

END

Link to comment
Share on other sites

I have created a similar sample and all seems ok.

But, some of your code seems not to have been included correctly.

Please use the tag code or type (without the spaces) : [ code ] <your code here> [ /code]

A thing that Ive noticed is that if I use the quotes from your code the result is not good. Maybe the issue is there because the text editor normally display in light blue text between quotes and from your code it doesnt.

Working sample

TABLE FILE CAR

PRINT CAR AS 'Car #'

BY COUNTRY AS 'Country'

WHERE COUNTRY EQ 'ALLO';

ON TABLE SET BYDISPLAY ON

ON TABLE SET EMPTYREPORT ON

ON TABLE SET PAGE-NUM NOLEAD

ON TABLE PCHOLD FORMAT XLSX OPEN

ON TABLE SET HTMLEMBEDIMG ON

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

$

TYPE=REPORT, TITLETEXT='B Stat',

$

ENDSTYLE

END

 

TABLE FILE CAR

PRINT MODEL AS 'Car,Model'

BY CAR AS 'Car'

ON TABLE SET BYDISPLAY ON

ON TABLE SET EMPTYREPORT ON

ON TABLE PCHOLD FORMAT XLSX CLOSE

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

$

TYPE=REPORT, TITLETEXT='Dock Fill ins',

$

ENDSTYLE

END

Not rendering properly

TABLE FILE CAR

PRINT CAR AS Car #

BY COUNTRY AS Country

WHERE COUNTRY EQ ALLO;

ON TABLE SET BYDISPLAY ON

ON TABLE SET EMPTYREPORT ON

ON TABLE SET PAGE-NUM NOLEAD

ON TABLE PCHOLD FORMAT XLSX OPEN

ON TABLE SET HTMLEMBEDIMG ON

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

$

TYPE=REPORT, TITLETEXT=B Stat,

$

ENDSTYLE

END

 

TABLE FILE CAR

PRINT MODEL AS Car,Model

BY CAR AS Car

ON TABLE SET BYDISPLAY ON

ON TABLE SET EMPTYREPORT ON

ON TABLE PCHOLD FORMAT XLSX CLOSE

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

$

TYPE=REPORT, TITLETEXT=Dock Fill ins,

$

ENDSTYLE

END

Link to comment
Share on other sites

Like this Here is another one that I put together as kind of a test:

JOIN

DRIVERS.DRIVERS.DRCODE IN drivers TO UNIQUE PRPUD.PRPUD.UDCH2 IN prpud TAG J5

AS J5

END

JOIN

J5.PRPUD.UDER AND J5.PRPUD.UDEN IN drivers TO UNIQUE PRPMS.PRPMS.PRER

AND PRPMS.PRPMS.PREN IN prpms TAG J6 AS J6

END

JOIN

J6.PRPMS.PRDOHH IN drivers TO UNIQUE ALLDATESWF.ALLDATESWF.@100YEAR

IN alldateswf TAG J7 AS J7

END

JOIN

LEFT_OUTER J6.PRPMS.PRDHAH IN drivers TO UNIQUE ALLDATESWF.ALLDATESWF.@100YEAR

IN alldateswf TAG J8 AS J8

END

TABLE FILE DRIVERS

PRINT

DRNAME

UDER

UDEN

@ISOFMTUSA AS 'Infinium,Date of Hire'

@ISOFMTUSA AS 'Infinium Adj.,Date of Hire'

COMPUTE ICC_HIRE/I8YYMD = GREGDT(DRIVERS.DRIVERS.DRHDAT, 'I8YYMD'); AS 'ICC_HIRE,I8YYMD'

BY DRCODE

WHERE DRIVERS.DRIVERS.DRCODE EQ 'DWATKI';

ON TABLE SET EMPTYREPORT ON

ON TABLE SET PAGE-NUM NOLEAD

ON TABLE SET BYDISPLAY ON

ON TABLE NOTOTAL

ON TABLE PCHOLD FORMAT XLSX OPEN

ON TABLE SET XLSXPAGESETS ON

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

INCLUDE = IBFS:/WFC/Repository/Public/Style/np_gphc_theme.sty,

$

TITLETEXT='NULL',

$

ENDSTYLE

END

TABLE FILE DRIVERS

PRINT

DRNAME

UDER

UDEN

@ISOFMTUSA AS 'Infinium,Date of Hire'

@ISOFMTUSA AS 'Infinium Adj.,Date of Hire'

COMPUTE ICC_HIRE/I8YYMD = GREGDT(DRIVERS.DRIVERS.DRHDAT, 'I8YYMD'); AS 'ICC_HIRE,I8YYMD'

BY DRCODE

WHERE J6.PRPMS.PRTEDH EQ 0;

ON TABLE SET EMPTYREPORT ON

ON TABLE SET PAGE-NUM NOLEAD

ON TABLE SET BYDISPLAY ON

ON TABLE NOTOTAL

ON TABLE PCHOLD FORMAT XLSX CLOSE

ON TABLE SET XLSXPAGESETS ON

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *

INCLUDE = IBFS:/WFC/Repository/Public/Style/np_gphc_theme.sty,

$

TITLETEXT='NOT NULL',

$

ENDSTYLE

END

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
  • Create New...