- 1
- 2
- 3
- 4
- 5
- 6
- 7
Процедура ПриЗаписи(Отказ)
Док = Ссылка.ПолучитьОбъект();
Док.ОбменДанными.Загрузка = Истина;
Док.Записать();
КонецПроцедуры
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−168
Процедура ПриЗаписи(Отказ)
Док = Ссылка.ПолучитьОбъект();
Док.ОбменДанными.Загрузка = Истина;
Док.Записать();
КонецПроцедуры
И это все в форме документа
−165
Попытка
ДокО.Записать();
Исключение
Попытка
ДокО.Записать();
Исключение
КонецПопытки;
КонецПопытки;
а вдруг!
−169
// Параметры - реквизит объекта. Больше (!) нигде не используется.
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Если ЭтоНовый() Тогда
Параметры = "000001000";
КонецЕсли;
ФлагОписания = ?(Сред(Параметры,7,1) = "1", Истина, Ложь);
ФлагМестоX = ?(Сред(Параметры,8,1) = "1", Истина, Ложь);
ФлагМестоY = ?(Сред(Параметры,9,1) = "1", Истина, Ложь);
КонецПроцедуры
Процедура СменаФлага()
Параметры = Лев(Параметры,6)+Строка(Число(ФлагОписания))+Строка(Число(ФлагМестоX))+Строка(Число(ФлагМестоY));
КонецПроцедуры
Процедура ФлагОписанияПриИзменении(Элемент)
СменаФлага();
КонецПроцедуры
Процедура ФлагМестоXПриИзменении(Элемент)
СменаФлага();
КонецПроцедуры
Процедура ФлагМестоYПриИзменении(Элемент)
СменаФлага();
КонецПроцедуры
Хотел быть шифровальщиком, но кривая дорожка жизни…
−172
Процедура ПриЗаписи(Отказ)
// Проверяем роль
Если рольДоступна ("ДляКасираПроведениеВТечениеОдногоДня") Тогда
мТекущаяДатаДокумента = Формат(мТекущаяДатаДокумента, "ДЛФ=D");
Если мТекущаяДатаДокумента = Формат(ТекущаяДата(), "ДЛФ=D") ТОгда
Записать ();
Иначе
Отказ = истина;
Предупреждение ("Нарушение прав доступа");
ЭтаФорма.Закрыть();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
И это все в модуле формы.
−162
НоваяСтрока.ТелефонныйНомер = Прав(НоваяСтрока.ТелефонныйНомер, стрДлина(НоваяСтрока.ТелефонныйНомер));
Выдрано из Рарус СофтФон. Ума не приложу, что они хотели этим сказать...
−167
Функция НайтиСтатусРемонта(ВыбСтатус) Экспорт
Возврат Ремонт.Найти(ВыбСтатус, "СтатусРемонта");
КонецФункции
Процедура УстановитьДанныеСтрокиРемонта(СтатусРемонта, ДатаСтатуса, ДатаВх) Экспорт
СТЧ = НайтиСтатусРемонта(СтатусРемонта);
Попытка
Если СТЧ.Дата = Дата(1,1,1) Тогда
Попытка СТЧ.Дата = ДатаВх; Исключение КонецПопытки;
ИначеЕсли СТЧ.Дата <> ДатаВх Тогда
обСообщить(""+Ссылка+" "+СтатусРемонта+" Дата уже установлена",СтатусСообщения.Важное);
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры
На фоне всей базы это всего лишь цветочки ...
Есть еще отчет, для формирования которого создается 36 (!!!) запросов )))
Хотел отчет выложить, но ограничение из 100 строк меня остановило :(
−163
Для Индекс = 0 По МассивДокументов.Количество()-1 Цикл
Документ = МассивДокументов.Получить(Индекс);
Если Документ.Проведен Тогда
УстановитьСтатусДокумента(ТаблицаДокументов, Документ, "Закрыт");
// Удаляем элемент из массива.
МассивДокументов.Удалить(Индекс);
КонецЕсли;
КонецЦикла;
Абстракция мастера игры в бисер протекла. Но работало долго =)
−165
Функция ПолучитьЧистыйКод(Код) Экспорт
//ЧистыйКод = "0";
ЧистыйКод = "";
Инд = 1;
Пока Инд < 18 Цикл
Символ = Сред(Код, Инд, 1);
Если Символ = " " ИЛИ Символ = "" ИЛИ Символ = " " Тогда // А вот это - самая фееричная строка
Инд = Инд + 1;
Продолжить;
Иначе
ЧистыйКод = ЧистыйКод + Символ;
КонецЕсли;
Инд = Инд + 1;
КонецЦикла;
Возврат ЧистыйКод;
КонецФункции
Чел видимо только что с ассемблера соскочил.
−163
Стр = Строка(Формат(ТекущаяДата(), "ДФ=гггг"))
+ Формат(ТекущаяДата(), "ДФ=ММ")
+ Формат(ТекущаяДата(), "ДФ=дд")+"_";
Стр = Стр + СтрЗаменить(Строка(Формат(ТекущаяДата(), "ДЛФ=В")),":","");
Мусьё знает толк. Очердной туроператор склеил ласты =)
−158
Если Переменная1 <> 0 Тогда
Иначе
Переменная1 = 0;
КонецЕсли;
Пять минут пытался убедить нашу "программистку" с десятилетним стажем, что этот высер ничего не делает! Сошлись на том, что она "всё таки удалит его, но если появятся ошибки - она здесь не при чем"!
Этот кусок я бы и не заметил, если бы не бросился в глаза пустой блок "Тогда" при использовании блока "Иначе"