Архив метки: Конфигуратор

Ошибка 1С – Неверный формат хранилища

При возникновении ошибки “Неверный формат хранилища”: На рисунке видно, что ошибка указывает на папку с временными файлами – AppData/Local/1C и далее папка с цифрами в названии.

Программная установка параметров выбора в 1C

Как пример программного отбора при выборе значения реквизита “тГрузополучатель”:

НовыйМассив = Новый Массив();
	
	ДоступныеГрузополучатели = ПолучитьДоступныеГрузополучатели();
	
	Для Каждого СтрокаДоступныеГрузополучатели Из ДоступныеГрузополучатели Цикл
		
		НовыйМассив.Добавить(СтрокаДоступныеГрузополучатели);
		
	КонецЦикла;
	
	НовыеЗначения = Новый ФиксированныйМассив(НовыйМассив);

	НовыйПараметр = Новый ПараметрВыбора("Отбор.Ссылка", НовыеЗначения);

	НовыйМассив = Новый Массив();
	
	НовыйМассив.Добавить(НовыйПараметр);

	НовыеПараметры = Новый ФиксированныйМассив(НовыйМассив);

	Элементы.тГрузополучатель.ПараметрыВыбора = НовыеПараметры;

НовыйМассив = Новый Массив();

ДоступныеГрузополучатели = ПолучитьДоступныеГрузополучатели();

Для Каждого СтрокаДоступныеГрузополучатели Из ДоступныеГрузополучатели Цикл

НовыйМассив.Добавить(СтрокаДоступныеГрузополучатели);

КонецЦикла;

НовыеЗначения = Новый ФиксированныйМассив(НовыйМассив);

НовыйПараметр = Новый ПараметрВыбора("Отбор.Ссылка", НовыеЗначения);

НовыйМассив = Новый Массив();

НовыйМассив.Добавить(НовыйПараметр);

НовыеПараметры = Новый ФиксированныйМассив(НовыйМассив);

Элементы.тГрузополучатель.ПараметрыВыбора = НовыеПараметры;

Программное получение системной информации о компьютере и конфигурации в 1С

В 1С предусмотрена возможность программного получения свойств конфигурации и некоторых технических характеристик компьютера, на котором работает платформа. В статье описывается этот функционал. Для получения характеристик компьютера предназначен объект СистемнаяИнформация:

СисИнфо = Новый СистемнаяИнформация;
Сообщить("Операционная система: " + СисИнфо.ВерсияОС);
Сообщить("Версия платформы: " + СисИнфо.ВерсияПриложения);
Сообщить("Объем оперативной памяти (Мб): " + СисИнфо.ОперативнаяПамять);
Сообщить("Процессор: " + СисИнфо.Процессор);
Сообщить("Тип платформы: " + СисИнфо.ТипПлатформы);

СисИнфо = Новый СистемнаяИнформация;

Сообщить("Операционная система: " + СисИнфо.ВерсияОС);

Сообщить("Версия платформы: " + СисИнфо.ВерсияПриложения);

Сообщить("Объем оперативной памяти (Мб): " + СисИнфо.ОперативнаяПамять);

Сообщить("Процессор: " + СисИнфо.Процессор);

Сообщить("Тип платформы: " + СисИнфо.ТипПлатформы);

Пример выводимых данных:

Операционная система: version 6.1 Service Pack 1 (Build 7601)
Версия платформы: 8.3.9.2170
Объем оперативной памяти (Мб): 8 132
Процессор: GenuineIntel Intel64 Family 6 Model 60 Stepping 3 3192 MHz
Тип платформы: Windows x86

Операционная система: version 6.1 Service Pack 1 (Build 7601)

Версия платформы: 8.3.9.2170

Объем оперативной памяти (Мб): 8 132

Процессор: GenuineIntel Intel64 Family 6 Model 60 Stepping 3 3192 MHz

Тип платформы: Windows x86

Внимание! Объект СистемнаяИнформация доступен как на клиенте, так и на сервере. Будет получена информация о том компьютере, на чьей стороне выполняется… Читать далее »

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

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

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

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

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

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

КонецЕсли;

КонецЦикла;

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

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

Как программно добавить реквизиты и прочее на управляемую форму

&НаСервере
Процедура ДобавитьНаСервере()
 
