0
mrd2006
05.06.14
✎
11:52
|
Имеется такой код:
Сч76_9=ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами;
Сч20=ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
Контрагент=Справочники.Контрагенты.ПустаяСсылка();
Договор=Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
НачатьТранзакцию();
НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);
НаборЗаписей.Прочитать();
Если НаборЗаписей.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Для каждого Запись из НаборЗаписей Цикл
Если Запись.СчетДт=Сч20 Тогда
Запись.ПодразделениеДт=Неопределено;
ПолучитьКонтрагентаИДоговор(Запись.СубконтоДт.НоменклатурныеГруппы,Контрагент,Договор);
Запись.СубконтоДт.НоменклатурныеГруппы=Неопределено;
Запись.СубконтоДт.СтатьиЗатрат=Неопределено;
Запись.СчетДт = Сч76_9;
Запись.СубконтоДт.Контрагенты=Контрагент;
Запись.СубконтоДт.Договоры=Договор;
КонецЕсли;
КонецЦикла;
НаборЗаписей.Записать();
ДокументОбъект = ДокументСсылка.ПолучитьОбъект();
ДокументОбъект.РучнаяКорректировка = Истина;
ДокументОбъект.Записать();
ЗафиксироватьТранзакцию();
Проблема возникает при записи набора записей, выдаётся сообщение:
Запись не верна! Вид субконто "Статьи затрат" не доступен для данной записи!
Посмотрел в отладчике НаборЗаписей по каждой строчке - для каждого счета установлены свои значения субконто, определенные для этого счета, остальные имеют значение Неопределено.
Не могу понять, из-за чего же возникает ошибка
|
|