2.2 Создание справочника «нма», написание его программного модуля.
Справочники предназначены для хранения сведений о множестве однотипных объектов, которые используются при ведении аналитического учета и для заполнения документов.
Справочник «НМА», созданный мной, предназначен для хранения информации о нематериальных активах организации. Он используется как при выписке первичных документов, так и для ведения аналитического учета на счетах 04 «Нематериальные активы», 05 «Амортизация НМА», 08.5 «Приобретение НМА».
Справочник имеет следующие реквизиты:
Таблица 2.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 Цикл
НазначитьТип("Субконто"+А,СчетЗатрат.ВидСубконто(А));
КонецЦикла;
КонецПроцедуры