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

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

−162

1
2
3
4
5

| КОНЕЦ) КАК ПросроченоПиздецКак,
| СУММА(ВложенныйЗапрос.СуммаОстаток) КАК ДебиторкаВся,
| ВложенныйЗапрос.Договор.СрокОплатыПоДоговору КАК СрокОплаты,
| ВложенныйЗапрос.Сделка.Ответственный КАК Менеджер
| ИЗ

Не говнокод, пример с лурки но все равно улыбает)

Cascader, 21 Июля 2014

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

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

−166

1

Дата = Формат(День(Запись.Период),"ЧЦ=2; ЧРГ=; ЧВН=") + "/" + Формат(Месяц(Запись.Период),"ЧЦ=2; ЧРГ=; ЧВН=") + "/" + Формат(Год(Запись.Период),"ЧГ=");

О как можно еще получить дату в формате: день/месяц/год.
Хотя тот же результат будет, если: Дата = Формат(Запись.Период, "ДФ=dd/MM/yyyy");
И этот бред писал специалист крупной внедренческой компании.

Danik, 18 Июля 2014

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

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

−171

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

Процедура ПересчитатьстоимостьПлан()
	
	Если 1=1 тогда //ВидКомплектации = Перечисления.ВидыКомплектации.Сборка тогда
		Для каждого стр из комплектующие Цикл
			Если стр.ЦенаПлан = 0 тогда // заполнимЦену
				мНоменклатура = Новый массив;
				//Для каждого стр из Комплектующие Цикл
					мНоменклатура.Добавить(стр.Номенклатура);
				//Конеццикла;
				Запрос = новый Запрос;
				Запрос.Текст =  "ВЫБРАТЬ
				|	ЦеныНоменклатурыСрезПоследних.Номенклатура,
				|	ЦеныНоменклатурыСрезПоследних.Цена
				|ИЗ
				|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&датаД, ) КАК ЦеныНоменклатурыСрезПоследних
				|ГДЕ
				|	ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
				|	И ЦеныНоменклатурыСрезПоследних.Номенклатура В ИЕРАРХИИ(&Номенклатура)";
				Запрос.УстановитьПараметр("ДатаД",дата);
				Запрос.УстановитьПараметр("типЦен",Склад.ТипЦенРозничнойТорговли);
				Запрос.УстановитьПараметр("ссылка",ссылка);
				Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура);
				аа =Запрос.Выполнить().Выгрузить();
				Если аа<> неопределено тогда
					стр.ЦенаПлан = аа[0].цена;
				КонецЕсли;
				
			Конецесли;
			
			стр.ЦенаПлан = стр.ЦенаПлан;
			стр.Суммаплан = стр.Количество*стр.ЦенаПлан;
		Конеццикла;
		// *******************************************************888
		
	иначе
		
		Если СуммаПлан = 0 тогда
			возврат;
		КонецЕсли;
		итСумма = 0;
		Для каждого стр из Комплектующие Цикл
			
			//стр.Суммаплан = глОкруглить(стр.ДоляСтоимости*СуммаПлан,0.5);
			стр.Суммаплан = Окр(стр.ДоляСтоимости*СуммаПлан,1);
			
			Если стр.Количество = 0 тогда
				стр.ЦенаПлан = 0;
			иначе
				стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
			КонецЕсли;
			итсумма = итСумма + стр.Суммаплан;
			
		КонецЦикла;
		
		Если итСумма<>Суммаплан тогда
			стр.Суммаплан = стр.СуммаПлан - (СуммаПлан-итСумма);
			Если стр.Количество = 0 тогда
				стр.ЦенаПлан = 0;
			иначе
				стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
			КонецЕсли;
			
		Конецесли;
	КонецЕсли;
	
	
конецпроцедуры

Cascader, 17 Июля 2014

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

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

−166

1
2
3
4
5
6

итСумма = 0;
иткол = 0;
Для каждого стр из комплектующие Цикл
	итсумма = итсумма + стр.Суммаплан;
	иткол = иткол + стр.КоличествоБезПотерь;
Конеццикла;

Зашел в базу, а там вот это... повторяется...раза 4

Cascader, 17 Июля 2014

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

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

−161

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

Для А =0 по Значение.Количество()-1 Цикл
				Попытка	
					Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8)+"*"+Строка(Значение[А].поле9)+"*"+Строка(Значение[А].поле10));
					Табл.InsertParagraphAfter();
				Исключение	
					Попытка	
						Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8)+"*"+Строка(Значение[А].поле9));
						Табл.InsertParagraphAfter();
					Исключение
						Попытка	
							Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8));
							Табл.InsertParagraphAfter();
						Исключение
							
							Попытка	
								Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7));
								Табл.InsertParagraphAfter();
							Исключение
								Попытка	
									Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6));
									Табл.InsertParagraphAfter();
								Исключение	
									Попытка	
										Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5));
										Табл.InsertParagraphAfter();
									Исключение	
										Попытка	
											Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4));
											Табл.InsertParagraphAfter();
										Исключение
											Попытка	
												Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3));
												Табл.InsertParagraphAfter();
											Исключение
												Попытка	
													Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+(Строка(Значение[А].поле2)));
													Табл.InsertParagraphAfter();
												Исключение
													Попытка	
														Табл.InsertAfter(Строка(Значение[А].поле1));
														Табл.InsertParagraphAfter();
													Исключение
														Попытка	
															Табл.InsertAfter(Строка(Значение[А].поле0));
															Табл.InsertParagraphAfter();
														Исключение
														КонецПопытки;
													КонецПопытки;	
												КонецПопытки;
											КонецПопытки;	
										КонецПопытки;
									КонецПопытки;
								КонецПопытки;	
							КонецПопытки;	
						КонецПопытки;	
					КонецПопытки;
				КонецПопытки;
			КонецЦикла;

Ninomia, 15 Июля 2014

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

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

−160

1
2
3

Если Год (ТекДата) = 1 Тогда
  ТекДата = ТекущаяДата ();
 КонецЕсли;

вот так надо проверять дату на заполненность!

alexinzaz, 14 Июля 2014

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

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

−165

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

Процедура ОбработкаПроведения(Отказ, РежимПроведения)

........


	если ЭтотОбъект.Проведен тогда 
		Сообщить("Уже проведений, терміни не рухаємо");
	иначе    ЭтотОбъект.ПолучитьФорму().Открыть();
			     Сообщить("А тепер нажміть ОК");
        КонецЕсли;

КонецПроцедуры // ОбработкаПроведения()

омг...

alexinzaz, 25 Июня 2014

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

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

−164

1
2
3

Процедура глЗагрузитьЗаказы() Экспорт
	ОткрытьФорму("Отчет",,"\\SQLDSTR\1C\ExtERT\InvoiceLoader.ert");
КонецПроцедуры

Встретил в самописке в клюшках. Если поменяется имя сервера или каталога - всё рухнет).

zinkovskiy, 16 Июня 2014

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

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

−165

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

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

КонецЦикла;

Прям классика жанра) Запрос в цикле, и условие к виртуальной таблице регистра сведений)

adc5, 13 Июня 2014

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

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

−127

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

Function Розница()
	If Покупатель.Выбран() = 1 Then
		If Покупатель.Вид() = "ПунктДоставки" Then
			If Покупатель.Владелец.ТипЦенОтгрузки = Enum.ТипыОтпускныхЦен.Розничные Then
				Return 1;
			Else
				Return 0;
			EndIf;
		Else
			Return 0;
		EndIf;
	Else
		Return 0;
	EndIf;
EndFunction

Сегодня наткнулся на такой вот кусок кода

TekhnoLife, 10 Июня 2014