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

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

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

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

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

// Дебет
ЕстьКонтрагентПоДебету = Ложь;
НомерСубконтоДоговор = 0;
ПараметрыСчета = ПолучениеНСИ.ПолучитьПара� �етрыСчета(ТекСтрока["СчетДебета"]);
Проводка.СчетДт = ТекСтрока["СчетДебета"];
Проводка.КБКДт = ТекСтрока["КБКСчетДебета"];
Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУСчетДебета"];
Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл
Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоСчетДебета"+к];
Если НЕ ЕстьКонтрагентПоДебету Тогда
ЕстьКонтрагентПоДебету = Проводка.СчетДт.ВидыСубкон то[к-1].ВидСубконто.ТипЗначения.С� �держитТип(Тип("СправочникС сылка.Контрагенты"));
КонецЕсли;
Если НомерСубконтоДоговор = 0 Тогда
НомерСубконтоДоговор = ?(ТипЗнч(ТекСтрока["СубконтоСчетДебета"+к]) = Тип("СправочникСсылка.Дого� �оры"), к, 0);
КонецЕсли;
КонецЦикла;
Если ПараметрыСчета[0].Валютный Тогда
Проводка.ВалютаДт = СтруктураШапкиДокумента.В� �лютаДокумента;
Проводка.ВалютнаяСуммаДт = ТекСтрока["СуммаВал"];
КонецЕсли;
Если НЕ ЕстьКонтрагентПоДебету Тогда
Проводка.ХарактеристикаДв� �женияДт = СтруктураШапкиДокумента.К� �нтрагент;
КонецЕсли;

