я не разбираюсь в этом, методом проб и ошибок изучаю.
вот код
//*****************************************************************************
// Функция глХарактеристикаСчета(Счет)
//
// Параметры
// КодСчета - строка; цифровой код испытуемого счета
//
// Возвращаемое значение
// 0 - ничего определенного сказать про счет не получилось
// 1 - счет похож на "зарплатный"
// 2 - счета учета расчетов с внебюджетными фондами (ФСС)
// 3 - счет может и кредитоваться и дебетоваться
// 4 - счет может только кредитоваться
// 5 - счет может только дебетоваться
// 6 - счет расчетов будущих периодов
// 7 - счет расчетов с внебюджетными фондами
// 8 - счет cчета учета резервов
// 9 - счет расчетов с внебюджетными фондами (ФСС_НС)
//
// Описание
// по коду счета определяем семантику этого счета в хозрасчетном или
// бюджетном плане счетов
//
Функция глХарактеристикаСчета(КодСчета) Экспорт
ПозТочки=Найти(КодСчета,".");
Если (Лев(КодСчета,3) = "303") или (Лев(КодСчета,3) = "304") Тогда
ПозТочки = 7
КонецЕсли;
Если ПозТочки>0 Тогда
Счет=СокрЛП(Лев(КодСчета,ПозТочки-1))
Иначе
Счет=СокрЛП(КодСчета)
КонецЕсли;
Если ТипЗначения(СписокГруппСчетовУчетаЗарплаты)=0 Тогда
СписокГруппСчетовУчетаЗарплаты=СоздатьОбъект("СписокЗначений");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("70");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("75");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("77");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("180");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("181");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("188");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("189");
СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("302");
КонецЕсли;
Если ТипЗначения(СписокДебетуемыхСчетов)=0 Тогда
СписокДебетуемыхСчетов=СоздатьОбъект("СписокЗначений");
СписокДебетуемыхСчетов.ДобавитьЗначение("07");
СписокДебетуемыхСчетов.ДобавитьЗначение("08");
СписокДебетуемыхСчетов.ДобавитьЗначение("10");
СписокДебетуемыхСчетов.ДобавитьЗначение("11");
СписокДебетуемыхСчетов.ДобавитьЗначение("12");
СписокДебетуемыхСчетов.ДобавитьЗначение("15");
СписокДебетуемыхСчетов.ДобавитьЗначение("20");
СписокДебетуемыхСчетов.ДобавитьЗначение("21");
СписокДебетуемыхСчетов.ДобавитьЗначение("23");
СписокДебетуемыхСчетов.ДобавитьЗначение("25");
СписокДебетуемыхСчетов.ДобавитьЗначение("26");
СписокДебетуемыхСчетов.ДобавитьЗначение("28");
СписокДебетуемыхСчетов.ДобавитьЗначение("29");
СписокДебетуемыхСчетов.ДобавитьЗначение("44");
СписокДебетуемыхСчетов.ДобавитьЗначение("68");
СписокДебетуемыхСчетов.ДобавитьЗначение("76");
СписокДебетуемыхСчетов.ДобавитьЗначение("79");
СписокДебетуемыхСчетов.ДобавитьЗначение("84");
СписокДебетуемыхСчетов.ДобавитьЗначение("86");
СписокДебетуемыхСчетов.ДобавитьЗначение("90");
СписокДебетуемыхСчетов.ДобавитьЗначение("91");
СписокДебетуемыхСчетов.ДобавитьЗначение("96");
СписокДебетуемыхСчетов.ДобавитьЗначение("99");
СписокДебетуемыхСчетов.ДобавитьЗначение("200");
СписокДебетуемыхСчетов.ДобавитьЗначение("201");
СписокДебетуемыхСчетов.ДобавитьЗначение("203");
СписокДебетуемыхСчетов.ДобавитьЗначение("210");
СписокДебетуемыхСчетов.ДобавитьЗначение("220");
СписокДебетуемыхСчетов.ДобавитьЗначение("221");
СписокДебетуемыхСчетов.ДобавитьЗначение("222");
СписокДебетуемыхСчетов.ДобавитьЗначение("223");
СписокДебетуемыхСчетов.ДобавитьЗначение("224");
СписокДебетуемыхСчетов.ДобавитьЗначение("225");
СписокДебетуемыхСчетов.ДобавитьЗначение("227");
СписокДебетуемыхСчетов.ДобавитьЗначение("228");
СписокДебетуемыхСчетов.ДобавитьЗначение("401");
СписокДебетуемыхСчетов.ДобавитьЗначение("106");
КонецЕсли;
Если ТипЗначения(СписокКредитуемыхСчетов)=0 Тогда
СписокКредитуемыхСчетов=СоздатьОбъект("СписокЗначений");
СписокКредитуемыхСчетов.ДобавитьЗначение("23");
СписокКредитуемыхСчетов.ДобавитьЗначение("25");
СписокКредитуемыхСчетов.ДобавитьЗначение("26");
СписокКредитуемыхСчетов.ДобавитьЗначение("28");
СписокКредитуемыхСчетов.ДобавитьЗначение("29");
СписокКредитуемыхСчетов.ДобавитьЗначение("68");
СписокКредитуемыхСчетов.ДобавитьЗначение("69");
СписокКредитуемыхСчетов.ДобавитьЗначение("71");
СписокКредитуемыхСчетов.ДобавитьЗначение("73");
СписокКредитуемыхСчетов.ДобавитьЗначение("76");
СписокКредитуемыхСчетов.ДобавитьЗначение("79");
СписокКредитуемыхСчетов.ДобавитьЗначение("84");
СписокКредитуемыхСчетов.ДобавитьЗначение("94");
СписокКредитуемыхСчетов.ДобавитьЗначение("160");
СписокКредитуемыхСчетов.ДобавитьЗначение("170");
СписокКредитуемыхСчетов.ДобавитьЗначение("172");
СписокКредитуемыхСчетов.ДобавитьЗначение("173");
СписокКредитуемыхСчетов.ДобавитьЗначение("183");
СписокКредитуемыхСчетов.ДобавитьЗначение("184");
СписокКредитуемыхСчетов.ДобавитьЗначение("185");
СписокКредитуемыхСчетов.ДобавитьЗначение("187");
СписокКредитуемыхСчетов.ДобавитьЗначение("192");
СписокКредитуемыхСчетов.ДобавитьЗначение("198");
СписокКредитуемыхСчетов.ДобавитьЗначение("208");
СписокКредитуемыхСчетов.ДобавитьЗначение("303.01");
СписокКредитуемыхСчетов.ДобавитьЗначение("304.03");
КонецЕсли;
Если ТипЗначения(СчетаРасчетовСФСС)=0 Тогда
СчетаРасчетовСФСС=СоздатьОбъект("СписокЗначений");
СчетаРасчетовСФСС.ДобавитьЗначение("69.1");
СчетаРасчетовСФСС.ДобавитьЗначение("69.01");
СчетаРасчетовСФСС.ДобавитьЗначение("69.13");
СчетаРасчетовСФСС.ДобавитьЗначение("69.13.1");
СчетаРасчетовСФСС.ДобавитьЗначение("69.13.2");
СчетаРасчетовСФСС.ДобавитьЗначение("69.12");
СчетаРасчетовСФСС.ДобавитьЗначение("193");
СчетаРасчетовСФСС.ДобавитьЗначение("303.02");
ДополнительныеПроводки = СоздатьОбъект("Справочник.ДополнительныеПроводки");
Если ДополнительныеПроводки.НайтиПоКоду("ФСС_БЛ")=1 Тогда
Если ПустоеЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита) = 0 Тогда
СчетаРасчетовСФСС.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если ТипЗначения(СчетаРасчетовСВнебюджетнымиФондами)=0 Тогда
СчетаРасчетовСВнебюджетнымиФондами=СоздатьОбъект("СписокЗначений");
СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("69");
СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("194");
СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("198");
СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("303.02");
СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("303.06");
ДополнительныеПроводки.ВыбратьЭлементы();
Пока ДополнительныеПроводки.ПолучитьЭлемент() = 1 Цикл
СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
КонецЦикла;
КонецЕсли;
Если ТипЗначения(СчетаРасчетовСФСС_НС)=0 Тогда
СчетаРасчетовСФСС_НС=СоздатьОбъект("СписокЗначений");
Если ТипЗначения(СчетаРасчетовСФСС)>0 Тогда
ДополнительныеПроводки = СоздатьОбъект("Справочник.ДополнительныеПроводки");
КонецЕсли;
Если ДополнительныеПроводки.НайтиПоКоду("ФСС_НС") = 1 Тогда
Если ПустоеЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита) = 0 Тогда
СчетаРасчетовСФСС_НС.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
КонецЕсли;
КонецЕсли;
ИначеЕсли СчетаРасчетовСФСС_НС.РазмерСписка() = 0 Тогда
Если ТипЗначения(СчетаРасчетовСФСС)>0 Тогда
ДополнительныеПроводки = СоздатьОбъект("Справочник.ДополнительныеПроводки");
КонецЕсли;
Если ДополнительныеПроводки.НайтиПоКоду("ФСС_НС") = 1 Тогда
Если ПустоеЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита) = 0 Тогда
СчетаРасчетовСФСС_НС.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
КонецЕсли;
КонецЕсли;
КонецЕсли;
КодСчетаБудущихПериодов = "97";
КодСчетаУчетаРезервов = "96";
Если СписокГруппСчетовУчетаЗарплаты.НайтиЗначение(Счет)>0 Тогда
Возврат 1;
ИначеЕсли (Лев(Счет, 2) = КодСчетаУчетаРезервов) тогда
Возврат 8;
ИначеЕсли (СчетаРасчетовСФСС.НайтиЗначение(Строка(КодСчета))>0) или (СчетаРасчетовСФСС.НайтиЗначение(Счет)>0) Тогда
Возврат 2;
ИначеЕсли (СчетаРасчетовСФСС_НС.НайтиЗначение(Строка(КодСчета)) > 0) Тогда
Возврат 9;
ИначеЕсли (СчетаРасчетовСВнебюджетнымиФондами.НайтиЗначение(КодСчета)>0) или (СчетаРасчетовСВнебюджетнымиФондами.НайтиЗначение(Счет)>0) Тогда
Возврат 7;
Иначе
Если (СписокДебетуемыхСчетов.НайтиЗначение(Счет)>0) и (СписокКредитуемыхСчетов.НайтиЗначение(Счет)>0) Тогда
Возврат 3;
ИначеЕсли (СписокКредитуемыхСчетов.НайтиЗначение(Счет)>0) Тогда
Возврат 4;
ИначеЕсли (СписокДебетуемыхСчетов.НайтиЗначение(Счет)>0) Тогда
Возврат 5;
ИначеЕсли Лев(Счет, 2) = КодСчетаБудущихПериодов Тогда
Возврат 6;
Иначе
Возврат 0;
КонецЕсли;
КонецЕсли;
КонецФункции //глХарактеристика...
--------------------------------------------------------------
что тут нужно изменить
