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

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

−88

1
2
3

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

Пунктуация сохранена.

alexinzaz, 27 Октября 2015

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

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

−98

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

Если не ДанныеАкта.ФормироватьБухПроводку Тогда
	Выборка = Результат[1].Выбрать();
	Пока Выборка.Следующий() Цикл
		СуммаВал = СуммаВал + Выборка.СуммаУслуги;
		//тут делаем всякое с выборкой
	КонецЦикла;
КонецЕсли;

Если ДанныеАкта.ФормироватьБухПроводку Тогда
	//тут делаем движения по счетам БУ
Иначе
	тз = Результат[1].Выгрузить();
	Для каждого стрТЗ Из тз Цикл
		//тут делаем тоже, что и с выборкой, только теперь с таблицей значений О_о
	КонецЦикла;
КонецЕсли;

Смотрю одно решение для страховых компаний, полностью на поддержке...

HomoAlbus, 20 Октября 2015

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

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

−98

1
2
3
4
5
6
7
8
9

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

Запрос.УстановитьПараметр("Дата", ТекущаяДата());
Запрос.УстановитьПараметр("Сотрудник", Пользователь.ФизЛицо);

классическая ошибка СрезПоследних и ГДЕ (сотрудник, ессссно, является измерением); непонятно зачем присобачена &Дата
откуда бы вы думали взят этот код?
аддон "Закупки" для БГУ, поставщик Фирма "1С", версия 1.0.9.1. ОбщийМодуль.ДляУП.ПолучитьПодразделениеТ екущегоПользователя()
И чего народ хочет от быдлокодеров-франчей, если сами 1С так пишут...

IHate1C, 12 Октября 2015

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

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

−94

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

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

Вот вроде функция общего модуля называется ПолучитьДоговорКонтрагента, и ты, не заглядывая в неё, конечно же, ждёшь возврата ссылки на спр-к ДоговорыКонтрагентов, но нет!!

SkyHunter, 02 Октября 2015

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

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

−96

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

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

Кто может объяснить мне сакральный смысл этого запроса?

jerokee, 01 Октября 2015

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

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

−98

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

&НаКлиенте
Процедура УстановитьВидимостьПотребностей(Видимость)

              Если Видимость Тогда
                               Элементы.ТекстУтвержденоПоЗаявкам.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                               Элементы.ТекстУтвержденнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                               Элементы.ТекстНеиспользованнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                Иначе
                               Элементы.ТекстНеиспользованнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                               Элементы.ТекстУтвержденнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                               Элементы.ТекстУтвержденоПоЗаявкам.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                КонецЕсли;

Элементы.ТекстСрочнойНакладной.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
Элементы.ТекстСрочнойНакладной.ЦветТекста = Новый Цвет(252,250,235);

КонецПроцедуры

Оригинальный способ управления видимостью элементов УФ без лишних серверных вызовов. Получил женский оргазм=)

safer_bwd, 15 Сентября 2015

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

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

−94

1
2
3
4
5
6

ТаблЗнач = Запрос.Выполнить().Выгрузить();  //SL+
	Для Каждого Элемент из ТаблЗнач Цикл
		Если Элемент.Номенклатура.РазрешеноДробноеКоличество = Ложь Тогда
			Элемент.Количество = ?(Формат (Элемент.Количество,"ЧДЦ=0") = "",0,Формат (Элемент.Количество,"ЧДЦ=0")); 				
		КонецЕсли;	
	КонецЦикла;

BlinOFF, 10 Сентября 2015

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

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

−98

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

Если (ПустаяСтрока(мВыбФайл) = 1)
		Или (ФС.СуществуетФайл(мВыбФайл) = 0) Тогда
	ТекстСообщения = "Внимание, не заполнен путь к файлу Excel с товарами для перемещения. Выполнение обработки прервано.";
	Сообщить(ТекстСообщения);
	СтатусВозврата(0);
	Возврат;
КонецЕсли;
	
Если ФС.СуществуетФайл(мВыбФайл) = 0 Тогда
	ТекстСообщения = "Внимание, Excel файл с товарами для перемещения не существует. Выполнение обработки прервано.";
	Сообщить(ТекстСообщения);
	СтатусВозврата(0);
	Возврат;
КонецЕсли;
	
Если ПустаяСтрока(мВыбФайл)	= 1 Тогда
	ТекстСообщения = "Не указан Excel файл для формирования таблицы товаров.";
	СтатусВозврата(0);
	Возврат;
КонецЕсли;

1С 7.7. Кусок из процедуры по загрузке данных из файла Excel.

dsfix, 09 Сентября 2015

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

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

−98

1

Если ЗапретНаСозданиеРаходныхПоФирме(Фирма, Родитель) И ЭтоТакиНовый Тогда

таки да, таки новый

alexinzaz, 06 Августа 2015

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

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

−99

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

// Mr. Gromozeka 03.08.2014

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

Блокировка в цикле это грустно мистер Громозека.

bugagashka, 04 Августа 2015

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

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

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

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

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

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

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

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

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

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

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

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