Показано с 1 по 9 из 9
Комбинированный просмотр
-
08.04.2015, 13:38 #1
- Регистрация
- 29.11.2013
- Адрес
- Берег Волги
- Сообщений
- 1962
- Сказал(а) спасибо
- 644
- Поблагодарили 10122 раз(а) в 2662 сообщениях
В качестве переменной ДопСчетДебета Должна быть ссылка на соответствующий элемент плана счетов.
Ссылка может быть задана явно в качестве реквизита документа.
Можно сослаться на предопределенное значение плана счетов:
ДопСчетДебета=ПланыСчетов. ЕПСБ.< ПредопределенноеЗначение >
Можно получить ссылку с помощью методов "НайтиПоКодУ", "НайтиПоНаименованию" и др. (Смотри Ситакс-помощник)
-
10.04.2015, 10:17 #2
- Регистрация
- 04.02.2015
- Сообщений
- 29
- Сказал(а) спасибо
- 6
- Поблагодарили 1 раз в 1 сообщении
добавил вот это
Проводка.КВД = ТекСтрока["КВД"];
// Дебет
Проводка.СчетДт = ДопСчетДебета;
ДопСчетДебета = ПланыСчетов.ЕПСБУ.НайтиПоК оду("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].ВидСубконто.ТипЗначения);
КонецЦикла;
Проводка.Сумма = ТекСтрока["Сумма"] * Коэффициент;
Если ЗначениеЗаполнено(ТекСтро� �а["СтрокаНазначениеПлатеж� �"]) Тогда
Проводка.Содержание = ТекСтрока["СтрокаНазначениеПлатеж� �"];
Иначе
Проводка.Содержание = СтруктураШапкиДокумента.П� �НазначениеПлатежа;
КонецЕсли;
Проводка.НомерЖурнала = БухгалтерскийУчет.НомерЖу� �нала(Проводка.СчетКт,Прово дка.СчетКт);
КонецЕсли;
//***********************************
КонецЦикла;
КонецЕсли;
// Сформируем движения по счетам НУ
НалоговыйУчетСервер.Сформ� �роватьДвиженияОтражениеП� �очихРасходов(ПараметрыПро веденияНУ.ТаблицаПрочиеРа� �ходы, Движения, Отказ);
// Сформируем движения по регистрам УСН
СтруктураТаблицУСН = Новый Структура("ТаблицаРасчетов , УчетнаяПолитикаУСН",
ПараметрыПроведенияНУ.Таб� �ицаРасчетыПриУСН, ПараметрыПроведенияНУ.Уче� �наяПолитикаУСН);
НалоговыйУчетУСН.Сформиро� �атьДвиженияУСН(ЭтотОбъект , СтруктураТаблицУСН);
полная форма,что не так делаю?
Похожие темы
-
Программное изменение проводок в регистре бухгалтерии
от Natascha1990 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 1Последнее сообщение: 25.03.2013, 10:57 -
Вопрос по добавлению доп.лицензий в УТ 8.2.17.143.
от LittleD в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 20.02.2013, 00:35 -
Вопрос по добавлению доп.лицензий в УТ 8.2.17.143.
от LittleD в разделе Установка и администрирование 1С - ПредприятиеОтветов: 0Последнее сообщение: 20.02.2013, 00:34
Социальные закладки