diff --git a/src/cf/Reports/узПланированиеПроекта/Forms/ОПрограммеУправляема/Ext/Form/Module.bsl b/src/cf/Reports/узПланированиеПроекта/Forms/ОПрограммеУправляема/Ext/Form/Module.bsl index ffd91d608..728e40e56 100644 --- a/src/cf/Reports/узПланированиеПроекта/Forms/ОПрограммеУправляема/Ext/Form/Module.bsl +++ b/src/cf/Reports/узПланированиеПроекта/Forms/ОПрограммеУправляема/Ext/Form/Module.bsl @@ -14,6 +14,6 @@ НачатьЗапускПриложения(Новый ОписаниеОповещения("Пустышка", ЭтаФорма), "http://infostart.ru/profile/67680/"); КонецПроцедуры -Процедура Пустышка(РезультатВыбора, ДополнительныеПараметры) Экспорт +Процедура Пустышка(РезультатВыбора, ДополнительныеПараметры) КонецПроцедуры \ No newline at end of file diff --git a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl index 16bca8a78..36534bb40 100644 --- a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl +++ b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl @@ -491,7 +491,7 @@ #Область Связи &НаСервереБезКонтекста -Функция ПолучитьПредставлениеВидСвязиДляProject(ВидСвязи)Экспорт +Функция ПолучитьПредставлениеВидСвязиДляProject(ВидСвязи) Если ВидСвязи = 1 Тогда Возврат "Окончание-Окончание"; ИначеЕсли ВидСвязи = 2 Тогда @@ -504,7 +504,7 @@ КонецФункции &НаКлиенте -Функция ПолучитьПредставлениеВидСвязиДляProjectНаКлиенте(ВидСвязи)Экспорт +Функция ПолучитьПредставлениеВидСвязиДляProjectНаКлиенте(ВидСвязи) Если ВидСвязи = 1 Тогда Возврат "Окончание-Окончание"; ИначеЕсли ВидСвязи = 2 Тогда @@ -516,7 +516,6 @@ КонецЕсли; КонецФункции - &НаКлиенте Процедура ТабличноеПолеПредшественникиНазваниеЗадачиОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) СписокВыбора = Элементы.ТабличноеПолеПредшественникиНазваниеЗадачи.СписокВыбора; diff --git a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl index 44cd18fbc..b6f282bb4 100644 --- a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl +++ b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl @@ -14,7 +14,7 @@ #Область ОбщегоНазначения &НаКлиентеНаСервереБезКонтекста -Функция ИзСтрокиВЧисло(Знач Строчка, Знач УчитыватьЗапятую = Истина) Экспорт +Функция ИзСтрокиВЧисло(Знач Строчка, Знач УчитыватьЗапятую = Истина) Количество = СтрДлина(строчка); НоваяСтрочка = ""; @@ -156,7 +156,7 @@ КонецПроцедуры &НаСервере -Процедура НастроитьСтрокуНаСервере(Знач пВерх, Знач пНиз, Знач Принудительно = Ложь) Экспорт +Процедура НастроитьСтрокуНаСервере(Знач пВерх, Знач пНиз, Знач Принудительно = Ложь) Если пНиз > ПоследняяСтрока или Принудительно Тогда НачальныйИндекс = Мин(пВерх, ПоследняяСтрока); Индекс = НачальныйИндекс; @@ -2907,7 +2907,7 @@ КонецПроцедуры &НаСервере -Процедура ЗаполнитьЦветаПоУмолчаниюНаСервере() Экспорт +Процедура ЗаполнитьЦветаПоУмолчаниюНаСервере() ОсновнойЦветФонаЗадач = Новый Цвет(255, 255, 255); ОсновнойЦветТекстаЗадач = Новый Цвет(0, 0, 0); ОсновнойЦветФонаСуммирующихЗадач = Новый Цвет(255, 251, 240); @@ -3130,7 +3130,7 @@ КонецПроцедуры &НаСервере -Функция ПолучитьЧисловойВидСвязи(Знач ВидСвязи) Экспорт +Функция ПолучитьЧисловойВидСвязи(Знач ВидСвязи) //Попытка // Если ВидСвязи = Перечисления.пмВидыСвязей.ОкончаниеНачало Тогда // Возврат 0; @@ -3149,7 +3149,7 @@ КонецФункции &НаСервере -Функция ПолучитьВидСвязиПеречислением(ВидСвязи) Экспорт +Функция ПолучитьВидСвязиПеречислением(ВидСвязи) //Попытка // Если ВидСвязи = 0 Тогда // Возврат Перечисления.пмВидыСвязей.ОкончаниеНачало; @@ -3168,7 +3168,7 @@ КонецФункции &НаСервереБезКонтекста -Функция ПолучитьРезультатЗапросаПоЗадачамПапки(Знач пПапкаСЗадачами) Экспорт +Функция ПолучитьРезультатЗапросаПоЗадачамПапки(Знач пПапкаСЗадачами) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | пмЗадачи.Ссылка КАК Ссылка, @@ -3315,7 +3315,7 @@ КонецПроцедуры &НаСервере -Функция ПроверитьУдаленныеЗадачи(Знач МассивЗадачПроекта) Экспорт +Функция ПроверитьУдаленныеЗадачи(Знач МассивЗадачПроекта) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ @@ -4485,7 +4485,7 @@ КонецПроцедуры &НаСервере -Процедура РазобратьСтрокуProject(Строка,тзРаботы, СтруктураПозицииОбщая, ТаблицаРесурсов)Экспорт +Процедура РазобратьСтрокуProject(Строка,тзРаботы, СтруктураПозицииОбщая, ТаблицаРесурсов) СтрокаТзРаботы = тзРаботы.Добавить(); @@ -4567,7 +4567,7 @@ КонецПроцедуры -Функция ОбновитьСтруктуруСУчетомСмещения(СтруктураПозиции, КоличествоРесурсов, КоличествоПредшественников)Экспорт +Функция ОбновитьСтруктуруСУчетомСмещения(СтруктураПозиции, КоличествоРесурсов, КоличествоПредшественников) Для Каждого КлючИЗначение из СтруктураПозиции Цикл ИсходноЗначение = КлючИЗначение.Значение; Если ИсходноЗначение = 0 или @@ -4588,7 +4588,7 @@ Возврат СтруктураПозиции; КонецФункции -Функция ВычитатьРесурсыЗадачиProject(ИсходнаяСтрока, СтрокаТзРаботы,СтруктураПозиции, Смещение = 0)Экспорт +Функция ВычитатьРесурсыЗадачиProject(ИсходнаяСтрока, СтрокаТзРаботы,СтруктураПозиции, Смещение = 0) КоличествоРесурсов = 1; Если СтруктураПозиции.Названия_ресурсов > 0 Тогда // Разбираем ресурсы @@ -4723,7 +4723,7 @@ КонецФункции &НаСервере -Функция ВычитатьПредшественниковProject(ИсходнаяСтрока, СтрокаТзРаботы,СтруктураПозиции, Смещение = 0)Экспорт +Функция ВычитатьПредшественниковProject(ИсходнаяСтрока, СтрокаТзРаботы,СтруктураПозиции, Смещение = 0) НомерТекущейСтроки = Число(ПолучитьСтроковоеЗначениеПоПозиции(ИсходнаяСтрока, СтруктураПозиции.Ид))+3; КоличествоПредшественников = 1; Если СтруктураПозиции.Предшественники > 0 Тогда @@ -4824,7 +4824,7 @@ КонецФункции &НаСервереБезКонтекста -Функция ПреобразоватьВДату(Знач Стр)Экспорт +Функция ПреобразоватьВДату(Знач Стр) Если Стр = "НД" Тогда Возврат Неопределено; КонецЕсли; @@ -4855,7 +4855,7 @@ КонецФункции //ПреобразоватьВДату &НаСервереБезКонтекста -Функция ПолучитьПредставлениеВидСвязиДляProjectНаСервере(ВидСвязи)Экспорт +Функция ПолучитьПредставлениеВидСвязиДляProjectНаСервере(ВидСвязи) Если ВидСвязи = 1 Тогда Возврат "Окончание-Окончание"; ИначеЕсли ВидСвязи = 2 Тогда @@ -4868,7 +4868,7 @@ КонецФункции &НаСервере -Функция ПолучитьВидСвязиИзProject(ВидСвязи) Экспорт +Функция ПолучитьВидСвязиИзProject(ВидСвязи) Если ВидСвязи = "ОО" Тогда Возврат 1; ИначеЕсли ВидСвязи = "НО" Тогда @@ -4951,7 +4951,7 @@ КонецПроцедуры -Функция ПолучитьСтруктуруПозиций(Строка) Экспорт +Функция ПолучитьСтруктуруПозиций(Строка) //("Ид;Название_задачи;Длительность;Уровень_структуры;Предшественники;Начало;"+ //"Окончание;"+ //"Тип_ограничения;Дата_ограничения;Названия_ресурсов;Суммарная_задача;"); @@ -4997,7 +4997,7 @@ КонецФункции &НаСервереБезКонтекста -Функция ПолучитьСтроковоеЗначениеПоПозиции(Знач Строка, Знач НомерВхождения)Экспорт +Функция ПолучитьСтроковоеЗначениеПоПозиции(Знач Строка, Знач НомерВхождения) ВременнаяСтрока = Строка; Индекс = 0; @@ -5019,7 +5019,7 @@ КонецФункции &НаСервере -Функция ПреобразоватьСтроковоеЗначениеТипаОграничения(ВидОграничения) Экспорт +Функция ПреобразоватьСтроковоеЗначениеТипаОграничения(ВидОграничения) Если ВидОграничения = НСтр("ru = 'Как можно раньше'") Тогда Возврат ВидыОграничений.КМР; ИначеЕсли ВидОграничения = НСтр("ru = 'Как можно позже'") Тогда @@ -7270,7 +7270,7 @@ //Диаграмма.Обновление = Истина; КонецПроцедуры -Процедура Пустышка(РезультатВыбора, ДополнительныеПараметры) Экспорт +Процедура Пустышка(РезультатВыбора, ДополнительныеПараметры) КонецПроцедуры