Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 7
0
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
Если Данные.Свойство("Ссылка") И ЗначениеЗаполнено(Данные.Ссылка) Тогда
СтандартнаяОбработка = Ложь;
Представление = Данные.Ссылка.Наименование;
КонецЕсли;
КонецПроцедурыУ ребят не заладилось с этой процедурой. Смысла в этих действиях 0. Объект справочник.
NioGoth,
01 Октября 2020
0
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
СтандартнаяОбработка=Ложь;
Представление="";
Для Каждого Стр Из Данные.Ссылка.Состав Цикл
Представление=Представление+?(Представление="","",", ")+Стр.Автомобиль;
Если СтрДлина(Представление)>50 Тогда
Представление=Представление+"...";
Прервать
КонецЕсли;
КонецЦикла;
//Представление=""+Данные.Ссылка.Клиент+" ("+Представление+")";
КонецПроцедурыА чё это списки у нас вдруг тормозить стали?
NioGoth,
01 Октября 2020
0
Отбор = Новый Структура();
Отбор.Вставить("РабочийДокумент", Работы[0].РабочийДокумент.Ссылка);
ВсеСтатусыЗаявки = РегистрыСведений.Renault_АвтосервисСтатусыРабот.СрезПоследних().НайтиСтроки(Отбор);РегистрыСведений.Renault_АвтосервисСтату сыРабот.СрезПоследних() возвращает окол 200 000 записей и работает около 5 секунд.
NioGoth,
03 Сентября 2020
+1
//Создадим типизированные колонки в ТЗ
Запрос = Новый Запрос("ВЫБРАТЬ
| CRM_ЗначенияРеквизитовТрафика.РеквизитТрафика КАК РеквизитТрафика,
| CRM_ЗначенияРеквизитовТрафика.ЗначениеРеквизита КАК ЗначениеРеквизита,
| CRM_ЗначенияРеквизитовТрафика.ИдентификаторТрафика
|ИЗ
| РегистрСведений.CRM_ЗначенияРеквизитовТрафика КАК CRM_ЗначенияРеквизитовТрафика
|ГДЕ
| CRM_ЗначенияРеквизитовТрафика.ИдентификаторТрафика ЕСТЬ NULL");
РеквизитыТрафика = Запрос.Выполнить().Выгрузить();
//Удалим "лишние записи" на всякий случай
РеквизитыТрафика.Очистить();
//Заполним реквизиты трафика
//Логин клиента из онлайнконсультанта
НовоеСвойство = РеквизитыТрафика.Добавить();
НовоеСвойство.ИдентификаторТрафика = Идентификатор;
НовоеСвойство.РеквизитТрафика = ПланыВидовХарактеристик.CRM_РеквизитыТрафика.ОнлайнКонсультантЛогинКлиента;
НовоеСвойство.ЗначениеРеквизита = Описание.ЛогинКлиента;
//Запись в регистр
НЗ = РегистрыСведений.CRM_ЗначенияРеквизитовТрафика.СоздатьНаборЗаписей();
НЗ.Отбор.ИдентификаторТрафика.Установить(Идентификатор);
НЗ.Прочитать();
НЗ.Загрузить(РеквизитыТрафика);
Нз.Записать();Зачем столько раз читать регистр не понятно. Для чего вообще нужна типизированная таблица если используется прочитать? Одни вопросы.
NioGoth,
27 Сентября 2019
0
ВЫБРАТЬ РАЗЛИЧНЫЕ
ВЫРАЗИТЬ(Работы.Ссылка КАК Документ.ЗаказНаряд) КАК СсылкаЗН,
ДЦ.Ссылка КАК ДилерскийЦентр
ИЗ
Документ.ЗаказНаряд.Работы КАК Работы
ЛЕВОЕ СОЕДИНЕНИЕ Справочник.CRM_ДилерскиеЦентры КАК ДЦ
ПО (ЛОЖЬ)
ГДЕ
Работы.Ссылка.ДатаЗакрытия >= &ДатаНачала
И Работы.Ссылка.ДатаЗакрытия < &ДатаОкончания
И ДЦ.Ссылка.ПометкаУдаления = ЛОЖЬ
;Язык запросов 1С. При таком соединение запрос запрос всегда будет пустым.
NioGoth,
29 Августа 2019
0
УпрощенныйРежим = ДилерскийЦентр.Автосервис_ИспользуетсяУпрощенныйИнтерфейс;
Если УпрощенныйРежим ТОгда
Если ЗначениеЗаполнено(Клиент) Тогда
Если ТипЗнч(Клиент) = Тип("СправочникСсылка.Контрагенты") Тогда
ТекущийКлиент = Клиент;
Иначе
ЭлементыФормы.НадписьПредставьтесь.Заголовок = "Клиент представился как: " + Строка(Клиент) + ". Необходимо выбрать клиента";
КонецЕсли;
КонецЕсли;
Если ЗначениеЗаполнено(ТекущийКлиент) Тогда
ЗаполнитьДеревоОбращенийКдиента(ТекущийКлиент);
ЭлементыФормы.ТекущийКонтрагент.ЦветФонаПоля = Новый Цвет (255, 255, 255);
ЭлементыФормы.ТекущийКонтрагент.КнопкаОткрытия = Истина;
ОбновитьТелефонИEmail(ТекущийКлиент);
Если НЕ ЗначениеЗаполнено(ТекущийАвтомобиль) Тогда
ЗаполнитьВыборАвто();
КонецЕсли;
КонецЕсли;
КонецЕсли;
У формы существует реквизит ТекущийКлиент.
При открытии выполняться вот этот вот шедевр.
При сохрани обратно Клиент = ТекущийКлиент;.
И еще если не Упрощенный режим интерфейса то даже у старых документов контрагент будет не выбран.
NioGoth,
21 Декабря 2017
+2
Если ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнПосещение" Тогда
ТипТрафика = Справочники.CRM_ТипТрафика.ПосещениеАвтосалона;
ЭтаФорма.Заголовок = НСтр("ru = 'Регистрация нового трафика. Посещение'");
ИначеЕсли ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнЗвонок" Тогда
ТипТрафика = Справочники.CRM_ТипТрафика.Звонок;
ЭтаФорма.Заголовок = НСтр("ru = 'Регистрация нового трафика. Звонок'");
ИначеЕсли ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнEmail" Тогда
ТипТрафика = Справочники.CRM_ТипТрафика.EmailДилера;
ЭтаФорма.Заголовок = НСтр("ru = 'Регистрация нового трафика. Email'");
ЭлементыФормы.полеТелефон.Картинка = БиблиотекаКартинок.Renault_Mail_New_20;
ЭлементыФормы.полеТелефон.Маска = "";
ИначеЕсли ЭтаФорма.ВладелецФормы.ТекущийЭлемент.Имя = "кнЛидRenault" Тогда
ТипТрафика = Справочники.CRM_ТипТрафика.ЛидДилера;
КонецЕсли;Фирменная CRM система от Renault. Определения типа трафика по имени активного элемента владельца формы.
NioGoth,
15 Ноября 2017
Follow us!