1C — Говнокод.ру

1C / Говнокод #12112

−124

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

Function	 ms2Str(Миллисекунды) export
	КолВоЧасов=Цел(Миллисекунды/(60*60*1000));
	Остаток=Миллисекунды-КолВоЧасов*60*60*1000;
	КолВоМинут=Цел(Остаток/(60*1000));
	Остаток=Остаток-КолВоМинут*60*1000;
	КолВоСекунд=Цел(Остаток/1000);
	КолВоМиллисекунд=Остаток-КолВоСекунд*1000;
	h=Формат(КолВоЧасов,"ЧЦ=3;ЧН=;ЧВН=")+":";
	if КолВоЧасов=0 then
		 h="";
 endif;	 
   m=Формат(КолВоМинут,"ЧЦ=2;ЧН=;ЧВН=")+":";	 
 if КолВоМинут=0 then
	  m="";
	endif;  
	return h+m+Формат(КолВоСекунд,"ЧЦ=2;ЧН=;ЧВН=")+":"+Формат(КолВоМиллисекунд,"ЧЦ=3;ЧН=;ЧВН=");
endFunction

Перевод время в миллисекундах в строку. Автор: Жуков А.П.

Danik, 13 Ноября 2012

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

1C / Говнокод #12110

−125

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

procedure setParameters(aq)
 спДекрет= Новый СписокЗначений;
 спДекрет.Добавить(Перечисления.СостоянияРаботникаОрганизации.ОтпускПоБеременностиИРодам);
 спДекрет.Добавить(Перечисления.СостоянияРаботникаОрганизации.ОтпускПоУходуЗаРебенком);
	
	
	aq.setParameter("Дат",КонецДня(НачПериода));
	aq.setParameter("Уволен",Перечисления.ПричиныИзмененияСостояния.Увольнение);
	aq.setParameter("Оклад",Перечисления.СпособыРасчетов.Оклад);
	aq.setParameter("МРП",Перечисления.СпособыРасчетов.КолМРП);
	aq.setParameter("Сумма",Перечисления.СпособыРасчетов.Сумма);
	aq.setParameter("Оклад",Перечисления.СпособыРасчетов.ПроцентОтОклада);
	aq.setParameter("Доход",Перечисления.СпособыРасчетов.ПроцентОтДоходов);
	aq.setParameter("ПодразделениеОрганизации",ПодразделениеОрганизации);
	aq.setParameter("ФизЛицо",Работник);
	aq.setParameter("Должность",Должность);
	aq.setParameter("ВидЗанятости",ВидЗанятости);
	aq.setParameter("ТарифныйРазряд",ТРазряд);
	
	aq.setParameter("ВРЭкология",ВРЭкология);
	
	//Декретники
	aq.setParameter("Декрет",спДекрет);
	//Состояние общее
	aq.setParameter("Состояние",Состояние);
	aq.setParameter("Сост",Состояние1);
endprocedure

procedure setБабло(Тз)
	Тз.Колонки.Добавить("id",new ОписаниеТипов("Строка"));
	Тз.Колонки.Добавить("Размер",new ОписаниеТипов("Число"));
endProcedure

...
	q=new Query;
	q.Текст="                                            //--------------------------------------------бабло
|Select  
|	ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон.Размер,
|	ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон.ФизЛицо.код id
|from
|	РегистрСведений.ПлановыеНачисленияРаботниковОрганизаций.СрезПоследних(
|			&Дат,
|			ВидРасчета.ЯвляетсяОсновнымНачислением
|				И Размер <> 0) КАК ПлановыеНачисленияРаботниковОрганизацийСрезПоследнихКон
|";
	
	setParameters(q);
	бабло=New ТаблицаЗначений;
	setБабло(бабло);
	rs=q.Выполнить().Выбрать();
	while rs.next() do
			s=бабло.Добавить();
   s.id=rs.id;
   s.Размер=rs.Размер;
enddo;
 бабло.Индексы.Добавить("id"); 
...

Форматирование текста оставил как есть. Автор: Жуков А.П.

Danik, 13 Ноября 2012

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

1C / Говнокод #12076

−123

1
2
3
4
5

Запрос = Новый Запрос;
 Запрос.Текст = "какой-то там текст запроса с параметрами <Вариант> и <НеВариант>"
 
 Запрос.УстановитьПараметр("Вариант", ?(Вариант = Истина, Истина, Ложь));
 Запрос.УстановитьПараметр("НеВариант", ?(Вариант = Истина, Ложь, Истина));

Упрощается все до ...("Вариант", Вариант) и ...("НеВариант", Не Вариант) (хотя два параметра, зависящие от одной переменной уже не ок)

