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

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

+1

1
2
3
4

Если Не ЗначениеЗаполнено(ДатаПриемаСотрудника) Тогда
		Возврат 0;
		Предупреждение("У сотрудника "+Сотрудник+" нет даты приема проведите прием на работу");
	КонецЕсли;

еее анричабол стейтментс

sgo, 21 Марта 2018

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

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

+2

01
02
03
04
05
06
07
08
09
10
11

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
	
	Организация1 = Справочники.Организации.ПустаяСсылка();
	Организация1 = Справочники.Организации.НайтиПоНаименованию("ХХХХХ Андрей Александрович ИП");
	Организация = Организация1;
	ОрганизацияШапка = Организация1;
	Склад = Справочники.Склады.НайтиПоНаименованию("Сервис центр");
	Контрагент = Справочники.Партнеры.НайтиПоНаименованию("Розничный покупатель");
	ВидОперации = Перечисления.ВидРемонта.ПлатныйРемонт;
	
КонецПроцедуры;

Строка 3. Непонятно для чего введена переменная Организация1 (реквизита такого нет).
Строка 3. Непонятно для чего нужна инициализация пустой ссылкой, если в следующей строке происходит присваивание другого значения.
Строка5. Почему бы сразу не инициализировать реквизит нужным значением?

VladC, 12 Февраля 2018

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

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

+1

1
2
3
4
5
6

//Текстовый реквизит 
//Событие реквизита формы НП_ТелефонПолучателя  (Строка (50)) - очистка

Процедура НП_ТелефонПолучателяОчистка(Элемент, СтандартнаяОбработка)
	НП_ТелефонПолучателя = "";
КонецПроцедуры

Ну чтоб уж точно очистить

FesenkoA, 07 Февраля 2018

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

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

+2

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

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

	Выборка=Запрос.Выполнить().Выбрать();
	Выборка.Следующий();
	Если обЗначениеНеЗаполнено(Выборка.Ссылка) Тогда
.......

Чуть упростил запрос для быстроты понимания...
Как проверить запрос ПУСТОЙ() или нет... Вот один из разработчиков нашел метод.....

timofeysin, 07 Февраля 2018

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

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

0

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

// Иванов И.И. Начало 16.03.2016 
//ИспользованиеКВО=Истина;  
// Петров П. "Рога и копыта" 17.03.2016
//ИспользованиеКВО=Ложь;
// Иванов И.И. Начало 18.03.2016 
//ИспользованиеКВО=Истина;  
// Петров П. "Рога и копыта" 19.03.2016 
//ИспользованиеКВО=Ложь;
// Иванов И.И. Начало 21.03.2016  
//ИспользованиеКВО=Истина;
// Петров П. "Рога и копыта" 23.03.2016  
//ИспользованиеКВО=Ложь;
// Иванов И.И. Начало 25.03.2016  
//ИспользованиеКВО=Истина;
// Петров П. "Рога и копыта" 25.03.2016  
//ИспользованиеКВО=Ложь;
// Иванов И.И. Начало 25.03.2016  
//ИспользованиеКВО=Истина;
// Петров П. "Рога и копыта" 25.03.2016  
//ИспользованиеКВО=Ложь;

ИспользованиеКВО=Истина;
// Петров П. "Рога и копыта" 25.03.2016  
// Иванов И.И. Конец 25.03.2016     
// Петров П. "Рога и копыта" 25.03.2016
// Иванов И.И. Конец 25.03.2016      
// Петров П. "Рога и копыта" 23.03.2016  
// Иванов И.И. Конец 21.03.2016
// Петров П. "Рога и копыта" 19.03.2016
// Иванов И.И. Конец 18.03.2016 
// Петров П. "Рога и копыта" 17.03.2016
// Иванов И.И. Конец 16.03.2016

Иванов И.И. Петров П.П. в фильме.. "ПРОТИВОСТОЯНИЕ"
Основан на реальных событиях, фамилии персонажей и названия компаний изменены

FesenkoA, 02 Февраля 2018

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

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

0

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

УпрощенныйРежим = ДилерскийЦентр.Автосервис_ИспользуетсяУпрощенныйИнтерфейс;

