2.7 Регистры

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

Регистр -- это внутренний компонент создаваемой конфигурации. При использовании конфигурации регистр недоступен пользователю для непосредственного заполнения, нет стандартных средств его просмотра, как для других агрегатных объектов метаданных (документов, справочников, констант и так далее). Однако, средствами встроенного языка можно записывать в регистры информацию и в последующем извлекать ее.

Изменение состояния регистров выполняется специальным модулем на встроенном языке -- модулем документа. Такой модуль содержит алгоритм формирования сведений об изменениях в регистрах, которые необходимо выполнить при проведении документа. Эти сведения называются движениями регистров. Система подсчета итогов использует движения регистров для выполнения непосредственных изменений в регистрах. [1]

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

В данной настройке организованно два регистра остатков: для накопления информации о остатках и стоимости товара на складах (ОстатокТовараСклад) и об остатках и стоимости товара в магазине (ОстатокТовараМагазин), которые представлены на рисунке 2.

Рисунок 2 - Список регистров

2.8 Отчеты

Любая автоматизированная система учета и контроля только тогда выполняет свои функции, когда она имеет средства обработки накопленной в системе информации и получения сводных данных в удобном для просмотра и анализа виде. Как правило, для решения подобных задач в системе автоматизации учета существует подсистема формирования отчетных документов (их еще называют выходными документами). Такая подсистема может формировать набор различных отчетных документов, достаточных для удовлетворения потребности пользователей системы в достоверной и подробной выходной информации.

Для получения сводной выходной информации в системе 1С:Предприятие используются объекты метаданных, называемые «Отчет» и «Обработка». Объект данных этого типа представляет собой алгоритм обработки информации на внутреннем языке системы 1С:Предприятие. К алгоритму «прикрепляется» диалог, при помощи которого, при необходимости, можно организовать ввод каких-либо параметров, влияющих на ход его алгоритма. Обычно алгоритм имеет и сделанное в табличном редакторе описание печатной формы, которое используется для вывода результатов выполнения алгоритма на экран и принтер. В некоторых случаях одна и та же таблица используется и для ввода параметров, и для вывода результатов.

Фактически, объект метаданных типа «Отчет» представляет собой только форму: модуль формы является алгоритмом построения отчета, диалог позволяет задавать параметры формирования отчета, а таблица служит для выдачи результатов построения отчетов в требуемом виде.

В курсовом проекте реализовано 7 отчетов:

- Сотрудник;

- ПланСчетов;

- Номенклатура;

- АнализПС;

- ОстаткиНаСкладах;

- Субконто.

2.9 Интерфейсы и пользователи

1С:Предприятие поддерживает работу нескольких пользователей в рамках бухгалтерии одного предприятия. Для реализации такого механизма предусмотрена настройка прав и интерфейса для конкретного человека. В конфигурации присутствует закладка Интерфейсы, позволяющая организовать наборы из составов главного меню и панелей инструментов. Эти наборы потом можно присвоить конкретным пользователям после их входа в систему. Еще одна закладка - Права, предназначена для организации наборов правил, позволяющих запретить или открыть доступ на редактирование отдельных элементов конфигурации. Здесь можно организовать свою собственную группу правил и выставить необходимые ограничения.

В поле «Интерфейс» можно указать наименование индивидуального пользовательского интерфейса. Такой пользовательский интерфейс включает команды главного меню и панели инструментов, настроенные на работу пользователя с той информацией, доступ к которой разрешен его набором прав.

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

Наименование пользовательского интерфейса представляет собой произвольную строку символов. Наименование можно ввести с клавиатуры, при этом следует указать его точно так же, как оно записано в списке пользовательских интерфейсов (окно «Конфигурация -- Интерфейсы»).

Для каждой категории пользователей программы может быть заведен свой собственный интерфейс. Интерфейс включает пункты меню и кнопки на панели инструментов.

В данном проекте создано три пользователя, для каждого из которых задан свой набор прав и свой интерфейс.

Пользователи:

- Администратор;

- Менеджер.

Наборы прав:

- Администратор;

- Менеджер.

Интерфейсы:

- Администратор;

