генерировать » Поиск

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

Синтаксический анализ JSON - выражения средствами 1С 7.7 Категория: HTML, JS, VML

Как в управляемом режиме открыть «старую» форму обработки?

Допустим, есть внешняя обработка, написанная для версии 8.1. Можно ли запустить ее в версии 8.2 так, чтобы работать с ее старой, неуправляемой формой? Обработка нужна всего один раз, для переноса данных, и создавать для нее управляемую форму ради одного раза не хочется...

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

Обычные (неуправляемые) формы могут работать только в толстом клиенте. Тонкий и веб-клиенты поддерживают работу только с управляемыми формами.

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

Проще всего запустить толстого клиента в режиме управляемого приложения из конфигуратора, указав это в параметрах: Сервис - Параметры - Запуск 1С:Предприятия - Основные - Толстый клиент (управляемое приложение).

При этом нужно помнить, что запуск клиентов в управляемом режиме возможен только в том случае, если у конфигурации отключена совместимость в версией 8.1 (свойство РежимСовместимости).

Однако этого недостаточно для того, чтобы платформа откорыла старую, неуправляемую форму обработки.

Возможность использования обычных форм в управляемом режиме регулируется специальным свойством конфигурации - ИспользоватьОбычныеФормыВУправляемомПриложении. Это свойство нужно установить.

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

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

В других случаях (если у объекта нет ни одной основной формы или у объекта есть управляемая основная форма) платформой будет по умолчанию генерироваться или открываться (если она есть) управляемая форма.

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

Кнопки управления уровнями группировки (генерировать программно)

Кнопочки для управления уровнями группировки генерируются программно.
Для этого в модуле формы, в самом конце процедуры формирования отчета, нужно вызвать процедуру СгенерироватьКнопкиУправленияГруппировкой().
В модуль формы нужно добавить две процедуры, где "ПолеТабДок" - это поле табличного документа, в которое выводится отчет:

Код 1C v 8.х

 Процедура СгенерироватьКнопкиУправленияГруппировкой()



    НачалоВерх = ЭлементыФормы.ПолеТабДок.Верх + 3; // Привязка к верхнему левому углу ПоляТабличногоДокумента

    НачалоЛево = ЭлементыФормы.ПолеТабДок.Лево + 3; // Привязка к верхнему левому углу ПоляТабличногоДокумента



    ШагКнопок      = 13;

    ПрефиксИмениКн = "КнГр_";



    // Удалить старые кнопки

    Сч = 0;

    Пока Сч < ЭлементыФормы.Количество() Цикл

        ТекЭлемент = ЭлементыФормы.Получить(Сч);

        Если Найти(ТекЭлемент.Имя, ПрефиксИмениКн) > 0 Тогда

            ЭлементыФормы.Удалить(ТекЭлемент);

        Иначе

            Сч = Сч + 1;

        КонецЕсли;

    КонецЦикла;



    // Добавить новые кнопки по количеству группировок

    КоличествоГруппировок = ЭлементыФормы.ПолеТабДок.КоличествоУровнейГруппировокСтрок();

    Для Сч = 1 По КоличествоГруппировок Цикл

        НоваяКнопка = ЭлементыФормы.Добавить(Тип("Кнопка"), ПрефиксИмениКн + Сч);

        НоваяКнопка.Верх      = НачалоВерх;

        НоваяКнопка.Лево      = НачалоЛево + (ШагКнопок * (Сч - 1));

        НоваяКнопка.Высота    = 11;

        НоваяКнопка.Ширина    = 11;

        НоваяКнопка.Шрифт     = Новый Шрифт("Шрифт диалогов и меню", 6);

        НоваяКнопка.Заголовок = "" + Сч;

        НоваяКнопка.СочетаниеКлавиш = Новый СочетаниеКлавиш(Клавиша["_"+сч], Истина, Ложь, Ложь);  

        НоваяКнопка.УстановитьДействие("Нажатие", Новый Действие("СвернутьДоУровня"));

    КонецЦикла;



КонецПроцедуры //СгенерироватьКнопкиУправленияГруппировкой()



// Вызывется при нажатии кнопочек "1", "2" и т.д. (для сворачивания группировок)

