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

    Всего: 7

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

    −104

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

    Вот такой вот способ получения номенклатуры вместе с иерархией

    glavdir, 06 Февраля 2013

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

  3. 1C / Говнокод #11293

    −116

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    ВЫБОР 
КОГДА ПолФизическихЛиц.Ссылка = "Женский" 
ТОГДА "М" 
ИНАЧЕ "Ж" 
КОНЕЦ

    Вот такой вот забавный запрос

    glavdir, 25 Июня 2012

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

  4. 1C / Говнокод #9719

    −132

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    Попытка
			Если Число(ДисконтнаяКарта.НомерКарты) >= 111065251 И Число(ДисконтнаяКарта.НомерКарты) <= 111065453 И  ПревышенаСуммаДисконта() Тогда 
				Отказ = Истина;
				Сообщить("Сумма дисконта превышает оставшийся лимит по карте!",СтатусСообщения.Важное);
				Возврат
			КонецЕсли;
		Исключение
		КонецПопытки;

    glavdir, 20 Марта 2012

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

  5. 1C / Говнокод #9586

    −133

    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
    Функция ПроверкаНогИВанны()
	Строка = ТаблицаНоменклатуры.Найти(Справочники.Номенклатура.НайтиПоКоду("50641     "), "Номенклатура");
	Если Строка = Неопределено Тогда
		Возврат Ложь;
	Иначе 
		СтрокаВанна = ТаблицаНоменклатуры.Найти(Справочники.Номенклатура.НайтиПоКоду("50624     "), "Номенклатура");
		Если СтрокаВанна = Неопределено Тогда 
			Возврат Истина
		Иначе 
			Возврат Ложь
		КонецЕсли;
	КонецЕсли;
КонецФункции

    glavdir, 02 Марта 2012

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

  6. 1C / Говнокод #9334

    −134

    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
    Если Сумма25<>0 Тогда
				с25=Сумма25/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма26<>0 Тогда
				с26=Сумма26/Итог("Материалы")*Материалы;
			КонецЕсли;
			Если Сумма60<>0 Тогда
				с60=Сумма60/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма691<>0 Тогда
				с691=Сумма691/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма692<>0 Тогда
				с692=Сумма692/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма6921<>0 Тогда
				с6921=Сумма6921/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма6922<>0 Тогда
				с6922=Сумма6922/Итог("Материалы")*Материалы;
			КонецЕсли; 

			Если Сумма693<>0 Тогда
				с693=Сумма693/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма6931<>0 Тогда
				с6931=Сумма6931/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма6932<>0 Тогда
				с6932=Сумма6932/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма694<>0 Тогда
				с694=Сумма694/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма695<>0 Тогда
				с695=Сумма695/Итог("Материалы")*Материалы;
			КонецЕсли;
			Если Сумма70<>0 Тогда
				с70=Сумма70/Итог("Материалы")*Материалы;
			КонецЕсли; 
			Если Сумма97<>0 Тогда
				с97=Сумма97/Итог("Материалы")*Материалы;
			КонецЕсли;

    glavdir, 06 Февраля 2012

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

  7. 1C / Говнокод #9333

    −136

    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
    ВыполнениеОплаченнойУслугиТранспорт="1";  // выполнение Услуги
ВыполнениеОплаченнойУслугиОплатаТруда="2";  // выполнение Услуги
ВыполнениеОплаченнойУслугиОтчисления="3";  // выполнение Услуги
ВыполнениеОплаченнойУслугиАрендаОС="4";  // выполнение Услуги
ВыполнениеОплаченнойУслугиАмортизацияОС="5";  // выполнение Услуги
ВыполнениеОплаченнойУслугиРемонтОС="6";  // выполнение Услуги
ВыполнениеОплаченнойУслугиИзносМБП="7";  // выполнение Услуги
ВыполнениеОплаченнойУслугиТопливо="8";  // выполнение Услуги
ВыполнениеОплаченнойУслугиХранение="9";  // выполнение Услуги
ВыполнениеОплаченнойУслугиРеклама="Q";  // выполнение Услуги
ВыполнениеОплаченнойУслугиПроценты="W";  // выполнение Услуги
ВыполнениеОплаченнойУслугиПотери="E";  // выполнение Услуги
ВыполнениеОплаченнойУслугиТара="R";  // выполнение Услуги
ВыполнениеОплаченнойУслугиПрочие="T";  // выполнение Услуги
ВыполнениеОплаченнойУслугиНеПринимаемые="Y";  // выполнение Услуги

НеоплаченноеВыполнениеУслугиТранспорт="!";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиОплатаТруда="@";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиОтчисления="#";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиАрендаОС="$";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиАмортизацияОС="%";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиРемонтОС="^";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиИзносМБП="&";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиТопливо="*";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиХранение="(";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиРеклама="q";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиПроценты="w";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиПотери="e";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиТара="r";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиПрочие="t";  // выполнение Услуги
НеоплаченноеВыполнениеУслугиНеПринимаемые="y";  // выполнение Услуги

    Шо це такое непонятно. Но впечатление производит пугающее

    glavdir, 06 Февраля 2012

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

  8. 1C / Говнокод #7995

    −140

    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
    Процедура Кнопка1Нажатие(Элемент)
	// Вставить содержимое обработчика.
	//орг=элементыформы.организация.Значение;

запрос1=новый запрос;
запрос1.текст=""выбрать * из регистрсведений.регионыорганизаций где  регион=&регион"";
запрос1.УстановитьПараметр(""регион"",регион);
выборка=запрос1.Выполнить().Выбрать();
запрос2=новый запрос;
пока выборка.Следующий()цикл
	орг=выборка.организация;
	//Сообщить(выборка.Количество()); 
	запрос2.Текст=""выбрать * из регистрсведений.сведенияосотруднике где организация=&орг и ""+
""должность=&должн"";

запрос2.УстановитьПараметр(""орг"", орг);
запрос2.УстановитьПараметр(""должн"",должность);
выборка2=запрос2.Выполнить().Выбрать();
 если выборка2.Количество()>2 тогда
сообщить(строка(орг )+"" - ""+строка(выборка2.количество()));
конецесли;
конеццикла

КонецПроцедуры

    Задание было такое
    Написать интерфейс для выборки данных о количестве заместителей генерального директора в каждой организации, работающей в n-й области, где таковых заместителей более двух.

    Авторское решение приведено в первозданном виде.

    glavdir, 27 Сентября 2011

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