- Менеджер.

3. РЕАЛИЗАЦИЯ ПРОГРАММНЫХ МОДУЛЕЙ В ДОКУМЕНТАХ И ОТЧЁТАХ

3.1 Документ «ПриемНаРаботу»

На рисунке 3 представлено окно редактирования документа «ПриемСотрудниковНаРаботу»:

Рисунок 3 - Документ «ПриемНаРаботу»

3.3 Документ «РегистрационныеДанныеФирмы»

Документ предназначен для внесения изменений данных организации. Интерфейс документа представлен на рисунке 5.

Рисунок 5 - Документ «РегистрационныеДанныеФирмы»

При проведении документа вносятся соответствующие изменения в значениях констант, а также сначала проверяются все поля на заполнение

3.4 Документ «ПриобретениеОсновныхСредств»

Документ предназначен для введения в использование Основных средств, с записью в базу (справочник ОсновныеСредства) наименования, количества и срока полезного использования. Формируется проводка: 60. Расчеты с поставщиками - 08. Вложения во внеоб. акт. и 08. Вложения во внеоб. акт. - 01. Основные средства.

Интерфейс документа представлен на рисунке 6.

Рисунок 6 - Документ «ПриобретениеОснСредств»

Рисунок 18 - График расходов

Как видно из выше приведенного графика внедрение автоматизированного метода обработки полностью оправдано. Срок окупаемости составляет 7 месяца.

ЗАКЛЮЧЕНИЕ

автоматизация контроль розничный торговля

В данной курсовой работе была рассмотрена информационная система «1С:Предприятие». Была разработана собственная конфигурация, которая решает проблемы автоматизации учета и контроля розничной торговли на данном предприятии. В результате выполнения курсовой работы была рассчитана экономическая эффективность от внедрения программного продукта.

На основании полученных данных можно сделать вывод о том, что разработка программного продукта и его внедрение на предприятии будет иметь положительный экономический эффект, что позволит повысить производительность труда, быстрее и с меньшим количеством ошибок производить операции, контролировать базу по всем произведенным операциям. Хотя первоначальные затраты при внедрении автоматизированной системы немного выше, но как показал график они окупятся в течение двух с половиной месяцев.

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ:

1. В. Дубянский Разработка конфигураций в среде 1С:Предприятие 7.7. Самоучитель / В. М. Дубянский, Л. К. Скобликова. - СПб.: БХВ-Петербург, 2007

2. http://buch77.h12.ru

3. http://www.mista.ru

4. http://www.e1c.ru

5. Конспект лекций по предмету «Программное обеспечение бух. Учета»

ПРИЛОЖЕНИЕ А

Реализация программного кода

Документ «ПриемНаРаботу» модуль формы:

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

Форма.ИспользоватьЗакладки(1);

Форма.Закладки.ДобавитьЗначение(1,"Приём сотрудников на работу");

Форма.Закладки.ДобавитьЗначение(2,"Личные данные о сотруднике");

НомерЗакладки=1;

Форма.ИспользоватьСлой("Основной",2);

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

Процедура ПриВыбореЗакладки(Ном,Значен)

НомерЗакладки=Значен;

Если Значен=1 Тогда

Форма.ИспользоватьСлой("Основной",2);

ИначеЕсли Значен=2 тогда

Форма.ИспользоватьСлой("ЛичныеДанные",2);

КонецЕсли;

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

Документ «ПриемНаРаботу» модуль документа:

Процедура ОбработкаПроведения()

Если ПустоеЗначение(ФИО)=1 Тогда

Предупреждение("Не заполнено поле: ФИО");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(Должность)=1 Тогда

Предупреждение("Не заполнено поле: Должность");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(Оклад)=1 Тогда

Предупреждение("Не заполнено поле: Оклад");

СтатусВозврата(0);

Возврат;

КонецЕсли;

СпрСотр = СоздатьОбъект("Справочник.Сотрудники");

СпрСотр.НайтиПоНаименованию("Работающие");

Работающие = СпрСотр.ТекущийЭлемент();

СпрСотр.ИспользоватьРодителя(Работающие);

СпрСотр.Новый();

