Focal Point
Report and Stacked Bar chart together

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

July 22, 2013, 04:08 PM
Kamesh
Report and Stacked Bar chart together
Hi,

We are trying to combine the report and the stacked bar chart together. Did anybody worked like this?

How can I get this? Right now I am using images to build the stacked bar chart but now we need to add a line in between the image to show the median and that is making this more complicated.

See the sample code below.

DEFINE FILE CAR
UW/A25=IF CAR EQ 'ALFA ROMEO' THEN 'UW1'
ELSE IF CAR EQ 'AUDI' THEN 'UW2 '
ELSE IF CAR EQ 'BMW' THEN 'UW3'
ELSE IF CAR EQ 'DATSUN' THEN 'UW4'
ELSE IF CAR EQ 'JAGUAR' THEN 'UW5'
ELSE IF CAR EQ 'JENSEN' THEN 'UW6'
ELSE IF CAR EQ 'MASERATI' THEN 'UW7'
ELSE IF CAR EQ 'PEUGEOT' THEN 'UW8'
ELSE IF CAR EQ 'TOYOTA' THEN 'UW9'
ELSE IF CAR EQ 'TRIUMPH' THEN 'UW10'
ELSE '';

SDD50/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';

C1A/I3=IF CAR EQ 'ALFA ROMEO' THEN .5
ELSE IF CAR EQ 'AUDI' THEN 2
ELSE IF CAR EQ 'BMW' THEN .5
ELSE IF CAR EQ 'DATSUN' THEN .5
ELSE IF CAR EQ 'JAGUAR' THEN 1
ELSE IF CAR EQ 'JENSEN' THEN .5
ELSE IF CAR EQ 'MASERATI' THEN 3
ELSE IF CAR EQ 'PEUGEOT' THEN 3
ELSE IF CAR EQ 'TOYOTA' THEN 10
ELSE IF CAR EQ 'TRIUMPH' THEN .5
ELSE 0;
C1B/I5=C1A + 0;
C1/A5=EDIT(C1B);
C2A/I3=IF CAR EQ 'ALFA ROMEO' THEN 20
ELSE IF CAR EQ 'AUDI' THEN 15
ELSE IF CAR EQ 'BMW' THEN 14
ELSE IF CAR EQ 'DATSUN' THEN 10
ELSE IF CAR EQ 'JAGUAR' THEN 18
ELSE IF CAR EQ 'JENSEN' THEN 6
ELSE IF CAR EQ 'MASERATI' THEN 10
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 20
ELSE IF CAR EQ 'TRIUMPH' THEN 16
ELSE 0;
C2B/I5=C2A + 5 ;
C2/A5=EDIT(C2B);
C3A/I3=IF CAR EQ 'ALFA ROMEO' THEN 14
ELSE IF CAR EQ 'AUDI' THEN 16
ELSE IF CAR EQ 'BMW' THEN 17
ELSE IF CAR EQ 'DATSUN' THEN 14
ELSE IF CAR EQ 'JAGUAR' THEN 13
ELSE IF CAR EQ 'JENSEN' THEN 10
ELSE IF CAR EQ 'MASERATI' THEN 13
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 7
ELSE IF CAR EQ 'TRIUMPH' THEN 19
ELSE 0;
C3B/I5=C3A + 5;
C3/A5=EDIT(C3B);

DTP/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';
END

TABLE FILE CAR
SUM
PENDING
ASSIGNED
PLACED
SDD50
C1
C2
C3
DTP
BY UW
ON TABLE HOLD AS FOCCACHE/DISPDAT
END
-RUN

DEFINE FILE FOCCACHE/DISPDAT
IMG1/A300='';
SP1/A6='&'|'nbsp;';
SP5/A30=SP1|SP1|SP1|SP1|SP1;
SP2/A12=SP1 | SP1;
NP/A1='';
NP2/A2 = NP|NP;
END



TABLE FILE FOCCACHE/DISPDAT
SUM
UW AS 'Underwriter'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
-*BY CAR NOPRINT
BY UW NOPRINT
ON TABLE SET PAGE-NUM NOPAGE
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET SPACES 2
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT,GRID=OFF,FONT=ARIAL,SIZE=9,$
TYPE=TITLE,JUSTIFY=CENTER,$
TYPE=TITLE,COLUMN=UW,JUSTIFY=LEFT,$
TYPE=TITLE,COLUMN=NP,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=NP2,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=IMG1,STYLE=-UNDERLINE,$
TYPE=DATA,JUSTIFY=RIGHT,$
ENDSTYLE
END
-RUN
-EXIT


WFConsultant

WF 8105M on Win7/Tomcat
July 23, 2013, 09:36 AM
Prarie
Hi Kamesh,

Your example does not work and I'm not sure what you are asking?
July 23, 2013, 10:13 AM
Kamesh
Are you getting any error?

This is the sample file which has hardcoded value. I want to replicate this with the real data and we wanted to put a line for the median value. That's where the issue started. Doing this way, I need to do lot of calculation to separate the median with the data.

If there is a way to do this report, then I will switch it to that instead of doing the graph manually.


WFConsultant

WF 8105M on Win7/Tomcat
July 23, 2013, 10:24 AM
Francis Mariani
PENDING, ASSIGNED, PLACED are not defined anywhere...


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
July 23, 2013, 10:37 AM
susannah
and another thing, you're defining a variable titled C1
"Cn" is column notation for referencing fields. you're asking for trouble.
July 24, 2013, 09:09 AM
Doug
quote:
I'm not sure what you are asking
Can you provide a sample of what you want?
July 24, 2013, 10:16 AM
Kamesh
This should work but you need to have bar images. I am not sure, how I can put those?

