- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
Функция Счет(УсловныйКодСчета, СоответствиеСчетов = Неопределено) Экспорт
ПС = ПланыСчетов.Хозрасчетный;
Результат = ПС.ПустаяСсылка();
Если УсловныйКодСчета = "01" Тогда
Результат = ПС.ОсновныеСредства;
ИНачеЕсли УсловныйКодСчета = "01.01" Тогда
Результат = ПС.ОСвОрганизации;
ИначеЕсли УсловныйКодСчета = "01.08" Тогда
Результат = ПС.ОСБезГосРегистрации;
ИначеЕсли УсловныйКодСчета = "01.09" Тогда
Результат = ПС.ВыбытиеОС;
ИначеЕсли УсловныйКодСчета = "02" Тогда
Результат = ПС.АмортизацияОсновныхСредств;
//Далее идет подобный треш более чем на 500 строк
ИначеЕсли УсловныйКодСчета = "008" Тогда
Результат = ПС.ОбеспеченияОбязательствПолученные;
ИначеЕсли УсловныйКодСчета = "009" Тогда
Результат = ПС.ОбеспеченияОбязательствВыданные;
ИначеЕсли УсловныйКодСчета = "011" Тогда
Результат = ПС.ОсновныеСредстваСданныеВАренду;
Иначе
ОписаниеОшибки = НСтр("ru='Не определен счет с условным кодом %1 в соответствии счетов'");
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ОписаниеОшибки, УсловныйКодСчета);
ВызватьИсключение ОписаниеОшибки;
КонецЕсли;
Возврат Результат;
КонецФункции
//СоответствиеСчетов так нигде и не используется :(
Типовая Бухгалтерия КОРП 3.0, модуль ЗаполнениеБухгалтерскойОтчетностиИтоги