СпрСотр.Наименование = ФИО;

СпрСотр.Должность = Должность;

СпрСотр.ДатаПриема=ДатаДок;

СпрСотр.Оклад=Оклад;

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

// Запись в подчиненный справочник

Сотрудник=СпрСотр.ТекущийЭлемент();

СпрЛич = СоздатьОбъект("Справочник.ЛичныеДанные");

СпрЛич.ИспользоватьВладельца(Сотрудник);

СпрЛич.ВыбратьЭлементы();

Если (СпрЛич.ПолучитьЭлемент()=0) Тогда

СпрЛич.Новый();

СпрЛич.ДатаРождения=ДатаРождения;

СпрЛич.Образование=Образование;

СпрЛич.СемейноеПоложение=СемейноеПоложение;

СпрЛич.Телефон=Телефон;

СпрЛич.Адрес=Адрес;

СпрЛич.Записать();

КонецЕсли;

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

Документ «Уволить» модуль формы:

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

ПриЗаписиПерепроводить(1);

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

Процедура Печать()

Если Сотрудник.Выбран()=0 Тогда

Предупреждение("Введите имя сотрудника, которого необходимо уволить"); Возврат;

КонецЕсли;

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица");

Таб.Вывести();

Таб.Опции(0,0);

Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица");

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

Документ «Уволить» модуль документа:

Процедура ОбработкаПроведения()

//Здесь следует написать алгоритм проведения документа

Если Сотрудник.Выбран()=0 Тогда

Предупреждение("Не заполнено поле: ФИО");

СтатусВозврата(0);

Возврат;

КонецЕсли;

СпрСотр = СоздатьОбъект("Справочник.Сотрудники");

СпрСотр.НайтиПоНаименованию("Уволенные");

Уволенные = СпрСотр.ТекущийЭлемент();

СпрСотр.ИспользоватьРодителя(Уволенные);

СпрСотр.НайтиЭлемент(Сотрудник);

СпрСотр.Родитель = Уволенные;

СпрСотр.ДатаУвольнения = ДатаДок;

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

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

Документ «РегистрационныеДанныеФирмы» модуль формы:

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

ПриЗаписиПерепроводить(1);

НазваниеФирмы = Константа.НазваниеФирмы;

ИмяДиректора = Константа.ИмяДиректора;

ИмяГлавБуха = Константа.ИмяГлавБуха;

ИмяСпецаПоКадрам = Константа.СпецПоКадрам;

АдресФирмы = Константа.АдресФирмы;

Телефон = Константа.Телефон;

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

Документ «РегистрационныеДанныеФирмы» модуль документа:

Процедура ОбработкаПроведения()

Константа.ИмяДиректора = ИмяДиректора;

Константа.НазваниеФирмы=НазваниеФирмы;

Константа.ИмяГлавБуха=ИмяГлавБуха;

Константа.СпецПоКадрам=ИмяСпецаПоКадрам;

Константа.АдресФирмы=АдресФирмы;

Константа.Телефон= Телефон;

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

Документ «ПриобретениеОсновныхСредств» модуль формы:

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

ПриЗаписиПерепроводить(1);

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

Процедура ПриЗаписи()

Если ПустоеЗначение(Название)=1 Тогда

Предупреждение("Не заполнено поле: Название");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(ПериодИсчисления)=1 Тогда

Предупреждение("Не заполнено поле: Период исчисления");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(Количество)=1 Тогда

Предупреждение("Не заполнено поле: Количество");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(ЕдИзмерения)=1 Тогда

Предупреждение("Не заполнено поле: Ед. измерения");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(Стоимость)=1 Тогда

Предупреждение("Не заполнено поле: Цена");

СтатусВозврата(0);

Возврат;

КонецЕсли;

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

Процедура Расчет()

Сумма=Количество*Стоимость;

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

Документ «Амортизация» модуль формы:

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

Если Наименование=" " тогда

Предупреждение("Укажите пожалуйста основное средство");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если Наименование.Выбран() = 1 Тогда

Спр = СоздатьОбъект("Справочник.ОсновныеСредства");

