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

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

−98

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	МетаданныеДокумента = Объект.Ссылка.Метаданные();
	СтруктураПараметров = новый Структура();
	//Заполним структуру реквизитами документа
	Для каждого Реквизит из МетаданныеДокумента.Реквизиты Цикл
		СтруктураПараметров.Вставить(Реквизит.Имя, Объект[Реквизит.Имя]);
	КонецЦикла;
	
   Если Не ЗначениеЗаполнено(Объект.Организация) Тогда 
      ЗаполнитьСвойствоЗначениемПоУмолчанию("Организация", "ОсновнаяОрганизация", СтруктураПараметров, Истина);
	  ЗаполнитьЗначенияСвойств(Объект,СтруктураПараметров);
   КонецЕсли;
КонецПроцедуры

В модуле формы документа проверяем заполнение одного (!) реквизита дичайше оптимальным образом

eternium, 25 Октября 2016

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

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

−97

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

Документ = Строка(Расшифровка);
СтрокаОбработанная = СТРЗаменить(Документ, "Заявка ", "");
ПозицияОт = Найти(СтрокаОбработанная, " от ");
Номер = СокрЛП(СтрЗаменить((Лев(СтрокаОбработанная, ПозицияОт)), "№", ""));
Дата = Дата(СокрЛП(СтрЗаменить(Прав(СтрокаОбработанная, СтрДлина(СтрокаОбработанная)-ПозицияОт), "от", "")));

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Заявка.Ссылка
|ИЗ
| Документ.Заявка КАК Заявка
|ГДЕ
| Заявка.Дата = &Дата
| И Заявка.Номер = &Номер";

Запрос.УстановитьПараметр("Дата", Дата);
Запрос.УстановитьПараметр("Номер", Номер);

РезультатЗапроса = Запрос.Выполнить().Выбрать();

Если РезультатЗапроса.Количество() Тогда
РезультатЗапроса.Следующий();

Мы уже даже привыкли к запросам с поиском ссылки по наименованию, полученному из уже имеющейся ссылки... Но парсинг представления ссылки документа с вычлененнием оттуда номера и даты, чтоб найти этот документ - это нельзя придумать даже специально.

elizir, 24 Октября 2016

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

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

−100

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

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

Функции языка запросов???

Asaharu, 24 Октября 2016

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

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

−29

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

Функция ОписаниеОрганизации(СписокСведений, Список = "", СПрефиксом = Истина) Экспорт
	
	Если ПустаяСтрока(Список) Тогда
		Список = "ПолноеНаименование,НаименованиеСокращенное,ИНН,Свидетельство,ЮридическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет";	
	КонецЕсли;

	Результат = "";

	СоответствиеПараметров = Новый Соответствие();
	СоответствиеПараметров.Вставить("ПолноеНаименование", 		" ");
	СоответствиеПараметров.Вставить("НаименованиеСокращенное", 	" ");
	СоответствиеПараметров.Вставить("ИНН",                		" ИНН ");
	СоответствиеПараметров.Вставить("КПП",                		" КПП ");
	СоответствиеПараметров.Вставить("Свидетельство",			" ");
	СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи",	" от ");
	СоответствиеПараметров.Вставить("ЮридическийАдрес",   		" ");
	СоответствиеПараметров.Вставить("ФактическийАдрес",   		" ");
	СоответствиеПараметров.Вставить("Телефоны",           		" тел.: ");
	СоответствиеПараметров.Вставить("НомерСчета",         		" р/с ");
	СоответствиеПараметров.Вставить("Банк",               		" в банке ");
	СоответствиеПараметров.Вставить("БИК",                		" БИК ");
	СоответствиеПараметров.Вставить("КоррСчет",           		" к/с ");
	СоответствиеПараметров.Вставить("КодПоОКПО",          		" Код по ОКПО ");
	
	Список          = Список + ?(Прав(Список, 1) = ",", "", ",");
	ЧислоПараметров = СтрЧислоВхождений(Список, ",");

	Для Счетчик = 1 по ЧислоПараметров Цикл

		ПозЗапятой = Найти(Список, ",");

		Если ПозЗапятой > 0  Тогда
			ИмяПараметра = Лев(Список, ПозЗапятой - 1);
			Список = Сред(Список, ПозЗапятой + 1, СтрДлина(Список));

			Попытка
				СтрокаДополнения = "";
				СписокСведений.Свойство(ИмяПараметра, СтрокаДополнения);

				Если ПустаяСтрока(СтрокаДополнения) Тогда
					Продолжить;
				КонецЕсли;

				Префикс = СоответствиеПараметров[ИмяПараметра];
				Если Не ПустаяСтрока(Результат)  Тогда
					Результат = Результат + ",";
				КонецЕсли; 

				Результат = Результат + ?(СПрефиксом = Истина, Префикс, "") + СтрокаДополнения;
			Исключение
				Сообщить("Не удалось определить значение параметра организации: " + ИмяПараметра, СтатусСообщения.Внимание);
			КонецПопытки;

		КонецЕсли;

	КонецЦикла;

	Возврат СокрЛП(Результат);

