пользователя%включить » Поиск

Результаты по ключевому слову: пользователя%включить

Полнотекстовый Поиск - пример поиска контрагентов в базе

У клиента огромная база клиентов и соответственно огромный штат менеджеров. Дошло до того, что менеджеры в поисках новых клиентов( знакомство, интернет, реклама и т.д.) очень часто звонят одним и тем же клиентам по несколько раз. Стали вести базу звонков... Но в базе одного и того же клиента могли назвать по разному - как-только вздумается...

Понадобился поиск по нечеткому названию и для этого решено было использовать полнотекстовый поиск 1С:

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

Смысл обработки в том, что менеджер копирует названия клиентов в список слева, нажимает Выполнить поиск и справа видит найденных в базе контрагентов (подходящих по нечеткости). Порог нечеткости менеджеры могут устанавливать сами.

Приведу краткий пример реализации данного поиска, код:

Код 1C v 8.х

 



Процедура КнопкаВыполнитьНажатие(Кнопка)

	Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() <> РежимПолнотекстовогоПоиска.Разрешить Тогда

		Отказ = Истина;

		Сообщение = Новый СообщениеПользователю();

		Сообщение.Текст = НСтр("ru = 'Использование полнотекстового поиска не разрешено. Вы можете включить его в диалоге ""Управление полнотекстовым поиском""'", "ru");

		Сообщение.Сообщить();

		Возврат;

	КонецЕсли;

	

	тчРезультата.Очистить();

	текдок = Новый ТекстовыйДокумент;

	текдок.УстановитьТекст(ТестПоиска);

	Для Ном=1 по текдок.КоличествоСтрок() цикл

		Стр = СокрЛП(текдок.ПолучитьСтроку(Ном));

		СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок(Стр);		

		СписокПоиска.ПолучатьОписание = Истина;

		СписокПоиска.РазмерПорции = 5;

		

		СписокПоиска.ПорогНечеткости = ПорогНечеткости;

		

		МассивОтбор = Новый Массив();

		МассивОтбор.Добавить(Метаданные.Справочники.Контрагенты);

		//МассивОтбор.Добавить(Метаданные.Документы.КассовыйЧек);

		СписокПоиска.ОбластьПоиска = МассивОтбор;

		СписокПоиска.ПерваяЧасть(); // Выдает по 5 результатов - РазмерПорции

		// Если нужно листать

		//	СписокПоиска.ПредыдущаяЧасть(ТекущаяПозиция);      

		//	СписокПоиска.СледующаяЧасть(ТекущаяПозиция);      

				

		Для каждого Результат Из СписокПоиска Цикл

			нСтр=тчРезультата.Добавить();

			нСтр.ТекстПоиска=Стр;

			нСтр.Контрагент=Результат.Значение;

		КонецЦикла; 			





	КонецЦикла;

	

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





Процедура ПриОткрытии()

	ПорогНечеткости=15;

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

Результат обработки:

Категория: Встроенные Функции

Как сформировать отчет СКД без проверки прав (в привилегированном режиме)?

Что при разработке отчетов требуется чтобы у пользователя с ограниченными правами, отчет формировался полностью без проверки прав!

Особенно если настроен RLS

Есть несколько способов как это сделать:

1. Установить привилегированный режим в модуле отчета

Форма отчета должна быть Управляемой, далее в модуле отчета процедура обработчика «При компоновке результата»:

Код 1C v 8.3

 //Перехватываем событие вывода компоновки данных в табличный документ и выводим со своим заголовком

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь; 

	УстановитьПривилегированныйРежим(Истина);	

	

	//Сформируем отчет

	СформироватьОтчет(ДокументРезультат, ДанныеРасшифровки);

	

	УстановитьПривилегированныйРежим(Ложь);

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

2. Формирование в привилегированном режиме через Общий модуль с галкой Привелигерованный

Создаем общий модуль

так же как в пункте 1 в обработчике «При компоновке результата» пишем:

Код 1C v 8.3

 //Перехватываем событие вывода компоновки данных в табличный документ и выводим со своим заголовком

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;  

	

	МЕ_ДляОтчетаСКД_ПривелРежим.СформироватьОтчетПривРеж(ДокументРезультат, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек);



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

