Выгрузка в MS Project через COM, выходные дни #719879


#0 by xraf
Доброго времени суток! Может кто-нибудь сталкивался с подобной задачей. За основу взять код Все вроде бы прозрачно : Однако, если ДатаНачалаПлан приходится на субботу, то Project сам автоматом переносит ее на понедельник.
#1 by shuhard
в прожекте есть календарь, сделай выходные рабочими
#2 by butterbean
делай новый календарь, и потом пиши ТвойПроект.Calendar="ТвойКалендарь" можно стандартный "24 часа" использовать
#3 by butterbean
+ или меняй стандартный
#4 by xraf
Сделал... Все равно что-то съехало. Если смотреть в отладчике в момент когда присваивается   Там ДатаНачалаПлан  еще суббота, а NewTask.Start  уже сам становится понедельником
#5 by xraf
попробую 24 часа
#6 by xraf
Что-то вываливается с ошибкой : Ошибка при установке значения атрибута контекста (Calendar)     MSProject.ActiveProject.Calendar="24 часа"; по причине: Типы не совпадают
#7 by shuhard
[MSProject.ActiveProject.Calendar="24 часа"; ] вряд ли в имелось в виду прямое присвоение
#8 by xraf
как тогда присвоить, подскажите )
#9 by shuhard
надо обойти семейство календарей, найти нужный по названию и присвоить, MSDN тебе в помощь
#10 by shuhard
+1 вероятно нужно пробежать итератором по ActiveProject.BaseCalendars.Name как ни будь так Для Каждого Ст=0 ПО ActiveProject.BaseCalendars.Count Цикл
#11 by xraf
Спасибо! Буду курить
#12 by shuhard
не факт, что сработает, но форумов по VBA в достатке и в нем есть отладчик
#13 by xraf
Для Каждого СтрКалендарь Из  MSProject.ActiveProject.BaseCalendars Цикл
#14 by xraf
выдает имена календарей ))
#15 by shuhard
СтрКалендарь.Name - выдает имена календарей )) ну да
#16 by xraf
В итоге :
#17 by xraf
и все равно та же история, сдвинулось на понедельник
#18 by shuhard
пора тебе открыть для себя другие сайты =)
#19 by xraf
типа пикабу? )
#20 by shuhard
угу
Тэги: 1С 8
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С