Архив метки: 1c

1C

1001-й способ ограничить пользователей 1С

Комментариев нет

Задача: разрешить пользователям проводить документы только внутри разрешенных им складов.

Частично данная задача успешно решается при помощи RLE и соответствующих ролей. Но! не полностью. Во всяком случае в конфигурации 1С Розница 2.2 нет возможности ограничить пользователя (без изменения конфигураци)…ну например реализовывать  товар с «чужого» склада/Магазина, делать перемещение товаров на «чужие» склады (ограничения работают только для Ордеров???). 

Решение: используем относительно новую фичу от 1С — подписка на события. А именно на событие «Запись». Данные по которым будем проверять можно пользователю записывать данный документ или нет, будем брать из специально созданного справочника.

В котором перечисленна группа к которой принадлежит пользователь, вид документа по которому его ограничиваем и список складов, с которыми ему позволено это документ использовать.

Далее создадим подписку на событие:

И собственно саму обработку события

Функция ПолучитьГруппуПользователя()
 Запрос = Новый Запрос;
  	 Запрос.Текст = "ВЫБРАТЬ
  	                |	ГруппыПользователей.Наименование КАК Наименование
  	                |ИЗ
  	                |	Справочник.ГруппыПользователей КАК ГруппыПользователей
  	                |ГДЕ
  	                |	ГруппыПользователей.Состав.Пользователь.Ссылка = &Ссылка";
	 
	Запрос.УстановитьПараметр("Ссылка",  ПараметрыСеанса.ТекущийПользователь);
	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	группа="";
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		//сообщить(ВыборкаДетальныеЗаписи.Наименование);
		группа=ВыборкаДетальныеЗаписи.Наименование;
	конеццикла;	           
	возврат группа;
	
КонецФункции	

Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт
	отказываем=истина;
	естьправила=ложь;
 	гп=	ПолучитьГруппуПользователя();
	естьОтправитель=ложь;
	естьПолучатель=ложь;
    отказываемОтправитель=истина;
	отказываемПолучатель=истина;
	// проверяем соответствие складам "Откуда"
	 Запрос = Новый Запрос;
  	 Запрос.Текст = 
	 "ВЫБРАТЬ
	 |	ДополнительныеНастройкиПравГрибовСкладыОткуда.Склад.Ссылка КАК СкладСсылка
	 |ИЗ
	 |	Справочник.ДополнительныеНастройкиПравГрибов.РазрешенныеСклады КАК ДополнительныеНастройкиПравГрибовСкладыОткуда
	 |ГДЕ
	 |	ДополнительныеНастройкиПравГрибовСкладыОткуда.Ссылка.ГруппаПользователей.Наименование = &ИмяГруппы
	 |	И ДополнительныеНастройкиПравГрибовСкладыОткуда.Ссылка.ВидДокумента.Наименование = &ИмяДокумента";	 
	Запрос.УстановитьПараметр("ИмяГруппы", гп);
	Запрос.УстановитьПараметр("ИмяДокумента", Источник.Ссылка.Метаданные().Имя);
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		естьправила=Истина;		
		если Источник.Ссылка.Метаданные().Реквизиты.Найти("Склад")<>Неопределено тогда			
			если источник.Склад.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда отказываем=Ложь;
			конецесли;	
		конецесли;
		если Источник.Ссылка.Метаданные().Реквизиты.Найти("СкладОтправитель")<>Неопределено тогда		
			естьОтправитель=Истина;
			если источник.СкладОтправитель.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда 
				отказываем=Ложь;				
				отказываемОтправитель=Ложь;
			конецесли;	
		конецесли;		
		если Источник.Метаданные().Реквизиты.Найти("СкладПолучатель")<>Неопределено тогда		
			естьПолучатель=Истина;
			если источник.Ссылка.СкладПолучатель.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда 
				отказываем=Ложь;
				отказываемОтправитель=Ложь;
			конецесли;	
		конецесли;									
	конеццикла;	
 если естьправила=Ложь тогда
	 Отказ=ложь;
 иначе
	  //отрабатываем вариант что два склада отправитель и получатель!
	  если (естьОтправитель=Истина и естьПолучатель=Истина) тогда
		  если отказываемОтправитель=Ложь и отказываемПолучатель=Ложь тогда
		   отказ=ложь;	  
	   иначе
		   отказ=Истина;
		  конецесли;	  
		  иначе
			  отказ=отказываем;			  
	  конецесли
	  
  конецесли;
  
	 если отказ=Истина тогда сообщить("- вы не можете записать данный документ с данными складами - не хватает прав! Обратитесь к Кочанову Сергею.");
	 конецесли;	 	  
  
