Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







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





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

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

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

Продолжить;

КонецЕсли;

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

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

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

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

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

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

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

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

Продолжить;

КонецЕсли;

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

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

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

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

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

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

КонецЦикла;

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

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

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


 

 

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

 

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

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

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

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

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

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

НачПериода,

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

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

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

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

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

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

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

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

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


 

 

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Область.Параметры.Дата = Выборка.Период;

Область.Параметры.Значение = Выборка.Курс;

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

КонецЦикла;

// Установка свойств табличного документа в целом

// перед его отображением:

ТабДок.ИмяПараметровПечати = "ПараметрыОтчетаКурсыУЕ";

ТабДок.ИмяСохраненияПоложенияОкна = "ОкноОтчетаКурсыУЕ";

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.СохранятьСвойстваОтображения= Истина;

ТабДок.ТолькоПросмотр = Истина;

ТабДок.ФиксацияСверху = 3;

ТабДок.Показать("История курса УЕ");

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


 

 

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

 

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

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

"ВЫБРАТЬ

|Курсы.Период КАК Дата,

|Курсы.Курс КАК Значение

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

|ГДЕ Курсы.Период МЕЖДУ &НачПериода И &КонПериода

|УПОРЯДОЧИТЬ ПО Дата УБЫВ";

Запрос.УстановитьПараметр("НачПериода", НачПериода);

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

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

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


 

 

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

 

 

Процедура ПриОткрытии()

 

Если НачПериода = '0001-01-01' и КонПериода='0001-01-01'

 

Тогда

НачПериода = ДобавитьМесяц(РабочаяДата, -3);

 

КонПериода = РабочаяДата;

 

КонецЕсли;

 

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


 

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

 

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

//отчет с использованием запроса

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

СформироватьОтчет();

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


 

 

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

 

// Модуль объекта "Отчет.КурсыУЕ"







Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом...

Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам...

ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала...

ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры...





Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2024 zdamsam.ru Размещенные материалы защищены законодательством РФ.