Спр.НайтиЭлемент(Наименование);

ТекДата=ДатаДок;

Разница=ТекДата-Спр.ДатаВвода;

КоличМес=Цел(Разница/31);

Если КоличМес>(Спр.ПериодИсчисления) Тогда Предупреждение(Спр.Наименование+" выработал свой ресурс!");

КоличМес=Спр.ПериодИсчисления;

КонецЕсли;

Количество=Спр.ПолучитьАтрибут("Количество");

ПервоначСтоимость=Спр.ПолучитьАтрибут("ПервоначальнаяСтоимость");

ПериодИсчисления=Спр.ПолучитьАтрибут("ПериодИсчисления");

Стоимость = Спр.ПолучитьАтрибут("Стоимость");

СуммаАмор=Спр.ПолучитьАтрибут("СуммаАмортизации");

АмортМес=Количество*Окр((Стоимость)/(Спр.ПериодИсчисления),2);

АмортОтчисления=Окр((АмортМес*КоличМес),2);

ДатаВвода =Спр.ПолучитьАтрибут("ДатаВвода");

ОстСтоимость=СуммаАмор-АмортОтчисления;

Спр.ТекущийЭлемент();

Спр.Записать();

КонецЕсли;

Спр.СуммаАмортизации=ОстСтоимость;

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

Документ «Амортизация» модуль документа:

Процедура ОбработкаПроведения()

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

Док.ВыбратьДокументы(НачМесяца(ДатаДок), КонМесяца(ДатаДок));

Е=0;

Пока Док.ПолучитьДокумент() > 0 Цикл

Е=Е+1;

Если Е=2 Тогда Предупреждение("Невозможно провести Документ! Он уже проведен в данном месяце!");

СтатусВозврата(0);

КонецЕсли;

КонецЦикла;

//Здесь следует написать алгоритм проведения документа

Операция.Содержание="Амортизация основных средств";

Операция.СуммаОперации = Итог("АмортОтчисления");

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Операция.НоваяПроводка();

Операция.Кредит.Счет = СчетПоКоду("01"); //Основные средства

Операция.Дебет.Счет = СчетПоКоду("02"); //Износ основных средств

Операция.Сумма=АмортОтчисления;

КонецЦикла;

Операция.Записать();

Предупреждение("Проведение завершено!");

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

Документ «ПриходнаяНакладная» модуль формы:

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

ПриЗаписиПерепроводить(1);

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

Процедура СуммаПокупки()

Сумма = ЦенаПокупкиЗаЕдиницу*Количество;

ОтпускнаяЦена = ЦенаПокупкиЗаЕдиницу*1.1;

СуммаВУЕ = Сумма/Константа.ПолучитьЗначение(ТекущаяДата());

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

Документ «ПриходнаяНакладная» модуль документа:

Процедура ОбработкаПроведения()

Если ПустоеЗначение(Поставщик)=1 Тогда

Предупреждение("Не заполнено поле: Поставщик");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(Склад)=1 Тогда

Предупреждение("Не заполнено поле: Склад");

СтатусВозврата(0);

Возврат;

КонецЕсли;

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Если ЦенаПокупкиЗаЕдиницу=0 Тогда

Предупреждение("Не установлена цена товара "+Наименование);

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если Количество=0 Тогда

Предупреждение("Не установлено кол-во товара "+Наименование);

СтатусВозврата(0);

Возврат;

КонецЕсли;

ПривязыватьСтроку(НомерСтроки);

Операция.НоваяПроводка();

Операция.дебет.Счет=СчетПоКоду("41.1",ПланыСчетов.ПланСчетов);

Операция.дебет.Склад=Склад;

Операция.дебет.товар=Наименование;

Операция.дебет.Поставщик=Поставщик;

Операция.Кредит.Счет=СчетПоКоду("60",ПланыСчетов.ПланСчетов);

Операция.кредит.Поставщик=Поставщик;

Операция.Количество=Количество;

Операция.Сумма=Сумма;

КонецЦикла;

ПривязыватьСтроку(0);

Операция.НоваяПроводка();

Операция.Дебет.Счет=СчетПоКоду("60",ПланыСчетов.ПланСчетов);

