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

Для использования этого механизма необходимо в конфигурации наличия определенных объектов, которые доступны в наборе типовых объектов конфигурации – Обмен Данными.

И так, прежде всего вам необходимо настроить и создать правила регистрации объектов (ПРО), сделать это наиболее удобно в конфигурации «Конвертация». Более подробная и детальная схема по созданию ПРО описана в разделе справки.

Первый шаг. Создадим план обмена. Назовем его «Обмен с внешней базой», можно использовать типовой.

Создадим в нем два реквизита: Организация (Справочник.Организации) и ГраничнаяДата (Дата и время).

В регистрации свойств установим регистрацию документа и регистра сведений «Сопоставление Объектов Информационных Баз», если планируется использовать механизм «Универсального обмена данными XML».

Дополнительно в модуле плана обмена добавим функции необходимые для идентификации плана обмена - Функция ВерсияОбменаДанными() Экспорт и другие, есть в примерах.

Второй шаг. Остановимся на правилах регистрации для объекта: Документ "Реализация Товаров и Услуг".

Правила регистрации объектов для документа «Реализация товаров и услуг»

Рис. 1 Правила регистрации объектов для документа «Реализация товаров и услуг»

Т.к. мы создали в плане обмена два реквизита для фильтрации объектов, то в ПРО укажим эти условия сравнения. Для фильтра «Организации» установим равенство организации указанной в узле обмена и источника документа на равенство. А для фильтра «Граничная дата» сравним дату документа с датой из узла (больше и равно). Если требуются более сложные правила, то Вы всегда можете использовать обработчики событий. К примеру, если требуется проверить условия по вхождению контрагента по «неким правилам» используйте свой код проверки, результатом должно быть значение флага Отказ (Отказ=Истина – не прошел, Отказ=Ложь – все ок).

Выгружаем и сохраняем ПРО.

Шаг третий. После, того как мы сохранили правила нам нужно связать его с соответствующим планом обмена. Эти функции выполняет регистр сведений «Правила для обмена данными», либо через мастер настроек.

Добавление данных в регистр сведений «Правила обмена данными»

Рис. 2 Добавление данных в регистр сведений «Правила обмена данными»

Выбираем план обмена из загружаем ПРО из типовых (список макетов) или из файла на диске. После этой операции наш план обмена будет связан с этими правилами.

Шаг четвертый. Если вы создаете свой план, тогда необходимо добавить еще подписку на событие. Для этого создадим объект с именем «Обмен данными с внешними базами», укажем событие при записи и тип источника «Документ Реализация Товаров и Услуг» (можно использовать составной), и создадим процедуру в которую необходимо вставить следующий код:

Процедура ОбменДаннымиСВнешнимиБазамиПриЗаписи(Источник, Отказ) Экспорт
// проверка для регистрации объекта
ОбменДаннымиСобытия.МеханизмРегистрацииОбъектовПередЗаписью("ОбменСБухгалтерией", Источник, Отказ);
КонецПроцедуры

Заключение. Все, теперь выбранные объекты данных будут регистрироваться в зависимости от необходимых произвольных условий. Если вы используете типовую конфигурацию – Бухгалтерию, УТ, УПП или др., то Вам всего, лишь необходимо создать ПРО и связать их с типовым планом обмена.

Вариант первый для версии 1С 8

функция urlencode(стр)
перем хекс[16];
хекс[1]="0";
хекс[2]="1";
хекс[3]="2";
хекс[4]="3";
хекс[5]="4";
хекс[6]="5";
хекс[7]="6";
хекс[8]="7";
хекс[9]="8";
хекс[10]="9";
хекс[11]="A";
хекс[12]="B";
хекс[13]="C";
хекс[14]="D";
хекс[15]="E";
хекс[16]="F";
рез="";
для сч=1 по стрДлина(стр) цикл
чар=сред(стр,сч,1);
если (чар>="a")и(чар<="z") тогда рез=рез+чар; продолжить; конецЕсли;
если (чар>="A")и(чар<="Z") тогда рез=рез+чар; продолжить; конецЕсли;
если (чар>="0")и(чар<="9") тогда рез=рез+чар; продолжить; конецЕсли;
кс=кодСимв(чар);
рез=рез+"%"+ хекс[ цел(кс/16)+1 ] + хекс[ цел(кс%16)+1 ];
конецЦикла; // сч=1...стрДлина(стр)
возврат рез;
конецФункции // urlencode(стр)

