Оперативный учёт

Лабораторная работа №1

По дисциплине «Корпоративные ИС»

Выполнил: студент гр. ИСГ-108

Чернов Е.С.

Принял:

Горьков И.М,

Владимир 2011

Цель работы

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

Оперативный учёт

Приходная накладная

В конфигурации для приходной накладной присутствуют:

- Подсистемы

- Учёт торговых операций

- Бухгалтерский учёт

- Учет заработной платы и кадры

- Общие модули

- Основной (содержит процедуру «РассчитатьСумму»)

- Константы

- Наименование компании

- Дата регистрации компании

- Справочники

- Организации

- Подразделения

- Дети

- Контрагенты

- Сотрудники

- Должности

- Валюты

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

- Документ

- Приходная накладная

- Реквизиты:

- Организация

- Контрагент

- Сотрудники

- Сумма документа

- Табличные части

- Товары

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

- Количество

- Цена

- Сумма

- Регистр сведений

- Сведения о сотрудниках

- Курсы валют

- Цены поставщиков

- Регистр накопления

- Остатки номенклатуры

Для документа была создана специальная форма ввода данных.

Модуль объекта документа «Приходная накладная»:

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

СуммаДокумента=Товары.Итог("Сумма");

ТабЧасть =ЭлементыФормы.ТабличноеПоле1.ТекущиеДанные;

ТабЧасть.Сумма = ТабЧасть.Цена * ТабЧасть.Количество;

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

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

Движения.ЦеныПоставщиков.Записывать = Истина;

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

// регистр ЦеныПоставщиков

Движение = Движения.ЦеныПоставщиков.Добавить();

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

Движение.Поставщик = Контрагент;

Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;

Движение.Цена = ТекСтрокаТовары.Цена;

КонецЦикла;

Движения.ОстаткиНоменклатуры.Записывать = Истина;

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

// регистр ОстаткиНоменклатуры Приход

Движение = Движения.ОстаткиНоменклатуры.ДобавитьПриход();

//Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

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

Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;

Движение.Количество = ТекСтрокаТовары.Количество;

Движение.Сумма = ТекСтрокаТовары.Сумма;

КонецЦикла;

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

Вывод:

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

Дата добавления: 2015-09-05