В общем модуле МЕ_ДляОтчетаСКД_ПривелРежим код:

Код 1C v 8.3

 Процедура СформироватьОтчетПривРеж(ТабличныйДокумент, СхемаКомпоновкиДанных, ДанныеРасшифровки, КомпоновщикНастроек) Экспорт 



	ТабличныйДокумент.Очистить();  

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; 	

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки,,,Ложь);

	

	ВнешниеНаборыДанных  = Новый Структура;

	/// можно передать внешние данные ВнешниеНаборыДанных.Вставить("тзПродаж", СформироватьТЗПродаж());

	

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,ВнешниеНаборыДанных,ДанныеРасшифровки);

	

	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

	ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

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

3. Если включен режим Использовать ограничение на уровне прав доступа - RLS

Часто используется в типовых. Тут в модуле для текущего пользователя можно на время формирования отчету установить параметр сеанса ИспользоватьОграниченияПравДоступаНаУровнеЗаписей в Ложь и RLS не сработает.

Код 1C v 8.3

 ПараметрыСеанса.ИспользоватьОграниченияПравДоступаНаУровнеЗаписей=Ложь;

После завершения формирования, не забудьте включить rls обратно установив = Истина

4. Если в запросе используется конструкция вида регистратор.дата и это поле не отображается в полях отчета СКД

Допустим Вы сделали запрос по регистру накоплений и через регистратор обратились к дате или сумме документа и при формировании отчета СКД, эти поля недоступны !? как же быть?

Проблема в том - что у регистратором может выступать несколько документов и видимо права чтение/просмотр есть не на все - поэтому через скд эта таблица целиком недоступна, решение:

1. открыть доступ на все регистраторы регистра

2. в запросе четко обозначить тип

Код 1C v 8.3

 //примеры

ВЫРАЗИТЬ(ДокументыОплаты.Регистратор КАК Документ.ПлатежноеПоручениеВходящее).СуммаДокумента

//или так

ВЫБОР

 КОГДА РАЗНОСТЬДАТ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата,КонецПериода, ДЕНЬ) > ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности

   ТОГДА ДОБАВИТЬКДАТЕ(ВЫРАЗИТЬ(ВзаиморасчетыПоДокументам.ДокументРасчетовСКонтрагентом КАК Документ.ПоступлениеТоваровУслуг).Дата, ДЕНЬ, ВзаиморасчетыПоДокументам.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности)

 ИНАЧЕ ДАТАВРЕМЯ(1, 1, 1)

КОНЕЦ КАК ДеньВозникновенияЗадолженности

В дополнении у пункту 1, код процедуры сформировать отчет(). Для вывода отчета я использую шаблон All4CF.ru_Template_SKD_v4.1 в нем уже реализованы почти все необходимые функции и работает в Обычных и УП формах:

Код 1C v 8.3

 // Процедура выполняет формирование табличного документа по настройкам СКД