Если УпрощенныйРежим ТОгда
		
		Если ЗначениеЗаполнено(Клиент) Тогда
			
			Если ТипЗнч(Клиент) = Тип("СправочникСсылка.Контрагенты") Тогда
				
				ТекущийКлиент = Клиент;
				
			Иначе
				
				ЭлементыФормы.НадписьПредставьтесь.Заголовок = "Клиент представился как: " + Строка(Клиент) + ". Необходимо выбрать клиента";
				
			КонецЕсли;
			
		КонецЕсли;
		
		Если ЗначениеЗаполнено(ТекущийКлиент) Тогда
		
			ЗаполнитьДеревоОбращенийКдиента(ТекущийКлиент);
			
			ЭлементыФормы.ТекущийКонтрагент.ЦветФонаПоля = Новый Цвет (255, 255, 255);
			ЭлементыФормы.ТекущийКонтрагент.КнопкаОткрытия = Истина;
			
			ОбновитьТелефонИEmail(ТекущийКлиент);
			
			Если НЕ ЗначениеЗаполнено(ТекущийАвтомобиль) Тогда
				
				ЗаполнитьВыборАвто();
				
			КонецЕсли;
			
		КонецЕсли;
		
	КонецЕсли;

У формы существует реквизит ТекущийКлиент.
При открытии выполняться вот этот вот шедевр.
При сохрани обратно Клиент = ТекущийКлиент;.
И еще если не Упрощенный режим интерфейса то даже у старых документов контрагент будет не выбран.

NioGoth, 21 Декабря 2017

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

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

+4

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

Запрос = Новый Запрос;
Запрос.Текст = 
	"ВЫБРАТЬ
	|	ркЛицевыеСчета.Ссылка,
	|	ркЛицевыеСчета.Помещение,
	|	ркЛицевыеСчета.Дом КАК Дом,
	|	ркЛицевыеСчета.Код КАК Код,
	|	ркЛицевыеСчета.Помещение.Владелец Как ПомещениеВладелец
	|ИЗ
	|	Справочник.ркЛицевыеСчета КАК ркЛицевыеСчета";

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

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
	Об = Справочники.ркЛицевыеСчета.НайтиПоКоду(ВыборкаДетальныеЗаписи.Код);
	О = Об.ПолучитьОбъект();
	Д = Справочники.ркДома.НайтиПоНаименованию(ВыборкаДетальныеЗаписи.ПомещениеВладелец);
	ДО = Д.ПолучитьОбъект();
	Если Не О.ЭтоГруппа Тогда
	О.Дом = ДО.Ссылка;
	О.Записать();
	КонецЕсли;
	//ВыборкаДетальныеЗаписи
КонецЦикла;

Обработка в базе одного клиента.
Не сразу понял что она вообще делает и зачем она ТАК ЭТО ДЕЛАЕТ.

naodesu, 18 Декабря 2017

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

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

0

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

// Определим тип возвращаемого результата
	РезультатМассив    = ?(ВРег(ТипРезультата)="МАССИВ",Истина,Ложь);
	РезультатСписок    = ?(ВРег(ТипРезультата)="СПИСОКЗНАЧЕНИЙ",Истина,Ложь);
	РезультатСтруктура = НЕ РезультатМассив И НЕ РезультатСписок;
	
	Если РезультатСтруктура Тогда
		Измерения = Новый Структура;
	КонецЕсли; 
	Если РезультатМассив Тогда
		Измерения = Новый Массив;
	КонецЕсли; 
	Если РезультатСписок Тогда
		Измерения = Новый СписокЗначений;
	КонецЕсли;  
	
	Если МассивИсключений = Неопределено Тогда
	
		МассивИсключений = Новый Массив;
	
	КонецЕсли;

А еще вот так можно проверить тип значения

Migelek, 07 Декабря 2017

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

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

0

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
78
79
80
81
82
83
84
85
86
87
88

НадоОтправить = Ложь;
НадоПолучить = Ложь;
				