Процедура СвернутьДоУровня(Элемент)



    Уровень = Число(Элемент.Заголовок); // здесь записан нужный уровень

    ЭлементыФормы.ПолеТабДок.ПоказатьУровеньГруппировокСтрок(Уровень - 1);



КонецПроцедуры //СвернутьДоУровня()

Примечание:
Вышеприведенный код будет работать правильно, если ПолеТабличногоДокумента, на которое выводится Отчет, расположено на Форме. Если же ПолеТабличногоДокумента расположено на Панели, то строчку кода, в которой создается НоваяКнопка, необходимо чуть дополнить:

Код 1C v 8.х

 НоваяКнопка = ЭлементыФормы.Добавить(Тип("Кнопка"), ПрефиксИмениКн + Сч, Истина, ЭлементыФормы.Панель);

Примечание 2:
Решение для генерации кнопок в отчетах, построенных на СКД.
Вешаешь на кнопку "Сформировать" следующую процедуру

Код 1C v 8.х

 Процедура кнСформировать_Нажатие(Кнопка)

   

   ЭлементыФормы.Результат.Очистить();

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

   

   // Если необходимо указать Уровень, до которого необходимо раскрыть группировки строк,

   // то можно добавить

   ЭлементыФормы.Результат.ПоказатьУровеньГруппировокСтрок(1);

   

   // Вызов процедуры генерации кнопок управления группировкой

   СгенерироватьКнопкиУправленияГруппировкой();

   

КонецПроцедуры //кнСформировать_Нажатие()



// где ЭлементыФормы.Результат, это Поле табличного документа, в которое выводится отчет СКД.

Категория: Табличный документ

Работа с почтой с помощью внешней компоненты DialMail Категория: Работа с Интернет, Почтой (Mail), FTP

Обработка Универсальный обмен данными в формате XML Категория: Обработки

Обработчики событий при записи объектов. Зачем и что за чем? Категория: Встроенные Функции

Реализация расшифровки в Системе Компоновки Данных.

Продолжая свой цикл заметок про СКД, сегодня я хотел бы поподробнее остановиться на расшифровке.

В СКД расшифровка представляет собой всплывающее меню (по двойному клику на ячейке), содержащие доступные пользователю действия, такие как открытие ссылки на элемент, упорядочивание, группировка, оформление и пр. Здесь я приведу примеры решения наиболее распространенных задач, связанных с расшифровкой, таких как:
1. Ограничение доступных действий;
2. Добавление в меню своего произвольного действия;
3. Добавление в меню различных действий, в зависимости от ячейки, для которой выполняется расшифровка.

Вся работа с расшифровкой, выполняется в событии ОбработкаРасшифровки. Что бы получить доступ к этому событию, необходимо сначала сгенерировать основную форму отчета. Затем ПолеТабличногоДокумента > Свойства > События.

Итак, задача №1. Постановка: Необходимо доступные действия для пользователя ограничить только: открытием элемента, упорядочиванием и оформлением.
Решение:

Код 1C v 8.х

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

    Перем ВыполненноеДействие;

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

    ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(ДанныеРасшифровки,Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));

    ДоступныеДействия=Новый Массив; // заполняем доступные действия, если параметр не указан, то будут доступны все действия

    ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.Оформить);

    ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.ОткрытьЗначение);

    ДоступныеДействия.Добавить(ДействиеОбработкиРасшифровкиКомпоновкиДанных.Упорядочить);

    Настройки=ОбработкаРасшифровки.Выполнить(Расшифровка,ВыполненноеДействие,ДоступныеДействия);

    Если Настройки<>Неопределено Тогда // требуется сформировать отчет с новыми настройками

        КомпоновщикНастроек.ЗагрузитьНастройки(Настройки); // загружаем настройки

        ЭлементыФормы.Результат.Очистить(); // очищаем поле табличного документа

        СкомпоноватьРезультат(ЭлементыФормы.Результат,ДанныеРасшифровки); // выводим результат

    КонецЕсли;

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

Задача №2. Постановка: Необходимо добавить в меню свое действие, открывающее основную форму элемента, содержащегося в ячейке, для которой выполняется расшифровка.
Решение:

