текствопроса » Поиск

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

Как прочитать записи регистра сведений установив отбор и удалить записи?

Прочитать записи регистра сведений можно двумя способами: Через Набор Записей или Менеджер

Вот пример через набор записей:

Код 1C v 8.х

 // Добавление новых данных в существующую запись регистра сведений

НаборЗаписей = РегистрыСведений.ДокументоОборот.СоздатьНаборЗаписей();

	НаборЗаписей.Отбор.Доставка.Установить(Доставка);

	НаборЗаписей.Отбор.Этап.Установить(Этап);	

	НаборЗаписей.Прочитать();

	Для каждого Запись из НаборЗаписей Цикл

		Запись.ДатаВремя = ДатаР;

		Запись.Отдел = фио.Подразделение;

		Запись.ФИО = ПараметрыСеанса.ТекущийПользователь;    

	    Запись.Документы = Документы;   

		Запись.Примечание = Примечание;   

	КонецЦикла;

	НаборЗаписей.Записать();

Пример с использованием набора записей и менеджера записи:

Код 1C v 8.х

 НаборЗаписей = РегистрыСведений.CRM_Напоминания.СоздатьНаборЗаписей();

	Отбор = НаборЗаписей.Отбор;

	Отбор.Объект.Установить(Объект.Ссылка);

	Отбор.Завершено.Установить(Ложь);

	НаборЗаписей.Прочитать();

	

	Если НаборЗаписей.Количество() > 0 Тогда

		

		Если ЗадаватьВопрос Тогда

			ТекстВопроса = "Завершить все напоминания для " + Строка(Объект.Ссылка) + " ?";

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

		Иначе

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

		КонецЕсли;

		

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

			

			Для каждого Запись Из НаборЗаписей Цикл

				

				РегистрСведенийМенеджерЗаписи = РегистрыСведений.CRM_Напоминания.СоздатьМенеджерЗаписи();

				ЗаполнитьЗначенияСвойств(РегистрСведенийМенеджерЗаписи, Запись);

				РегистрСведенийМенеджерЗаписи.Прочитать();

				

				Если  РегистрСведенийМенеджерЗаписи.Выбран() Тогда  //напоминание небыло удалено

					Если НЕ РегистрСведенийМенеджерЗаписи.УдалитьПоИстеченииСрока Тогда

						РегистрСведенийМенеджерЗаписи.Завершено = Истина;		 

						РегистрСведенийМенеджерЗаписи.Записать();

					Иначе

						РегистрСведенийМенеджерЗаписи.Удалить();

					КонецЕсли;

				КонецЕсли;

				

			КонецЦикла;

			

		КонецЕсли;

		

	КонецЕсли;

А вот пример через менеджер записи:

Код 1C v 8.х

 МенеджерЗаписи = РегистрыСведений.НоменклатураКонтрагентов.СоздатьМенеджерЗаписи();

		МенеджерЗаписи.Контрагент                 = Контрагент;

		МенеджерЗаписи.Номенклатура               = СтрокаТаблицыТовары.Номенклатура;

		МенеджерЗаписи.ХарактеристикаНоменклатуры = СтрокаТаблицыТовары.ХарактеристикаНоменклатуры;

		МенеджерЗаписи.Прочитать();

		Если МенеджерЗаписи.Выбран() Тогда

			Вес = МенеджерЗаписи.ВесНоменклатурыКонтрагента;

		КонецЕсли;

Категория: Регистры сведений

Пример хранения изображений в базе (отдельный справочник), в интерфейсе Такси и без модальности

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

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

Основные элементы конфигурации с которыми нам работать:

1. Справочник Объекты строительства - основной справочник в котором хранится инфо и к каждому элементу нужно подгружать фото

2. Справочник Хранилище Фалов, он подчинен справочнику Объекты строительства и в нем есть реквизит ДанныеХЗ - хранилище значений в котором мы будем хранить фото

Форма элемента Объекты строительства, добавим кнопку загрузить фото для списка Файлы (динамический список, в котором запросом отбирается по владельцу приложенные файлы)

Код команды Добавить Файлы (Код для отключенного режима модальности):

Код 1C v 8.3

 &НаКлиенте

Процедура ДобавитьФайлы()

//ПРОВЕРИМ - текущий элемент записан или нет

	Если ЗначениеЗаполнено(Объект.Ссылка) Тогда // Записан

		Оповещение  =  Новый ОписаниеОповещения("ОбработатьВыборФайла",   ЭтотОбъект);

		НачатьПомещениеФайла(Оповещение,   ,   ,   Истина,   УникальныйИдентификатор);

	Иначе // НЕ записан, нужно спросить пользователя

		Оповещение = Новый ОписаниеОповещения("ОтветНаВопросЗаписать", ЭтотОбъект);

		ТекстВопроса = "Элемент не записан, Записать?";

		ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);		

	КонецЕсли;	  

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



//вопрос пользователю

&НаКлиенте 

Процедура ОтветНаВопросЗаписать(Результат, ДополнительныеПараметры) Экспорт 

// Вопрос пользователю, если ДА, то записываем объект и снова вызываем добавить файлы

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

		 ЭтотОбъект.Записать();

		 ДобавитьФайлы();

	КонецЕсли;

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



// После диалога выбора файла срабатывает это оповещение, в котором мы сохраняем файл с справочник Хранилище файлов

&НаКлиенте

Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт

Если Не Результат Тогда

 Возврат; 

КонецЕсли;

//Получим данные файла

ОписаниеФайла = Новый Файл(ВыбранноеИмяФайла);

//Сохраним в справочник ХранилищеФайлов