КонецФункции // ОписаниеОрганизации()

иди в 1С - говорили они,
будет много денег говорили они,
они говорили там всё легко, потому что по-русски,
а в итоге?
чтобы писать по русски надо постоянно переключать раскладку для <>, &
ТУПОЙ КОМПИЛЯТОР, который вообще нихрена не подсказывает, потому что не строгая типизация
Постоянная хрень типа в переменной "Список" лежит Строка, или Массив
ПОСТОЯННЫЕ ТАНЦЫ С ЗАПЯТЫМИ, ПРИ ОПЕРАЦИЯХ СО СТРОКОЙ!!!
Реализуйте 1 раз регулярные выражения типа Массив = Строка.Разделить("\\,") - нет! Хотим обмазываться запятыми и дрочить!
Ну и прочее... конкретно сейчас не понятны танцы с запятыми и Лев() Прав() позиция запятой... просто бесит!

levxxx, 03 Октября 2016

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

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

−81

1
2
3
4

Говнокотаны!
У меня дочка родилась!
Я научу её питону, жс, познакомлю с пидаром, тридаром, Тарасом, и вообще!
Боже, дай мне силы не набухаться с утра!

bakagaijin, 18 Сентября 2016

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

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

−95

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

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

КонецФункции

Когда на клавиатуре сломались кнопки Б и Ю.

Sanki, 15 Сентября 2016

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

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

−103

1
2
3
4
5

&НаСервере
 Процедура ОтсортироватьЧТ()
     ТЧсерНомера = Объект.СерийныеНомера;
 	 ТЧсерНомера.Сортировать("IDСтрокиТЧМатериалы Возр, СерийныйНомер Убыв");
 КонецПроцедуры // ()

blMbl, 01 Сентября 2016

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

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

−47

1
2
3
4
5
6
7
8
9

Запись = РегистрыСведений.СтатусыОповещенийПредстоящихПлатежей.СоздатьМенеджерЗаписи();
		Запись.Период = Выборка.Период;
		Запись.Контрагент = Выборка.Контрагент;
		Запись.Прочитать();
		Запись.ДатаПолучения = ТекущаяДата();
		
		НачатьТранзакцию();
		Запись.Записать(Истина);
		ЗафиксироватьТранзакцию();

Дополнительная транзакция - лишняя.

ilya2184, 09 Августа 2016

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

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

−207

1

https://www.youtube.com/watch?feature=player_embedded&v=fhWhb88GsL4

3_14dar, 08 Августа 2016

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

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

−44

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

здраствуй марианна кисс, я бы полюбил твой низ
и акитвно бы кончал облизав весь твой анал
и я в долгу бы не остался, и всю ночь с тобой ебался
а потом твое дерьмище поедал бы словно пищу
кто-то скажет я больной, но я вовсе не такой
просто у моей любви нету трезвой головы, но мне это не ниловко ведь у члена есть головка
так что быстренько давай пальчик в попу мне вставляй

ТЫ И Я, Я И ТЫ ГРЯЗНЫЕ ЖИВОТНЫЕ
ТАК ЧТО ПУСТЬ ТВОРЯТ РАЗВРЯТ ЖОПЫ НАШИ ПОТНЫЕ
ТЫ СКОРЕЙ ПОКОВЫРЯЙ МНЕ ПАЛЬЧИКОМ В АНАЛЕ КАК МАКАКИ ДЕЛАЮТ В ЗООФИЛЬСКОЙ БЛЯ ПРОГРАММЕ

я хочу постричь тебе волосы, прям на пизде чтобы скушать их потом своим грязненьким ротом
словно кот, хочу блевать прямо на твою кровать
ведь в блювоте не так круто кайф друг, другу достовлять
жаль что это лишь надежды, оказаться где-то между
ведь ты далеко живешь и всей страсти не поймешь
но как круто было бы если б мы вдруг оказались вместе ты бы пальцем меня ебла а я кушал пиво с воблой

ТЫ И Я, Я И ТЫ ГРЯЗНЫЕ ЖИВОТНЫЕ
ТАК ЧТО ПУСТЬ ТВОРЯТ РАЗВРАТ ЖОПЫ НАШИ ПОТНЫЕ
ТЫ СКОРЕЙ ПОКОВЫРЯЙ МНЕ ПАЛЬЧИКОМ В АНАЛЕ КАК МАКАКИ ДЕЛАЮТ В ЗООФИЛЬСКОЙ БЛЯ ПРОГРАММЕ

d_fomenok, 05 Августа 2016

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

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