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

    Всего: 1

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

    −37

    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
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    ФормаВыбора = Справочники.СпецификацииНоменклатуры.ПолучитьФормуВыбораГруппы();
	Родитель = ФормаВыбора.ОткрытьМодально();

	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Родитель",Сред(Справочники.СпецификацииНоменклатуры.НайтиПоНаименованию(Родитель),1,50));
	Запрос.УстановитьПараметр("Материалы",Справочники.Номенклатура.НайтиПоНаименованию("Материалы"));
	Запрос.УстановитьПараметр("Активная",Истина);
	Запрос.УстановитьПараметр("КодВерсии","00001");
	Запрос.Текст = "ВЫБРАТЬ
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Количество / СпецификацииНоменклатурыВыходныеИзделия.Количество * 1000 КАК Количество,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.ВидНоменклатуры.Ссылка КАК ВидНоменклатуры,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Артикул КАК Обозначение,
	|	ВЫБОР
	|		КОГДА (НЕ ПОДСТРОКА(СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД, 1, 10) = ""          "")
	|			ТОГДА СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД
	|		ИНАЧЕ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Наименование
	|	КОНЕЦ КАК Наименование,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Комментарий КАК Комментарий,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Наименование КАК ВыходнаяНоменклатура1,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.НаименованиеПолное КАК ВыходнаяНоменклатура,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Родитель.Родитель КАК Родитель,
	|	СпецификацииНоменклатурыВыходныеИзделия.Номенклатура.Артикул КАК ВыходнаяНоменклатура1Артикул,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Родитель КАК Родитель1,
	|	СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Родитель КАК Родитель2,
	|	СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.НаименованиеВКД КАК НаименованиеВКД,
	|	СпецификацииНоменклатурыВыходныеИзделия.Количество КАК Количество1
	|ИЗ
	|	Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК СпецификацииНоменклатурыИсходныеКомплектующие
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ВыходныеИзделия КАК СпецификацииНоменклатурыВыходныеИзделия
	|		ПО СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Ссылка = СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Ссылка
	|ГДЕ
	|	(СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Родитель.Ссылка = &Материалы
	|			ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Родитель.Родитель.Родитель.Родитель.Ссылка = &Материалы)
	|	И ПОДСТРОКА(СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.Родитель.Наименование, 1, 50) = &Родитель
	|	И ПОДСТРОКА(СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Родитель.Наименование, 1, 50) = &Родитель
	|	И СпецификацииНоменклатурыВыходныеИзделия.Ссылка.Активная = &Активная
	|	И СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка.КодВерсии = &КодВерсии";
	
	//Отладка для таблицы
	//Результат1 = Запрос.Выполнить().Выгрузить();
	//Результат1.ВыбратьСтроку();
	//Возврат;
	Результат = Запрос.Выполнить();
	Возврат Результат;

    Судя по коду "разработчик" был не сильно много знаком с программированием в 1С.

    KDE, 26 Ноября 2015

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