ПостроительОтчетастуденты.Вывести(ЭлементыФормы.ПолеТабличногоДокумента);

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИТЬ

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

Процедура студентыИнициализация()

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛИЗАЦИЯ(студенты)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ПостроительОтчетастуденты.Текст =

"ВЫБРАТЬ

| Студенты.ФИО КАК ФИО,

| Студенты.Предмет КАК Предмет,

| Студенты.Оценка КАК Оценка,

| Студенты.группа КАК группа,

| СУММА(Студенты.баллыПоЕгэ) КАК баллыПоЕгэ,

| Студенты.Регистратор КАК СтатусСтудента,

| ПРЕДСТАВЛЕНИЕ(Студенты.Регистратор)

|ИЗ

| РегистрНакопления.Студенты КАК Студенты

|

|СГРУППИРОВАТЬ ПО

| Студенты.Регистратор,

| Студенты.ФИО,

| Студенты.Предмет,

| Студенты.Оценка,

| Студенты.группа

|ИТОГИ

| СУММА(баллыПоЕгэ)

|ПО

| ОБЩИЕ,

| СтатусСтудента";

ПостроительОтчетастуденты.ЗаполнитьНастройки();

ПостроительОтчетастуденты.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;

ПостроительОтчетастуденты.ТекстЗаголовка = "Студенты";

Настройка = ВосстановитьЗначение("НастройкаОтчетыстудентыстуденты_f35edc19-1434-4efe-8837-c11522b82f4e");

Если Настройка <> Неопределено Тогда

ПостроительОтчетастуденты.УстановитьНастройки(Настройка);

КонецЕсли;

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛИЗАЦИЯ

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

Процедура ОК(Кнопка)

Закрыть(Истина);

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

Процедура ВСтроки(Кнопка)

Если ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные <> Неопределено Тогда

ПутьКДанным = ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные.ПутьКДанным;

ТипИзмерения = ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные.ТипИзмерения;

ПостроительОтчета.ИзмеренияКолонки.Удалить(ПостроительОтчета.ИзмеренияКолонки.Найти(ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные.Имя));

ПостроительОтчета.ИзмеренияСтроки.Добавить(ПутьКДанным, , ТипИзмерения);

КонецЕсли;

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

Процедура ВКолонки(Кнопка)

Если ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные <> Неопределено Тогда

ПутьКДанным = ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные.ПутьКДанным;

ТипИзмерения = ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные.ТипИзмерения;

ПостроительОтчета.ИзмеренияСтроки.Удалить(ПостроительОтчета.ИзмеренияСтроки.Найти(ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные.Имя));

ПостроительОтчета.ИзмеренияКолонки.Добавить(ПутьКДанным, , ТипИзмерения);

КонецЕсли;

4. Универсальный

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

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

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

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

СводнаяТаблица=ЭлементыФормы.ПолеТабличногоДокумента.ВстроенныеТаблицы.СводнаяТаблица1;

СводнаяТаблица.ИсточникДанных = ПостроительОтчета;

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

6.Цена предмета

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

ценаПредметаИнициализация();

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

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

СохранитьЗначение("НастройкаОтчетыценаПредметаценаПредмета_19c3431a-13c8-421d-bcab-476584143511", ПостроительОтчетаценаПредмета.ПолучитьНастройки());

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

Процедура ДействияФормыценаПредметаНастройка(Кнопка)

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙКА(ценаПредмета)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Форма = ОтчетОбъект.ПолучитьФорму("ценаПредметаНастройка");

Форма.ПостроительОтчета = ПостроительОтчетаценаПредмета;

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

Если Форма.ОткрытьМодально() = Истина Тогда

ценаПредметаВывести();

Иначе

ПостроительОтчетаценаПредмета.УстановитьНастройки(Настройка);

КонецЕсли;

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙКА

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

Процедура ДействияФормыценаПредметаСформировать(Кнопка)

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(ценаПредмета)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ценаПредметаВывести();

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА

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

Процедура ценаПредметаВывести()

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИТЬ(ценаПредмета)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ЭлементыФормы.ПолеТабличногоДокумента.Очистить();

ПостроительОтчетаценаПредмета.Параметры.Вставить("ДатаОтчета", ДатаОтчета);

ПостроительОтчетаценаПредмета.Выполнить();

ПостроительОтчетаценаПредмета.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.Вместе;

ПостроительОтчетаценаПредмета.РазмещениеРеквизитовИзмеренийВСтроках = ТипРазмещенияРеквизитовИзмерений.Отдельно;

ПостроительОтчетаценаПредмета.РазмещениеРеквизитовИзмеренийВКолонках = ТипРазмещенияРеквизитовИзмерений.Отдельно;

ПостроительОтчетаценаПредмета.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Классика);