Код 1C v 8.х

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

    Перем ВыполненноеДействие;

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

    ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(ДанныеРасшифровки,Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));

    ДополнительныеДействия=Новый СписокЗначений;

    ДополнительныеДействия.Добавить("Действие1","Дополнительное действие 1"); // добавляем свое действие

    Настройки=ОбработкаРасшифровки.Выполнить(Расшифровка,ВыполненноеДействие,,ДополнительныеДействия);

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

        КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);

        ЭлементыФормы.Результат.Очистить();

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

    Иначе

        Если ВыполненноеДействие="Действие1" Тогда

            ВыполнитьДействие1(Расшифровка); // процедура выполняемая при выборе пункта меню "Дополнительное действие 1"

        КонецЕсли;

    КонецЕсли;

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

В процедуре ВыполнитьДействие1(Расшифровка) получаем ПараметрРасшифровки для выбранной ячейки и открывает основную форму:

Код 1C v 8.х

 Процедура ВыполнитьДействие1(Расшифровка)

    Ссылка=ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0].Значение;

    Ссылка.ПолучитьФорму().Открыть();

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

Задача №3. Постановка: Необходимо в зависимости от колонки, для которой выполняется расшифровка, добавлять свои действия: для «Поле1» - «Действие1», для «Поле2» - «Действие2».
Решение:

Код 1C v 8.х

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

    Перем ВыполненноеДействие;

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

    ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(ДанныеРасшифровки,Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));

    ДополнительныеДействия=Новый СписокЗначений;

    // Проверяем для какого поля выполняется расшифровка

    Если ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0].Поле="Поле1" Тогда

        ДополнительныеДействия.Добавить("Действие1","Дополнительное действие 1");

    ИначеЕсли ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0].Поле="Поле2" Тогда

        ДополнительныеДействия.Добавить("Действие2","Дополнительное действие 2");

    КонецЕсли;

    Настройки=ОбработкаРасшифровки.Выполнить(Расшифровка,ВыполненноеДействие,,ДополнительныеДействия);

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

        КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);

        ЭлементыФормы.Результат.Очистить();

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

    Иначе

        Если ВыполненноеДействие="Действие1" Тогда

            ВыполнитьДействие1(Расшифровка);

        ИначеЕсли ВыполненноеДействие="Действие2" Тогда

            ВыполнитьДействие2(Расшифровка);

        КонецЕсли;

    КонецЕсли;

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

Как видите, ничего сложного здесь нет!

Источник

При использовании в типовой конфигурации:

Код 1C v 8.х

 // Чтобы добавить свою расшифровку в СКД нужно в Форме отчета. 

// ЭлементФормы ПолеТаблчногоДокумента в событие ОбработкаРасшифровки поставить:



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

	

Если ДанныеРасшифровки.Элементы.Получить(Расшифровка).ПолучитьПоля()[0].Поле	= "ДокументОприходования" Тогда

	Док = ДанныеРасшифровки.Элементы.Получить(Расшифровка).ПолучитьПоля().Найти("ДокументОприходования").Значение;

	Если ТипЗнч(Док) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг") Тогда	

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

		Предупреждение(Док.Комментарий);

		Возврат;

	КонецЕсли;	

КонецЕсли;		



ТиповыеОтчеты.СтандартнаяОбработкаРасшифровкиТиповогоОтчета(ОтчетОбъект, ЭтаФорма, Расшифровка, СтандартнаяОбработка);

	

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

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

QR код в 1С

Столкнулся с интересной задачей реализации генерации QR-кода в 1С 8.2 ( QR-код — матричный код (двухмерный штрихкод) ) Для генерации было использовано api от google (http://chart.apis.google.com/chart). Вот сайт, который работает с ним. После того, как вы вводите все параметры кода и нажимаете кнопку генерировать, получаем что-то вроде такой ссылки. По сути эта ссылка нам и нужна. Создав необходимый url можно скачать картинку, которая генерируется с помощью api.
И так в чем заключается подход:
1. Генерируем текст, который надо прописать в qr-коде.
2. Используя ссылку «http://chart.apis.google.com/chart?cht=qr&chs=230?230&chl=» +»Наш текст» скачиваем картинку.
3. Размещаем картинку в нашем табличном документе.
Код реализации:

Код 1C v 8.2 УП

 &НаСервере

Функция hex(Знач Значение)

    Значение=Число(Значение);

    Если Значение<=0 Тогда

        Результат="0";

    Иначе

        Значение=Цел(Значение);

        Результат="";

        Пока Значение>0 Цикл

            Результат=Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Значение%16 + 1,1)+Результат;

            Значение=Цел(Значение/16) ;

        КонецЦикла;

    КонецЕсли;

    Если СтрДлина(Результат) < 2 Тогда



        Результат = "0" + Результат;



    КонецЕсли;

    Возврат "%" + Результат;

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