Вариант второй для версии 1С 8

Функция URLEncode(Стр1)

СтрокаСимволов = " !""@№#;%:?*().,/$^&";

Рез = "";
Стр= СокрЛП(Стр1);
Для Сч=1 По СтрДлина(Стр) Цикл

Символ = Сред(Стр, Сч, 1);
КС = КодСимвола(Символ);
// Перевод из UNICODE в ASCII
Если ((КС > 1039) И (КС < 1104)) Тогда
КС = КС - 848;
ИначеЕсли КС = 8470 Тогда
КС = 185;
ИначеЕсли КС = 1105 Тогда
КС = 184;
ИначеЕсли КС = 1025 Тогда
КС = 168;
КонецЕсли;

флЗаменили = 0;
Если Найти(СтрокаСимволов, Символ) > 0 Тогда

Рез = Рез + "%"+ Hex[Цел(КС/16)] + Hex[Цел(КС%16)];
флЗаменили = 1;

КонецЕсли;

Если (КС <= 127) и (флЗаменили = 0) Тогда
Рез = Рез + Символ;
ИначеЕсли флЗаменили = 0 Тогда
Рез = Рез + "%"+ Hex[Цел(КС/16)] + Hex[Цел(КС%16)];
КонецЕсли;

КонецЦикла;

Возврат Рез;
КонецФункции // URLEncode()

Вариант третий для версии 1С 8

Функция URLEncode4(Строка="") ScrCtrl = Новый COMОбъект("MSScriptControl.ScriptControl"); ScrCtrl.Language="JScript"; Сообщение = ScrCtrl.eval("var uri='"+Строка+"'; encodeURI(uri);") ; Возврат Сообщение;

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

Данные о Windows пользователях, уровнях доступа (правах) обычно хранятся в AD. Согласитесь, поэтому самым оптимальным, централизованным, оперативным (если пользователь получил доступ в корпоративную сеть, то он автоматически появляется в AD) способом хранить и получать информацию о пользователях и соответственно  сотрудниках можно из Active Directory.

Так же если у Вас стоит корпоративный портал Sharepoint, то с помощью него можно организовать удобный и простой, но очень мощный инструмент – телефонный справочник сотрудников или (и) справочник сотрудников.

Задачи, решаемые этим компонентом:

1. Поиск сотрудников по (части слова) инициалам, телефонному номеру, отделу и т.д.

2. Поиск по буквенному каталогу

3. Поиск по организационной структуре

Итак, более подробную информацию об AD Вы можете найти в интернете, в AD можно хранить любую символьную информацию – обычно здесь хранится учетная запись, ФИО, фамилия, отдел, телефон, e-mail, уровень прав на доступ, офис, так же сюда можно добавить – ФИО руководителя, адрес организации, фотографию (ссылку) и т.д.

Есть один способ оптимизировать вывод информации об отделах: сделать функцию static  и включить кеширование.

Как Вы, наверное, догадались, при поиске по строке запроса, мы будем искать фамилию или имя, или номер в директории и выводить информацию на экран.

Поиск по каталогу реализуется очень просто. Создаем список букв от (А до Я) и по нажатию на каждую букву ловим letter=querystring(letter) и создаем запрос к Active Directory в форме: filter = “ (&(ObjectClass=User)(family=”+letter+”*))”  и выводим получившийся результат в строку либо с помощью SPGrid или другого инструмента

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

Наслаждаемся
VisualWebPart1UserControl.ascx.cs

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

using System;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.DirectoryServices;
using Microsoft.SharePoint;
using Microsoft.SharePoint.Linq;
using System.Linq;
using System.Collections.Generic;
 
