Архивы 1c - Страница 8 из 8

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

12.07.2017 Павел Грибов 1C

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



		
		
			
			

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

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

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

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

сообщить("-- какойто негодяй из "+ПолучитьГруппуПользователя()+" хочет записать документ! Проверяем а нужно ли?");
КонецФункции
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
				
						Функция ПолучитьГруппуПользователя()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ГруппыПользователей.Наименование КАК Наименование
|ИЗ
| Справочник.ГруппыПользователей КАК ГруппыПользователей
|ГДЕ
| ГруппыПользователей.Состав.Пользователь.Ссылка = &amp;Ссылка";
 
Запрос.УстановитьПараметр("Ссылка", ПараметрыСеанса.ТекущийПользователь);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
группа="";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
сообщить(ВыборкаДетальныеЗаписи.Наименование);
группа=ВыборкаДетальныеЗаписи.Наименование;
конеццикла;
возврат группа;
 
КонецФункции
 
Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт
 
сообщить("-- какойто негодяй из "+ПолучитьГруппуПользователя()+" хочет записать документ! Проверяем а нужно ли?");
КонецФункции

Оставить комментарий 1c, группа пользователей

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

03.10.2013 Павел Грибов 1C

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

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

Оставить комментарий 1c, 1с, восстановление 1С, нарушена целостность структуры

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

16.04.2013 Павел Грибов 1C

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

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

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

Один комментарий 1c, работа из 1с с MSSQL

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

13.03.2013 Павел Грибов 1C

Достаточно простой код, используя обьект 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.ЗаписатьКонецЭлемента();

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Контрагенты.Наименование как имя,

| Контрагенты.НаименованиеПолное как полноеимя,

| Контрагенты.Код как код,

| Контрагенты.ИНН как инн,

| Контрагенты.КПП как кпп,

| Контрагенты.Ссылка,

| Контрагенты.Покупатель как покупатель,

| Контрагенты.Поставщик как поставщик

|ИЗ

| Справочник.Контрагенты КАК Контрагенты";

Результат = Запрос.Выполнить().Выбрать();

Запись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.ЗаписатьКонецЭлемента();

Оставить комментарий 1c, 1c 8.2, xml, выгрузка xml

« 1 … 6 7 8

Декабрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31