Если Режим = РежимPOP3SMTP или Режим = РежимPOP3SMTPСсылка Тогда
					
	Если Параметры.Свойство("АдресPOP3") и ЗначениеЗаполнено(Параметры.АдресPOP3) Тогда
						
		НадоПолучить = Истина;
						
	КонецЕсли;
					
	Если Параметры.Свойство("АдресSMTP") и ЗначениеЗаполнено(Параметры.АдресSMTP) Тогда
						
		НадоОтправить = Истина;
						
	КонецЕсли;
					
ИначеЕсли Режим = РежимIMAP или Режим = РежимIMAPСсылка Тогда
					
	Если Параметры.Свойство("АдресIMAP") и ЗначениеЗаполнено(Параметры.АдресIMAP) Тогда
						
		НадоПолучить = Истина;
		НадоОтправить = Истина;
						
	КонецЕсли;
					
ИначеЕсли Режим = РежимIMAPSMTP или Режим = РежимIMAPSMTPСсылка  Тогда
					
	Если Параметры.Свойство("АдресIMAP") и ЗначениеЗаполнено(Параметры.АдресIMAP) Тогда
						
		НадоПолучить = Истина;
						
	КонецЕсли;
					
	Если Параметры.Свойство("АдресSMTP") и  ЗначениеЗаполнено(Параметры.АдресSMTP) Тогда
						
		НадоОтправить = Истина;
						
	КонецЕсли;
					
ИначеЕсли Режим = РежимВнешнийПочтовыйКлиент или Режим = РежимВнешнийПочтовыйКлиентСсылка  Тогда
					
	Если Параметры.Свойство("ИспользоватьOutlook") и Параметры.ИспользоватьOutlook = Истина  Тогда
						
		НадоОтправить = Истина;
		НадоПолучить = Истина;
						
	КонецЕсли;
					
	Если Параметры.Свойство("ИспользоватьLotusNotes") и Параметры.ИспользоватьLotusNotes = Истина Тогда
						
		НадоОтправить = Истина;
						
	КонецЕсли;
					
КонецЕсли;
				
Если Параметры.Свойство("Отправка") Тогда
					
	ЗначениеСравнения = ЗначениеИзСтрокиВнутр(Параметры.Отправка);
					
	Если ЗначениеСравнения = Истина Тогда
						
		НадоОтправить = Истина;
						
	Иначе
						
		НадоОтправить = Ложь;
						
	КонецЕсли;
					
КонецЕсли;
				
Если Параметры.Свойство("Получение") Тогда
					
	ЗначениеСравнения = ЗначениеИзСтрокиВнутр(Параметры.Получение);
					
	Если  ЗначениеСравнения = Истина  Тогда
						
		НадоПолучить = Истина;
						
	Иначе
						
		НадоПолучить = Ложь;
						
	КонецЕсли;
					
КонецЕсли;

Когда тебе платят за количество строк.
Обработка загрузка почтовых сообщений. Итилиум, редакция 4.5

RickyBelli, 06 Декабря 2017

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

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

+2

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

Если ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнПосещение" Тогда
		ТипТрафика = Справочники.CRM_ТипТрафика.ПосещениеАвтосалона;
		ЭтаФорма.Заголовок = НСтр("ru = 'Регистрация нового трафика. Посещение'");
	ИначеЕсли ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнЗвонок" Тогда
		ТипТрафика = Справочники.CRM_ТипТрафика.Звонок;
		ЭтаФорма.Заголовок = НСтр("ru = 'Регистрация нового трафика. Звонок'");
	ИначеЕсли ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнEmail" Тогда
		ТипТрафика = Справочники.CRM_ТипТрафика.EmailДилера;
		ЭтаФорма.Заголовок = НСтр("ru = 'Регистрация нового трафика. Email'");
		ЭлементыФормы.полеТелефон.Картинка = БиблиотекаКартинок.Renault_Mail_New_20;
		ЭлементыФормы.полеТелефон.Маска =  "";
		
	ИначеЕсли ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнЛидRenault" Тогда
		ТипТрафика = Справочники.CRM_ТипТрафика.ЛидДилера;
	КонецЕсли;

Фирменная CRM система от Renault. Определения типа трафика по имени активного элемента владельца формы.

NioGoth, 15 Ноября 2017

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

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