Автоматизація обліку нематеріальних активів

курсовая работа

6. Створення довідника «НМА», написання його програмного модуля

Довідники призначені для зберігання відомостей про безліч однотипних обєктів, які використовуються при веденні аналітичного обліку і для заповнення документів.

Довідник «НМА», створений мною, призначений для зберігання інформації про нематеріальні активи організації. Він використовується як при виписці первинних документів, так і для ведення аналітичного обліку на рахунках 04 «Нематеріальні активи», 05 «Амортизація НМА», 08,5 «Придбання НМА».

Довідник має наступні реквізити:

Таблиця 3

ідентифікатор

Тип

Додатково

Групи

Перечисление. Группи НМА

МОЛ

Справочник. Сотрудники

Стан

Перечисление. Состояние НМА

Первоначальная стоимость

Число (15/2)

Способ Поступленія

Перечисление. Способы поступления НМА

Дата принятия к учету

Дата

Причина списания

Перечисление. Причины списания НМА

Дата списания

Дата

Порядок начисления амортизации

Число (1)

Прочие сведения

Рядок (неогр.)

Способ начисления амортизации

Перерахування. Способ начислення амортизации НМА

Срок полезного использования

Число (4)

Счет затрат

Счет. Основной

Субконто1

невизначений

Субконто2

невизначений

Субконто3

невизначений

Метод Начисления амортизации

Перерахування.

Дата Приобритения

Методы начислення амортизации

Амортізаціонная группа

Дата

Спеціальний Коеффициэнт

Перечисление. Амортизационные группы

Вид расхода

Число (10)

Элемент расхода

Перечисление. Види расхода

обєкт

невизначений

Довідник «НМА»має наступну форму елемента:

Мал. 3. Довідник НМА.

Для автоматизації довідника, мною був написаний програмний код:

Процедура При вибору методу нарахування амортизації.

Якщо метод нарахування амортизації = Перерахування. Методи нарахування амортизації. нелінійний Тоді

Форма Використовувати Шар ("Базова Вартість", 1).

інакше

Форма Використовувати Шар ("Базова Вартість", 0).

Кінець Якщо;

кінець Процедури

Процедура При Відкритті

Форма. Використовувати Закладки (1);

Форма. Закладки. Додати Значення (1, "Загальні відомості");

Форма. Закладки Додати Значення (2, "Бухгалтерський облік").

Форма. Закладки. Додати Значення (3, "Податковий Облік»);

Форма. Використовувати Шар ("Основний", 2);

кінець Процедури

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

Якщо Значення = 1 Тоді

Форма. Використовувати Шар ("Основний", 2);

Інакше Якщо Значення = 3 Тоді

Форма. Використовувати Шар ("НалоговийУчет", 2);

Інакше Якщо Значення = 2 Тоді

Форма. Використовувати Шар ("Бухгалтерський Облік", 2);

кінець Якщо

кінець Процедури

Процедура При виборе рахунки

Для А = 1 По 3 Цикл

Призначити Тип ("Субконто»+ А, Рахунок Витрат Вид Субконто (А).);

Кінець Циклу; Кінець Процедури

Делись добром ;)