Процедура СформироватьОтчет(ТабличныйДокумент, ДанныеРасшифровки) 

	УстановитьПривилегированныйРежим(Истина);	

	// если отчет открывается по расшифровке, отбору, упорядочиванию, 

	// группировке или условному оформлению - восстановим настройки вывода заголовка,

	// т.к., в переданных настройках при этом, вывод заголовка отключен

	// для того, чтобы не выводился встроенный заголовок компоновки.                                                                         

	ВосстановитьНастройкиВыводаЗаголовка();

	

	ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

	

	ТабличныйДокумент.Очистить();

	

	// установим обязательные настройки отчета

	УстановитьПараметрыОтчета();

	

	// Сделаем копию настроек вывода заголовка

	СохранитьНастройкиВыводаЗаголовка();

	

	ВыводитьЗаголовок = ВыводитьЗаголовокОтчета();

	Если ВыводитьЗаголовок Тогда

		ПрисоединитьЗаголовокОтчетаКТабличномуДокументу(ТабличныйДокумент, ПолучитьТекстЗаголовкаОтчета());

		

		// Отключим в настройках вывод встроенного заголовка

		НайденнаяНастройкаВыводаЗаголовка = КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок");

		НайденнаяНастройкаВыводаЗаголовка.Значение		= ТипВыводаТекстаКомпоновкиДанных.НеВыводить;

		НайденнаяНастройкаВыводаЗаголовка.Использование	= Истина;

	КонецЕсли;

	

	КопияДополнительныхНастроек = УстановитьДополнительныеНастройкиДляРасшифровки();

	

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);

	

	// при необходимости вставим внешние наборы данных в СКД

	ВнешниеНаборыДанных = Новый Структура;

	

	ТаблицаВнешнегоНабораДанных = ПолучитьТаблицуВнешнегоНабораДанных();

	ВнешниеНаборыДанных.Вставить("ТаблицаВнешнегоНабораДанных",ТаблицаВнешнегоНабораДанных);

	

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,ВнешниеНаборыДанных,ДанныеРасшифровки);

	

	ВывестиРезультатКомпоновкиСАвтофиксациейСтрок(ТабличныйДокумент, ПроцессорКомпоновкиДанных, ДанныеРасшифровки.Элементы,,,КоличествоФиксируемыхСтолбцов);

	

	ДополнительнаяОбработкаРезультатаОтчета(ТабличныйДокумент);

	

	Если ВыводитьЗаголовок Тогда

		// вернем настройки вывода заголовка на место		

		ВосстановитьНастройкиВыводаЗаголовка();

	КонецЕсли;

	

	// восстановим дополнительные настройки

	Для Каждого ЭлементСтруктуры Из КопияДополнительныхНастроек Цикл

		КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить(ЭлементСтруктуры.Ключ, ЭлементСтруктуры.Значение);

	КонецЦикла;

	

	// сохраненные настройки нужны только при расшифровке и т.п.

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

	ОчиститьСохраненныеНастройкиВыводаЗаголовка();





	УстановитьВидимостьЗаголовкаОтчета(ТабличныйДокумент);

	УстановитьВидимостьПараметровОтчета(ТабличныйДокумент);    

    УстановитьПривилегированныйРежим(Ложь);

КонецПроцедуры // СформироватьОтчет()

Категория: Схема Компоновки Данных

Инструкция по установке PostgreSQL 9.2.4-1 1C на Windows Server 2008 x64

Кризис дело неприятное... и многие пытаясь сэкономить хоть как-нибудь, и устанавливают на Windows PostgreSQL вместо MS SQL.

Хотя если по Вашей компании небольшие обороты, то лучше поставить MS SQL Server 2014 Express, т.к. по опыту PostgreSQL хорошо работает на Linux, на Windows при настройках по умолчанию PostgreSQL работает медленнее MS SQL Server 2014 Express.

Устанавливаем PostgreSQL 9.2.4-1

Скачиваем официальные пакет с сайта 1С (users.v8.1c.ru) и запускаем установку

Отмечаем объекты к установке, если они не отмечены

Устанавливаем "как сервис". Для работы этого сервиса потребуется специальный пользователь. Указываем учетную запись, домен (если имеется) и пароль.

Если пользователь postgres не заведен в системе, то установщик спросит создать пользователя? - жмем да

Перейдем к следующему шагу и укажем Инициализировать кластер БД, порт 5432 и Кодировку UTF8

Если кластер серверов 1С и PostgreSQLна разных машинах, то ставим галочку «Поддерживать подсоединения с любых IP, а не только с localhost».

Далее - Может возникнуть ошибка «Secondary Logon». Тогда идем в «Администрирование» – «Службы». Стартуем службу «Вторичный вход в систему» или «Secondary Logon»

Далее отметьте галкой необходимые модули, можно установить все, но для 1С они не нужны, я устанавливаю только Adminpack

Если процесс установки завершается без проблем, то вам повезло

Чаще бывают проблемы, решение простое и элегантное (бубен можно оставить):

1. Создать/Изменить учетную запись postgres, включить её в группу Администраторы

2. Выйти из системы и войти в неё под учетной записью postgres

3. Запустить установку PostgreSQL

После установки через меню "Пуск" - "Все программы" запускаем утилиту администрирования «pgAdmin III».

Подключаемся к серверу. Там вводим пароль для пользователя «postgres». Если подключиться удалось, попробуем создать новую базу средствами самой 1С.