Операция.Дебет.Поставщик=Поставщик;

Операция.Кредит.Счет=СчетПоКоду("51",ПланыСчетов.ПланСчетов);

Операция.Сумма=Итог("Сумма");

Операция.Содержание="Поступление товара";

Операция.СуммаОперации=Итог("Сумма");

Операция.Записать();

Пока ПолучитьСтроку()=1 Цикл

Регистр.ОстаткиСклада.Товар=Наименование;

Регистр.ОстаткиСклада.Количество=Количество;

Регистр.ОстаткиСклада.Поставщик=Поставщик;

Регистр.ОстаткиСклада.Склад=Склад;

Регистр.ОстаткиСклада.ПривязыватьСтроку(НомерСтроки);

Регистр.ОстаткиСклада.ДвижениеПриходВыполнить();

КонецЦикла;

Спр = СОздатьОбъект("Справочник.Наменклатура");

Пока ПолучитьСтроку()=1 Цикл

Спр.НайтиПоНаименованию(Строка(Наименование),0);

Спр.ЦенаПокупкиЗаЕдиницу = Число(ЦенаПокупкиЗаЕдиницу);

Спр.ОтпускнаяЦена = Число(ОтпускнаяЦена);

Спр.ЦенаВДолларах = Число(ЦенаПокупкиЗаЕдиницу)/3000;

Спр.ИспользоватьДату(ТекущаяДата());

Спр.Записать();

КонецЦикла;

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

Документ «ОтгрузкаНаРеализацию» модуль формы:

Процедура Расчет()

Сумма=ЦенаЗаЕдиницу*Количество;

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

Процедура Цена()

Спр = СоздатьОбъект("Справочник.Наменклатура");

Спр.НайтиПоНаименованию(Строка(Наменклатура),0);

ЦенаЗаединицу = Спр.ОтпускнаяЦена;

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

Процедура ПриЗаписи()

Если Проведен()=0 Тогда

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Ост=Регистр.ОстаткиСклада.СводныйОстаток(Регистр.ОстаткиСклада.Товар,Склад,,"Количество");

Если Ост<Количество Тогда

Предупреждение("Нет столько товара "+Наменклатура+Регистр.ОстаткиСклада.Товар+". В наличии только "+Ост);

СтатусВозврата(0);

КонецЕсли;

КонецЦикла;

КонецЕсли;

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

Документ «ОтгрузкаНаРеализацию» модуль документа:

Процедура Расход();

Пока ПолучитьСтроку() = 1 Цикл

Регистр.ОстаткиСклада.Товар = Наменклатура;

Регистр.ОстаткиСклада.Склад = Склад;

Регистр.ОстаткиСклада.Количество = Количество;

Регистр.ОстаткиСклада.ДвижениеРасходВыполнить();

КонецЦикла;

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

Процедура Приход();

Пока ПолучитьСтроку() = 1 Цикл

Регистр.ОстаткиМагазина.Товар = Наменклатура;

Регистр.ОстаткиМагазина.Магазин = Магазин;

Регистр.ОстаткиМагазина.Количество = Количество;

Регистр.ОстаткиМагазина.ДвижениеПриходВыполнить();

КонецЦикла;

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

Процедура ОбработкаПроведения()

Если ПустоеЗначение(Магазин)=1 Тогда

Предупреждение("Не заполнено поле: Магазин");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(Склад)=1 Тогда

Сообщить("Не заполнено поле: Склад");

СтатусВозврата(0);

Возврат;

КонецЕсли;

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Операция.НоваяПроводка();

Операция.дебет.Счет=СчетПоКоду("41.2",ПланыСчетов.ПланСчетов);

Операция.дебет.Магазин=Магазин;

Операция.дебет.Товар=Наменклатура;