ПостроительОтчетаценаПредмета.Вывести(ЭлементыФормы.ПолеТабличногоДокумента);

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИТЬ

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

Процедура ценаПредметаИнициализация()

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛИЗАЦИЯ(ценаПредмета)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ПостроительОтчетаценаПредмета.Текст =

"ВЫБРАТЬ

| ЦенаПредметаСрезПоследних.Период КАК Период,

| ЦенаПредметаСрезПоследних.Предмет КАК Предмет,

| ЦенаПредметаСрезПоследних.УченаяСтепень КАК УченаяСтепень,

| ЦенаПредметаСрезПоследних.Преподаватель КАК Преподаватель,

| СУММА(ЦенаПредметаСрезПоследних.Цена) КАК Цена

|ИЗ

| РегистрСведений.ЦенаПредмета.СрезПоследних(&ДатаОтчета, ) КАК ЦенаПредметаСрезПоследних

|

|СГРУППИРОВАТЬ ПО

| ЦенаПредметаСрезПоследних.Предмет,

| ЦенаПредметаСрезПоследних.Период,

| ЦенаПредметаСрезПоследних.УченаяСтепень,

| ЦенаПредметаСрезПоследних.Преподаватель

|ИТОГИ

| СУММА(Цена)

|ПО

| ОБЩИЕ,

| Период,

| Предмет,

| Преподаватель,

| УченаяСтепень";

ПостроительОтчетаценаПредмета.ЗаполнитьНастройки();

ПостроительОтчетаценаПредмета.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;

ПостроительОтчетаценаПредмета.ТекстЗаголовка = "Цена предмета";

Настройка = ВосстановитьЗначение("НастройкаОтчетыценаПредметаценаПредмета_19c3431a-13c8-421d-bcab-476584143511");

Если Настройка <> Неопределено Тогда

ПостроительОтчетаценаПредмета.УстановитьНастройки(Настройка);

КонецЕсли;

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛИЗАЦИЯ

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

Процедура ОК(Кнопка)

Закрыть(Истина);

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

Процедура ВСтроки(Кнопка)

Если ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные <> Неопределено Тогда

ПутьКДанным = ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные.ПутьКДанным;

ТипИзмерения = ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные.ТипИзмерения;

ПостроительОтчета.ИзмеренияКолонки.Удалить(ПостроительОтчета.ИзмеренияКолонки.Найти(ЭлементыФормы.ИзмеренияКолонки.ТекущиеДанные.Имя));

ПостроительОтчета.ИзмеренияСтроки.Добавить(ПутьКДанным, , ТипИзмерения);

КонецЕсли;

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

Процедура ВКолонки(Кнопка)

Если ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные <> Неопределено Тогда

ПутьКДанным = ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные.ПутьКДанным;

ТипИзмерения = ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные.ТипИзмерения;

ПостроительОтчета.ИзмеренияСтроки.Удалить(ПостроительОтчета.ИзмеренияСтроки.Найти(ЭлементыФормы.ИзмеренияСтроки.ТекущиеДанные.Имя));

ПостроительОтчета.ИзмеренияКолонки.Добавить(ПутьКДанным, , ТипИзмерения);

КонецЕсли;

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

7.Рейтинг студентов

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

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

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

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

"ВЫБРАТЬ

| СтипендияОбороты.ФИО,

| СтипендияОбороты.СтипендияОборот КАК Стипендия

|ИЗ

| РегистрНакопления.Стипендия.Обороты КАК СтипендияОбороты

|

|УПОРЯДОЧИТЬ ПО

| Стипендия УБЫВ"

;

ЭлементыФормы.Диаграмма.ИсточникДанных=Запрос.Выполнить().Выгрузить();

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

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

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

ПолеВыбора = ТипДиаграммы.Гистограмма;

ЭлементыФормы.Диаграмма.ТипДиаграммы = ПолеВыбора;

СписокВыбора=ЭлементыФормы.ПолеВыбора.СписокВыбора;

СписокВыбора.Добавить(ТипДиаграммы.График,"График");

СписокВыбора.Добавить(ТипДиаграммы.Гистограмма,"Гистограмма");

СписокВыбора.Добавить(ТипДиаграммы.ГистограммаОбъемная,"Гистограмма 3D");

СписокВыбора.Добавить(ТипДиаграммы.ГистограммаГоризонтальная,"Гистограмма горизонтальная");

СписокВыбора.Добавить(ТипДиаграммы.ГистограммаГоризонтальнаяОбъемная,"Гистограмма горизонтальная 3D");

СписокВыбора.Добавить(ТипДиаграммы.Круговая,"Круговая");

СписокВыбора.Добавить(ТипДиаграммы.КруговаяОбъемная,"Круговая Объемная");

