подчиненного » Поиск

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

Восстановление узла распределенной информационной базы из резервной копии Категория: Конвертация данных, Обмен, Перенос

Распределенная информационная база. Пошаговая инструкция и подводные камни. Категория: Конвертация данных, Обмен, Перенос

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

Код 1C v 8.х

 //Удаление записей из регистра, подчиненного регистратору

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



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

|ВЫБРАТЬ

|	ЦеныНоменклатурыКонтрагентов.Регистратор

|ИЗ

|	РегистрСведений.ЦеныНоменклатурыКонтрагентов КАК ЦеныНоменклатурыКонтрагентов";

	

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

Выборка = Результат.Выбрать();



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

	

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

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

	

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

	

КонецЦикла;

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

Код 1C v 8.х

 НачатьТранзакцию();



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

НаборЗаписей.Отбор.Регистратор.Установить([документ создавший запись]); //обязательно для подчиненных регистров

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



сзУдаляемыеЗаписи = Новый СписокЗначений;

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

    Если [условие] Тогда

        сзУдаляемыеЗаписи.Добавить(Запись);

    КонецЕсли; //[условие]

КонецЦикла;



Для каждого ЭлтСз Из сзУдаляемыеЗаписи

    НаборЗаписей.Удалить(ЭлтСз.Значение);

КонецЦикла;



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



ЗафиксироватьТранзакцию();

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

Чтение записей в регистре сведений, подчиненном регистратору?

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

Код 1C v 8.х

 // Чтение записей из регистра, подчиненного регистратору

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



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

	

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



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



	// Чтение и сообщение данных полей записи.	

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

	 		+ Строка(Запись.ТипЦен) + " "

			+ Строка(Запись.Номенклатура) + " " 

			+ Строка(Запись.Цена) + " " 

			+ Строка(Запись.ПроцентСкидкиНаценки));



	 // Изменение данных полей записи.

	 Запись.ПроцентСкидкиНаценки = 0;



КонецЦикла;	

	

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

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

Как открыть форму подчиненного Реквизиту Контрагент справочника "ДоговорыКонтрагентов"? Категория: Справочники

Чтение(СрезПоследних) и Запись Регистра Сведений подчиненного регистратору(Обработка проведения)

Для чтения данных из регистра сведений необходимо создать новый отбор и воспользоваться методами СрезПервых или СрезПоследних или использовать запрос как показано в примере обработки далее. Пример кода иллюстрирует эти методы:

Код 1C v 8.х

 Отбор = Новый Структура("ТипЦен, Номенклатура");

Отбор.ТипЦен = ТипЦены; // Какой тип цены

Отбор.Номенклатура = Номенклатура; // Для какой номенклатуры

// Цена в регистре сведений до Рабочей даты включительно

Цена = РегистрыСведений.ЦеныНоменклатуры.СрезПоследних( РабочаяДата(), Отбор);

Для записи в подчиненный регистратору регистр сведений Цены номенклатуры 1С использует механизмы проведения, а именно процедуру Обработка Проведения, которые можно сформировать в конфигураторе, используя помощник - конструктор движений:

Код 1C v 8.х

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

Для Каждого ТекСтрокаТовары Из Товары Цикл

// регистр Цены Номенклатуры

Движение = Движения.ЦеныНоменклатуры.Добавить();

Движение.Период = Дата;

Движение.ТипЦен = ТекСтрокаТовары.ТипЦен;

Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;

Движение.ХарактеристикаНоменклатуры = ТекСтрокаТовары.ХарактеристикаНоменклатуры;

Движение.Валюта = ТекСтрокаТовары.Валюта;

Движение.Цена = ТекСтрокаТовары.Цена;

Движение.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;

Движение.ПроцентСкидкиНаценки = ТекСтрокаТовары.ПроцентСкидкиНаценки;

Движение.СпособРасчетаЦены = ТекСтрокаТовары.СпособРасчетаЦены;

КонецЦикла;

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

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

Как организовать работу удаленных складов? Категория: Конвертация данных, Обмен, Перенос

Перебрать, выбрать элементы подчиненного справочника

Перебор элементов справочника принадлежащих элементу другого справочника, т.е когда один справочник подчинен другому справочнику.

Код 1C v 8.х

 // Получить выборку по указанному контрагенту. 

	Выборка = Справочники.КонтактныеЛица.Выбрать( , Контрагент); 

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

		ОчереднойПодчиненый = Выборка.Ссылка; 

	КонецЦикла; 



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

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

	|	КонтактныеЛица.Ссылка 

	|ИЗ 

	|	Справочник.КонтактныеЛица КАК КонтактныеЛица 

	|ГДЕ 

	|	КонтактныеЛица.Владелец = &Владелец"; 



	Запрос.УстановитьПараметр("Владелец", Контрагент); 



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

	Выборка = Результат.Выбрать(); 



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

		ОчереднойПодчиненый = Выборка.Ссылка; 

	КонецЦикла;

Код 1C v 7.x

  //При работе с подчиненным справочником (например, при переборе или поиске элементов) 

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

//Для этого предназначена процедура ИспользоватьВладельца(ОбъектВладелец) 

//агрегатного типа данных Справочник.



// Пример 1

спр=СоздатьОбъект("Справочник.Модели");

спрМарка=СоздатьОбъект("Справочник.Марки");

спрМарка.НайтиПоНаименованию("BMW");

спр.ИспользоватьВладельца(спрМарка.ТекущийЭлемент());

спр.ВыбратьЭлементы();

Пока спр.ПолучитьЭлемент()=1 Цикл

   Сообщение(спр.ТекущийЭлемент().Наименование);

КонецЦикла;



// Пример 2

 Спр=СоздатьОбъект("Справочник.Контрагенты");

    Попытка

        дог=СоздатьОбъект("Справочник.Договоры");

    исключение

        Предупреждение("В конфигурации нет справочника ДОГОВОРЫ");

        возврат;

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

    Спр.ВыбратьЭлементы();//перебираем справочник-владелец

    Пока спр.ПолучитьЭлемент()=1 Цикл     

        Если спр.ЭтоГруппа()=1  Тогда

            продолжить;//группы не имеют подчиненных элементов

        КонецЕсли;

        Сообщить("Контрагент "+спр.Наименование+ "  его договоры:");

        дог.ИспользоватьВладельца(Спр.ТекущийЭлемент());//будем перебирать только 

        //подчиненные владельцу

        дог.ВыбратьЭлементы(); //перебираем только подчиненные конкретному владельцу

        Пока дог.получитьЭлемент()=1 Цикл

            сообщить("----------"+дог.наименование);

        КонецЦикла;

    КонецЦикла;

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

Быстрое создание подчиненного узла РИБ Категория: Распределенная база данных (УРИБ, УРБД)