Автоматизация учета расчетов с поставщиками и подрядчиками
Курсовой проект - Менеджмент
Другие курсовые по предмету Менеджмент
Операция
Создадим документ Операция. Документ создает операцию, которая состоит из проводок, а операция изменяет остатки в плане счетов. Войдем в режим редактирования документа. Идентификатор трогать не будем, журнал создадим. Создаем журнал "Операции", без каких-либо реквизитов, тип журнала - Обычный. Форму списка журнала создадим самую простую. В документе "Операция" укажем журнал "Операции". Нумератор назначать не будем, Периодичность в пределах года. Длина 8, тип числовой, автоматическая нумерация Да, контроль уникальности Да. Реквизитов шапки либо табличной части этот вид документа не имеет он просто констатирует факт создания бухгалтерской операции вручную.
В дереве метаданных найдем объект "Операция". Войдем в режим редактирования объекта "Операция". Здесь укажем реквизиты.
Операции состоят из проводок, войдем в редактор проводок.
- Сумма. Длина 10, при точности 2;
- Количество. Длина 2, точность 0;
- Валютная сумма 10.2;
- Отбор. Отбор разрешим по дебету/кредиту по всем счетам и субсчетам;
- Отбор по валюте Да;
- Отбор по количеству Да;
- Отбор по сумме Да;
- Отбор по валютной сумме Да;
- Отбор по планам счетов отсутствует
- Сложные проводки обязательно.
Рис.18
Рис.19
Редактируем форму журнала проводок.
- Создаем форму списка
- Добавим в форму переключатель. Заголовок - "разделять по журналам", Идентификатор "ФлагПоЖурналам", Формула ПоЖурналам();
- В модуле формы пропишем процедуру:
Процедура ПриОткрытии()
ФлагПоЖурналам=ВосстановитьЗначение("ФлагПоЖурналам");
// Получаем сохраненное между сеансами значение
Если ФлагПоЖурналам=1 Тогда
ЗакладкиОтбора("НомерЖурнала",1);
// Устанавливаем отбор
Иначе
ЗакладкиОтбора("",1);
// Отключаем отбор
КонецЕсли;
КонецПроцедуры
//=====================================================
Процедура ПоЖурналам()
СохранитьЗначение("ФлагПоЖурналам",ФлагПоЖурналам);
// Указываем какое значение и под каким именем сохранить для
// текущего пользователя между сеансами его работы
Если ФлагПоЖурналам=1 Тогда
ЗакладкиОтбора("НомерЖурнала",1);
Иначе
ЗакладкиОтбора("",1);
КонецЕсли;
КонецПроцедуры
Рис.20
После определения всех реквизитов проводок можно перейти к созданию формы Операции. Вернемся в окно редактирования свойств объекта метаданных Операция. Вызовем окно редактирования формы операции.
Рис.21
Напишем в модуле формы процедуру:
Процедура ПриОткрытии()
ИспользоватьВалюту(Константа.ОснВалюта);
// Здесь мы указываем, что в форме операции по умолчанию использовать основную
// валюту
КонецПроцедуры
Создадим и форму списка операций, самого простого вида.
2.4 Создание документов и журналов
Документ Приходная Накладная.
Составляется при оприходовании на склад ТМЦ.
В дереве метаданных выбираем раздел "Документы". Создаем новый документ.
Идентификатор: ПриходнаяНакладная
Журнал: ПриходныеНакладные
Нумератор: Нет Периодичность: Год
Длина: 5 Тип: число
Уникальность: да Автонумерация: да
Может являться основанием для документа любого вида?: нет
Отредактируем журнал ПриходныеНакладные. Добавим в него две графы Кол из реквизита таблицы Кол, и Сумма из реквизита Сумма. Настроим форму журнала.
Перейдем к форме документа. Создаем ее.
В поле Наименование пишем формулу Товар(), в поле Цена Цена (). Под таблицей добавим текст с формулой для вычисления суммы по колонке Итог("Кол"), Итог("Сумма").
В модуле формы документа пишем:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
КонецПроцедуры
Процедура Наименование()
Если Наименование.Выбран()=1 Тогда
КонецЕсли;
КонецПроцедуры
Процедура Цена()
Цена=Окр(Наименование.Цена);
Сумма=Окр(Кол*Цена,2,1);
КонецПроцедуры
Процедура Печать()
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
НС=НомерСтроки;
// атрибут НомерСтроки возвращает номер текущей строки
// табличной части
Таб.ВывестиСекцию("Строка");
КонецЦикла;
ИтогПр=Формат(Итог("Сумма"),"ЧПДС");
// В переменную ИтогПр мы выведем сумму прописью
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(1,100,1);
Таб.Показать("");
КонецПроцедуры
Рис.22
Создаем печатную форму документа:
Рис.23
Теперь переходим к модулю документа. Пишем процедуру:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("10",ПланыСчетов.Наш);
Операция.Дебет.МестоХранения = Склад;
Операция.Дебет.ТоварУслуга = Наименование;
Операция.Дебет.ПриходнаяНакладная = ТекущийДокумент();
Операция.Кредит.Счет = СчетПоКоду("60.0",ПланыСчетов.Наш);
Операция.Кредит.Поставщики = Поставщик;
Операция.Кредит.ПриходнаяНакладная = ТекущийДокумент();
Операция.Кредит.МОЛ = ЧерезТов;
Операция.Сумма = Сумма;
КонецЦикла;
Операция.Содержани?/p>