СписокВыбора.Добавить(ТипДиаграммы.Изометрическая,"Изометрическая");

СписокВыбора.Добавить(ТипДиаграммы.ИзометрическаяНепрерывная,"Изометрическая непрерывная");

СписокВыбора.Добавить(ТипДиаграммы.ИзометрическаяЛента,"Изометрическая лента");

СписокВыбора.Добавить(ТипДиаграммы.ИзометрическаяПирамида,"Изометрическая пирамида");

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

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

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

ЭлементыФормы.Диаграмма.ТипДиаграммы = ПолеВыбора;

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

Журналы документов

Журналы документов являются объектами конфигурации, предназначенными для смысловой группировки документов. В своей работе я реализовала следующие Журналы документов:

1.Доп Часы

Форма списка:

Создаём печатную форму и в модуле формы списка пишем следующий код:

Процедура Печать(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(Печать)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

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

Макет = ЖурналыДокументов.ДопЧасы.ПолучитьМакет("Печать");

// Заголовок

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

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

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

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

Выборка = ЖурналыДокументов.ДопЧасы.Выбрать();

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

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

Реквизиты.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Реквизиты);

КонецЦикла;

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

ТабДок.Защита = Истина;

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

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

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК

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



2.Студенты

Форма списка:

Создаём печатную форму и в модуле формы списка пишем следующий код:

Процедура Печать(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(Печать)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

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

Макет = ЖурналыДокументов.Студенты.ПолучитьМакет("Печать");

// Заголовок

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

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

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

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

Выборка = ЖурналыДокументов.Студенты.Выбрать();

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

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

Реквизиты.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Реквизиты);

КонецЦикла;\

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

ТабДок.Защита = Истина;

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

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

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК

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

3.Стипендия

Форма списка:

Создаём печатную форму и в модуле формы списка пишем следующий код:

Процедура Печать(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(Печать)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

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

Макет = ЖурналыДокументов.Стипендия.ПолучитьМакет("Печать");

// Заголовок

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

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

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

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

Выборка = ЖурналыДокументов.Стипендия.Выбрать();

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

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

Реквизиты.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Реквизиты);

КонецЦикла;

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

ТабДок.Защита = Истина;

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

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

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК

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

Роли и интерфейсы

Для описания разрешений на работу с объектами конфигурации используются объекты «Роль». С помощью такого объекта описываем набор прав на выполнение тех или иных действий над каждым из объектов базы данных и над всей конфигурацией в целом. Следует также, предоставить пользователю удобный и функциональный интерфейс, не содержащий лишних элементов.

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

В нашей базе создаем следующие роли :

И соответствующие интерфейсы:

Администрирование

В программе были созданы три пользователя с различными правами и интерфейсами:

1) Администратор - Этому пользователю предоставляются полные администраторские права.

Интерфейс:

2) Секретарь - Этот пользователь может только просмотреть данные, добавляя и изменяя ,запрещен доступ в конфигуратор

Интерфейс:



3)Декан - Этому пользователю предоставляются полные права ,но запрещен доступ в конфигуратор

Заключение

Работа была выполнена в среде 1С:Предприятие 8.1. В результате данной работы была создана автоматизированная информационно-справочная система, которая полностью решает поставленную задачу и удовлетворяет всем поставленным требованиям.

Типовая конфигурация 1С Предприятие 8.1 реализует наиболее общие схемы учета и может использоваться в большинстве организаций. Для отражения специфики учета конкретного предприятия типовую конфигурацию можно изменить в соответствии с требованиями учета. Разнообразные возможности системы позволяют использовать ее как средство полной автоматизации учета от ввода первичных документов до формирования отчетности.

1С Предприятие 8.1 позволяет вести торговый учет, производственный учет, учет в сфере оказания услуг, налоговый учет и т.д., а также несложный расчет заработной платы. 1С Предприятие 8.1 включает набор форм бухгалтерской и налоговой отчетности. Разнообразные возможности системы позволяют использовать ее как средство полной автоматизации учета от ввода первичных документов до формирования отчетности.

Гибкость платформы позволяет применять «1С:Предприятие 8.1» в самых разнообразных областях:

· автоматизация производственных и торговых предприятий, бюджетных и финансовых организаций, предприятий сферы обслуживания и т.д.;

· поддержка оперативного управления предприятием;

· автоматизация организационной и хозяйственной деятельности;

· ведение бухгалтерского учета с несколькими планами счетов и произвольными измерениями учета, регламентированная отчетность;

широкие возможности для управленческого учета и построения аналитической отчетности, поддержка многовалютного учета;

· решение задач планирования, бюджетирования и финансового анализа;

расчет зарплаты и управление персоналом;

· другие области применения.

Размещено на Allbest.ru

...