1. Список говнокодов пользователя nickkk

    Всего: 1

  2. 1C / Говнокод #4680

    −121

    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
    Процедура УстановкаНомераЛицевогоСчета()
	
	Запрос = Новый Запрос();
	Запрос.Текст =
	"ВЫБРАТЬ
	|	КВП_ЛицевыеСчета.Наименование
	|ИЗ
	|	Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
	|ГДЕ
	|	(НЕ КВП_ЛицевыеСчета.ЭтоГруппа)";
	
	МаксНомер      = 0;
	Выборка        = Запрос.Выполнить().Выбрать();
	ВсегоВариантов = Выборка.Количество();
	ТекВариант     = 1;
	Пока Выборка.Следующий() Цикл
		Номер = ВыбратьТолькоЦифры(Выборка.Наименование);
		Если МаксНомер < Число(Номер) Тогда
			МаксНомер = Число(Номер);
		КонецЕсли;
		Состояние("Поиск максимального лицевого счета: " + ТекВариант + " / " + ВсегоВариантов);
		ТекВариант = ТекВариант + 1;
	КонецЦикла;
	
	МаксНомер = МаксНомер + 1;
	ИмяЛицевогоСчета = "л/с №" + Формат(МаксНомер, "ЧДЦ=0; ЧГ=0");
	
КонецПроцедуры

    Процедура для присвоения Кода новому элементу справочника. Из одной серьезной официальной конфигурации.

    nickkk, 19 Ноября 2010

    Комментарии (21)