Операция.Кредит.Счет=СчетПоКоду("41.1",ПланыСчетов.ПланСчетов;

Операция.Кредит.Склад=Склад;

Операция.Кредит.Товар=Наменклатура;

Операция.Количество = Количество;

Операция.Сумма = Сумма;

Операция.Содержание = "Отгрузка товара";

Операция.Записать();

КонецЦикла;

Расход();

Приход();

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

Документ «ОстаткиНаСкладахМагазинах» модуль формы:

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

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

ТекстЗапр = "

|Товар = Регистр.ОстаткиСклада.Товар;

|Склад = Регистр.ОстаткиСклада.Склад;

|Количество = Регистр.ОстаткиСклада.Количество;

|Функция Кол = КонОст(Количество);

|Группировка Товар;

|Группировка Склад;

|";

ЗапрМаг = СоздатьОбъект("Запрос");

ТекстЗапрМаг = "

|ТоварМаг = Регистр.ОстаткиМагазина.Товар;

|Магазин = Регистр.ОстаткиМагазина.Магазин;

|Количество = Регистр.ОстаткиМагазина.Количество;

|Функция Кол = КонОст(Количество);

|Группировка ТоварМаг;

|Группировка Магазин;

|";

Если Запр.Выполнить(ТекстЗапр) = 0 Тогда

Возврат;

КонецЕсли;

Если ЗапрМаг.Выполнить(ТекстЗапрМаг) = 0 Тогда

Возврат;

КонецЕсли;

Т = СоздатьОбъект("Таблица");

Т.ИсходнаяТаблица("Остатки");

Т.ВывестиСекцию("Шапка");

Пока Запр.Группировка("Товар") = 1 Цикл

Пока Запр.Группировка("Склад")=1 Цикл

Т.ВывестиСекцию("ДанныеСклад");

КонецЦикла;

КонецЦикла;

Т.ВывестиСекцию("ОстаткиМаг");

Пока ЗапрМаг.Группировка("ТоварМаг") = 1 Цикл

Пока ЗапрМаг.Группировка("Магазин")=1 Цикл

Т.ВывестиСекцию("ДанныеМагазин");

КонецЦикла;

КонецЦикла;

Т.Показать("Остатки", " ");

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

Модуль отчета «Сотрудники»:

Процедура Сформировать()

СпрСотр = СоздатьОбъект("Справочник.Сотрудники");

СпрСотр.НайтиПоНаименованию("Работающие");

Работающие = СпрСотр.ТекущийЭлемент();

СпрСотр.ИспользоватьРодителя(Работающие);

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

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

"//{{ЗАПРОС(Сформировать)

|Сотрудники = Справочник.Сотрудники.ТекущийЭлемент;

|Группировка Сотрудники упорядочить по Сотрудники.Наименование, Сотрудники.Должность, Сотрудники.Оклад;

|"//}}ЗАПРОС

;

/// Условие(Сотрудники.Родитель=""Работающие"");

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сотрудники");

// Заполнение полей "Заголовок"

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей Сотрудники

Если Запрос.Сотрудники.Наименование= "Работающие" Тогда

продолжить;

КонецЕсли;

Если Запрос.Сотрудники.Наименование= "Уволенные" Тогда

Прервать;

КонецЕсли;

Таб.ВывестиСекцию("Сотрудники");

КонецЦикла;

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сотрудники", "");

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

Модуль отчета «ПланСчетов»:

Процедура Сформировать()

Перем Сч,c1,c2,н;

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица");

Сч = СоздатьОбъект("Счет");

Таб.ВывестиСекцию("Шапка");

Сч.ВыбратьСчета();

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

Если Сч.Валютный=1 тогда

в="+"иначе в=".";

КонецЕсли;

Если Сч.Количественный=1 тогда

к="+"иначе к=".";

КонецЕсли;

Если Сч.Забалансовый=1 тогда

з="+"иначе з=".";

КонецЕсли;

Если Сч.Активный=1 тогда

а="А" иначе

Если Сч.Активный=2 тогда

а = "П" иначе

Если Сч.Активный=3 тогда

а="АП"

КонецЕсли;

КонецЕсли;

КонецЕсли ;

с1 = Сч.ВидСубконто(1);

с2 = Сч.ВидСубконто(2);

с3 = Сч.ВидСубконто(3);

Таб.ВывестиСекцию("Данные");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

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

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

Модуль отчета «ОстаткиНаСкладах»:

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

ВыбДата=ТекущаяДата()+1;

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

Процедура ВыбДата()

Если ВыбДата>ПолучитьДатуТА() Тогда

ВыбДата=ПолучитьДатуТА();

КонецЕсли;

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

Процедура Флаг()

Если Флаг1=1 Тогда ВыбСклад="";

Форма.ВыбСклад.Редактирование(0); Иначе

Форма.ВыбСклад.Редактирование(1);

КонецЕсли

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

Процедура Сформировать()

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

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

"//{{ЗАПРОС(Сформировать)

|Товар = Регистр.ОстаткиСклада.Товар;

|Склад = Регистр.ОстаткиСклада.Склад;

|Количество = Регистр.ОстаткиСклада.Количество;

|ТекущийЭлемент = Справочник.Наменклатура.ТекущийЭлемент;

|Функция Кол = КонОст(Количество);

|Группировка Товар упорядочить по Товар.Наименование, Товар.ОтпускнаяЦена;

|Группировка Склад упорядочить по Склад.Наименование;

|Условие(Товар в ВыбТовар);

|Условие(Склад в ВыбСклад);

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

Сумма=0;

Й=0;

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица");

Таб.ВывестиСекцию("Шапка");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

Если Запрос.ЭтоГруппа("Товар") = 1 Тогда

КолВо="";

Цен="";

Сумм="";

Иначе

КолВо=Запрос.Кол;

Цен=Запрос.ЗначениеУпорядочивания(1,2);

Сумм=КолВо*Цен;

Сумма=Сумма+Сумм;

КонецЕсли;

Таб.ВывестиСекцию("Товар");

Пока Запрос.Группировка(2) = 1 Цикл

Таб.ВывестиСекцию("Склад");

КонецЦикла;

Й=Й+1;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица", "");

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

Модуль отчета «Номенклатура»:

Процедура Сформировать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Номенклатура");

Спр=СоздатьОбъект("Справочник.Наменклатура"); //Создадим объект - Справочник Номенклатура

Спр.ВыбратьЭлементы();

таб.ВывестиСекцию("Шапка");

Пока Спр.ПолучитьЭлемент()=1 Цикл

если спр.текущийЭлемент().ЭтоГруппа() = 1 Тогда

гр = спр.текущийЭлемент();

таб.ВывестиСекцию("группа");

иначе

эл = спр.Наименование;

допинф = спр.ДопИнформация;

таб.ВывестиСекцию("элемент");

КонецЕсли;

КонецЦикла;

Таб.ТолькоПросмотр(1);

Таб.Показать("Номенклатура","");

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

Модуль отчета «АнализПС»:

Процедура Сформировать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица");

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,,,, 1,, "С");

