Набор = РегистрыНакопления.ВашРегистр.СоздатьНаборЗаписей();

Набор.Отбор.<НазваниеОтбора>.Установить(<ЗначениеОтбора>);

Набор.Прочитать();



Для Каждого ТекДвижение Из  Набор Цикл



//Делаете с записями регистра то - что вам хочется



КонецЦикла;



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

 Процедура МодификацияЗаписейРегистраНакопления()

 

    ВыбДок = Документы.ПоступлениеТоваровУслуг.Выбрать();

    Если ВыбДок.Следующий() Тогда

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

        Набор.Отбор.Регистратор.Установить(ВыбДок.Ссылка);

        Набор.Прочитать();

 

        // Изменение существующих записей

        Для Каждого Движение Из Набор Цикл

            Движение.НДС = 0;

        КонецЦикла;

 

        // Добавление новых записей, если вдруг необходимо

        Движение = Набор.ДобавитьРасход();

        Движение.Сумма = 100;

        Движение.Период = ТекущаяДата();

 

        Движение = Набор.Добавить();

        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

        Движение.Сумма = 300;

        Движение.Период = ТекущаяДата();

 

        // удаление существующих записей если надо

        Набор.Удалить(0);

 

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

    КонецЕсли;

 

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

   

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

ФормаСписка.Открыть();    

  ФормаВыбора = Документы.НачислениеЗарплатыРаботникамОрганизаций.ПолучитьФормуВыбора();

//Это комментим, т.к. в данном случае будем отбирать по интервалу

//ФормаВыбора.ДокументСписок.Отбор.Дата.ВидСравнения=ВидСравнения.Равно;

//ФормаВыбора.ДокументСписок.Отбор.Дата.Значение=Дата;

ФормаВыбора.ДокументСписок.Отбор.Дата.ВидСравнения=ВидСравнения.ИнтервалВключаяОкончание;

ФормаВыбора.ДокументСписок.Отбор.Дата.ЗначениеС = НачалоМесяца(Дата);

ФормаВыбора.ДокументСписок.Отбор.Дата.ЗначениеПо = КонецМесяца(Дата);

ФормаВыбора.ДокументСписок.Отбор.Дата.установить();

ФормаВыбора.Заголовок	= "Выберите документ";

ВыбДокНачисл = ФормаВыбора.ОткрытьМодально();    

 

	// ТЗрез - это Таблица значений содержащая столбец "FizL" - ФизЛицо и "RUB" Сумма корректировки

	

	НовДок = Документы.КорректировкаЗаписейРегистровНакопления.ПолучитьФормуНовогоДокумента(); 

	НовДок.Дата=ТекущаяДата();

	НовДок.Комментарий="Корректировка регистра ВзаиморасчетыСРаботникамиОрганизаций";        

	// Создадим табличную часть движений регистра

	НоваяСтрока = НовДок.ТаблицаРегистровНакопления.Добавить();

	НоваяСтрока.Имя = Метаданные.регистрынакопления.ВзаиморасчетыСРаботникамиОрганизаций.имя;

	НоваяСтрока.Представление = Метаданные.регистрынакопления.ВзаиморасчетыСРаботникамиОрганизаций.синоним;

	// Создадим движения

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

	НовДвиж = НовДок.Движения.ВзаиморасчетыСРаботникамиОрганизаций.ДобавитьПриход();

	НовДвиж.ФизЛицо=СтрДвиж.FizL;

	НовДвиж.Организация=Организация;

	НовДвиж.ПериодВзаиморасчетов=ВыбДокНачисл.ПериодРегистрации;

	НовДвиж.СуммаВзаиморасчетов = СтрДвиж.RUB;

	КонецЦикла;

	

	//НовДок.Записать(); //Пока не записываем

	НовДок.Открыть(); //Покажем документ пользователю

   

 

// Пример 1

РегТовары = СоздатьОбъект("Регистр.Товары");

РегТовары.ВыбратьИтоги();

Пока РегТовары.ПолучитьИтог()=1 Цикл

	Сообщить("Товар " + Строка(РегТовары.Товар) +

	" на складе " + Строка(РегТовары.Склад) +

	" кол-во: " + Строка(РегТовары.Количество) +

	" стоимость: " + Строка(РегТовары.Стоимость) +

КонецЦикла; 



// Пример 2

Процедура ВыбратьКредит()

	Список = СоздатьОбъект("СписокЗначений");

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

	Рег.УстановитьФильтр(Клиент, );

	Рег.ВыбратьИтоги();

	Ном = 0;

	Пока Рег.ПолучитьИтог() = 1 Цикл

		Док = Рег.Документ;

		Список.ДобавитьЗначение(Док, "" + Док + " — Остаток = " + Рег.Долг);

		Если Ном = 0 Тогда

			ВыбДок = Док;

		КонецЕсли;

		Ном = Ном + 1;

		

	КонецЦикла;

	Если Ном > 0 Тогда

		Если Список.ВыбратьЗначение(ВыбДок, "Выберите кредит") = 1 Тогда

			ДокКредита = ВыбДок;

		КонецЕсли;

	КонецЕсли;

	Возврат;

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

 

// Просуммируем записи удержаний  неявок по физлицу

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

НаборЗаписей.Отбор.Регистратор.Значение = ВыбДокНачисл;

НаборЗаписей.Отбор.физлицо.Установить(Физлицо); 

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

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

	Если Запись.ВидРасчета=ПланыВидовРасчета.УдержанияОрганизаций.Неявка тогда 

	СумУдерж=СумУдерж+Запись.Результат; 

	КонецЕсли;

КонецЦикла;     

   

 

КолВо = 1;

Если ВвестиЧисло(КолВо, "Введите количество", 10, 2) Tогда 

    // обработка введенного количество

КонецЕсли;  

   

 

Если ВвестиЧисло(Ном, "Введите номер приказа", 5, 0, 10) = 1 Тогда

   ВыбДок = СоздатьОбъект("Документ.Приказ");

   ВыбДок.НайтиПоНомеру(Строка(Ном), Дата(0));

   Если ВыбДок.Выбран() = 1 Тогда

      // код

   ИначеЕсли;

      // код

   КонецЕсли;

КонецЕсли;

 

//Пример универсального ввода значения

Перем ВыбЗнач;

Массив = Новый Массив;

Массив.Добавить(Тип("Число"));

Массив.Добавить(Тип("Строка"));

Массив.Добавить(Тип("Дата"));

КЧ = Новый КвалификаторыЧисла(12,2);

КС = Новый КвалификаторыСтроки(20);

КД = Новый КвалификаторыДаты(ЧастиДаты.Дата);

ОписаниеТипов = Новый ОписаниеТипов(Массив, КЧ, КС, КД);

Если ВвестиЗначение(ВыбЗнач, "Введите значение", ОписаниеТипов) Тогда

    // обработка введенного значения

    Сообщить("Введенное значение: "+ВыбЗнач);

КонецЕсли;

   

 

Если ВвестиЗначение(Ном, "Введите номер приказа", "Число", 5, 0) = 1 Тогда

   ВыбДок = СоздатьОбъект("Документ.Приказ");

   ВыбДок.НайтиПоНомеру(Строка(Ном), Дата(0));

   Если ВыбДок.Выбран() = 1 Тогда

      // код

   ИначеЕсли;

      // код

   КонецЕсли;

КонецЕсли;