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

    −137

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    Перем ВидНДС;

.......................................................................................................................
	
	Если ВыбВидНДС = Перечисление.ВидыНДС.Реализация Тогда
		ВидНДС = Перечисление.ВидыНДС.Реализация;
	ИначеЕсли ВыбВидНДС = Перечисление.ВидыНДС.Авансы Тогда
		ВидНДС = Перечисление.ВидыНДС.Авансы;
	КонецЕсли;

    ВыбВидНДС - реквизит формы.

    antz, 19 Ноября 2010

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

  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)

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

    −128

    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
    Родит=ДокР.Контрагент.Родитель; 
Если ПустоеЗначение(Родит.Телефон)=1 Тогда
    Родит1=Родит.Родитель;
	Если ПустоеЗначение(Родит1.Телефон)=1 Тогда
	    Родит2=Родит1.Родитель;
			Если ПустоеЗначение(Родит2.Телефон)=1 Тогда
			     Родит3=Родит2.Родитель;
				 ТЗДок.Тел=Родит3.Телефон;
			Иначе
		    	ТЗДок.Тел=Родит2.Телефон;
			КонецЕсли;        
	Иначе
	     ТЗДок.Тел=Родит1.Телефон;
	КонецЕсли;            
Иначе
	ТЗДок.Тел=Родит.Телефон;
КонецЕсли;

    ingenuus, 24 Августа 2010

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

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

    −128

    1. 1
    2. 2
    3. 3
    4. 4
    ПолучитьСтроку();
Пока КоличествоСтрок() <> 0 Цикл
	УдалитьСтроку();
КонецЦикла;

    Новый способ удаления всех строк из документа. Похоже, что разработчик не ведает о существовании метода УдалитьСтроки();

    SSNick, 05 Августа 2010

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

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

    −130

    1. 1
    2. 2
    3. 3
    Если Конт.Сумма <> КонтСумма Тогда
    Конт.Сумма = КонтСумма;
КонецЕсли;

    Встретил в типовой конфигурации одной из небольших фирм-франчайзи. Много думал ...

    SSNick, 04 Августа 2010

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

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

    −378

    1. 1
    2. 2
    3. 3
    4. 4
    ПЦ = 0;
	Пока ПЦ<10000 Цикл
		ПЦ = ПЦ + 1;
	КонецЦикла;

    1С 7.7 Регламентированные отчеты за 2 квартал 2010 года, "декларация НДС"
    Зачем эта вставка, не понятно, может что бы помедленней работало?

    roavenik, 08 Июля 2010

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

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

    −133

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    Отбор = РегистрыСведений.БазыКонтрагентов.СрезПоследних(Дата,новый Структура("Производитель",Контрагент));
Если Отбор.Количество()>0 Тогда
	Для каждого ТекТМ из Отбор Цикл
		Элемент.списокВыбора.Очистить();		
		Для каждого ТекТМ из Отбор Цикл
			Элемент.списокВыбора.ДОбавить(ТекТМ.ТорговаяМарка,ТекТМ.ТорговаяМарка);
		КонецЦикла;	
	КонецЦикла;			
КонецЕсли;

    Сложно сказать что хотел сделать этим автор :)
    Может добавить последнюю строку из отбора? :D

    PayneBLADE, 02 Июля 2010

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

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

    −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
    23. 23
    24. 24
    25. 25
    26. 26
    Если ДатаЧисло(НачДата) < 10 Тогда
	ЧислоДата = "0"+ДатаЧисло(НачДата);
Иначе
	ЧислоДата =  ДатаЧисло(НачДата);
КонецЕсли;

Если ДатаМесяц(НачДата) < 10 Тогда
	МесяцДата = "0"+ДатаМесяц(НачДата);
Иначе
	МесяцДата =  ДатаМесяц(НачДата);
КонецЕсли;			
		
Если ДатаЧисло(КонДата) < 10 Тогда
	КонЧислоДата = "0"+ДатаЧисло(КонДата);
Иначе
	КонЧислоДата =  ДатаЧисло(КонДата);
КонецЕсли;

Если ДатаМесяц(КонДата) < 10 Тогда
	КонМесяцДата = "0"+ДатаМесяц(КонДата);
Иначе                                                                     
	КонМесяцДата =  ДатаМесяц(КонДата);
КонецЕсли;			

/// ... где-то ниже
ЧислоДата+"/"+МесяцДата+"/"+ДатаГод(НачДата)+";"+КонЧислоДата+"/"+КонМесяцДата+"/"+ДатаГод(КонДата)

    У меня это ужалось до 2х строк:
    ДатаСтр = Строка(Формат(НачДата, "ДDDMMYYYY"));
    ДатаСтр = СтрЗаменить(ДатаСтр, ".", "/");

    just_geek, 01 Июля 2010

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

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

    −124

    1. 1
    ЭтоЗаказПокупателя = ?(ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ЗаказПокупателя"), Истина, Ложь);

    мощь ))))

    luns, 29 Апреля 2010

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

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

    −128.6

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    Перем Да, Нет Экспорт;

Да  = 1;
Нет = 0;

и далее в кодах идет 
Если <что то>=Да Тогда
....
КонецЕсли;

    сразу скажу....это все пишется в 1С 7.7

    походу ребятки ПЕРЕКОДИЛИ в 8-ке и снова вернулись на 7-ку

    s.komaroff, 08 Апреля 2010

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