Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−96
Если ОтражатьВБухгалтерскомУчете = Истина Тогда
Если Лев(Номер, 3) <> ТекПрефикс Тогда Номер = ""; УстановитьНовыйНомер(); КонецЕсли;
Иначе
Если Лев(Номер, 3) = ТекПрефикс Тогда Номер = ""; УстановитьНовыйНомер(); КонецЕсли;
КонецЕсли;В чем смысл проверки на соответствие префиксу остается только гадать...
imxored,
10 Ноября 2015
−100
Если НЕ ЗначениеЗаполнено(Качество) Тогда
Качество = Справочники.Качество.Новый;
КонецЕсли;
Если Качество = Справочники.Качество.Новый Тогда
Качество = Справочники.Качество.ПустаяСсылка();
КонецЕсли;
Foxx,
03 Ноября 2015
−88
ЕСли ЗаявкаСсылка.таблица.Выгрузить().Колонки.Найти("СхемаЗакупки") = Неопределено ТОгда
ТекстЗапроса = 1/0;//вызываем Исключение
КонецЕсли;Пунктуация сохранена.
alexinzaz,
27 Октября 2015
−98
Если не ДанныеАкта.ФормироватьБухПроводку Тогда
Выборка = Результат[1].Выбрать();
Пока Выборка.Следующий() Цикл
СуммаВал = СуммаВал + Выборка.СуммаУслуги;
//тут делаем всякое с выборкой
КонецЦикла;
КонецЕсли;
Если ДанныеАкта.ФормироватьБухПроводку Тогда
//тут делаем движения по счетам БУ
Иначе
тз = Результат[1].Выгрузить();
Для каждого стрТЗ Из тз Цикл
//тут делаем тоже, что и с выборкой, только теперь с таблицей значений О_о
КонецЦикла;
КонецЕсли;Смотрю одно решение для страховых компаний, полностью на поддержке...
HomoAlbus,
20 Октября 2015
−98
Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ДанныеСотрудниковСрезПоследних.Подразделение
|ИЗ
| РегистрСведений.ДанныеСотрудников.СрезПоследних(&Дата, ) КАК ДанныеСотрудниковСрезПоследних
|ГДЕ
| ДанныеСотрудниковСрезПоследних.Сотрудник = &Сотрудник";
Запрос.УстановитьПараметр("Дата", ТекущаяДата());
Запрос.УстановитьПараметр("Сотрудник", Пользователь.ФизЛицо);
классическая ошибка СрезПоследних и ГДЕ (сотрудник, ессссно, является измерением); непонятно зачем присобачена &Дата
откуда бы вы думали взят этот код?
аддон "Закупки" для БГУ, поставщик Фирма "1С", версия 1.0.9.1. ОбщийМодуль.ДляУП.ПолучитьПодразделениеТ екущегоПользователя()
И чего народ хочет от быдлокодеров-франчей, если сами 1С так пишут...
IHate1C,
12 Октября 2015
−94
Функция ПолучитьДоговорКонтрагента(Организация,Подразделение,Контрагент) Экспорт
ЗапросДоговор = Новый Запрос;
ЗапросДоговор.Текст = "ВЫБРАТЬ
| ДоговорыКонтрагентов.Ссылка
|ИЗ
| Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
|ГДЕ
| ДоговорыКонтрагентов.Организация = &Организация
| И ДоговорыКонтрагентов.Подразделение = &Подразделение
| И ДоговорыКонтрагентов.Владелец = &Владелец
|
|СГРУППИРОВАТЬ ПО
| ДоговорыКонтрагентов.Ссылка";
ЗапросДоговор.УстановитьПараметр("Организация",Организация);
ЗапросДоговор.УстановитьПараметр("Подразделение",Подразделение);
ЗапросДоговор.УстановитьПараметр("Владелец",Контрагент);
Результат = ЗапросДоговор.Выполнить();
Если НЕ Результат.Пустой() Тогда
Возврат Результат.Выбрать().Следующий();
Иначе
Возврат Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
КонецЕсли;
КонецФункцииВот вроде функция общего модуля называется ПолучитьДоговорКонтрагента, и ты, не заглядывая в неё, конечно же, ждёшь возврата ссылки на спр-к ДоговорыКонтрагентов, но нет!!
SkyHunter,
02 Октября 2015
−96
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка) КАК Контрагент,
| ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка) КАК ТорговаяТочка,
| 0 КАК ЛимитСумма,
| 0 КАК ЛимитСрок,
| 0 КАК ПросроченаСумма,
| 0 КАК ПросроченоДней,
| 0 КАК ОтгрузкаРазрешена,
| Значение(Документ.РеализацияТоваровУслуг.ПустаяСсылка) КАК Документ,
| 0 КАК Сумма
|";
РезультатЗапроса = Запрос.Выполнить();
ТаблицаДЗ = РезультатЗапроса.Выгрузить();
Результаты.Вставить("АктуальнаяДЗСумма", ТаблицаДЗ);Кто может объяснить мне сакральный смысл этого запроса?
jerokee,
01 Октября 2015
−98
&НаКлиенте
Процедура УстановитьВидимостьПотребностей(Видимость)
Если Видимость Тогда
Элементы.ТекстУтвержденоПоЗаявкам.ЦветТекстаЗаголовка = Новый Цвет(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
−94
ТаблЗнач = Запрос.Выполнить().Выгрузить(); //SL+
Для Каждого Элемент из ТаблЗнач Цикл
Если Элемент.Номенклатура.РазрешеноДробноеКоличество = Ложь Тогда
Элемент.Количество = ?(Формат (Элемент.Количество,"ЧДЦ=0") = "",0,Формат (Элемент.Количество,"ЧДЦ=0"));
КонецЕсли;
КонецЦикла;
BlinOFF,
10 Сентября 2015
−98
Если (ПустаяСтрока(мВыбФайл) = 1)
Или (ФС.СуществуетФайл(мВыбФайл) = 0) Тогда
ТекстСообщения = "Внимание, не заполнен путь к файлу Excel с товарами для перемещения. Выполнение обработки прервано.";
Сообщить(ТекстСообщения);
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ФС.СуществуетФайл(мВыбФайл) = 0 Тогда
ТекстСообщения = "Внимание, Excel файл с товарами для перемещения не существует. Выполнение обработки прервано.";
Сообщить(ТекстСообщения);
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустаяСтрока(мВыбФайл) = 1 Тогда
ТекстСообщения = "Не указан Excel файл для формирования таблицы товаров.";
СтатусВозврата(0);
Возврат;
КонецЕсли;1С 7.7. Кусок из процедуры по загрузке данных из файла Excel.
dsfix,
09 Сентября 2015
Follow us!