Теперь по офису на вопрос: "А можно ли упростить?" сразу летит в ответ сакральное "НЕ ВАРИАНТ!!!"

nixel, 08 Ноября 2012

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

1C / Говнокод #12054

−156

1
2
3

Говнокод, выручай пишу быстро. Работаю дома, так же как и ты наверно, у нас есть модем мегафон 4G.
Я не знал что там трафик не безлимитный. Сейчас мамка хочет сделать запрос сайтов, точнее уже начала смотреть.
Я смотрел на порно и дрочил, что делать?

serpinski, 04 Ноября 2012

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

1C / Говнокод #11981

−126

01
02
03
04
05
06
07
08
09
10
11
12
13
14

1CClientBankExchange
ВерсияФормата=1.01
Кодировка=Windows
Получатель=
ДатаНачала=25.09.2012
ДатаКонца=25.09.2012
...
СекцияРасчСчет
...
КонецРасчСчет
СекцияДокумент=Платежное поручение
...
КонецДокумента
КонецФайла

Формат файла: Стандарт обмена с системами "Клиент банка"
http://v8.1c.ru/edi/edi_stnd/100/101.htm

Пидорва изобрела ini-файлы. Но убило не это, а это:
>Кодировка=Windows

Centry, 24 Октября 2012

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

1C / Говнокод #11930

−97

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

Функция Транслит(Имя)
    Рез = СокрЛП(Имя);
    Рез = СтрЗаменить(Рез,"а","a");
    Рез = СтрЗаменить(Рез,"б","b");
    Рез = СтрЗаменить(Рез,"в","v");
    Рез = СтрЗаменить(Рез,"г","g");
    Рез = СтрЗаменить(Рез,"д","d");
    Рез = СтрЗаменить(Рез,"е","e");
    Рез = СтрЗаменить(Рез,"ё","jo");
    Рез = СтрЗаменить(Рез,"ж","zh");
    Рез = СтрЗаменить(Рез,"з","z");
    Рез = СтрЗаменить(Рез,"и","i");
    Рез = СтрЗаменить(Рез,"й","jj");
    Рез = СтрЗаменить(Рез,"к","k");
    Рез = СтрЗаменить(Рез,"л","l");
    Рез = СтрЗаменить(Рез,"м","m");
    Рез = СтрЗаменить(Рез,"н","n");
    Рез = СтрЗаменить(Рез,"о","o");
    Рез = СтрЗаменить(Рез,"п","p");
    Рез = СтрЗаменить(Рез,"р","r");
    Рез = СтрЗаменить(Рез,"с","s");
    Рез = СтрЗаменить(Рез,"т","t");
    Рез = СтрЗаменить(Рез,"у","u");
    Рез = СтрЗаменить(Рез,"ф","f");
    Рез = СтрЗаменить(Рез,"х","h");
    Рез = СтрЗаменить(Рез,"ч","ch");
    Рез = СтрЗаменить(Рез,"ш","sh");
    Рез = СтрЗаменить(Рез,"щ","shh");
    Рез = СтрЗаменить(Рез,"ъ","");
    Рез = СтрЗаменить(Рез,"ь","");
    Рез = СтрЗаменить(Рез,"э","eh");
    Рез = СтрЗаменить(Рез,"ю","ju");
    Рез = СтрЗаменить(Рез,"ц","c");
    Рез = СтрЗаменить(Рез,"я","ja");
    Рез = СтрЗаменить(Рез,"ы","i");
    Рез = СтрЗаменить(Рез,"А","A");
    Рез = СтрЗаменить(Рез,"Б","B");
    Рез = СтрЗаменить(Рез,"В","V");
    Рез = СтрЗаменить(Рез,"Г","G");
    Рез = СтрЗаменить(Рез,"Д","D");
    Рез = СтрЗаменить(Рез,"Е","E");
    Рез = СтрЗаменить(Рез,"Ё","JO");
    Рез = СтрЗаменить(Рез,"Ж","ZH");
    Рез = СтрЗаменить(Рез,"З","Z");
    Рез = СтрЗаменить(Рез,"И","I");
    Рез = СтрЗаменить(Рез,"Й","JJ"); 
    Рез = СтрЗаменить(Рез,"К","K");
    Рез = СтрЗаменить(Рез,"Л","L");
    Рез = СтрЗаменить(Рез,"М","M");
    Рез = СтрЗаменить(Рез,"Н","N");
    Рез = СтрЗаменить(Рез,"О","O");
    Рез = СтрЗаменить(Рез,"П","P");
    Рез = СтрЗаменить(Рез,"Р","R");
    Рез = СтрЗаменить(Рез,"С","S");
    Рез = СтрЗаменить(Рез,"Т","T");
    Рез = СтрЗаменить(Рез,"У","U");
    Рез = СтрЗаменить(Рез,"Ф","F");
    Рез = СтрЗаменить(Рез,"Х","H");
    Рез = СтрЗаменить(Рез,"Ч","CH");
    Рез = СтрЗаменить(Рез,"Ш","SH");
    Рез = СтрЗаменить(Рез,"Щ","SHH");
    Рез = СтрЗаменить(Рез,"Ъ","");
    Рез = СтрЗаменить(Рез,"Ь","");
    Рез = СтрЗаменить(Рез,"Ы","");
    Рез = СтрЗаменить(Рез,"Ц","C");
    Рез = СтрЗаменить(Рез,"Э","EH");
    Рез = СтрЗаменить(Рез,"Ю","JU");
    Рез = СтрЗаменить(Рез,"Я","JA");
   
    Возврат(Рез);