DEFINE FILE CAR
UW/A25=IF CAR EQ 'ALFA ROMEO' THEN 'UW1'
ELSE IF CAR EQ 'AUDI' THEN 'UW2 '
ELSE IF CAR EQ 'BMW' THEN 'UW3'
ELSE IF CAR EQ 'DATSUN' THEN 'UW4'
ELSE IF CAR EQ 'JAGUAR' THEN 'UW5'
ELSE IF CAR EQ 'JENSEN' THEN 'UW6'
ELSE IF CAR EQ 'MASERATI' THEN 'UW7'
ELSE IF CAR EQ 'PEUGEOT' THEN 'UW8'
ELSE IF CAR EQ 'TOYOTA' THEN 'UW9'
ELSE IF CAR EQ 'TRIUMPH' THEN 'UW10'
ELSE '';

SDD50/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';

C1A/I3=IF CAR EQ 'ALFA ROMEO' THEN .5
ELSE IF CAR EQ 'AUDI' THEN 2
ELSE IF CAR EQ 'BMW' THEN .5
ELSE IF CAR EQ 'DATSUN' THEN .5
ELSE IF CAR EQ 'JAGUAR' THEN 1
ELSE IF CAR EQ 'JENSEN' THEN .5
ELSE IF CAR EQ 'MASERATI' THEN 3
ELSE IF CAR EQ 'PEUGEOT' THEN 3
ELSE IF CAR EQ 'TOYOTA' THEN 10
ELSE IF CAR EQ 'TRIUMPH' THEN .5
ELSE 0;
C1B/I5=C1A + 0;
C1/A5=EDIT(C1B);
C2A/I3=IF CAR EQ 'ALFA ROMEO' THEN 20
ELSE IF CAR EQ 'AUDI' THEN 15
ELSE IF CAR EQ 'BMW' THEN 14
ELSE IF CAR EQ 'DATSUN' THEN 10
ELSE IF CAR EQ 'JAGUAR' THEN 18
ELSE IF CAR EQ 'JENSEN' THEN 6
ELSE IF CAR EQ 'MASERATI' THEN 10
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 20
ELSE IF CAR EQ 'TRIUMPH' THEN 16
ELSE 0;
C2B/I5=C2A + 5 ;
C2/A5=EDIT(C2B);
C3A/I3=IF CAR EQ 'ALFA ROMEO' THEN 14
ELSE IF CAR EQ 'AUDI' THEN 16
ELSE IF CAR EQ 'BMW' THEN 17
ELSE IF CAR EQ 'DATSUN' THEN 14
ELSE IF CAR EQ 'JAGUAR' THEN 13
ELSE IF CAR EQ 'JENSEN' THEN 10
ELSE IF CAR EQ 'MASERATI' THEN 13
ELSE IF CAR EQ 'PEUGEOT' THEN 17
ELSE IF CAR EQ 'TOYOTA' THEN 7
ELSE IF CAR EQ 'TRIUMPH' THEN 19
ELSE 0;
C3B/I5=C3A + 5;
C3/A5=EDIT(C3B);

DTP/A15=IF CAR EQ 'ALFA ROMEO' THEN '14'
ELSE IF CAR EQ 'AUDI' THEN '16'
ELSE IF CAR EQ 'BMW' THEN '17'
ELSE IF CAR EQ 'DATSUN' THEN '14'
ELSE IF CAR EQ 'JAGUAR' THEN '13'
ELSE IF CAR EQ 'JENSEN' THEN '10'
ELSE IF CAR EQ 'MASERATI' THEN '13'
ELSE IF CAR EQ 'PEUGEOT' THEN '17'
ELSE IF CAR EQ 'TOYOTA' THEN '7'
ELSE IF CAR EQ 'TRIUMPH' THEN '19'
ELSE '';
END

TABLE FILE CAR
SUM
SDD50
C1
C2
C3
DTP
BY UW
ON TABLE HOLD AS FOCCACHE/DISPDAT
END
-RUN

DEFINE FILE FOCCACHE/DISPDAT
IMG1/A300='<img src=/wfimages/hdrbg_p5.gif width=''' | C1 | ''' height=5></img><img src=/wfimages/togglebg.png width=''' | C2 | ''' height=5></img><img src=/wfimages/smoke.png width=''' | C3 | ''' height=5></img>';
SP1/A6='&'|'nbsp;';
SP5/A30=SP1|SP1|SP1|SP1|SP1;
SP2/A12=SP1 | SP1;
NP/A1='';
NP2/A2 = NP|NP;
END



TABLE FILE FOCCACHE/DISPDAT
SUM
UW AS 'Underwriter'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
SP2 AS ''
SDD50 AS 'Median'
NP AS '0d'
IMG1 AS '20d'
NP2 AS '40d'
-*BY CAR NOPRINT
BY UW NOPRINT
ON TABLE SET PAGE-NUM NOPAGE
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET SPACES 2
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT,GRID=OFF,FONT=ARIAL,SIZE=9,$
TYPE=TITLE,JUSTIFY=CENTER,$
TYPE=TITLE,COLUMN=UW,JUSTIFY=LEFT,$
TYPE=TITLE,COLUMN=NP,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=NP2,STYLE=-UNDERLINE,$
TYPE=TITLE,COLUMN=IMG1,STYLE=-UNDERLINE,$
TYPE=DATA,JUSTIFY=RIGHT,$
ENDSTYLE
END
-RUN
-EXIT



WFConsultant

WF 8105M on Win7/Tomcat
July 24, 2013, 10:35 AM
susannah
look up GRAPHTYPE. that's what you want.
and forget using FOCCACHE, no reason to.



In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID
July 24, 2013, 10:39 AM
Kamesh
Thanks Susannah.

I am using FOCCACHE because I need to export the output to Excel.


WFConsultant

WF 8105M on Win7/Tomcat