Формирование доп проводок в 1с БГУ

[alexandr_ll]

я так понимаю вместо ДопСчетДебета цифровые выражения счетов заносить?

В качестве переменной ДопСчетДебета Должна быть ссылка на соответствующий элемент плана счетов.
Ссылка может быть задана явно в качестве реквизита документа.
Можно сослаться на предопределенное значение плана счетов:
ДопСчетДебета=ПланыСчетов. ЕПСБ.< ПредопределенноеЗначение >
Можно получить ссылку с помощью методов "НайтиПоКодУ", "НайтиПоНаименованию" и др. (Смотри Ситакс-помощник)

[Александр8989]

добавил вот это

Проводка.КВД = ТекСтрока["КВД"];

// Дебет
Проводка.СчетДт = ДопСчетДебета;
ДопСчетДебета = ПланыСчетов.ЕПСБУ.НайтиПоК оду("206.00");
Проводка.КБКДт = ТекСтрока["КБКНазначениеПлатежа"];
Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];

Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл

Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = НайтиЗначениеСубконтоВТек ущейСтроке(ТекСтрока, Проводка.СчетДт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения);

КонецЦикла;

// Кредит
Проводка.СчетКт = ДопСчетКредита;
ДопСчетКредита = ПланыСчетов.ЕПСБУ.НайтиПоК оду("201.11");
Проводка.КБККт = ТекСтрока["КБКНазначениеПлатежа"];
Проводка.СубконтоКт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];

но не работает...

---------- Post added at 11:17 ---------- Previous post was at 10:14 ----------

Если ФормироватьДопПроводки И (ТекСтрока["КВД"] <> Перечисления.КВД.Бюджет)
И ЗначениеЗаполнено(ДопСчет� �ебета) И ЗначениеЗаполнено(ДопСчет� �редита) Тогда

Проводка = ПроводкиБУ.Добавить();
Проводка.Период = СтруктураШапкиДокумента.Д� �та;
Проводка.Учреждение = СтруктураШапкиДокумента.У� �реждение;
Проводка.Баланс = СтруктураШапкиДокумента.Б� �ланс;

Проводка.ВидПервичногоДок� �мента = пВидПервичногоДокумента;
Проводка.ДатаПервичногоДо� �умента = пДатаПервичногоДокумента;
Проводка.НомерПервичногоД� �кумента = пНомерПервичногоДокумента ;

Проводка.КВД = ТекСтрока["КВД"];

// Дебет
Проводка.СчетДт = ДопСчетДебета;
ДопСчетДебета = ПланыСчетов.ЕПСБУ.НайтиПоК оду("206.00");
Проводка.КБКДт = ТекСтрока["КБКНазначениеПлатежа"];
Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];

Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл

Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = НайтиЗначениеСубконтоВТек ущейСтроке(ТекСтрока, Проводка.СчетДт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения);

КонецЦикла;

// Кредит
Проводка.СчетКт = ДопСчетКредита;
ДопСчетКредита = ПланыСчетов.ЕПСБУ.НайтиПоК оду("201.11");
Проводка.КБККт = ТекСтрока["КБКНазначениеПлатежа"];
Проводка.СубконтоКт.КОСГУ = ТекСтрока["КОСГУНазначениеПлатежа"];
и
Для к = 2 по Проводка.СчетКт.ВидыСубкон то.Количество() Цикл

Проводка.СубконтоКт[(Проводка.СчетКт.ВидыСубко� �то[к-1].ВидСубконто)] = НайтиЗначениеСубконтоВТек ущейСтроке(ТекСтрока, Проводка.СчетКт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения);

КонецЦикла;

Проводка.Сумма = ТекСтрока["Сумма"] * Коэффициент;

Если ЗначениеЗаполнено(ТекСтро� �а["СтрокаНазначениеПлатеж� �"]) Тогда
Проводка.Содержание = ТекСтрока["СтрокаНазначениеПлатеж� �"];
Иначе
Проводка.Содержание = СтруктураШапкиДокумента.П� �НазначениеПлатежа;
КонецЕсли;
Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетКт,Прово дка.СчетКт);

КонецЕсли;

//***********************************

КонецЦикла;
КонецЕсли;

// Сформируем движения по счетам НУ
НалоговыйУчетСервер.Сформ� �роватьДвиженияОтражениеП� �очихРасходов(ПараметрыПро веденияНУ.ТаблицаПрочиеРа� �ходы, Движения, Отказ);

// Сформируем движения по регистрам УСН
СтруктураТаблицУСН = Новый Структура("ТаблицаРасчетов , УчетнаяПолитикаУСН",
ПараметрыПроведенияНУ.Таб� �ицаРасчетыПриУСН, ПараметрыПроведенияНУ.Уче� �наяПолитикаУСН);
НалоговыйУчетУСН.Сформиро� �атьДвиженияУСН(ЭтотОбъект , СтруктураТаблицУСН);

полная форма,что не так делаю?