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

    −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
    Говно = 0;
		ТекущийДокумент.ВыбратьСтроки();
		Пока ТекущийДокумент.ПолучитьСтроку() = 1 Цикл
			Если (ТекущийДокумент.ДатаПоставкиЭА < ТекущаяДата()) и (ПустоеЗначение(ТекущийДокумент.ДатаПоставкиЭА) = 0) и (ТекущийДокумент.Аннулирован = 0) и (ТекущийДокумент.Аннулирована = 0) Тогда
				Если (ТекущийДокумент.СостояниеСтрокиЗаказа = Перечисление.СостояниеЗаказа.Сделан) или (ПустоеЗначение(ТекущийДокумент.СостояниеСтрокиЗаказа) = 1) Тогда
					Говно = 1;
					Прервать;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
		Если Говно = 1 Тогда
			Возврат "FONT["+ПолучитьЦвет(0,0,0)+"] BRUSH["+ПолучитьЦвет(128,128,0)+"]";		
		КонецЕсли;

Код окрашивает строку в цвет говна:)
К коду претензий не имею, но говно-код получается.

    Unknown181538, 26 Июля 2011

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

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

    −132

    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
    Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ин_Кодификатор",Кодификатор);
   Запрос.Текст =  "ВЫБРАТЬ
   | СтатьиДвиженияДенежныхСредств.Ссылка
   |ИЗ
   | Справочник.СтатьиДвиженияДенежныхСредств КАК СтатьиДвиженияДенежныхСредств
   |ГДЕ
   | СтатьиДвиженияДенежныхСредств.ин_Кодификатор = &ин_Кодификатор
   |";
   
   Выборка = Запрос.Выполнить().Выбрать();
   Если Выборка.Следующий() Тогда   
    Если  Выборка.Ссылка.Наименование <> Наименование Тогда
     СтатьяДДСОбъект = Выборка.Ссылка.ПолучитьОбъект();      
     СтатьяДДСОбъект.Наименование = Наименование;
     СтатьяДДСОбъект.Записать(); 
    КонецЕсли;
    Если  Выборка.Ссылка.ин_Кодификатор <> Кодификатор Тогда
     СтатьяДДСОбъект = Выборка.Ссылка.ПолучитьОбъект();         
     СтатьяДДСОбъект.ин_Кодификатор = Кодификатор;
     СтатьяДДСОбъект.Записать(); 
    КонецЕсли;

    Отбор в запросе ин_Кодификатор = &ин_Кодификатор.
    Потом идет проверка Выборка.Ссылка.ин_Кодификатор <> Кодификатор

    s-in-m, 25 Июля 2011

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

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

    −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
    Функция ПолучитьОстаток(ДанныеСтроки)

	Запрос = Новый Запрос("ВЫБРАТЬ
	                       |	ПартииТоваровНаСкладахОстатки.КоличествоОстаток
	                       |ИЗ
	                       |	РегистрНакопления.ПартииТоваровНаСкладах.Остатки КАК ПартииТоваровНаСкладахОстатки
	                       |ГДЕ
	                       |	ПартииТоваровНаСкладахОстатки.СерияНоменклатуры = &Серия");
	Запрос.УстановитьПараметр("Серия", ДанныеСтроки.Ссылка);

	РезультатЗапроса = Запрос.Выполнить().Выбрать();

	СерияНоменклатуры = ДанныеСтроки.Ссылка.ПолучитьОбъект();

	Если РезультатЗапроса.Следующий() тогда
		 СерияНоменклатуры.Остаток = РезультатЗапроса.КоличествоОстаток;
	Иначе
		 СерияНоменклатуры.Остаток = 0;
	КонецЕсли;

	СерияНоменклатуры.Записать(); 	 

КонецФункции

Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

	ПолучитьОстаток(ДанныеСтроки);
	
КонецПроцедуры // СправочникСписокПриВыводеСтроки()

    Задача была - при выборе серии номенклатуры подтягивать в форму выбора остатки на складе...

    Kirmas, 29 Июня 2011

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

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

    −131

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    РегламентированнаяОтчетность.ПередОткрытиемФормыРегламентированногоОтчета(ЭтаФорма, Отказ);
////Вызывается перед открытием, а потом видим:

Процедура ПередОткрытиемФормыРегламентированногоОтчета(Форма, Отказ) Экспорт
	
	Отказ = Ложь;
	
КонецПроцедуры

    Windtalkers, 27 Июня 2011

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

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

    −144

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Процедура ЗаполнитьНажатие(Элемент)	
	Если Период_планирования="" или Структурное_подразделение.Пустая() или Плановая_потребность_в_кадрах.Пустая() или Начальник_ППО.Пустая() или Начальник_отдела_кадров.Пустая() тогда
	ks = Новый COMОбъект ("WScript.Shell");
	ks.popup("Заполните все необходимые риквизиты верхней части!", 1, "Внимание", 64); 
	Возврат;
конецесли;

    Из студенческих работ :)

    r3nya, 06 Июня 2011

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

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

    −365

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    Функция ПреобразоватьМаленькиеБуквыВБольшиеБуквы(Слово)
    
    Слово = СтрЗаменить(Слово, "а", "А");
    Слово = СтрЗаменить(Слово, "б", "Б");
    //...
 
    Слово = СтрЗаменить(Слово, "я", "Я");
    
    Возврат Слово;
    
КонецФункции

    Легкие пути для слабых))))

    kirillsas, 02 Июня 2011

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

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

    −136

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Если СтрФайлЗагрузки = Ложь Тогда
		СтрФайлЗагрузки = ФайлЗагрузки;
	Иначе
		ФайлЗагрузки = СтрФайлЗагрузки;
КонецЕсли;

    1vasia1, 01 Июня 2011

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

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

    −128

    1. 1
    2. 2
    тПодр	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущееПодразделениеОрганизации;
тДолжн	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущаяДолжность;

    а может, только так и надо?

    -ggorky, 26 Мая 2011

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

  9. 1C / Говнокод #6339

    −154

    1. 1
    <img src="http://img199.imageshack.us/img199/5446/65715023.jpg" alt="">

    без комментариев))

    cdpoma, 13 Апреля 2011

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

  10. 1C / Говнокод #6227

    −132

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    Договор = Неопределено;

ВыборкаДоговоров = Справочники.ДоговорыКонтрагентов.Выбрать();

Пока ВыборкаДоговоров .Следующий() Цикл
      Если ВыборкаДоговоров.Ссылка = Документ.ДоговорКонтрагента Тогда
            Договор = ВыборкаДоговоров.Ссылка;
      КонецЕсли;
КонецЦикла

ТабДокумент.Параметры.Договор = Договор.Наименеование;

    Попросили стажера сделать печатную форму.

    A-tomic, 05 Апреля 2011

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