КонецФункции
1C

Програмное получение группы пользователя в 1С

Комментариев нет

Например можно так:

Функция ПолучитьГруппуПользователя()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ГруппыПользователей.Наименование КАК Наименование
|ИЗ
| Справочник.ГруппыПользователей КАК ГруппыПользователей
|ГДЕ
| ГруппыПользователей.Состав.Пользователь.Ссылка = &amp;Ссылка";

Запрос.УстановитьПараметр("Ссылка", ПараметрыСеанса.ТекущийПользователь);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
группа="";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
сообщить(ВыборкаДетальныеЗаписи.Наименование);
группа=ВыборкаДетальныеЗаписи.Наименование;
конеццикла;
возврат группа;

КонецФункции

Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт

сообщить("-- какойто негодяй из "+ПолучитьГруппуПользователя()+" хочет записать документ! Проверяем а нужно ли?");
КонецФункции

1C

Нарушена целостность структуры конфигурации 1С

Комментариев нет

Сегодня при попытке обновить 1С появилась эта ошибка. Сначала чуть было не испугался, подумал что и в самом деле что-то порушилось. Однако все оказалось попроще, база не разрушилась, просто что-то сломалось в одном из файлов 1С локального пользователя. Гугл помог найти несколько способов лечения.

  1. Возможно поможет удаление проблемной базы из списка баз, и добавление вновь
  2. Некоторым помогала простая перезагрузка
  3. Мне помогло полностью удаление папки 1С из users/пользователь/AppData/Roaming/1C
1C

Работа с базами и выполнение запросов MSSQL на прямую, посредством встроенного языка 1С

Один комментарий

загруженное (1)Задача: выгрузить в удаленную базу MSSQL некие данные с произвольной структурой.

Решение: 1С умеет работать с COM соединениями. Их и используем.

Сначала напишем процедуру отвечающую за подключение к MSSQL, и выдающее на выходе  ссылку на полученное соединение: Читать далее Работа с базами и выполнение запросов MSSQL на прямую, посредством встроенного языка 1С →

1C

Выгрузка списка контрагентов в XML (1C 8.2)

Комментариев нет

Достаточно простой код, используя обьект 1С ЗаписьXML:

 Запрос = Новый Запрос;
 Запрос.Текст = 
 "ВЫБРАТЬ
	|	Контрагенты.Наименование как имя,
	|	Контрагенты.НаименованиеПолное как полноеимя,
	|	Контрагенты.Код как код,
	|	Контрагенты.ИНН как инн,
	|	Контрагенты.КПП как кпп,
	|	Контрагенты.Ссылка,
	|	Контрагенты.Покупатель как покупатель,
	|	Контрагенты.Поставщик как поставщик
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагенты";
	
  Результат = Запрос.Выполнить().Выбрать();  
  ЗаписьXML = Новый ЗаписьXML;
  ЗаписьXML.ОткрытьФайл("\\10.80.16.34\Documents\counterpart.xml","UTF-8");
  ЗаписьXML.ЗаписатьОбъявлениеXML();

  ЗаписьXML.ЗаписатьНачалоЭлемента("export");
  пока  Результат.Следующий() цикл
   	 ЗаписьXML.ЗаписатьНачалоЭлемента("counterpart");
	 ЗаписьXML.ЗаписатьБезОбработки("<name>"+Результат.имя+"</name>");
	 ЗаписьXML.ЗаписатьБезОбработки("<fullname>"+Результат.полноеимя+"</fullname>");
	 ЗаписьXML.ЗаписатьБезОбработки("<code>"+Результат.код+"</code>");
	 ЗаписьXML.ЗаписатьБезОбработки("<inn>"+Результат.инн+"</inn>");
	 ЗаписьXML.ЗаписатьБезОбработки("<kpp>"+Результат.кпп+"</kpp>");
	 ЗаписьXML.ЗаписатьБезОбработки("<buyer>"+Результат.покупатель+"</buyer>");
	 ЗаписьXML.ЗаписатьБезОбработки("<supplier>"+Результат.поставщик+"</supplier>");
	 ЗаписьXML.ЗаписатьКонецЭлемента();

  конеццикла;
  ЗаписьXML.ЗаписатьКонецЭлемента();