Автоматизация учета расчетов с поставщиками и подрядчиками
Курсовой проект - Менеджмент
Другие курсовые по предмету Менеджмент
одуль формы добавим процедуру:
Процедура ВводНового()
Валюта=Константа.ОснВалюта;
КонецПроцедуры
4.Заполняем справочник поставщиков.
Рис.7
Аналогичным образом создадим справочник подрядчиков.
Рис.8
Справочник Склад.
Идентификатор:Склад
Подчинен: нет
Количество уровней: 1
Код: 5 Тип кода: число Серии кодов: подчинение
Наименование: 50
Основное представление: наименование
Группы сверху: да
Автонумерация: да Уникальность: да
Одна форма для элемента и группы?: нет
Редактировать: в списке
РеквизитОписаниеТипЗначенияДоп.Исп.Изм.МОЛСтрока 10 Э
1. Создаем форму элемента
2. Создаем форму списка
3.Заполним справочник:
Рис.9
Справочник ТоварУслуга.
Идентификатор:ТоварУслуга
Подчинен: нет
Количество уровней: 3
Код: 5 Тип кода: число Серии кодов: подчинение
Наименование: 50
Основное представление: наименование
Группы сверху: да
Автонумерация: да Уникальность: да
Одна форма для элемента и группы?: нет
Редактировать: в списке
РеквизитОписаниеТипЗначенияДоп.Исп.Изм.ЦенаЧисло 7.2 +Э
1.Создадим форму элемента.
2.Создаем форму списка.
3.Заполняем справочник:
Рис.10
Справочник Договора.
Идентификатор:Договора
Подчинен: нет
Количество уровней: 2
Код: 5 Тип кода: число Серии кодов: подчинение
Наименование: 48
Основное представление: наименование
Группы сверху: да
Автонумерация: да Уникальность: да
Одна форма для элемента и группы?: нет
Редактировать: в списке
РеквизитОписаниеТипЗначенияДоп.Исп.Изм.ДатаДоговораДата СЭ
1.Создаем форму списка.
2.Заполняем справочник. Данный справочник двухуровневый, заполняем отдельно по поставщикам и подрядчикам.
Рис.11
Перечисления.
Переходим к созданию перечисления. Создадим перечисление с единицами измерения. Для этого в окне метаданных в разделе "Перечисления" вводим новое перечисление.
Рис.12
2.3 Создание плана счетов, операций
План счетов.
Первоначально необходимо определить какие счета будут использоваться в расчетах. Кроме этого нужно определить перечень субконто. Для этого необходимые данные сведем в таблицу, для удобства:
СчетАналитика10По местам храненияПо приходным накладнымПо товару, услуге50нет51нет60.0 По материально-ответственным лицамПо приходным накладнымПо поставщикам60.01По договорамПо подрядчикам61нет63нет76нет
После определения видов субконто, перейдем непосредственно к их созданию. Для этого в окне метаданных в разделе "Виды Субконто"" вводим новое субконто.
Создание Субконто.
Идентификатор: МестоХранения
Тип: С.Склады
Триады: нет
Неотрицательный: нет
Отбор: да
Цена: не назначена
Валютная цена: не назначена
Пустые субконто: нет
Быстрый выбор: да
Рис.13
Аналогичным образом создадим оставшиеся виды субконто:
- Поставщики
- Подрядчики
- ПриходнаяНакладная
- ТоварУслуга
- Договора
- МОЛ
Переходим к созданию плана счетов. В окне метаданных находим раздел "Планы Счетов".
1. Входим в режим редактирования раздела "Планы счетов"
Рис.14
- Максимальная длина кода счета. Зададим 7;
- Длина наименования счета 25;
- Планы счетов. Нажимаем [Новый]. Появилось сообщение "Для бухгалтерии был добавлен Документ операций". [ОК]. Мы вошли в окошко свойств плана счетов;
- Идентификатор Наш. Шаблон кода - ###.###
- Добавим реквизит "ПолноеНазвание" типа Строка неограниченной длины;
- Количественный учет только по аналитике Да. Аналитический учет максимальное количество субконто 3;
- Редактировать счета Обоими способами;
- Основной план счетов Наш;
- Валютный учет. Справочник валют С.Валюты;
- Курс Курс;
- Кратность Кратность;
- Разделитель учета- не назначен;
- Создадим форму счета.
Рис.15
- Отредактируем форму списка;
- Добавим кнопку. Заголовок "Печать", формула Печать();
- В модуле формы напишем процедуру:
Процедура Печать()
Сч=СоздатьОбъект("Счет");
// Создаем в памяти экземпляр объекта "Счет"
Сч.ИспользоватьПланСчетов(ИспользоватьПланСчетов());
// Указываем, что будем использовать тот план счетов, который является
// текущим в открытом списке счетов
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
Сч.ВыбратьСчета();
// Открываем подборку со списком счетов в текущем плане счетов
Пока Сч.ПолучитьСчет()=1 Цикл
Если Сч.ЭтоГруппа()=1 Тогда
// Это счет либо субсчет, содержащий субсчета
Таб.ВывестиСекцию("Группа");
Иначе
// Это счет не содержащий субсчетов, либо это субсчет самого нижнего уровня
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(2,,1,,,,,,,1,,);
// ориентация "Ландшафт"
Таб.Показать("План счетов");
КонецПроцедуры
17.Создадим печатную форму нашего плана счетов:
Рис.16
18. Заполняем форму плана счетов.
19. Распечатаем полученный план счетов:
Рис.17