СохранитьФайлВХранилище(Адрес,Объект.Ссылка,ОписаниеФайла.ИмяБезРасширения);

//обновим список файлы, т.к. там добавися новый файл

Элементы.Файлы.Обновить();

ЭтаФорма.ОбновитьОтображениеДанных();

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



// Сохранение файла в справочник

&НаСервереБезКонтекста

Процедура СохранитьФайлВХранилище(Адрес,Владелец,Имя)

	НовФайл = Справочники.ХранилищеФайлов.СоздатьЭлемент();

	НовФайл.Владелец = Владелец;

	НовФайл.Наименование = Имя;

	НовФайл.ДанныеТекущаяДата = ТекущаяДата();

	НовФайл.ДанныеХЗ = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(Адрес));

	НовФайл.Записать();

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

файлы записаны, далее если файлов много, то пользователь может перемещаться по списку файлов и ему должны показываться файлы

Добавим для списка файлы Событие ФайлыПриАктивизацииСтроки

Код 1C v 8.3

 &НаКлиенте

Процедура ФайлыПриАктивизацииСтроки(Элемент)

	Попытка

		ТекКартинка = ФайлыПриАктивизацииСтрокиНаСервере(Элемент.ТекущиеДанные.Ссылка); 

	Исключение

		//видимо нет еще фото

	КонецПопытки;	

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





&НаСервереБезКонтекста

Функция ФайлыПриАктивизацииСтрокиНаСервере(ЭлементС)

	Возврат ПолучитьНавигационнуюСсылку(ЭлементС, "ДанныеХЗ");

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

+ чуть не забыл, т.к. файлы это динамический список с установленным запросом и параметром - необходимо при открытии задать параметр:

Установим параметр при открытии:

Код 1C v 8.3

 &НаСервере

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

	Файлы.Параметры.УстановитьЗначениеПараметра("Владелец",Объект.Ссылка);

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

Результат:

Скачать DT с примером : Foto_V_BD.7z

Если у Вас есть вопросы или комментарии - пишите ниже, обсудим

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

Использование модальных окон в данном режиме запрещено! Модальные окна не работают, как быть?

В конфигураторе в свойства конфигурации, есть параметр «Режим использования модальности»

Режим использования модальности

Если установить Не использовать, то - принципе весь код, который после ОткрытьФормуМодально() Вопрос(), Предупреждение(), Выборов и диалогов открытия-сохранения станет работать с ошибками!

Рассмотрим пример с Использовать:

Код 1C v 8.3

 &НаКлиенте

Процедура КомандаВопрос(Команда)

	Ответ = Вопрос("Ну что скажешь? ", РежимДиалогаВопрос.ДаНет);	

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

		Сообщить("Ответили ДА!");                                              		

	КонецЕсли;

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

В режиме Предприятие получаем

Тест модального окна Вопрос

Если мы поставим Режим использования модальности = Не использовать то получим ошибку: Использование модальных окон в данном режиме запрещено

получим ошибку: Использование модальных окон в данном режиме запрещено

Теперь код нужно писать по новому:

Код 1C v 8.3

 &НаКлиенте

Процедура КомандаВопросПоНовому(Команда)

	Оповещение = Новый ОписаниеОповещения("ОтветНаВопросЗавершение", ЭтотОбъект);

	ТекстВопроса = "Ну что скажешь?";

	ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);

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





&НаКлиенте 

Процедура ОтветНаВопросЗавершение(Результат, ДополнительныеПараметры) Экспорт 

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

		Сообщить("Ответили ДА");

	КонецЕсли;

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

в результате

Почему 1С решила отказаться от использования модальных окон ?

В наш век развития мобильных технологий все идет к тому - что скоро все будут работать на планшетах и телефонах. 1С сделала для этого «Web Клиент» и «Мобильное приложение». И чтобы успешно двигаться вперед нужно решать такие проблемы как, блокировка всплывающих окон. Ведь даже обычные браузеры по умолчанию блокируют модальные (всплывающие) окна!

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

Автоматизация обмена данных используя обработку "Универсальный обмен данными в формате 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.х

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

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

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

Как программно выполнить задачу БП? Категория: Задачи

ФорматированнаяСтрока

тип данных ФорматированнаяСтрока - доступен с версии 8.3!
Форматированные строки можно использовать в следующих случаях:
В качестве данных для элементов формы поле надписи
В качестве заголовка поля формы типа декорация;
В качестве параметра ТекстПредупреждения метода Предупреждение();
В качестве параметра ТекстВопроса метода Вопрос().

Пример1:

Код 1C v 8.2 УП

 Реквизит1 = Новый ФорматированнаяСтрока("Товар ", Новый ФорматированнаяСтрока(" Телевизор", , WebЦвета.Красный), " отсутствует на складе");

Предупреждение(Реквизит1);

В результате предупреждении выглядит следующим образом:
title

Пример 2:

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПроверкаФорматированнойСтроки(Команда)

Строка1 = Новый ФорматированнаяСтрока("Этот тест будет жирный и наклонный", Новый Шрифт(,,Истина, Истина));

Строка2 = Новый ФорматированнаяСтрока("Оранжевый текст",,Новый Цвет(255,140,0));

ОбщаяСтрока = Новый ФорматированнаяСтрока(Строка1, "-", Строка2);

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

Ответ = Вопрос(ОбщаяСтрока, Режим, 40);

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

Возврат;

КонецЕсли;

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

В результате вы увидете:
Этот тест будет жирный и наклонный-Оранжевый текст

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

Форма ~ Универсальная Форма Вопроса для Пользователя Категория: Работа с Формой (Диалог) и её элементами