Таб.ВывестиСекцию("Шапка");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Ит.ВыбратьСчета();

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

Таб.ВывестиСекцию("Счет");

Таб.ВывестиСекцию("ПдвСчет");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица","");

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

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

ВыбНачПериода = НачалоПериодаБИ();

ВыбКонПериода = КонецПериодаБИ();

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

Модуль отчета «Субконто»:

Процедура Сформировать()

Если ПустоеЗначение(ВидСубк)=1 Тогда

Предупреждение("Не выбрано субконто");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Таблица");

БИ = СоздатьОбъект("БухгалтерскиеИтоги");

БИ.ИспользоватьСубконто(ВидСубк,, 1);

БИ.ВключатьСубсчета(1, 1);

БИ.ВыполнитьЗапрос(НачПериода, КонечДата,,,, 1,, "СК");

Таб.ВывестиСекцию("Секция_1");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

БИ.ВыбратьСчета();

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

Таб.ВывестиСекцию("Секция_2");

БИ.ВыбратьСубконто(ВидСубк);

Пока БИ.ПолучитьСубконто(ВидСубк) = 1 Цикл

Таб.ВывестиСекцию("Секция_3");

КонецЦикла;

КонецЦикла;

Таб.ВывестиСекцию("Секция_4");

Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица","");

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

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

НачПериода = НачалоПериодаБИ();

КонечДата = КонецПериодаБИ();

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

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