КонецФункции

Суровая транслитерация... Я плакалъ

jerokee, 16 Октября 2012

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

1C / Говнокод #11911

−121

1

НомСтрЗаказа = ПолучитьПустоеЗначение("Число");

Нашел тут в загашниках при поддержке "чужого кода".
Вот оказывается как надо присваивать переменной нулевое значение!

jerokee, 11 Октября 2012

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

1C / Говнокод #11910

−121

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

Функция СоздатьЗапрос(Текст) Экспорт
	Запрос = Новый Запрос;
	Запрос.Текст=Текст;
	Возврат Запрос;
КонецФункции
Функция СоздатьМассив() Экспорт
	Возврат Новый Массив;
КонецФункции
Функция СоздатьСоответствие() Экспорт
	Возврат Новый Соответствие;
КонецФункции
Функция СоздатьСтруктуру() Экспорт
	Возврат Новый Структура;
КонецФункции
Функция СоздатьСписокЗначений() Экспорт
	Возврат Новый СписокЗначений;
КонецФункции

Вот такие вот функции (это естественно не все) от OLE-мастера: NewObject - не, не слышал.

ilya2184, 10 Октября 2012

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

1C / Говнокод #11902

−121

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

Процедура аСсылкиПриЗаписиПриЗаписи(Источник, Отказ) Экспорт
	
	Если аСервер.ЗагрузкаПоОбменуРиб(Источник) Тогда
		Возврат
	КонецЕсли;
	
	Если ТипЗнч(Источник)=Тип("СправочникОбъект.Корреспонденты") Тогда
		
		Если Источник.ОбменДанными.Загрузка Тогда Возврат; КонецЕсли;
		Если Источник.Ссылка.ЭтоГруппа Тогда Возврат; КонецЕсли;
		Если Источник.Предопределенный Тогда Возврат; КонецЕсли;
		Источник.ОбменДанными.Загрузка=Истина;
		Источник.Записать(); //Записать() в подписке ПриЗаписи() - крутой костыль
		Источник.ОбменДанными.Загрузка=Ложь;
		Источник.Комментарий = ...

Вот такая вот подписка при записи любых ссылок. 3 Если подряд? Логическое умножение - не, не слышал. Зато Записать() в подписке ПриЗаписи - слышал. Автор Хан Юрий Валентинович.

ilya2184, 10 Октября 2012

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

1C / Говнокод #11891

−117

1
2
3
4
5
6
7

ВЫБОР
    КОГДА ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности ЕСТЬ NULL 
            ИЛИ ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности < ДАТАВРЕМЯ(2000, 1, 1)

       ТОГДА ПродажиОбороты.Регистратор.Товары.Ссылка.Дата МЕЖДУ НАЧАЛОПЕРИОДА(Регистр1.ДатаНачала, ДЕНЬ) И КОНЕЦПЕРИОДА(Регистр1.ДатаОкончания, ДЕНЬ)
   ИНАЧЕ ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности МЕЖДУ НАЧАЛОПЕРИОДА(Регистр1.ДатаНачала, ДЕНЬ) И КОНЕЦПЕРИОДА(Регистр1.ДатаОкончания, ДЕНЬ)
КОНЕЦ

dmurdoc, 08 Октября 2012

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

Говнокод: по колено в коде.

1C / Говнокод #12112

1C / Говнокод #12110

1C / Говнокод #12076

1C / Говнокод #12054

1C / Говнокод #11981

1C / Говнокод #11930

1C / Говнокод #11911

1C / Говнокод #11910

1C / Говнокод #11902

1C / Говнокод #11891