Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Microsoft Office Project

Автор: KAV2008 7.5.2010, 17:07

Здравствуйте , подскажите пожалуйста  решение проблемы  Делаю экспорт задач в Microsoft Office Project  Перечень добавляеться нормально  Код  for i:=1 to   StringGrid3.RowCount do      (prj_doc.Tasks as TasksDisp).Add(StringGrid3.Cells[i,0], EmptyParam); Необходимо добалять перечень с диапазоном дат, попробовали вот так Код  for i:=1 to   StringGrid3.RowCount do      (prj_doc.Tasks as TasksDisp).Add(StringGrid3.Cells[i,0], EmptyParam).TimeScaleData('01.01.10 0:00','02.01.10 0:00',pjResourceTimescaledWork,pjTimescaleWeeks,1) ; Ошибки нет, все добавляет, но диапазон дат не меняет, оставляет даты по стандарту, равные текщей дате и диапазон= 1 день Подскажите что исправить

Автор: Governor 23.12.2016, 19:45

попробуйте добавлять так: Код Variant(projDoc).Tasks.Add;  Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].name:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualStart:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualFinish:=...   Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Microsoft-Office-Project-id50b9e6976ccc198014030851#findElement_E7045_585d549707af93279c056a5e_0

Автор: Governor 23.12.2016, 19:45

попробуйте добавлять так: Код Variant(projDoc).Tasks.Add;  Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].name:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualStart:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualFinish:=...   Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Microsoft-Office-Project-id50b9e6976ccc198014030851#findElement_E7045_585d549707af93279c056a5e_0

Автор: Governor 23.12.2016, 19:45

попробуйте добавлять так: Код Variant(projDoc).Tasks.Add;  Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].name:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualStart:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualFinish:=...   Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Microsoft-Office-Project-id50b9e6976ccc198014030851#findElement_E7045_585d549707af93279c056a5e_0

Автор: Governor 23.12.2016, 19:45

попробуйте добавлять так: Код Variant(projDoc).Tasks.Add;  Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].name:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualStart:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualFinish:=...   Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Microsoft-Office-Project-id50b9e6976ccc198014030851#findElement_E7045_585d549707af93279c056a5e_0

Автор: Governor 23.12.2016, 19:45

попробуйте добавлять так: Код Variant(projDoc).Tasks.Add;  Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].name:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualStart:=... Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].ActualFinish:=...   Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Microsoft-Office-Project-id50b9e6976ccc198014030851#findElement_E7045_585d549707af93279c056a5e_0

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)