Архив рубрики: 1С:Предприятие 8 – Заметки

Ввод числа при запрете использования модельного режима в управляемых формах

&НаКлиенте
Процедура УстановитьОбщийПроцентСкидки(Команда)
Оповещение = Новый ОписаниеОповещения("ЗавершениеВводаЧисла", ЭтотОбъект);
Подсказка = "Введите процент скидки";
НовыйПроцент = 0;
ПоказатьВводЧисла(Оповещение, НовыйПроцент, Подсказка, 10, 3);
КонецПроцедуры
&НаКлиенте 
Процедура ЗавершениеВводаЧисла(Процент, ДополнительныеПараметры) Экспорт 
Если Не Процент = Неопределено Тогда
// обрабатываем ввод
КонецЕсли;
КонецПроцедуры

&НаКлиенте

Процедура УстановитьОбщийПроцентСкидки(Команда)

Оповещение = Новый ОписаниеОповещения("ЗавершениеВводаЧисла", ЭтотОбъект);

Подсказка = "Введите процент скидки";

НовыйПроцент = 0;

ПоказатьВводЧисла(Оповещение, НовыйПроцент, Подсказка, 10, 3);

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

&НаКлиенте

Процедура ЗавершениеВводаЧисла(Процент, ДополнительныеПараметры) Экспорт

Если Не Процент = Неопределено Тогда

// обрабатываем ввод

КонецЕсли;

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

1С 8.3 как отключить контроль заполнения цены в заказах клиентов в конфигурации управление торговлей 11.4 (УТ 11.4 или 11.3)

Чтобы отключить контроль заполнения цены в заказах клиентов в конфигурации управление торговлей 11.3 или 11.4 (разрешить продажу по нулевой цене) Включаем возможность изменения общего модуля “ПродажиСервер” В процедуре “ПроверитьКорректностьЗаполненияДокументаПродажи” в разделе “// ЗАКАЗ КЛИЕНТА” находим строку “МассивПроверок.Добавить(“КонтрольЗаполненияЦенСУчетомОтменнных”);” И комментируем ее Все…

1С : как найти всех пользователей у которых есть определенная роль?

Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); 
Для Каждого ЭлементМассива Из Выборка Цикл                 
Если Объект.аксСтатусСогласованияПоставщика = ПредопределенноеЗначение("Перечисление.аксСтатусыСогласованияПоставшика.ПолныеПрава") Тогда
Сообщить(ЭлементМассива);
КонецЕсли;
КонецЦикла;

Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей();

Для Каждого ЭлементМассива Из Выборка Цикл

Если Объект.аксСтатусСогласованияПоставщика = ПредопределенноеЗначение("Перечисление.аксСтатусыСогласованияПоставшика.ПолныеПрава") Тогда

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

КонецЕсли;

КонецЦикла;

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

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

&НаКлиенте

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

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

Хранилище значений 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	ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",")