Запускаем клиентскую часть 1С. Жмем кнопку "Добавить", ставим галочку "Сервер предприятия 1С". Далее заполняем следующее: сервер базы данных (IP или DNS имя того сервера, куда ставили PostgreSQL) - если тот же, что и кластер 1С, то указываем 127.0.0.1. Имя базы данных: [любое_имя]. Пользователь: "postgres" Пароль: [ваш_пароль_postgres]. Далее.

Проверяем, что база 1С создается успешно.

Категория: Администрирование

Как включить/выключить Рабочий стол или Панель функций ? Категория: 1С Общие вопросы - Обычные формы

Как включить интерфейс такси в 1С

В этом видео уроке вы узнаете, как включить интерфейс Такси в 1С Бухгалтерия 8 предприятие.

Такая возможность появилась, начиная с релиза 3.0.33.15, который вышел 30.05.2014. В видео оговорка: не не 30 июня, а 30 мая. Но даже, если у пользователя стоит уже более свежий релиз, он, скорее всего, ни какого интерфейса такси в 1С Бухгалтерия не заметит. Его необходимо включить. Смотрите, как включить в 1С интерфейс такси.

В этом видео уроке рассмотрен тот вариант такси, который настроен в программе по умолчанию. В следующем видео уроке мы научимся изменять его структуру под свои задачи и вкусы. Наверное, назову его так: Переставляем шашечки в 1С интерфейсе такси».

Автор: Владимир Ильюков.

А теперь немного расскажем как включить Такси через конфигуратор:

Итак, заходим в конфигуратор и разблокируем конфигурацию (“Включить возможность изменения” в пункте меню “Настройка поддержки”:

Далее в дереве объектов конфигурации двойным кликом вызываем “Свойства” конфигурации и в пункте “Режим совместимости” выбираем “Такси”:

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

Категория: 1С Общие вопросы - Управляемые формы и Такс…

Настройка веб-клиента 1С:Предприятие 8.2 под Windows 7 x64 и IIS Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Автоматизация обмена данных используя обработку "Универсальный обмен данными в формате XML"

Автоматизация обмена между базами используя обработку "Универсальный обмен данными в формате XML"
В основу данной публикации положены найденные мною материалы по cозданию обмена между двумя базами с использованием обработки "Универсальный обмен данными в формате XML" . Но предлагается вариант автоматизации решения задачи которая позволяет выполнять обмен неквалифицированным пользователям, либо по регламенту. Скажем такой обмен применим если вы не можите по ряду причин использовать РБД, либо совсем разные конфигурации баз (случаи бывают разные, а хочется максимально настраиваемой гибкости).

Вначале безусловно воспользуемся конфигурацией "Конвертация данных" чтобы создать необходимые нам правила обмена (как - это отдельная тема).
Итак Собственно сама ВЫГРУЗКА:

Код 1C v 8.х

 Обработка = Обработки.УниверсальныйОбменДаннымиXML.Создать();

 Обработка.РежимОбмена = "Выгрузка";

 Обработка.ВыводВОкноСообщенийИнформационныхСообщений = Истина;

При необходимости можно задать период выгрузки (как пример):

 Обработка.ДатаНачала  = ТекущаяДата();

 Обработка.ДатаОкончания   = ТекущаяДата();



 Обработка.ИмяФайлаПравилОбмена = "D:\ПравилаОбменаДанными.xml";

 Источник = ЭтотОбъект.Ссылка;

 ИмяФайла = Строка(ТипЗнч(Источник)) + " " + Строка(Источник.Номер);

 Обработка.ИмяФайлаОбмена = "D:\E\"+ Источник +".xml"; 

 Обработка.ЗагрузитьПравилаОбмена(); 

Основные параметры мы определили, теперь надо настроить отбор, если в этом нет необходимости то просто запускаете выгрузку:

Обработка.ВыполнитьВыгрузку();

Настройка ОТБОРА:
Тут надо обратить внимание на массив "ВременнаяТаблицаПравил.Строки[1]" и в частности на индекс массива строк,
1 - это ветка "Справочники". Ну и так далее по аналогии

Код 1C v 8.х

 ВременнаяТаблицаПравил = Обработка.ТаблицаПравилВыгрузки.Скопировать();

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[1].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[2].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;

Сдесь вы определяете искомое правило выгрузки которое нужно оставить включенным на определенной ветке (сами можите варьировать чего и сколько)

Код 1C v 8.х

  Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

    Наименование = СтрокаУровня2.Имя;

    Если Наименование = "ПеремещениеТоваров00001" Тогда

        СтрокаУровня2.Включить = 1;

    Иначе

        СтрокаУровня2.Включить = 0;

    КонецЕсли;

 КонецЦикла;

 Обработка.ТаблицаПравилВыгрузки = ВременнаяТаблицаПравил.Скопировать();

Теперь настраиваем ОТБОР смысл которого передать в нашу выгрузку ссылку на документ(ты) который(е) хотим выгрузить:

Код 1C v 8.х

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

  Наименование = СтрокаУровня2.Имя;

  Если Наименование = "ПеремещениеТоваров00001" Тогда

  ТекущееПВД = СтрокаУровня2;



     Построитель = Новый ПостроительОтчета;

     Если ТекущееПВД.ИмяОбъектаДляЗапроса <> Неопределено Тогда



         Построитель.Текст =

         "ВЫБРАТЬ Разрешенные _.* ИЗ " + ТекущееПВД.ИмяОбъектаДляЗапроса + " КАК _

          |

          |

          |{ГДЕ _.Ссылка.* КАК " + СтрЗаменить(ТекущееПВД.ИмяОбъектаДляЗапроса, ".", "_") + "}";

     КонецЕсли;



     Отбор = Построитель.Отбор;



     Если Отбор.Найти("Документ_ПеремещениеТоваров") = Неопределено Тогда

        Отбор.Добавить("Документ_ПеремещениеТоваров");

     КонецЕсли;



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

     Массив.Добавить(Тип("ДокументСсылка.ПеремещениеТоваров"));

     ОписаниеТиповС = Новый ОписаниеТипов(Массив, , );



     Отбор["Документ_ПеремещениеТоваров"].Использование = Истина;

     Отбор["Документ_ПеремещениеТоваров"].Значение = ЭтотОбъект.Ссылка;

     Отбор["Документ_ПеремещениеТоваров"].ВидСравнения = ВидСравнения.Равно;



     ДоступностьПостроителя = Истина;

     Если Построитель.Отбор.Количество() > 0 Тогда

         ТекущееПВД.НастройкиПостроителя = Построитель.ПолучитьНастройки();

         ТекущееПВД.ИспользоватьОтбор    = ИСТИНА;

     КонецЕсли;

  КонецЕсли;

КонецЦикла;

Обработка.ТаблицаПравилВыгрузки = ВременнаяТаблицаПравил.Скопировать();
Ну и собственно запускаем саму выгрузку и получаем файл для загрузки:

Код 1C v 8.х

    Обработка.АрхивироватьФайл = Истина;

  Обработка.ВыполнитьВыгрузку();

Далее процесс загрузки:
Он довольно прост

Код 1C v 8.х

  МассивФайлов = НайтиФайлы("D:\E\", "*.zip");

Для Каждого Стм Из МассивФайлов Цикл

ТекстВопроса = "Загрузить - " + Стм.ПолноеИмя;

Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет,, КодВозвратаДиалога.Да);

    Если Ответ = КодВозвратаДиалога.Да Тогда

        Обработка  = Обработки.УниверсальныйОбменДаннымиXML.Создать();

        Обработка.ИмяФайлаОбмена = Стм.ПолноеИмя;

        Обработка.РежимОбмена    = "Загрузка";

        Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

        Обработка.ЗаписыватьВИнформационнуюБазуТолькоИзмененныеОбъекты = Истина;

        Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;

        Обработка.ВыполнитьЗагрузку();

        УдалитьФайлы(Стм.ПолноеИмя);

    КонецЕсли;

КонецЦикла;

Расширение .zip для файлов обмена пусть вас не смущает, обработка самостоятельно упакует .xml файл в архив:

Код 1C v 8.х

  Обработка.АрхивироватьФайл = Истина;

И также самостоятельно уже без дополнительных указаний распакует и загрузит. Это существенно уменьшает размеры файла обмена.

Категория: Конвертация данных, Обмен, Перенос

Установка и настройка 1C:Предприятия 8.х в варианте “клиент-сервер” Категория: Администрирование

Ошибка Windows Sockets 10054 Категория: Системные Ошибки