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

    Всего: 5

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

    −45

    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
    Если РаздельнаяДоставка И МассивОшибок.Количество() = Получатели.Количество() Тогда
	ТекстСообщения = "Сообщения НЕ отправлены !!!";
ИначеЕсли РаздельнаяДоставка И МассивОшибок.Количество() Тогда
	ТекстСообщения = "Не все сообщения отправлены !!!";
ИначеЕсли НЕ РаздельнаяДоставка И МассивОшибок.Количество() Тогда
	ТекстСообщения = "Сообщение НЕ отправлено !!!";
ИначеЕсли РаздельнаяДоставка И НЕ МассивОшибок.Количество() Тогда
	ТекстСообщения = "Сообщения отправлены.";
ИначеЕсли НЕ РаздельнаяДоставка И НЕ МассивОшибок.Количество() Тогда
	ТекстСообщения = "Сообщение отправлено.";
Иначе
	ТекстСообщения = "Непонятка какая-то!?";
КонецЕсли;

    Непонятка какая-то!?

    grandatlant, 01 Февраля 2017

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

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

    −49

    1. 1
    2. 2
    3. 3
    4. 4
    ДатаКурса = ДатаДока;
Если НЕ СтруктураШапкиДокумента.Свойство("ДатаКурса", ДатаКурса) Тогда
	ДатаКурса = ДатаДока;
КонецЕсли;

    Смысла не лишено, но зачем так?

    grandatlant, 26 Января 2017

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

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

    −88

    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
    47. 47
    48. 48
    49. 49
    // готовим выборку
	ВыборкаПоСчетам = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Счет" + ЧастьБаланса);
	Пока ВыборкаПоСчетам.Следующий() Цикл
		ВыборкаСбк1 = ВыборкаПоСчетам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "1");
		Пока ВыборкаСбк1.Следующий() Цикл
			ВыборкаСбк2 = ВыборкаСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "2");
			Пока ВыборкаСбк2.Следующий() Цикл
				ВыборкаСбк3 = ВыборкаСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "3");
				Пока ВыборкаСбк3.Следующий() Цикл
					ВыборкаПоКоррСчетам = ВыборкаСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Счет" + КоррЧастьБаланса);
					Пока ВыборкаПоКоррСчетам.Следующий() Цикл
						ВыборкаКоррСбк1 = ВыборкаПоКоррСчетам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "1");
						Пока ВыборкаКоррСбк1.Следующий() Цикл
							ВыборкаКоррСбк2 = ВыборкаКоррСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "2");
							Пока ВыборкаКоррСбк2.Следующий() Цикл
								ВыборкаКоррСбк3 = ВыборкаКоррСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "3");
								Пока ВыборкаКоррСбк3.Следующий() Цикл
									ВыборкаНалСчет = ВыборкаКоррСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "СчетКорректировок");
									Пока ВыборкаНалСчет.Следующий() Цикл
										ВыборкаНалСбк1 = ВыборкаНалСчет.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто1Корректировок");
										Пока ВыборкаНалСбк1.Следующий() Цикл
											ВыборкаНалСбк2 = ВыборкаНалСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто2Корректировок");
											Пока ВыборкаНалСбк2.Следующий() Цикл
												ВыборкаНалСбк3 = ВыборкаНалСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто3Корректировок");
												Пока ВыборкаНалСбк3.Следующий() Цикл
													ВыборкаСделок = ВыборкаНалСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Сделка");
													Пока ВыборкаСделок.Следующий() Цикл
														ВыборкаДанных = ВыборкаСделок.Выбрать();
														Если ВыборкаДанных.Следующий() Тогда
															// Пара строк кода
															Для Сч = 1 По 3 Цикл
																Если ТипЗнч(ВыборкаДанных["Субконто" + ЧастьБаланса + Сч]) = Тип("СправочникСсылка.СтатьиЗатрат") Тогда
																	// И тут еще пара строк кода
																КонецЕсли;
															КонецЦикла;
														КонецЕсли;
													КонецЦикла; // по сделкам
												КонецЦикла; // по субконто3 корректировок
											КонецЦикла; // по субконто2 корректировок
										КонецЦикла; // по субконто1 корректировок
									КонецЦикла; // по счетам корректировок
								КонецЦикла; // по  корр субконто3
							КонецЦикла; // по  корр субконто2
						КонецЦикла; // по корр субконто1
					КонецЦикла; // по корр счетам
				КонецЦикла; // по субконто3
			КонецЦикла; // по субконто2
		КонецЦикла; // по субконто1
	КонецЦикла; // по счетам

    Готовим выборку!

    grandatlant, 27 Января 2016

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

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

    −106

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    ДокументРасчетовСКонтрагентом = СсылкаНаОбъект.ДокументОснование;

Для ы = 1  По 100 Цикл
	Если ТипЗнч(ДокументРасчетовСКонтрагентом) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
		Прервать;
	Иначе
		ДокументРасчетовСКонтрагентом = ДокументРасчетовСКонтрагентом.ДокументОснование;
	КонецЕсли;
КонецЦикла;

    С вероятностью 100% доберемся до нужного документа

    grandatlant, 27 Мая 2015

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

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

    −105

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Филиал = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнойФилиал");

Если НЕ ЗначениеЗаполнено(Филиал) Тогда
	Филиал = Филиал;
КонецЕсли;

    Не заполнен - значит заполним!

    grandatlant, 27 Мая 2015

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