&НаСервере

Функция EncodeURL(URL)

    Рез = "";

    Для Сч = 1 По СтрДлина(URL) Цикл

        ch = Сред(URL,Сч,1);

        vch = КодСимвола(ch);



        Если ("A" <= ch ) И ( ch <= "Z") Тогда      // "A".."Z"

            Рез = Рез + ch;

        ИначеЕсли ("a" <= ch ) И ( ch <= "z") Тогда // "a".."z"

            Рез = Рез + ch;

        ИначеЕсли ("0" <= ch ) И ( ch <= "9") Тогда // "0".."9"

            Рез = Рез + ch;

        ИначеЕсли (ch = " ") ИЛИ ( ch = "+") Тогда          // space

            Рез = Рез + "+";

        ИначеЕсли (ch = "-" ) ИЛИ ( ch = "_")       // unreserved

            ИЛИ (ch = ".") ИЛИ (ch = "!")

            ИЛИ (ch = "~") ИЛИ (ch = "*")

            ИЛИ (ch = "") ИЛИ (ch = "(")

            ИЛИ (ch = ")") Тогда

            Рез = Рез + ch;

        ИначеЕсли (vch <= 127) Тогда        // other ASCII

            Рез = Рез + hex(vch);

        ИначеЕсли (vch <= 2047) Тогда       // non-ASCII <= 0x7FF

            Рез = Рез + hex(192 + Цел(vch / 64));

            Рез = Рез + hex(128 + (vch % 64));

        Иначе                   // 0x7FF < ch <= 0xFFFF

            Рез = Рез + hex(224 + Цел(vch / 4096));

            Рез = Рез + hex(128 + (Цел(vch / 64) % 64));

            Рез = Рез + hex(128 + (vch % 64));

        КонецЕсли;

    КонецЦикла;



    Возврат Рез;

КонецФункции // ()



&НаСервере

Функция СохранитьДвоичныйБуферВФайл(Буфер, ИмяФайла) Экспорт

    Поток = Новый COMОбъект("ADODB.Stream");

    Поток.Type = 1;  //Бинарный

    Поток.Mode = 3;

    Поток.Open();

    Поток.Write(Буфер);

    Поток.SaveToFile(ИмяФайла);

    Поток.Close();

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



&НаСервере

Функция НапечататьКодСервер(ЗаказСсылка)

    ТабДок = Новый ТабличныйДокумент;

    ИмяВременногоФайла = ПолучитьИмяВременногоФайла("png");

    АдресНачало = "http://chart.apis.google.com/chart?cht=qr&chs=230x230&chl=";

    АдресКонец = ЗаказСсылка.Номер  + Символы.ПС + Заказссылка.Контрагент.Наименование;

    АдресКонец = СтрЗаменить(АдресКонец, " ", "+");

    АдресКонец = EncodeURL(АдресКонец);



    Соединение = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");

    Соединение.open("GET", АдресНачало + АдресКонец,0,,);

    Соединение.send(null);

    СохранитьДвоичныйБуферВФайл(Соединение.responseBody, ИмяВременногоФайла);



    //Печать

    Макет = Документы.ЗаказПокупателя.ПолучитьМакет("МакетПечатиКода");

    Область = Макет.ПолучитьОбласть("Код");

    Область.Рисунки.КодРисунок.Картинка = Новый Картинка(ИмяВременногоФайла);

    ТабДок.Вывести(Область);

    Возврат ТабДок;

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

Источник

Категория: COM-объекты, WMI, WSH