[ClaudiaCosta]

Enano,

Necessito hacer um grafico de gantt com datos que estão guardados em ACCESS.

O meu codigo é:

Código Delphi [-]
procedure TfmMapaObra.Button4Click(Sender: TObject);

var
  tarefa    : string;
  Data      : TDateTime;
  dura      : integer;
  numobra   : integer;
  numtarefa : integer;
  altura    : integer;

begin

  altura := 10;
  numobra := dblccodobra.KeyValue;

  GraficoObra.Series[0].Clear;

  with DMEst do
    begin
     try
      quMapaObraDepTarefa.SQL.Clear;
      quMapaObraDepTarefa.SQL.Add('SELECT * FROM MapaObraDepTarefa WHERE CodObra='+inttostr(numobra));
      quMapaObraDepTarefa.Open;
      quObra.Open;

      data := quObra.FieldByName('datainicio').AsDateTime;

      while not quMapaObraDepTarefa.Eof do
       begin
        dura      := quMapaObraDepTarefa.FieldByName('Duracao').AsInteger;
        tarefa    := quMapaObraDepTarefa.FieldByName('Nome').AsString;
        numtarefa := quMapaObraDepTarefa.FieldByName('DepTarefa').AsInteger;

        if (numtarefa=0) then
         begin
           series2.AddGantt(data,
                           (data+dura),
                            altura,
                            tarefa);
         end
        else
           begin
             series2.AddGantt(data + 30,
                             ((data+30)+dura),
                             altura,
                             tarefa);
             end;

        altura := altura -1;

        quMapaObraDepTarefa.ExecSQL;
        quMapaObraDepTarefa.Next;
      end;
     except
       showmessage('Erro no Mapa');
     end;

      quMapaObraDepTarefa.Close;
      quObra.Close;
      quMapaObraDepTarefa.SQL.Clear;
      quMapaObraDepTarefa.SQL.Add('SELECT * from MapaObraDepTarefa');
      quMapaObraDepTarefa.Open;

    end;
end;

Mas não consigo atribuir ao valor data(que voces chamam fecha) o valor da data de outra barra.
Por Exemplo: a barra 1 começa a 2-08-2006 e acaba a 23-08-2006 e a barra 2 deveria começar a 23-o8-2006. Como fazer isso.????

Obrigada
Desculpa mas não sei escrever em espanhol.