"Да, добавлять в бухгалтерии субконто на 68.1
В ЗиК в глПроводкиЗаПериод()
Пока ЗапросУдержания.Группировка("ЗаписьЖР")=1 Цикл
ВР=ЗапросУдержания.ВР; //вид расчета
РезультатВР= ЗапросУдержания.РезультатВР; //результат по ВР, нулевые значения отсекли запросом
ДокументВР = ЗапросУдержания.ТекущийДокумент; //документ основание ВР
ЗаписьЖР = ЗапросУдержания.ЗаписьЖР; //ссылка на запись ЖР
УдержаниеРаспределятьПропорционально = 0;
Если (ЭтоУдержаниеПроцентом(ВР, ДокументВР) = 1) тогда
УдержаниеРаспределятьПропорционально = глПолучитьВариантРаспределенияУдержания(ВР);
КонецЕсли;
Если ВР = ВидРасчета.НДФЛ Тогда
Если (ЗаписьЖР.ПериодРегистрации.ДатаНачала<>ЗаписьЖР.ДатаНачала) Тогда
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковДругойПериод,РезультатВР,БюджетнаяОрганизация);
Иначе
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковНДФЛПарам,РезультатВР,БюджетнаяОрганизация);
КонецЕсли;
Иначе
глПолучитьРаспределениеРезультата(ЗаписьЖР, ТаблицаРаспределения,,, "Проверка",УдержаниеРаспределятьПропорционально,ДоходыВычетыНалогиСотрудниковНДФЛПарам,РезультатВР,БюджетнаяОрганизация);
КонецЕсли;
//ВСТАВКА\
Если ВР=ВидРасчета.НДФЛ Тогда
ПодрНДФЛ=Сотрудник.Подразделение.Получить(ЗаписьЖР.ДатаОкончания);
Для СчН=1 По ВсегоПроводок Цикл
ТаблицаРаспределения.ПолучитьСтрокуПоНомеру(СчН);
ШаблонПроводки=ТаблицаРаспределения.Шаблон;
Если (ТаблицаРаспределения.Шаблон.СчетКредита.Субконто2.Наименование="Подразделения") Тогда
ТаблицаРаспределения.Шаблон=глПодобратьШаблонПроводки("НДФЛ-"+ПодрНДФЛ.Наименование, ШаблонПроводки.СчетДебета, ШаблонПроводки.Субконто1Дебета,ШаблонПроводки.Субконто2Дебета,ШаблонПроводки.Субконто3Дебета,ШаблонПроводки.Субконто4Дебета,ШаблонПроводки.Субконто5Дебета,ШаблонПроводки.Субконто6Дебета, ШаблонПроводки.Субконто7Дебета,
ШаблонПроводки.СчетКредита, ШаблонПроводки.Субконто1Кредита,ПодрНДФЛ,ШаблонПроводки.Субконто3Кредита,ШаблонПроводки.Субконто4Кредита,
ШаблонПроводки.ПодпадаетПодЕНВД,);
КонецЕсли;
КонецЦикла;
КонецЕсли;
//ВСТАВКА/
ВсегоПроводок = ТаблицаРаспределения.КоличествоСтрок();
Если ВсегоПроводок = 0 Тогда
Продолжить;
КонецЕсли;
Накопили=0;
Для Сч = 1 По ВсегоПроводок Цикл
.............
Это кусок из релиза 273"