I know this has been asked before, but from what I can tell it has been a few years since it has been discussed.

Does anyone know if you can reproduce a chart that looks and functions like a Gantt chart? If so can someone supply an example. I am using version 7.6.5.

Thanks,
Josh

still not supported Josh

It is my understanding and according to documentation you can. If you use Advanced Graph Assistant...it should have a Graphtype of Gantt. I've never done it...but is there.
SET LOOKGRAPH=GANTT

Prarie, Yes that setting is doicumented but I do not think that it actually works.

The only documentation that I can find is

"Provides a visual representation of project oriented time critical events.
Gantt charts require six display fields and one sort field, in that order.
Conditional styling and drill-down are not supported for GANTT charts."

However an example associated with an IB MIP still does not work (the focus short db is in IBISAMP)

GRAPH FILE SHORT
SUM ARGENTINA_PESO BRAZIL_REAL CANADA_DOLLAR GUATEMALA_QUETZAL
HONDURAS_LEMPIRAS MEXICO_PESO
ACROSS CONTINENT
ON GRAPH SET LOOKGRAPH GANTT
END

Thanks for the info JG. I can confirm that setting LOOKGRAPH to GANTT does not work.

Do you know of an alternative?

Thanks,
Josh

Interesting.

As far as I know, it was a prototype feature put in place but never finalized.

However it has remained in the documentation even though it is not part of the
advanced graph assistant which should support it if it was.

Ideally it should either be made to work or dropped from the documentation.

At least instead of causing HTTP errors, in 766, it now just returns nothing.

? is that actually better ?

I found a post from 2005 that says IBI does not plan to pursue the support of Gantt charts in the future. 2005 Post

So, yes I agree it should be dropped from the documentation.

I'm going to try to use a stacked bar graph to accomplish my task.

Thanks,
Josh

I did a GANTT for a customer some years ago. Should I try and find the code?

Danny,

I would be interested in seeing that if you do not mind.

Thanks,
Josh

Josh,

Checking back on the trial I was attempting in 2005 and I found that it didn't work (dates and non dates ), so looking through old libraries I have I found this which does actually produce a graph in 7.6.2 but the axis doesn't display the date format correctly. Anyway, FWIW -

