серияноменклатуры » Поиск

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

Событие ПередЗаписью регистра сведений. Как перед записью изменить значение реквизита записи?

Событие ПередЗаписью возникает перед выполнением записи набора регистра сведений. Процедура-обработчик вызывается после начала транзакции записи, но до начала записи набора регистра сведений.

Пример проверки на условие и заполнение реквизита Цвет:

Код 1C v 8.х

 Процедура ПередЗаписью(Отказ, Замещение)

	Для Каждого ТекЗапись Из ЭтотОбъект Цикл

		Если ТекЗапись.СерияНоменклатуры.Восстановленный Тогда 

			ТекЗапись.Цвет="2551650";	

		Иначе

			ТекЗапись.Цвет="";

		КонецЕсли;

	КонецЦикла;	

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

Ниже приведен пример процедуры ПередЗаписью для регистра сведений «Курсы», который содержит курсы валют по периодам. При попытке ввести или изменить курс валюты период которого раньше даты регистрации фирмы будет выведено два сообщения:

Код 1C v 8.2 УП

 Процедура ПередЗаписью (Отказ, Замещение)

            ДатаРегистрации = Константы.ДатаРегистрации.Получить ();

            Для Каждого ТекЗапись Из ЭтотОбъект Цикл

             

                        Если ТекЗапись.Период < ДатаРегистрации Тогда

// Если период раньше даты регистрации

            Отказ = Истина; // отказ от записи

                        Сообщить(" Запись от " + ТекЗапись.Период +

                                               " с курсом " + ТекЗапись.Курс +

                                               " раньше даты регистрации фирмы!");

                        КонецЕсли;

            КонецЦикла;

             

    Если Отказ Тогда

            Сообщить ("Запись не выполнена!");

            КонецЕсли;

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

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

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

В регистре сведений штрих кодов появились ошибочные записи, которые надо было быстро удалить... можно конечно и ручками выбирать и жать Delete, но это не наш метод!

Код 1C v 8.3

 Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	Штрихкоды.Штрихкод,

|	Штрихкоды.Владелец,

|	Штрихкоды.ТипШтрихкода,

|	Штрихкоды.ЕдиницаИзмерения,

|	Штрихкоды.ХарактеристикаНоменклатуры,

|	Штрихкоды.СерияНоменклатуры,

|	Штрихкоды.Качество

|ИЗ

|	РегистрСведений.Штрихкоды КАК Штрихкоды

|ГДЕ

|	Штрихкоды.СерияНоменклатуры.ПометкаУдаления";



Результат = Запрос.Выполнить();

РезультатТаблица = Результат.Выгрузить();



ТекПозиция = 0;	

Для каждого СтрокаЗапроса из РезультатТаблица Цикл

	

	ОбработкаПрерыванияПользователя();

	ТекПозиция = ТекПозиция + 1;

	Состояние("Выполнено " + Окр(ТекПозиция / РезультатТаблица.Количество() * 100) + "%");



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

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

	НаборЗаписей.Отбор.Владелец.Установить(СтрокаЗапроса.Владелец);

	НаборЗаписей.Отбор.ТипШтрихкода.Установить(СтрокаЗапроса.ТипШтрихкода);

	НаборЗаписей.Отбор.ЕдиницаИзмерения.Установить(СтрокаЗапроса.ЕдиницаИзмерения);

	НаборЗаписей.Отбор.ХарактеристикаНоменклатуры.Установить(СтрокаЗапроса.ХарактеристикаНоменклатуры);

	НаборЗаписей.Отбор.СерияНоменклатуры.Установить(СтрокаЗапроса.СерияНоменклатуры);

	// Удаляем записи

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



КонецЦикла;



Предупреждение("Обработка закончена.");

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

Как заполнить документ на основании выполним заполнение на сервере?

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

Код 1C v 8.3

 &НаСервере

Процедура ЗаполнитьТоварыПоОснованию(ДокументОснование) 

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

    Запрос.УстановитьПараметр("Ссылка",ДокументОснование);

    Запрос.Текст = "ВЫБРАТЬ

                   |    РеализацияТоваровУслугТовары.Ссылка,

                   |    РеализацияТоваровУслугТовары.НомерСтроки,

                   |    РеализацияТоваровУслугТовары.ЕдиницаИзмерения,

                   |    РеализацияТоваровУслугТовары.Количество,

                   |    РеализацияТоваровУслугТовары.КоличествоМест,

                   |    РеализацияТоваровУслугТовары.Коэффициент,

                   |    РеализацияТоваровУслугТовары.Номенклатура,

                   |    РеализацияТоваровУслугТовары.СерияНоменклатуры,

                   |    РеализацияТоваровУслугТовары.Склад,

                   |    РеализацияТоваровУслугТовары.СтавкаНДС,

                   |    РеализацияТоваровУслугТовары.Сумма,

                   |    РеализацияТоваровУслугТовары.СуммаНДС,

                   |    РеализацияТоваровУслугТовары.СчетУчетаБУ,

                   |    РеализацияТоваровУслугТовары.Цена,

                   |    РеализацияТоваровУслугТовары.ЗаказПокупателя

                   |ИЗ

                   |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары

                   |ГДЕ

                   |    РеализацияТоваровУслугТовары.Ссылка = &Ссылка";

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

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

Категория: Управляемое приложение, Тонкий клиент

Как в запросе выполнить отбор по "Объект не найден" Категория: Запросы