// Кредит
Проводка.КБККт = ТекСтрока["КБКСчетКредита"];
Проводка.СубконтоКт.КОСГУ= ТекСтрока["КОСГУСчетКредита"];
Для к = 2 по Проводка.СчетКт.ВидыСубкон то.Количество() Цикл
Проводка.СубконтоКт[(Проводка.СчетКт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоСчетКредита"+к];
КонецЦикла;
Если ПараметрыСчетаКт[0].Валютный Тогда
Проводка.ВалютаКт = СтруктураШапкиДокумента.В� �лютаДокумента;
Проводка.ВалютнаяСуммаКт = ТекСтрока["СуммаВал"];
КонецЕсли;

Если НЕ Проводка.КВД = ОбщегоНазначения.Получить� �начениеПеременной("глКВДБ� �джет") Тогда
Проводка.ХарактеристикаДв� �женияКт = ТекСтрока["КОСГУНазначениеПлатежа"];
Иначе
Если НомерСубконтоДоговор = 0 Тогда
Проводка.ХарактеристикаДв� �женияКт = СтруктураШапкиДокумента.Д� �говор;
Иначе
Проводка.ХарактеристикаДв� �женияКт = ТекСтрока["СубконтоСчетДебета"+Номер� �убконтоДоговор];
КонецЕсли;
КонецЕсли;

Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетДт,Прово дка.СчетКт);

// Забалансовые счета
Если СчетаПроводок.Свойство("За� �алансовыйДебет") Тогда
Если ЗначениеЗаполнено(ТекСтро� �а["ЗабалансовыйДебет"]) Тогда
ПараметрыСчета = ПолучениеНСИ.ПолучитьПара� �етрыСчета(ТекСтрока["ЗабалансовыйДебет"]);
Проводка = ПроводкиБУ.Добавить();
Проводка.Период = СтруктураШапкиДокумента.Д� �та;
Проводка.Учреждение = СтруктураШапкиДокумента.У� �реждение;

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

Если НЕ ПараметрыСчета[0].НетУчетаПоИС Тогда
Проводка.Баланс = СтруктураШапкиДокумента.Б� �ланс;
КонецЕсли;
Если НЕ ПараметрыСчета[0].НетУчетаПоКВД Тогда
Проводка.КВД = ТекСтрока["КВД"];
КонецЕсли;
Проводка.СчетДт = ТекСтрока["ЗабалансовыйДебет"];
Если НЕ ПараметрыСчета[0].НетУчетаПоКБК Тогда
Проводка.КБКДт = ТекСтрока["КБКЗабалансовыйДебет"];
КонецЕсли;
Проводка.СубконтоДт.КОСГУ = ТекСтрока["КОСГУЗабалансовыйДебет"];
Для к = 2 по Проводка.СчетДт.ВидыСубкон то.Количество() Цикл
Проводка.СубконтоДт[(Проводка.СчетДт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоЗабалансовыйДебе� �"+к];
КонецЦикла;
Если ПараметрыСчета[0].Валютный Тогда
Проводка.ВалютаДт = СтруктураШапкиДокумента.В� �лютаДокумента;
Проводка.ВалютнаяСуммаДт = ТекСтрока["СуммаВал"];
КонецЕсли;
Проводка.Сумма = ТекСтрока["Сумма"];
Если ЗначениеЗаполнено(ТекСтро� �а["СтрокаНазначениеПлатеж� �"]) Тогда
Проводка.Содержание = ТекСтрока["СтрокаНазначениеПлатеж� �"];
Иначе
Проводка.Содержание = СтруктураШапкиДокумента.П� �НазначениеПлатежа;
КонецЕсли;
Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетДт,Прово дка.СчетДт);
Если НомерСубконтоДоговор = 0 Тогда
Проводка.ХарактеристикаДв� �женияДт = СтруктураШапкиДокумента.Д� �говор;
Иначе
Проводка.ХарактеристикаДв� �женияДт = ТекСтрока["СубконтоСчетДебета"+Номер� �убконтоДоговор];
КонецЕсли;
КонецЕсли;
КонецЕсли;

Если СчетаПроводок.Свойство("За� �алансовыйКредит") Тогда
//И НЕ ТекСтрока["КВД"] = Перечисления.КВД.Временное Распоряжение Тогда

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

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

Проводка.СчетКт = ЗабалансовыйКредит;
Если НЕ ПараметрыСчетаЗабКт[0].НетУчетаПоИС Тогда
Проводка.Баланс = СтруктураШапкиДокумента.Б� �ланс;
КонецЕсли;
Если НЕ ПараметрыСчетаЗабКт[0].НетУчетаПоКВД Тогда
Проводка.КВД = ТекСтрока["КВД"];
КонецЕсли;
Если НЕ ПараметрыСчетаЗабКт[0].НетУчетаПоКБК Тогда
Проводка.КБККт = ТекСтрока["КБКЗабалансовыйКредит"];
КонецЕсли;
Проводка.СубконтоКт.КОСГУ = ТекСтрока["КОСГУЗабалансовыйКреди� �"];
Для к = 2 по Проводка.СчетКт.ВидыСубкон то.Количество() Цикл
Проводка.СубконтоКт[(Проводка.СчетКт.ВидыСубко� �то[к-1].ВидСубконто)] = ТекСтрока["СубконтоЗабалансовыйКред� �т"+к];
КонецЦикла;
Если ПараметрыСчетаЗабКт[0].Валютный Тогда
Проводка.ВалютаКт = СтруктураШапкиДокумента.В� �лютаДокумента;
Проводка.ВалютнаяСуммаКт = ТекСтрока["СуммаВал"];
КонецЕсли;
Проводка.Сумма = ТекСтрока["Сумма"];
Если ЗначениеЗаполнено(ТекСтро� �а["СтрокаНазначениеПлатеж� �"]) Тогда
Проводка.Содержание = ТекСтрока["СтрокаНазначениеПлатеж� �"];
Иначе
Проводка.Содержание = СтруктураШапкиДокумента.П� �НазначениеПлатежа;
КонецЕсли;
Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетКт,Прово дка.СчетКт);
Если НомерСубконтоДоговор = 0 Тогда
Проводка.ХарактеристикаДв� �женияКт = СтруктураШапкиДокумента.Д� �говор;
Иначе
Проводка.ХарактеристикаДв� �женияКт = ТекСтрока["СубконтоСчетДебета"+Номер� �убконтоДоговор];
КонецЕсли;
КонецЕсли;

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

КонецЦикла;

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

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

КонецЕсли;

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

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

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

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

КонецПроцедуры





а куда здесь свои счета подставить?

[alexandr_ll]

а куда здесь свои счета подставить?

Ну как же, а это:

// Кредит
Проводка.СчетКт = ДопСчетКредита;

// Дебет
Проводка.СчетДт = ДопСчетДебета;

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

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

---------- Post added at 14:15 ---------- Previous post was at 12:19 ----------

// Кредит
Проводка.СчетКт = ДопСчетКредита["20111"];

так должно быть?

[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].ВидСубконто.ТипЗначения);

КонецЦикла;

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

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

КонецЕсли;

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

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

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

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

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