ДобавляемыеРеквизиты = Новый Массив;    
    Реквизит1 = Новый РеквизитФормы("Таб", Новый ОписаниеТипов("ТаблицаЗначений"), , "Таблица", Истина);
    ДобавляемыеРеквизиты.Добавить(Реквизит1); 
    ИзменитьРеквизиты(ДобавляемыеРеквизиты);
    
    ДобавляемыеРеквизиты = Новый Массив;    
    Реквизит2 = Новый РеквизитФормы("Кол", Новый ОписаниеТипов("Строка"),"Таб" , "Колонка", Истина);
    ДобавляемыеРеквизиты.Добавить(Реквизит2); 
    ИзменитьРеквизиты(ДобавляемыеРеквизиты);
    ТаблицаФормы = ЭтаФорма.Элементы.Добавить("Таблица", Тип("ТаблицаФормы"), ЭтаФорма);    
    ТаблицаФормы.ПутьКДанным = "Таб";       
    
    Колонка = ЭтаФорма.Элементы.Добавить("Колонка", Тип("ПолеФормы"), ТаблицаФормы);    
    Колонка.ПутьКДанным = "Таб.Кол";       
    
КонецПроцедуры

&НаСервере

Процедура ДобавитьНаСервере()

ДобавляемыеРеквизиты = Новый Массив;

Реквизит1 = Новый РеквизитФормы("Таб", Новый ОписаниеТипов("ТаблицаЗначений"), , "Таблица", Истина);

ДобавляемыеРеквизиты.Добавить(Реквизит1);

ИзменитьРеквизиты(ДобавляемыеРеквизиты);

ДобавляемыеРеквизиты = Новый Массив;

Реквизит2 = Новый РеквизитФормы("Кол", Новый ОписаниеТипов("Строка"),"Таб" , "Колонка", Истина);

ДобавляемыеРеквизиты.Добавить(Реквизит2);

ИзменитьРеквизиты(ДобавляемыеРеквизиты);

ТаблицаФормы = ЭтаФорма.Элементы.Добавить("Таблица", Тип("ТаблицаФормы"), ЭтаФорма);

ТаблицаФормы.ПутьКДанным = "Таб";

Колонка = ЭтаФорма.Элементы.Добавить("Колонка", Тип("ПолеФормы"), ТаблицаФормы);

Колонка.ПутьКДанным = "Таб.Кол";

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

Как в 1С передать файл с клиента на сервер с сохранением на сервере

Для клиент-серверного варианта работы 1С, когда сервер 1С расположен на отдельном компьютере, если необходимо сохранить/открыть файл на сервере, к примеру *.xlsx открыть средствами Excel через COM/OLE:

&НаКлиенте
Процедура ПрочитатьФайл(Команда)
	
	Файл = Новый ДвоичныеДанные(ИмяФайла);
	Адрес = ПоместитьВоВременноеХранилище(Файл, ЭтаФорма.УникальныйИдентификатор);
	ОбработатьНаСервере(Адрес);
	
КонецПроцедуры

&НаКлиенте

Процедура ПрочитатьФайл(Команда)

Файл = Новый ДвоичныеДанные(ИмяФайла);

Адрес = ПоместитьВоВременноеХранилище(Файл, ЭтаФорма.УникальныйИдентификатор);

ОбработатьНаСервере(Адрес);

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

1С 8.3.9 : Расширения конфигурации – способы расширения

Исполнение до расширяемого метода (аннотация Перед) Если метод аннотирован таким образом, это означает, что вначале будет выполнен метод расширения, а затем – расширяемый метод. Исполнение после расширяемого метода (аннотация После) Если метод аннотирован таким образом, это означает, что вначале будет выполнен расширяемый метод, а затем – метод расширения. Обрамление расширяемого метода (аннотации Перед и После)

1С 8.3.9 : Расширение конфигурации — роли

Реализована возможность изменять права доступа (включая ограничения доступа к данным) в заимствованных ролях. Реализована возможность создания собственных ролей в расширении конфигурации. Роли расширения могут быть назначены пользователю только с помощью встроенного языка. В конфигураторе доступно только удаление всех ролей расширения, назначенных пользователю. Реализована возможность ограничения использования прав доступа, которые созданы в расширении конфигурации, в результирующей… Читать далее »

1С 8.3.9 : Расширение конфигурации

Механизм расширения конфигурации – это специальный механизм, предназначенный для доработки расширяемой конфигурации без изменения этой конфигурации (в том числе без снятия с поддержки). При рассмотрении механизма расширения конфигурации будут использоваться следующие термины: Расширяемая конфигурация – основная конфигурация информационной базы, для которой применяется расширение или для которой расширение разрабатывается. Расширение конфигурации – набор объектов конфигурации, подключаемых… Читать далее »