|
|
Для Каждого ТекСтрокаСписок Из Список Цикл// пропустим все детали Если ТипЗнч(ТекСтрокаСписок.ОС_Деталь) = Тип("СправочникСсылка.Детали") Тогда Продолжить; КонецЕсли; // Пропустим ОС не принадлжащие Фирме Если ТекСтрокаСписок.ОС_Деталь.Фирма <> Фирма Тогда Отказ = Истина; Сообщить("В документе"+ЭтотОбъект+ " в строке №"+ТекСтрокаСписок.НомерСтроки+ " ОС "+ТекСтрокаСписок.ОС_Деталь+ " не принадлежит фирме "+Фирма+"!!!" ,СтатусСообщения.ОченьВажное); Продолжить; КонецЕсли; // регистр ДанныеОС Движение = Движения.ДанныеОС.Добавить(); Движение.Период =Дата; Движение.ОС = ТекСтрокаСписок.ОС_Деталь; Движение.БалансоваяСтоимость = ТекСтрокаСписок.СуммаРуб; Движение.РыночнаяСтоимость = ТекСтрокаСписок.СуммаУЕ; КонецЦикла; // записываем движения регистров Движения.ДанныеОС.Записать(); КонецПроцедуры
Листинг ю_11.1.
Процедура КнопкаСформироватьНажатие(Элемент) // Вставить содержимое обработчика. КонецПроцедуры Процедура ВыбПериодНажатие(Элемент) НастройкаПериода = Новый НастройкаПериода; НастройкаПериода.УстановитьПериод( НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода))); НастройкаПериода.РедактироватьКакИнтервал = Истина; НастройкаПериода.РедактироватьКакПериод = Истина; НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период; НастройкаПериода.Редактировать(); НачПериода = НастройкаПериода.ПолучитьДатуНачала(); КонПериода = НастройкаПериода.ПолучитьДатуОкончания(); КонецПроцедуры
Листинг ю_11.2.
Процедура КнопкаСформироватьНажатие(Элемент) ТабДок = Новый ТабличныйДокумент(); //Получение макета Макет = ПолучитьОбщийМакет("КурсУЕ"); //Получение части документа из макета Область = Макет.ПолучитьОбласть("Заголовок"); // действия по заполнению параметров части документа Область.Параметры.НаименованиеОрганизации = Константы.НаименованиеОрганизации.Получить(); ТабДок.Вывести(Область); Область = Макет.ПолучитьОбласть("Шапка"); ТабДок.Вывести(Область); Область = Макет.ПолучитьОбласть("Строка"); //Создаем объект запрос Запрос = Новый Запрос(); //Формируем текст запроса Запрос.Текст = "ВЫБРАТЬ Курсы.Период, Курсы.Курс |ИЗ РегистрСведений.Курсы КАК Курсы |УПОРЯДОЧИТЬ ПО Период УБЫВ"; //И выполняем запрос Результат = Запрос.Выполнить(); // Обработка результата Выборка=Результат.Выбрать(); Пока Выборка.Следующий() Цикл Область.Параметры.Дата = Выборка.Период; Область.Параметры.Значение = Выборка.Курс; ТабДок.Вывести(Область); КонецЦикла; // Установка свойств табличного документа в целом // перед его отображением: ТабДок.ИмяПараметровПечати = "ПараметрыОтчетаКурсыУЕ"; ТабДок.ИмяСохраненияПоложенияОкна = "ОкноОтчетаКурсыУЕ"; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.ОтображатьСетку = Ложь; ТабДок.СохранятьСвойстваОтображения= Истина; ТабДок.ТолькоПросмотр = Истина; ТабДок.ФиксацияСверху = 3; ТабДок.Показать("История курса УЕ"); КонецПроцедуры
Листинг ю_11.3.
//Формируем текст запроса Запрос.Текст = "ВЫБРАТЬ |Курсы.Период КАК Дата, |Курсы.Курс КАК Значение |ИЗ РегистрСведений.Курсы КАК Курсы |ГДЕ Курсы.Период МЕЖДУ &НачПериода И &КонПериода |УПОРЯДОЧИТЬ ПО Дата УБЫВ"; Запрос.УстановитьПараметр("НачПериода", НачПериода); Запрос.УстановитьПараметр("КонПериода", КонПериода); //И выполняем запрос Результат = Запрос.Выполнить();
Листинг ю_11.4.
Процедура ПриОткрытии()
Если НачПериода = '0001-01-01' и КонПериода='0001-01-01'
Тогда НачПериода = ДобавитьМесяц(РабочаяДата, -3);
КонПериода = РабочаяДата;
КонецЕсли;
КонецПроцедуры
Листинг ю_11.5.
//КнопкаСформироватьНажатие(Элемент) - формирует //отчет с использованием запроса Процедура КнопкаСформироватьНажатие(Элемент) СформироватьОтчет(); КонецПроцедуры
Листинг ю_11.6.
// Модуль объекта "Отчет.КурсыУЕ"   Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам...  Что делает отдел по эксплуатации и сопровождению ИС? Отвечает за сохранность данных (расписания копирования, копирование и пр.)...  Живите по правилу: МАЛО ЛИ ЧТО НА СВЕТЕ СУЩЕСТВУЕТ? Я неслучайно подчеркиваю, что место в голове ограничено, а информации вокруг много, и что ваше право...  ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|
