Главная страница Microsoft Project УПРАВЛЕНИЕ ПРОЕКТАМИ
Спрашивайте! Наши эксперты ответят.
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

 
Для оперативного ответа рекомендуем задать вопрос в нашей группе Facebook
Более 11.000 человек уже в нашей группе по MS Project
На этом форуме запрещены ссылки, но они разрешены в группе Facebook
 
MS PROJECT и DELPHI
На страницу Пред.  1, 2, 3
 
Начать новую тему   Ответить на тему    Список форумов УПРАВЛЕНИЕ ПРОЕКТАМИ -> Разработка, программирование и интеграция MS Project
Предыдущая тема :: Следующая тема  
Автор Сообщение
governor
Новичок


Зарегистрирован: 23.12.2016
Сообщения: 2

СообщениеДобавлено: Пт, 23 Дек 2016, 16:43    Заголовок сообщения: Ответить с цитатой

С ресурсами вроде бы разобрался.

Но никак не могу установить конец рабочего дня.

Код:
mspapp.OptionsCalendar(true, 1, '0:00', '23:59', 24, 168, true, 2, true, 30);


Не помогает. Причём, задачи, которые я начинаю раньше 9:00 записываются правильно. Они начинаются в то время, которое я назначил. А вот если конец задачи оказывается больше, чем 18:00, то упорно пишется 18:00!

Надо бы просто установить созданному проекту 24-часовой календарь, но как это сделать я нигде не могу найти...

Вот как я записываю задачи:

Код:
mspapp := CreateOleObject('MSProject.Application');
mspapp.Projects.Add;      // создаем новый проект
projDoc := mspapp.ActiveProject;
mspapp.OptionsCalendar(true, 1, '0:00', '23:59', 24, 168, true, 2, true, 30);
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:=...
Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].Resources.Add(...);
tid:=Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].id;
resid:=Variant(projDoc).Resources.Item[Variant(projDoc).Resources.Count].id;

Variant(projDoc).Tasks.Item[Variant(projDoc).Tasks.Count].Assignments.Add(tid,resid);

...

mspapp.Visible := true;
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов УПРАВЛЕНИЕ ПРОЕКТАМИ -> Разработка, программирование и интеграция MS Project Часовой пояс: GMT + 3
На страницу Пред.  1, 2, 3
Страница 3 из 3

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах

© 2003 - 2009, Портал MicrosoftProject.ru. Все права защищены.