рассматривается » Поиск

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

Формирование HTML-документа, содержащего ссылки на объекты базы данных

В данной статье рассматривается способ программного формирования HTML документа, содержащего ссылки на объекты базы данных 1С, такие как справочники, документы и т.д. Показан пример построения обработчика события OnClick ПоляHTMLДокумента, для обработки клика на html-ссылке.

Предисловие
Однажды, дописывая обработку, создающую и модифицирующую, не суть важно какие документы, я подумал, что неплохо было бы вывести для пользователя некое резюме:
“Создан документ такой-то”
“Изменен документ такой-то” и т.д.
От обычного, в таких случаях, вывода информации в окно сообщений я сразу отказался, так как не удобно это, сначала читать в окне сообщений “Создан документ … ” а потом запоминать его номер, открывать соответствующий журнал (или форму списка) и искать там этот документ. А если документов много и пользователь хочет посмотреть все документы?(или выборочно) Насколько это неудобно я убедился при отладке обработки …
То, что в форме есть элемент управления именуемый ПолеHTMLДокумента я конечно знал, но вот представилась возможность познакомиться с ним поближе. Было решено реестр обработанных документов выводить в виде html документа содержащего ссылки на эти самые документы, а по клику на ссылке открывать форму соответствующего документа. Здесь мне многие могут возразить: “А почему бы для этих целей не использовать обычный макет, выводимый в табличный документ, а для открытия документов использовать расшифровку? И чем Ваш способ лучше?” Отвечаю: Конечно можно использовать, и мой способ ничем не лучше. Он просто другой. Ведь у хорошего программиста для решения одной задачи должно быть в арсенале несколько инструментов.
Итак, перейдем от слов к делу, в рамках данной статьи рассмотрим следующую задачу: Сформировать html-документ, содержащий ссылки на элементы справочника номенклатура, по клику требуется открывать форму соответствующего элемента. Создаем новый отчет, его форму, на форме размещаем элемент управления ПолеHTMLДокумента.

Текст модуля формы:

Код 1C v 8.х

  Процедура ДобавитьТекстHTML(ТекстHTML, Элемент);

    // Ссылку будем формировать хитро:

    // Предполагаем что символ "-" не входит в имена объектов метаданных, 

    // учавствующих в формировании html

    // Тогда ссылка будет иметь следующий вид: 

    // Номенклатура-d341d377-b3b1-11dc-a100-0011d85708ff

    // Передавать нашу ссылку будем через атрибут id

    СсылкаНаЭлемент = Элемент.Метаданные().Имя+"-"

    +Элемент.Ссылка.УникальныйИдентификатор();

    ТекстHTML.ДобавитьСтроку("<A id=""" + СсылкаНаЭлемент + """ href= """ 

    + Элемент + """ >"+Элемент+"</A><BR>");

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



Процедура ДействияФормыСформировать(Кнопка)

    Запрос = Новый Запрос("

    |ВЫБРАТЬ

    |    Номенклатура.Ссылка

    |ИЗ

    |    Справочник.Номенклатура КАК Номенклатура");

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

    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл

        ДобавитьТекстHTML(ТекстHTML, Выборка.Ссылка);

    КонецЦикла;

ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(ТекстHTML.ПолучитьТекст());

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

Ну вот html мы сформировали, теперь чтобы ссылки “ожили” надо написать обработчик события OnClick элемента управления ПолеHTMLДокумента.

Код 1C v 8.х

  // Функция получает элемент - <A> по данному элементу

// Производит поиск элемента <A> среди родительских элементов данного

//

// Параметры:

// Элемент - COMОбъект, элемент HTML документа,

// по которому нужно найти ссылку

//

// Возвращаемое значение:

// COMОбъект - если ссылка обнаружена, иначе - Неопределено



Функция НайтиСсылку(Элемент)

    Врем = Элемент;

    Пока Врем <> Неопределено Цикл

        Если НРег(Врем.tagName) = "a" Тогда

            Возврат Врем;

        КонецЕсли;

        Врем = Врем.parentElement;

    КонецЦикла;

    Возврат Неопределено;

КонецФункции    // НайтиСсылку(Элемент)



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

    htmlElement = НайтиСсылку(pEvtObj.srcElement);

    // Анализируем если произошло нажание не ссылку

    Если htmlElement <> Неопределено Тогда

        // Если у ссылки есть идентификатор

        Если СокрЛП(htmlElement.id) <> "" Тогда

            // Получаем адрес ссылки из атрибута id

            СсылкаНаЭлемент = htmlElement.id;

            Разделитель = Найти(СсылкаНаЭлемент,"-");

            Если Разделитель > 0 Тогда

                // Получаем тип элемента

                ТипЭлемента = Лев(СсылкаНаЭлемент,Разделитель-1);

                // Получаем УникальныйИдентификатор

                ГУИД = Сред(СсылкаНаЭлемент,Разделитель+1);

                Справочники[ТипЭлемента].ПолучитьСсылку(

             Новый УникальныйИдентификатор(ГУИД)).ПолучитьФорму().Открыть();

            КонецЕсли;

            // Не отработали нажатие

            pEvtObj.returnValue = Ложь;

        КонецЕсли;

    КонецЕсли;

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

Всё можно пробовать!

Заключение
Обратите внимание что ссылку я формировал следующим образом:
<ИмяОбъектаМетаданных>-<УникальныйИдентификатор> это сделано для того, чтобы в обработчике onclick можно было определить к какому объекту метаданных относится данный УникальныйИдентификатор, потому что имея ТОЛЬКО УникальныйИдентификатор невозможно определить к какому объекту метаданных он относиться. Точнее возможно, но уж слишком долго и неудобно – путем перебора всех метаданных в цикле, для каждого объекта метаданных выполнять попытку <ОбъектМетаданных>.ПолучитьСсылку(Новый УникальныйИдентификатор(НашУникальныйИдентификатор))
Хотя в нашем примере только один справочник, и указывать его вид было необязательно, и так понятно что это УникальныйИдентификатор элемента справочника Номенклатура, но вдруг Вам потребуется работать с несколькими справочниками, вот тут то мой способ задания ссылки Вам и пригодится. Скачивать файлы может только зарегистрированный пользователь!

P.S. Платформа 8.2 имеет встроенный механизм работы со ссылками на объекты БД и данная задача наверняка упростится, но это уже другая тема.
Источник: obrabotki.com

Категория: Работа с Интернет, Почтой (Mail), FTP

Как ввести остатки отпусков

Остатки вводятся с помощью инструмента "Остатки отпусков" - специализированная форма списка справочника "Сотрудники".
Можно открыть через меню "Кадровый учет - Учет невыходов - Остатки отпусков"
Далее, по кнопку "Редактировать остаток отпуска" открывается форма ввода остатков. Рекомендую ее заполнять в режиме "Детальный ввод остатков" - будет понятнее.
Остаток по каждому сотруднику надо вводить на дату последнего завершившегося рабочего года. За текущий рабочий год сотруднику необходимо вводит отпуска обычным способом (док-ты "Отпуска организаций" и "Начисление отпуска сотрудникам организации").
Подробно ввод остатков рассматривается в книге из серии Секреты проф. работы в ЗУП: "Организация кадрового учета и управление персоналом".

Категория: 1С Зарплата и Управление Персоналом 2.5

Работа с форматом JSON в 1С

При обмене данными с веб-сайтами зачастую используется формат JSON. К сожалению, в 1С нет стандартных процедур для работы с данным форматом. В процессе реализации одного из проектов мной был разработан ряд процедур и функций облегчающих жизнь программисту 1С при работе с данными в формате JSON.

По сути, при работе с JSON требуется две операции: сформировать строку JSON (например, для передачи параметров на веб-сервер в формате JSON из 1С) и прочитать данные из строки JSON (например, когда мы получаем ответ от веб-сервера в формат JSON). Так как формат JSON в упрощенном виде представляет собой набор параметров в виде <ИмяПараметра>:<ЗначениеПараметра> то для работы с JSON в 1С мной был использован тип "Структура". Т.е. процедура чтения данных из формата JSON преобразует строку JSON в тип 1С "Структура". Так же и строка JSON в 1С формируется из структуры. Т.о. чтобы сформировать строку JSON сначала необходимо заполнить структуру необходимыми значениями, а потом вызвать функцию, преобразующую структуру в JSON. Позднее функционал функции формирования строки JSON был расширен - теперь в JSON может быть преобразован массив и таблица значений. При желании можно доработать функцию так, чтобы она "понимала" и другие типы. Такие как "Cоответствие", "ДеревоЗначений" и др. На практике это редко может пригодиться, поэтому сам я этого делать не стал.

А теперь подробней о том, как работать с функциями преобразования JSON.

Преобразование строки JSON в структуру 1С.
Для преобразования строки JSON в структуру 1С служит функция ЗаполнитьСтруктуруИзJSON().

Код 1C v 8.х

 Функция ЗаполнитьСтруктуруИзJSON(<ТекстJON>)

<ТекстJSON> (обязательный) - строка в формате JSON,
которую необходимо преобразовать в структуру.

Возвращаемое значение.
Тип Структура.
Имя значения задается в структуре как Ключ, а само значение, соответственно, как значение. Поддерживаются также вложенные значение ("{}" в "{}") и массивы. В таких случаях тип значения будет Структура и Массив соответственно. Если у в JSON задан только массив, то сформируется структура с одним элементом с ключом "Значение" и типом "Массив". Ниже приведены поясняющие примеры:

Код 1C v 8.х

 СтрокаJSON = "{""server"":""10234"",""user"":""3745"",""hash"":""8263ad83ce""}";

Результат = ЗаполнитьСтруктуруИзJSON(СтрокаJSON);

 

Сообщить("server:" + Результат.server + "

    |user:" + Результат.user + "

    |hash:" + Результат.hash);

 

 

// пример значений с массивом

СтрокаJSON = "{""server"":""10234"",""users"":[""3745"",""7462"",""2374""],""hash"":""8263ad83ce""}";

Результат = ЗаполнитьСтруктуруИзJSON(СтрокаJSON);

 

Сообщить("server:" + Результат.server + "

    |hash:" + Результат.hash);

 

для каждого user ИЗ Результат.users Цикл

  Сообщить("user: " + user);

КонецЦикла;

 

// еще один пример значений с массивом

СтрокаJSON = "{""server"":""10234"",""users"":[{""id"":""3745"",""name"":""Jack""},{""id"":""7462"",""name"":""Nick""}>";

Результат = ЗаполнитьСтруктуруИзJSON(СтрокаJSON);

 

Сообщить("server:" + Результат.server);

 

для каждого user Из Результат.users Цикл

  Сообщить("user id: " + user.id +

        ", user name: " + user.name);

КонецЦикла;

 

// только массив

СтрокаJSON = "[""Nissan"",""Ford"",""Audi""]";

Результат = ЗаполнитьСтруктуруИзJSON(СтрокаJSON);

 

для каждого Авто Из Результат.Значение Цикл

  Сообщить(Авто);

КонецЦикла;

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

Формирование строки JSON в 1С.
Для формирования строки в формате JSON в 1С предназначена функция СформироватьСтрокуJSON().

Код 1C v 8.х

 Функция СформироватьСтрокуJSON(<Объект>)

<Объект> (обязательный) - объект, который необходимо
преобразовать в формат JSON. Может иметь тип "Структура",
"Массив" или "ТаблицаЗначений".
Если Объект имеет тип "ТаблицаЗначений", то она рассматривается как массив из структур, соответствующих колонкам ТЗ. Все значения приводятся к строковому типу, дата приводится в формат unixtime, значение типа булево "Истина" преобразуется в строку "true", а "Ложь" - в "false, прочие объекты просто преобразуются как "Строка(Объект)".

Ниже приведены поясняющие примеры.

Код 1C v 8.х

 ////////////////////////////////////////////////////////

// преобразование простой структуры

Данные = Новый Структура("server,user,hash",

            10234, 3745, "8263ad83ce");

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// {"server":"10234","user":"3745","hash":"8263ad83ce"} 

 

////////////////////////////////////////////////////////

// преобразования массива

Данные = Новый Массив;

Данные.Добавить("Nissan");

Данные.Добавить("Ford");

Данные.Добавить("Audi");

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// ["Nissan","Ford","Audi"] 

 

////////////////////////////////////////////////////////

// преобразование сложной структуры

Данные = Новый Структура;

Данные.Добавить("server", 10234);

Данные.Добавить("users", Новый Массив);

Данные.Добавить("hash", "8263ad83ce");

 

Данные.users.Добавить(3745);

Данные.users.Добавить(7462);

Данные.users.Добавить(2374);

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// {"server":"10234","users":["3745","7462","2374"],"hash":"8263ad83ce"}

 

////////////////////////////////////////////////////////

// еще один пример массива

Данные = Новый Структура;

Данные.Вставить("server", 10234);

Данные.Вставить("users", Новый Массив);

 

Данные.users.Добавить(Новый Структура("id,name", 3745, "Jack"));

Данные.users.Добавить(Новый Структура("id,name", 7246, "Nick"));

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// {"server":"10234","users":[{"id":"3745","name":"Jack"},{"id":"7462","name":"Nick"}>

 

////////////////////////////////////////////////////////

// преобразование таблицы значений

ТаблПользователей = Новый ТаблицаЗначений;

ТаблПользователей.Колонки.Добавить("id");

ТаблПользователей.Колонки.Добавить("name");

 

НоваяСтрока = ТаблПользователей.Добавить();

НоваяСтрока.id = 3276;

НоваяСтрока.name = "Jack";

 

НоваяСтрока = ТаблПользователей.Добавить();

НоваяСтрока.id = 3276;

НоваяСтрока.name = "Nick";

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// [{"id":"3745","name":"Jack"},{"id":"7462","name":"Nick"}]

Автор: Павел Толкачев

Категория: Работа с Интернет, Почтой (Mail), FTP

ПолеHTMLДокумента ~ Программное формирование HTML-документа, содержащего Ссылки на объекты БД

Программное формирование HTML-документа, содержащего ссылки на объекты базы данных 1С
В данной статье рассматривается способ программного формирования HTML документа, содержащего ссылки на объекты базы данных 1С, такие как справочники, документы и т.д. Показан пример построения обработчика события OnClick ПоляHTMLДокумента, для обработки клика на html-ссылке.

Предисловие
Однажды, дописывая обработку, создающую и модифицирующую, не суть важно какие документы, я подумал, что неплохо было бы вывести для пользователя некое резюме:
“Создан документ такой-то”
“Изменен документ такой-то” и т.д.
От обычного, в таких случаях, вывода информации в окно сообщений я сразу отказался, так как не удобно это, сначала читать в окне сообщений “Создан документ … ” а потом запоминать его номер, открывать соответствующий журнал (или форму списка) и искать там этот документ. А если документов много и пользователь хочет посмотреть все документы?(или выборочно) Насколько это неудобно я убедился при отладке обработки …
То, что в форме есть элемент управления именуемый ПолеHTMLДокумента я конечно знал, но вот представилась возможность познакомиться с ним поближе. Было решено реестр обработанных документов выводить в виде html документа содержащего ссылки на эти самые документы, а по клику на ссылке открывать форму соответствующего документа. Здесь мне многие могут возразить: “А почему бы для этих целей не использовать обычный макет, выводимый в табличный документ, а для открытия документов использовать расшифровку? И чем Ваш способ лучше?” Отвечаю: Конечно можно использовать, и мой способ ничем не лучше. Он просто другой. Ведь у хорошего программиста для решения одной задачи должно быть в арсенале несколько инструментов.
Итак, перейдем от слов к делу, в рамках данной статьи рассмотрим следующую задачу: Сформировать html-документ, содержащий ссылки на элементы справочника номенклатура, по клику требуется открывать форму соответствующего элемента. Создаем новый отчет, его форму, на форме размещаем элемент управления ПолеHTMLДокумента.

Код 1C v 8.х

 Процедура ДобавитьТекстHTML(ТекстHTML, Элемент);

    // Ссылку будем формировать хитро:

    // Предполагаем что символ "-" не входит в имена объектов метаданных, 

    // учавствующих в формировании html

    // Тогда ссылка будет иметь следующий вид: 

    // Номенклатура-d341d377-b3b1-11dc-a100-0011d85708ff

    // Передавать нашу ссылку будем через атрибут id

    СсылкаНаЭлемент = Элемент.Метаданные().Имя+"-"

    +Элемент.Ссылка.УникальныйИдентификатор();

    ТекстHTML.ДобавитьСтроку("<A id=""" + СсылкаНаЭлемент + """ href= """ 

    + Элемент + """ >"+Элемент+"</A><BR>");

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



Процедура ДействияФормыСформировать(Кнопка)

    Запрос = Новый Запрос("

    |ВЫБРАТЬ

    |    Номенклатура.Ссылка

    |ИЗ

    |    Справочник.Номенклатура КАК Номенклатура");

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

    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл

        ДобавитьТекстHTML(ТекстHTML, Выборка.Ссылка);

    КонецЦикла;

ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(ТекстHTML.ПолучитьТекст());

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

Код 1C v 8.х

 // Функция получает элемент - <A> по данному элементу

// Производит поиск элемента <A> среди родительских элементов данного

//

// Параметры:

// Элемент - COMОбъект, элемент HTML документа,

// по которому нужно найти ссылку

//

// Возвращаемое значение:

// COMОбъект - если ссылка обнаружена, иначе - Неопределено



Функция НайтиСсылку(Элемент)

    Врем = Элемент;

    Пока Врем <> Неопределено Цикл

        Если НРег(Врем.tagName) = "a" Тогда

            Возврат Врем;

        КонецЕсли;

        Врем = Врем.parentElement;

    КонецЦикла;

    Возврат Неопределено;

КонецФункции    // НайтиСсылку(Элемент)



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

    htmlElement = НайтиСсылку(pEvtObj.srcElement);

    // Анализируем если произошло нажание не ссылку

    Если htmlElement <> Неопределено Тогда

        // Если у ссылки есть идентификатор

        Если СокрЛП(htmlElement.id) <> "" Тогда

            // Получаем адрес ссылки из атрибута id

            СсылкаНаЭлемент = htmlElement.id;

            Разделитель = Найти(СсылкаНаЭлемент,"-");

            Если Разделитель > 0 Тогда

                // Получаем тип элемента

                ТипЭлемента = Лев(СсылкаНаЭлемент,Разделитель-1);

                // Получаем УникальныйИдентификатор

                ГУИД = Сред(СсылкаНаЭлемент,Разделитель+1);

                Справочники[ТипЭлемента].ПолучитьСсылку(

             Новый УникальныйИдентификатор(ГУИД)).ПолучитьФорму().Открыть();

            КонецЕсли;

            // Не отработали нажатие

            pEvtObj.returnValue = Ложь;

        КонецЕсли;

    КонецЕсли;

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

Всё можно пробовать ( Скачивать файлы может только зарегистрированный пользователь!

) !

Заключение
Обратите внимание что ссылку я формировал следующим образом:
<ИмяОбъектаМетаданных>-<УникальныйИдентификатор> это сделано для того, чтобы в обработчике onclick можно было определить к какому объекту метаданных относится данный УникальныйИдентификатор, потому что имея ТОЛЬКО УникальныйИдентификатор невозможно определить к какому объекту метаданных он относиться. Точнее возможно, но уж слишком долго и неудобно – путем перебора всех метаданных в цикле, для каждого объекта метаданных выполнять попытку <ОбъектМетаданных>.ПолучитьСсылку(Новый УникальныйИдентификатор(НашУникальныйИдентификатор))
Хотя в нашем примере только один справочник, и указывать его вид было необязательно, и так понятно что это УникальныйИдентификатор элемента справочника Номенклатура, но вдруг Вам потребуется работать с несколькими справочниками, вот тут то мой способ задания ссылки Вам и пригодится.
P.S. Платформа 8.2 имеет встроенный механизм работы со ссылками на объекты БД и данная задача наверняка упростится, но это уже другая тема.
Источник

Категория: Работа с Формой (Диалог) и её элементами

Подбор из справочника на основе управляемых форм

В данной статье рассматривается технология реализации подбора на платформе 1С 8.2. Статья не претендует на академизм, просто столкнувшись с рядом проблем и не нашедшим «правильной» методологии решения (возможно плохо искал), решил пройти этот путь самостоятельно, естественно пользуясь различными источниками. В основном я опираюсь на материалы мастер-групп Базового курса «Профессиональное программирование в 1С» Евгения Гилева и Насипова Фарита, участником которого я являюсь, а также соответствующей литературы (М.Г. Радченко, Е.Ю. Хрусталева Практическое пособие разработчика).

Итак, предметная область: компания занимается оптовой торговлей товарами имеющими срок годности, который относится к серии, а та в свою очередь принадлежит конкретному товару. Товары поступают на разные склады. Задача: реализовать удобное заполнение табличной части расходного документа. Решение: необходимо реализовать форму подбора, обеспечивающею просмотр остатков товара по срокам годности, возможность выбора соответствующих позиций и последующий перенос в табличную часть документа. Задачи такого плана встречаются в 5 части сборника задач к подготовке экзамена по Специалисту.

Реализация. Создаем форму произвольного типа для документа Продажа товаров. Можно конечно создать общую форму, но в данной ситуации выбираем то, что поближе. На форме создаем реквизиты:
Склад - тип СправочникиСсылка.Склады
Товары - Динамический список, в свойствах ставим галочку произвольный запрос.
Выбор - таблица значений (колонки Товар, Серия - тип ссылки на соответствующие справочники, срок годности, количество - дата, число).

Настраиваем запрос для реквизита Товары. Здесь по идее все просто с помощью конструктора берем два справочника и виртуальную таблицу Остатков регистра Остатки товара. Если нужно видеть весь товар, то используем левое соединение Товаров с остальными источниками, если только с остатками, то полное соединение с регистром:

Код 1C v 8.2 УП

 ВЫБРАТЬ



               Товары.Ссылка КАК Товар,



               Серии.Ссылка КАК Серия,



               Серии.СрокГодности,



               ЕСТЬNULL(ТоварыНаСкладеОстатки.КоличествоОстаток, 0) КАК Количество



ИЗ



               Справочник.Товары КАК Товары



                               ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Серии КАК Серии



                               ПО (Серии.Владелец.Ссылка = Товары.Ссылка)



                               ПОЛНОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладе.Остатки(, Склад = &Склад) КАК ТоварыНаСкладеОстатки



                               ПО (ТоварыНаСкладеОстатки.Товар = Товары.Ссылка)



УПОРЯДОЧИТЬ ПО



               Товар,



               СрокГодности

Для виртуальной таблицы в параметрах указываем отбор по складу. После этого я 3 часа топтался на одном месте. Когда я запустил данную форму в процессе отладки, то я увидел только одну строчку с товаром, хотя их должно было быть больше. Честно говоря и растерялся, так как по идее все должно быть просто но ... И вот около 3 часов я пытался понять почему не выводятся все записи. Конечно, может это и не является серьезной проблемой и большинство практикующих специалистов 1С про нее знают, но только после долгого серфинга по Интернету я нашел, что надо очистить свойство основная таблица в окне настройки запроса динамического списка, и тогда появились все записи. При этом становится неактивным свойство динамическое считывание данных. В книге «Разработка управляемого интерфейса» мне не удалось найти назначение параметра основная таблица и описание это ситуации. Сразу хочу отметить, что в типовой конфигурации управление небольшой фирмой используется не динамический список, а дерево значений.

И так, возвращаемся в нормальное русло решение задачи.

В разработанной форме я добавил параметр Склад с целью отбора остатков.

Для того чтобы открыть созданную форму подбора, в управляемой форме документы Продажа товара создаем команду подбор, размещаем на форме о генерируем обработчик, в котором нам необходимо открыть форму. Так как форма должна обеспечивать множественный выбор и отбор по складу, то создаем структуру параметров формы. И открываем форму соответствующей командой.

Код 1C v 8.2 УП

 

&НаКлиенте



Процедура Подбор(Команда)



                ПараметрыПодбора = Новый Структура("ЗакрыватьПриВыборе, МножественныйВыбор, Склад", Ложь, Истина, Объект.Склад);



                ОткрытьФорму("Документ.ПродажаТоваров.Форма.ФормаПодбора", ПараметрыПодбора, Элементы.Товары);



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

Соответственно в форме подбора при создании заполняем параметр запроса склад из параметров формы:

Код 1C v 8.2 УП

 &НаСервере



Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)



               Товары.Параметры.УстановитьЗначениеПараметра("Склад",Параметры.Склад);



               Склад = Параметры.Склад;



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

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

Код 1C v 8.2 УП

 &НаКлиенте



Процедура ТоварыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)



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



               Для каждого НомерСтроки Из ВыбраннаяСтрока Цикл



                               ТекСтрока = Элемент.ДанныеСтроки(НомерСтроки);



                               Поиск = Новый Структура("Товар, Серия",ТекСтрока.Товар,ТекСтрока.Серия);



                               МассивСтрок = ВыбранныеТовары.НайтиСтроки(Поиск);



                               Если МассивСтрок.Количество() = 0 Тогда



                                               Строка = ВыбранныеТовары.Добавить();



                                               Строка.Товар = ТекСтрока.Товар;



                                               Строка.Серия = ТекСтрока.Серия;



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



                                               Строка.Количество = 1;



                                               ВвестиЧисло(Строка.Количество, "Введите количество");



                                               Пока  Строка.Количество > ТекСтрока.Количество Цикл



                                                              ВвестиЧисло(Строка.Количество, "Введите верное количество!");



                                               КонецЦикла;



                               КонецЕсли;



               КонецЦикла;



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

В нем имеется параметр ВыбраннаяСтрока представляющий собой массив, элементами которого являются номера строк списка Товары. В цикле проверяем не дублируются ли выбранные строки и запрашивается количество.

Для реализации перетаскивания необходимо проверить настройку следующих параметров: Для таблицы Товары - РазрешитьНачалоПеретаскивания, для Выбранные товары - РазрешитьПеретаскивание.

Так же необходимо создать обработчик события Перетаскивание для элемента формы ВыбранныеТовары.

Код 1C v 8.2 УП

 &НаКлиенте



Процедура ВыбранныеТоварыПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)



               Для каждого НомерСтроки Из ПараметрыПеретаскивания.Значение Цикл



                               ТекСтрока = Элементы.Товары.ДанныеСтроки(НомерСтроки);



                               Поиск = Новый Структура("Товар, Серия",ТекСтрока.Товар,ТекСтрока.Серия);



                               МассивСтрок = ВыбранныеТовары.НайтиСтроки(Поиск);



                               Если МассивСтрок.Количество() = 0 Тогда



                                               Строка = ВыбранныеТовары.Добавить();



                                               Строка.Товар = ТекСтрока.Товар;



                                               Строка.Серия = ТекСтрока.Серия;



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



                                               Строка.Количество = 1;



                                               ВвестиЧисло(Строка.Количество, "Введите количество");



                                               Пока  Строка.Количество > ТекСтрока.Количество Цикл



                                                              ВвестиЧисло(Строка.Количество, "Введите верное количество!");



                                               КонецЦикла;



                               КонецЕсли;



               КонецЦикла;



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

Так как код обработчика похож на предыдущий, то для оптимизации можно создать процедуры и вызывать ее из обоих обработчиков.

На рисунке приведен внешний вид формы подбора:
title

Для завершения подбора создана команда формы, с обработчиком, выполняющим оповещение о выборе:

Код 1C v 8.2 УП

 &НаКлиенте



Процедура Перенести(Команда)



               ОповеститьОВыборе(ВыбранныеТовары);



               Закрыть();



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

Соответственно, в форме документа реализован обработчик события ОбработкаВыбора:

Код 1C v 8.2 УП

 &НаКлиенте



Процедура ТоварыОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)



               Если ВыбранноеЗначение.Количество() > 0 И Объект.Товары.Количество() > 0 Тогда



                               Режим = РежимДиалогаВопрос.ДаНет;



                               Текст = "Очистить табличную часть?";



                               Ответ = Вопрос(Текст, Режим, 0);   



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



                                                Объект.Товары.Очистить();



                               КонецЕсли;



               КонецЕсли;



               Для каждого Подбор Из ВыбранноеЗначение Цикл



                               Строка = Объект.Товары.Добавить();



                               Строка.Товар = Подбор.Товар;



                               Строка.Серия = Подбор.Серия;



                               Строка.Количество = Подбор.Количество;



               КонецЦикла;



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

Кроме того, есть еще несколько тюнинговых настороек, про которые писать особого смысла нет, но для формы подбора желательно не забыть настроить свойство РежимОткрытияОкна - Блокировать окно владельца, чтобы пользователь не смого ее случайно вернутся в документ не закрыв окно подбора, при этом доступ к основному окну будет.

В целом хочется еще раз подчеркнуть, что целью данной статьи не является проповедование истины, а просто поделится полученной информацией. Буду благодарен за конструктивные советы и рекомендации, так как тема управляемых форм достаточно новая, но похоже надолго, и ряд вопросов (особенности работы с произвольными запросами) требует дополнительной информации.
Автор: User67

Категория: Справочники

Установка сервера 1С 8.2 рядом с сервером 1С 8.1

В октябре 2009 года вышел в свет очередной релиз платформы 1С:Предприятия 8.2 под номером 8.2.9.356, а уже в ноябре планируется выход релиза номер 8.2.10. Столь уверенное развитие платформы естественно вызывает тягу к её изучению, а изучение, как правило, происходит параллельно с использованием уже проверенной версии. И так у нас возникла необходимость установки сервера предприятия 1С 8.2 на сервер с уже работающим сервером версии 8.1, без остановки последнего. В книге «1С:Предприятие 8.2. Клиент-серверный вариант. Руководство администратора» такая ситуация хоть и названа «достаточно редкой и специфичной», но допускается и рассматривается, как нормальная. Следуя рекомендациям книги и подсказкам всемирной сети, мы выполнили эту задачу и хотим поделиться своим опытом с вами в виде пошаговой инструкции.

В ветке реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.2 Server Agent Параметр ImagePath меняем номера портов, добавляя смещение: "C:\Program Files\1cv82\8.2.9.356\bin\ragent.exe" -srvc -agent -regport 1641 -port 1640 -range 1660:1691 -d "C:\Program Files\1cv82\srvinfo"

У кластера 8.1 они по умолчанию такие HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.1 Server Agent "C:\Program Files\1cv81\bin\ragent.exe" -srvc -agent -regport 1541 -port 1540 -range 1560:1591 -d "C:\Program Files\1cv81\server"

Обращаем ваше внимание, что "C:\Program Files\1cv82\8.2.9.356» и "C:\Program Files\1cv81» - каталоги установки 8.2 и 8.1 по-умолчанию. Если у вас они другие, то обязательно должно выполняться условие различных каталогов служебных файлов, используемых разными агентами, в нашем случае «C:\Program Files\1cv82\srvinfo» и "C:\Program Files\1cv81\server".

Очищаем папку C:\Program Files\1cv82\srvinfo, проверяем доступ на запись в неё для пользователя USR1CV82 (при установке 1С 8.2 автоматически создается папка «reg_1541» и файл описания кластера с портом 1541, а при создании пользователя для старта сервера вручную он не обязательно может обладать правами на запись в «Program Files». И первое и второе приводит к остановке сервиса сразу после старта со следующей ошибкой "The Агент сервера 1С:Предприятия 8.2 service on Local Computer started and then stopped. Some services stop automatically if they have no work to do, for example, the Performance Logs and Alerts service.").

Стартуем второй ragent. с user name USR1CV82. Первый для 8.1 должен быть уже запущен.

В консоли управления серверами:
Создаем сервер с именем компьютера и портом 1640
Создаем кластер с портом 1641 (если его нет)
Создаем Рабочий сервер с портом 1640 и диапазоном 1660:1691 (если его нет)
Создаем Рабочий процесс
При добавлении базы в окне запуска 1С при записи Кластера серверов нужно указывать порт Пример: Имя_Компьютера:1641

Если запуск сервера планируется не от локальной системной записи, то лучше выбрать (создать предлагаемого USR1CV82) пользователя при установке 1С.

Все.

Кузнецов Александр Виталиевич
Управление программных разработок
Ведущий специалист ЗАТ "Спец-інвест"

Пример ярлык для запуска:
"C:\Program Files\1cv82\common\1cestart.exe" ENTERPRISE /S"server-1C:1641\BASAZUP"

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