namespace showADusers.VisualWebPart1
{
    public partial class VisualWebPart1UserControl : UserControl
    {
        protected void Page_Load(object sender, EventArgs e)
        {
        }
 
        protected override void Render(HtmlTextWriter writer)
        {
            writer.WriteLine("Поиск пользователей компании*");
            writer.WriteBreak();
            base.Render(writer);
 
            writer.WriteBreak();
            DirectorySearcher(writer); // Выводим результат поиска
            writer.WriteBreak();
        }
 
        public string keyfilter="";
 
        public void DirectorySearcher(HtmlTextWriter writer)
        {
 
            keyfilter = textBox1.Text;
            if(keyfilter!="")
            SPSecurity.RunWithElevatedPrivileges(delegate() // даже анонимные пользователи могут смотреть результат кода
            {
                try
                {
                    string strrootdse = objsearch.SearchRoot.Path; // работаем с AD  смотри документацию от  Microsoft
                    string  strrootdse = "LDAP://мой сервер LDAP";
                    DirectoryEntry objdirentry = new DirectoryEntry(strrootdse);
 
                    DirectorySearcher objsearch = new DirectorySearcher(objdirentry);
 
                    string query = "(& (cn=*" + keyfilter + "*)(objectClass=user))"; // ставим фильтр поиска
                    objsearch.Filter = query;
 
                    objsearch.PropertiesToLoad.Add("cn");
                    objsearch.PropertiesToLoad.Add("title");
                    objsearch.PropertiesToLoad.Add("physicaldeliveryofficename");
                    objsearch.PropertiesToLoad.Add("department");
                    objsearch.PropertiesToLoad.Add("company");
 
                    objsearch.PropertyNamesOnly = true;
 
                    objsearch.Sort.Direction = System.DirectoryServices.SortDirection.Ascending;
 
                    objsearch.Sort.PropertyName = "cn";
 
                    SearchResultCollection colresults = objsearch.FindAll();
                    // выведем реультат
                    foreach (SearchResult objresult in colresults)
                    {
                        writer.Write(objresult.GetDirectoryEntry().Properties["cn"].Value+" | ");
                        writer.Write(objresult.GetDirectoryEntry().Properties["title"].Value +" | ");
                        writer.Write(objresult.GetDirectoryEntry().Properties["physicaldeliveryofficename"].Value+" | ");
                        writer.Write(objresult.GetDirectoryEntry().Properties["department"].Value+" | ");
                        writer.Write(objresult.GetDirectoryEntry().Properties["company"].Value +" | ");
                        writer.Write("
");
                    }
 
                    objsearch.Dispose();
                }
                catch { };
 
            });
 
        }
 
       }
 
    }
}

VisualWebPart1UserControl.ascx

1
2
3
4
5
6
7
8
9
10
11
12

<%@ Assembly Name="$SharePoint.Project.AssemblyFullName$" %>
<%@ Assembly Name="Microsoft.Web.CommandUI, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %>
<%@ Register Tagprefix="SharePoint" Namespace="Microsoft.SharePoint.WebControls" Assembly="Microsoft.SharePoint, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %>
<%@ Register Tagprefix="Utilities" Namespace="Microsoft.SharePoint.Utilities" Assembly="Microsoft.SharePoint, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %>
<%@ Register Tagprefix="asp" Namespace="System.Web.UI" Assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" %>
<%@ Import Namespace="Microsoft.SharePoint" %>
<%@ Register Tagprefix="WebPartPages" Namespace="Microsoft.SharePoint.WebPartPages" Assembly="Microsoft.SharePoint, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %>
<%@ Control Language="C#" AutoEventWireup="true" CodeBehind="VisualWebPart1UserControl.ascx.cs" Inherits="showADusers.VisualWebPart1.VisualWebPart1UserControl" %>
 
Введите ФИО полностью или частично (пример: Роман Иванов)
<asp:TextBox ID="textBox1" runat="server" Width="256px" ></asp:TextBox>
<asp:Button ID="button1" Text="Найти" runat="server" />