1. 1C / Говнокод #18129

    −157

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

-------------------------------------------------------------------------------------------------------------------------


Вот отдельные выжимки:
/////////////////////
Если  ст.Options="Percent" тогда //Нужно выяснить что за  Percent ибо не помню =( Лучше потом подумаю
			Сообщить("Данная смета возможно не корректно рассчитывает концевики! Обратитесь к Администратору!");
КонецЕсли;
//////////////////////

//ЧЧЧ Серега 09,12,12 слав, а почему ты это удалил? (без этих строк сумма сметы не была везде правильной)
	Строки=Дерево.Строки.НайтиСтроки(новый Структура("ВидГруппы",Перечисления.ВидыГруппЛокальныхСмет.ДанныеСметы),истина);
	
//ЧЧЧ

    С помощью таких вот функций производится расчет бюджета проекта по капитальному строительству в очень крупной российской компании. Главное что функциональный заказчик этого добра, с глубокой уверенностью считает что у него замечательная конфигурация. Код специаьн

    Запостил: Gostmair, 07 Мая 2015

    Комментарии (3) RSS

    Добавить комментарий