SET HOLDLIST = PRINTONLY
APP FI GANTT DISK GANTT.MAS (LRECL 80
-RUN
-WRITE GANTT
-WRITE GANTT FILE=GANTT,SUFFIX=FOC
-WRITE GANTT SEGNAME=SEG1
-WRITE GANTT FIELD=AREA,,A15,A15,$
-WRITE GANTT FIELD=TASK,,A27,A27,$
-WRITE GANTT FIELD=BEGDATE,,YYMD,YYMD,$
-WRITE GANTT FIELD=ENDDATE,,YYMD,YYMD,$
-RUN

CREATE FILE GANTT
MODIFY FILE GANTT
FIXFORM AREA/A15 TASK/A27 BEGDATE/A8 ENDDATE/A8
DATA
Engineering     1 Site Survey             2000101820001115
Engineering     2 Draft Survey Results    2000101820001204
Engineering     3 GMBH Review             2000120420001229
Engineering     4 Survey RPT (Final)      2001010120010122
Engineering     5 GMBH RFV Approval       2001010320010206
Engineering     6 System Design           2001021420010320
Engineering     7 HMBC Review             2001032020010404
Engineering     8 Bid and Award           2001040420010604
Engineering     9 Construction Support    2001042720010905
END
-RUN
DEFINE FILE GANTT
  CURRDATE/YYMD = 20010113;
END
TABLE FILE GANTT
  SUM MAX.ENDDATE/I8
      MIN.BEGDATE/I8
      MAX.CURRDATE/I8
   ON TABLE SAVE FORMAT ALPHA
END
-RUN
-READ SAVE X4 &MaxDate.A8. X4 &MinDate.A8. X4 &CurrDate.A8.
-SET &MinDate = &MinDate - 14;
-SET &MaxDate = &MaxDate + 14;
-SET &CurrDate = &CurrDate + 0;
-RUN
DEFINE FILE GANTT ADD
  OFFSET/I9     = &MinDate + 14;
  DURATION/I9   = ENDDATE - BEGDATE;
  REMAIN/I9     = IF ENDDATE LT CURRDATE THEN 0
             ELSE IF CURRDATE FROM BEGDATE TO ENDDATE THEN ENDDATE - CURRDATE
             ELSE DURATION ;
  BEGIN/I9      = BEGDATE - OFFSET;
  COMPLETED/I9  = IF ENDDATE LT CURRDATE THEN DURATION
             ELSE IF CURRDATE FROM BEGDATE TO ENDDATE THEN CURRDATE - BEGDATE
             ELSE 0 ;
END

GRAPH FILE GANTT
SUM OFFSET
    BEGIN
    COMPLETED
    REMAIN
BY TASK
ON GRAPH SET GRAPHEDIT OFF
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET GRID ON
ON GRAPH SET GRMERGE ON
ON GRAPH SET GRAPHSTYLE *
 setGraphType(25);
 setTransparentFillColor(getSeries(0), true);
 setTransparentBorderColor(getSeries(0), true);
 setSeriesLabel(0, "");
 setTransparentFillColor(getSeries(1), true);
 setTransparentBorderColor(getSeries(1), true);
 setSeriesLabel(1, "");
-* Y1 scale
 setY1ScaleMaxAuto(false);
 setY1ScaleMax(&MaxDate);
 setY1ScaleMinAuto(false);
 setY1ScaleMin(&MinDate);
 setTextFormatPreset(getY1Scale, 19);
setUseTimeScaleAxis(true);
END

TABLE FILE GANTT
SUM OFFSET DURATION
    BEGIN BEGDATE ENDDATE
    COMPLETED
    REMAIN
BY TASK
END

T

This is what it looks like:



The bars are a function of the dates. I used the CAR file and created some fictitious dates. The output is produced by TABLE. The bars are generated from IBI pixels:

  
<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=hh WIDTH=ww>

where hh and ww are variables containing the number of pixels for the thickness and the length of the bar.

My example is a bit complex because I had to show how to insert a "today" black mark so each bar is composed of 3, from start to today, today, from today to end.

Also by clicking on a country, the gantt adds another level of detail.

I can try and create a more simple example.

This message has been edited. Last edited by: Danny-SRL,

Danny,

Very unlike you to leave an image pointing to localhost!!

T

have a read on this
its a very simple technique that produces a variant on the GRAPHTYPE concept that you can use to create GANTTs. You'll be creating your underlying matrix with a table and alot of .css.

Tony,

Ooooops! I didn't realize that the forum would insert the URL. I thought it would use it to copy the image.

So, I should put it on a web site somewhere...

Done (I hope)!

This message has been edited. Last edited by: Danny-SRL,

Daany,

That's better and a good alternative to the "normal" Gantt chart. Great display of "thinking outside the box". Having seen the output (now ) I can probably work out the code - a good chance to get the grey cells working

T

Tony,

Thanks for the "heads up". As you can gather, the output is from TABLE. Here is a little peek on the code:
TDY= today's date
SDATE=start date of the work element
EDATE=end date of the work element
BARCOL=bar color of the work element
BT1, BT2, BT3 are lengths of the bar pieces
&HT is the bar height
&XT is the height of today's black mark

  
COMPUTE SBAR/A400=
-* The bar starts after today:
IF TDY LT SDATE THEN
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT1 | '>' |
'<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&XT WIDTH=1>' |
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT2 | '>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT3 | '>'

ELSE IF TDY LT EDATE THEN
-* The bar ends after today:
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT1 | '>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT2 | '>' |
'<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&XT WIDTH=1>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT3 | '>'
ELSE
-* The bar ends before today:
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT1 | '>' |
'<IMG SRC="/ibi_html/vis/' | BARCOL | '.gif" HEIGHT=&HT WIDTH=' |
BT2 | '>' |
'<IMG SRC="/ibi_html/vis/gffffff.gif" HEIGHT=&HT WIDTH=' |
BT3 | '>' |
'<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&XT WIDTH=1>'
;  AS ''

Thanks Danny, but I already had that code which is basically what Susannah uses in her article (link in Susannah's post above) from 2004(?). Nice to see her methods reused.

Always a good method to use and one I have taken advantage of many times!

T

I hope you don't mind if I add this to my library...

Danny,

Thank you for you ideas. I understand the 'gantt' part of the chart. I am however having a problem understanding where the time scale at the top of the 'graph' comes from. Can you please post the code on how you did this?

Thanks,
Josh

Josh,

Here is the HEADING:

  
HEADING
"<SP Start <+1 End <+1 &SCALE "
"<SP &SDATEF <+1 &EDATEF <LO"

Here are the variables used:

  
in a DEFINE statement:
SP/A1=' ';
LO/A2400='<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&ST WIDTH=1>'
-REPEAT #SCALE FOR &I FROM 1 TO &MAXWKS;
| '<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&HT WIDTH=&SCW1 >'
| '<IMG SRC="/ibi_html/vis/g000000.gif" HEIGHT=&ST WIDTH=1>'
-#SCALE
;

variables:
-SET &SDATEF=EDIT(&SDATE,'99/99/9999');
-SET &EDATEF=EDIT(&EDATE,'99/99/9999');
-SET &TDYF=EDIT(&TDY,'99/99/9999');
-SET &DASHES='----------------------------------------';
-SET &SCALE=EDIT(&SDATEF,'$$$9999999');
-SET &SMONTH=EDIT(&SDATEF,'$$$$$$9999') | EDIT(&SDATEF,'$$$99');
-SET &EMONTH=EDIT(&EDATEF,'$$$$$$9999') | EDIT(&EDATEF,'$$$99');
-SET &MAXSCALE=&MAXWKS / 28 * &INTRVL;
-REPEAT #BSCALE FOR &I FROM 1 TO &MAXSCALE;
-SET &SMONTH=AYM(&SMONTH,1,'I6');
-SET &NMONTH=EDIT(&SMONTH,'$$$$99/') | EDIT(&SMONTH,'9999');
-SET &NDASH=4 * (&SC - 2) + 1;
-SET &DASH=SUBSTR(40, &DASHES, 1, &NDASH, &NDASH, 'A&NDASH.EVAL');
-SET &SCALE=&SCALE || &DASH || &NMONTH;
-IF &SMONTH GE &EMONTH GOTO #ESCALE;
-#BSCALE
-#ESCALE

&SDATE is the start date of the retrieval
&EDATE is the end date of the retrieval
&TDY is today's date
&MAXWKS is the number of ticks between the min start date and the maximum end date of all operations
&INTRVAL is interval in days between ticks
&NDASH is the number of dashes between dates, depending upon the scale (&SC) chosen - in this example &SC=4
&ST is the height of the tick on the time scale
&HT is the height of the time scale bar

I hope I didn't forget anything. This code is 5 years old +/-.

If you want, I can send you the whole fex and the data files...

Great idea...I'm going to use this for an overall report based on a project and time registration database of our IT department.!!!
They need a report and they are not able to create something themselves...

Frank,

Thanks. If you want all the code and the data files, just ask.

Daniel,

Can you send me the fex? I'm not sure of the best way to deliver this though.

Thanks,
Josh

An old article but one well worth to keep around for such questions... Hope it helps.
Ira
http://techsupport.informationbuilders.com/tech/wbf/wbf_tcn_085.html

Suggestion: If you use DM to factor out the recurring SRC=" ... .gif" code, Dan's (Susannah's) COMPUTE code becomes appreciably more succinct and maintainable.

-SET &White='SRC="/ibi_html/vis/gffffff.gif"';
-SET &Black='SRC="/ibi_html/vis/g000000.gif"';
-SET &Color='SRC="/ibi_html/vis/' || BARCOL || '.gif"';

COMPUTE SBAR/A400=
IF TDY LT SDATE THEN
-* The bar starts after today:
 '<IMG &White HEIGHT=&HT WIDTH=' | BT1 | '>' |
 '<IMG &Black HEIGHT=&XT WIDTH=1>' |
 '<IMG &White HEIGHT=&HT WIDTH=' | BT2 | '>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT3 | '>'

ELSE IF TDY LT EDATE THEN
-* The bar overlaps today:
 '<IMG &White HEIGHT=&HT WIDTH=' | BT1 | '>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT2 | '>' |
 '<IMG &Black HEIGHT=&XT WIDTH=1>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT3 | '>'

ELSE
-* The bar ends before today:
 '<IMG &White HEIGHT=&HT WIDTH=' | BT1 | '>' |
 '<IMG &Color HEIGHT=&HT WIDTH=' | BT2 | '>' |
 '<IMG &White HEIGHT=&HT WIDTH=' | BT3 | '>' |
 '<IMG &Black HEIGHT=&XT WIDTH=1>'
;  AS ''

quote:

If you want, I can send you the whole fex and the data files...

If you don't mind Daniel, I would LOVE the sample fex. I'll PM you in a moment.

There are not many threads on Gantt Charts, and this post seems to be the only one with a solution.

I know this is a 'vintage post', but many belated thanks to the contributors. :-)

You rock Susannah! and Danny too!

I kinda wonder if at this point it would be easier to just use google charts to build it. I know their visualization tool has that chart type in it, although it wouldn't be "IBI approved".

The only challenging part would be to get the data out of WF and into the right formats for it to read into the graph.

D3 Charts are IBI approved and are actually easily added in 8.2..

https://d3js.org/