- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
Функция ОпределитьБазовуюДату(стр,ТипДаты,Условие)
рез=NULL ;
Если ТипДаты=Перечисления._ВидБазовойДаты.ЗавершениеРаботы тогда
рез= Стр.ДатаОкончанияРаботы;
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
рез= Стр.ДатаНачалаРаботы;
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.ФиксированнаяДата тогда
рез=Условие.ДатаАкта;
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
рез= Стр.ДатаЗавершенияРаботы;
КонецЕсли;
Попытка
рез =Дата(рез);
исключение
рез=ТекущаяДата();
Сообщить("неопределена дата "+ТипДаты+" для локальной сметы " + стр.ЛокальнаяСмета + ", ключ строки " + Стр.Ключ);
КонецПопытки;
возврат рез;
КонецФункции
-------------------------------------------------------------------------------------------------------------------------
Вот отдельные выжимки:
/////////////////////
Если ст.Options="Percent" тогда //Нужно выяснить что за Percent ибо не помню =( Лучше потом подумаю
Сообщить("Данная смета возможно не корректно рассчитывает концевики! Обратитесь к Администратору!");
КонецЕсли;
//////////////////////
//ЧЧЧ Серега 09,12,12 слав, а почему ты это удалил? (без этих строк сумма сметы не была везде правильной)
Строки=Дерево.Строки.НайтиСтроки(новый Структура("ВидГруппы",Перечисления.ВидыГруппЛокальныхСмет.ДанныеСметы),истина);
//ЧЧЧ
С помощью таких вот функций производится расчет бюджета проекта по капитальному строительству в очень крупной российской компании. Главное что функциональный заказчик этого добра, с глубокой уверенностью считает что у него замечательная конфигурация. Код специаьн