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

// пропустим все детали

Если ТипЗнч ( ТекСтрокаСписок . ОС_Деталь ) =

Тип( "СправочникСсылка.Детали" ) Тогда

Продолжить;

КонецЕсли;

// Пропустим ОС не принадлжащие Фирме

Если ТекСтрокаСписок . ОС_Деталь . Фирма <> Фирма Тогда

Отказ = Истина ;

Сообщить ( "В документе" + ЭтотОбъект +

" в строке №" + ТекСтрокаСписок . НомерСтроки +

" ОС " + ТекСтрокаСписок . ОС_Деталь +

" не принадлежит фирме " + Фирма + "!!!"

, СтатусСообщения . ОченьВажное );

Продолжить;

КонецЕсли;

// регистр ДанныеОС

Движение = Движения . ДанныеОС . Добавить ();

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

Движение . ОС = ТекСтрокаСписок . ОС_Деталь ;

Движение . БалансоваяСтоимость = ТекСтрокаСписок . СуммаРуб ;

Движение . РыночнаяСтоимость = ТекСтрокаСписок . СуммаУЕ ;

КонецЦикла;

// записываем движения регистров

Движения . ДанныеОС . Записать ();

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

 

 

Листинг ю_11.1.

 

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

// Вставить содержимое обработчика.

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

Процедура ВыбПериодНажатие ( Элемент )

НастройкаПериода = Новый НастройкаПериода ;

НастройкаПериода . УстановитьПериод (

НачПериода ,

?( КонПериода = '0001-01-01' , КонПериода , КонецДня ( КонПериода )));

НастройкаПериода . РедактироватьКакИнтервал = Истина;

НастройкаПериода . РедактироватьКакПериод = Истина;

НастройкаПериода . ВариантНастройки =

ВариантНастройкиПериода . Период ;

НастройкаПериода . Редактировать ();

НачПериода = НастройкаПериода . ПолучитьДатуНачала ();

КонПериода = НастройкаПериода . ПолучитьДатуОкончания ();

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

 

 

Листинг ю_11.2.

 

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

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

//Получение макета

Макет = ПолучитьОбщийМакет ( "КурсУЕ" );

//Получение части документа из макета

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

// действия по заполнению параметров части документа

Область . Параметры . НаименованиеОрганизации =

Константы . НаименованиеОрганизации . Получить ();

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

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

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

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

//Создаем объект запрос

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

//Формируем текст запроса

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

"ВЫБРАТЬ Курсы.Период, Курсы.Курс

|ИЗ РегистрСведений.Курсы КАК Курсы

|УПОРЯДОЧИТЬ ПО Период УБЫВ";

//И выполняем запрос

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

// Обработка результата

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

⇐ Предыдущая234567891011Следующая ⇒

Поделиться: