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

Всего: 5

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

−19

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

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

Если Истина Тогда ...
Действительно, а вдруг Истина = Ложь!

saturn5, 21 Марта 2017

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

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

−18

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

А ведь и так можно обойти таблицу значений, если подойти к задаче творчески!

Счетчик=0;
Пока 1=1 Цикл 
	Если Счетчик>=Табл.Количество() Тогда
		Прервать;
	КонецЕсли;
	Стр=Табл[Счетчик];

        //.....
	//Здесь лютый говнокод, 
	//не имеющий отношения к этому фееричному паттерну "Итератор"!	
       // .....

КонецЕсли;

Паттерн "Итератор" для 1С 8.

saturn5, 13 Марта 2017

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

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

−96

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

Запас=0; ВПутиУжеЗаказано=0;Остаток=0;Резерв=0;
	
	Для Каждого ВыбСклад из СписокСкладов Цикл
		Скл=Справочники.Склады.НайтиПоНаименованию(СокрЛП(ВыбСклад.Ссылка.Наименование));
		СтруктураОтбора = Новый Структура(); // для отбора остатков взаиморасчетов
		СтруктураОтбора.Вставить("Номенклатура", Номенклатура);
		СтруктураОтбора.Вставить("Склад", Скл);
		Остаток =Остаток+ РегистрыНакопления.ТоварыНаСкладах.Остатки(КонецДня(КонДата),
		СтруктураОтбора,"Номенклатура,Склад","Количество").Итог("Количество");
		Резерв = Резерв+РегистрыНакопления.ТоварыВРезервеНаСкладах.Остатки(КонецДня(КонДата),
		СтруктураОтбора,"Номенклатура,Склад","Количество").Итог("Количество");
	КонецЦикла;
		
	СтрокаЗапаса=СокрЛП(Остаток);
	СтрокаЗапаса=СтрЗаменить(СтрокаЗапаса," ","");
	Запас=?(СтрокаЗапаса="",0,Число(СтрокаЗапаса));

Лихие манипуляции со стоками. Следите за руками!

saturn5, 24 Февраля 2016

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

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

−100

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
72
73
74
75
76
77

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

!!!!!!!!!!!!!!!!!!

saturn5, 22 Февраля 2016

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

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

−99

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

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

Вот так некоторые суровые красноярские 1С-ники феерически говнокодят в вакууме!