ZD Studio - Страница 3 из 22 - Заметки по программированию (конфигурированию) 1С 8.3

1С открыть СКД с параметром

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

&НаКлиенте

Процедура ОтчетДвиженияНоменклатуры(Команда)

ФормаОтчета = ПолучитьФорму("Отчет.ПеремещенияНоменклатуры.Форма");

КомпоновщикНастроек = ФормаОтчета.Отчет.КомпоновщикНастроек;

Настройки = КомпоновщикНастроек.Настройки;

ЭлементНастройки = Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Номенклатура"));

ЭлементНастройки.Значение = Элементы.Товары.ТекущиеДанные.Номенклатура;

Если ЗначениеЗаполнено(ЭлементНастройки.ИдентификаторПользовательскойНастройки) Тогда

ПользовательскийПараметр = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы.Найти(ЭлементНастройки.ИдентификаторПользовательскойНастройки);

Если ТипЗнч(ПользовательскийПараметр) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда

ПользовательскийПараметр.Значение = ЭлементНастройки.Значение;

КонецЕсли;

ФормаОтчета.Открыть();

ФормаОтчета.СкомпоноватьРезультат();

КонецПроцедуры

ХранилищеЗначения (хранилище значений 1С) – это объект в языке 1С, который позволяет хранить в базе данных прочие значения, например картинки и файлы, структуры и таблицы значений. Сначала мы создаем значение, например:

Знч = Новый ТаблицаЗначений();

1	Знч = Новый ТаблицаЗначений();

Потом помещаем его в хранилище значений 1С:

Хранилище = Новый ХранилищеЗначения(Знч, Новый СжатиеДанных(9));

1	Хранилище = Новый ХранилищеЗначения(Знч, Новый СжатиеДанных(9));

Сжатие данных в хранилище значений 1С с параметром «9» означает, что данные будут храниться в… Читать далее »

1С 8.x : Открытие внешних ссылок на объекты 1С e1c в тонком клиенте

Для открытия внешних ссылок на объекты 1С e1c в тонком клиенте нужно в реестре прописать связь протокола “e1c” и стартера 1С. Пример для 32-битной системы с установкой 1С в стандартный каталог. Для 64-битной использовать путь “Program Files x86 ”

1С 8.3 : Подсчет итогов динамического списка (медленный вариант при большом объеме данных)

Как подсчитать итоги динамического списка (медленный вариант при большом объеме данных)

1С 8.3 Не выполняется подмена процедуры основной конфигурации на процедуру расширения

Необходимо отключить безопасный режим работы расширения: Конфигурация – Расширения конфигурации – Снимаем флаг “Безопасный режим, имя профиля безопасности” Также проверьте режим совместимости конфигурации, должен быть не ниже 8.3.9 или в принципе отключен

1С 8.3 : Как свернуть массив

Один из вариантов:

Соответствие = Новый Соответствие;
Для каждого ЭлементМассива Из МассивНовый Цикл
Соответствие.Вставить(ЭлементМассива);
КонецЦикла;
МассивНовый.Очистить();
Для каждого КлючИЗначение Из Соответствие Цикл
МассивНовый.Добавить(КлючИЗначение.Ключ);
КонецЦикла;

Соответствие = Новый Соответствие;

Для каждого ЭлементМассива Из МассивНовый Цикл

Соответствие.Вставить(ЭлементМассива);

КонецЦикла;

МассивНовый.Очистить();

Для каждого КлючИЗначение Из Соответствие Цикл

МассивНовый.Добавить(КлючИЗначение.Ключ);

КонецЦикла;

1С:8 : Преобразовать строку с разделителями в массив

ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",")

1	ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",")

1С 8.3 : работа с деревом значений и таблицей значений. Часть II (Реализация DRAG and DROP)

Реализации механизма Drag and Drop (или проще говоря “Перетаскивания”) для ДереваЗначений расположенного на управляемой форме управляемого приложения 1С 8.3 Основная сложность реализации механизма перетаскивания заключается в том, что у строки ДереваЗначений платформа не позволяет просто изменить родителя, т.е. переподчинить строку. Единственный способ это сделать – создать новую строку вместе со всеми подчиненными строками, т.е. полностью… Читать далее »

Открытие списка договоров с отбором по владельцу

П = Новый Структура("Владелец", Объект.Контр); П = Новый Структура("Владелец", Объект.Контр); тФорма = ПолучитьФорму("Справочник.ДоговорыКонтрагентов.Форма.ФормаВыбора", Новый Структура("Отбор",П)); 
НовыйДоговор = тФорма.ОткрытьМодально();

1 2	П = Новый Структура("Владелец", Объект.Контр); П = Новый Структура("Владелец", Объект.Контр); тФорма = ПолучитьФорму("Справочник.ДоговорыКонтрагентов.Форма.ФормаВыбора", Новый Структура("Отбор",П)); НовыйДоговор = тФорма.ОткрытьМодально();

1С 8.3 : Отбор в динамическом списке одновременно по двум полям

ГруппаОтбор = Список.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных"));
ГруппаОтбор.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИЛИ;
Отбор = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Отбор.Родитель = ГруппаОтбор;
Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Наименование");
Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
Отбор.Использование = Истина;
Отбор.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
ЭлементОтбора.ПравоеЗначение = "000000001";
Отбор = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Отбор.Родитель = ГруппаОтбор;
Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Наименование");
Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
Отбор.Использование = Истина;
Отбор.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
ЭлементОтбора.ПравоеЗначение = "000000002";

ГруппаОтбор = Список.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных"));

ГруппаОтбор.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИЛИ;

Отбор = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

Отбор.Родитель = ГруппаОтбор;

Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Наименование");

Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;

Отбор.Использование = Истина;

Отбор.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;

ЭлементОтбора.ПравоеЗначение = "000000001";