Как создать в документе ОперацияБух новую проводку?
14.04.2012
00:47
#1
Пытаюсь внешней обработкой создать бухгалтерскую справку, но не получается создать проводку. Помогите создать любую простую проводку, чтобы сориентироваться. Спасибо!
14.04.2012
14:03
#2
"НоваяПроводка = ДокОбъектОперация.Движения.Хозрасчетный.Добавить();
НоваяПроводка.СчетДт = ...;
НоваяПроводка.СчетКТ = ...;
НоваяПроводка.Сумма = ...;
ДокОбъектОперация.Записать();"
НоваяПроводка.СчетДт = ...;
НоваяПроводка.СчетКТ = ...;
НоваяПроводка.Сумма = ...;
ДокОбъектОперация.Записать();"
15.04.2012
16:10
#3
"Спасибо, получилось! Теперь пытаюсь добавить в документ дополнительные проводки. Документ нахожу, но строки со старыми проводками затираются:(
Может быть в этом коде проблема?
НаборЗаписей=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Значение=опер.Ссылка;
Проводка=НаборЗаписей.Добавить();
Проводка.Организация = орг;
....
наборзаписей.Записать();"
Может быть в этом коде проблема?
НаборЗаписей=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Значение=опер.Ссылка;
Проводка=НаборЗаписей.Добавить();
Проводка.Организация = орг;
....
наборзаписей.Записать();"
16.04.2012
01:12
#4
"с проводками решила, но опять проблема, нужно подчиненный справочник по покупателям подцепить...
контр=справочники.Контрагенты;
контр=контр.найтипокоду(СправочникД);
Если контр.пустая() тогда
Сообщить("Не найден покупатель с кодом " + СправочникД, СтатусСообщения.Внимание);
КонецЕсли;
СписокДоговоров=Справочники.ДоговорыКонтрагентов.Выбрать(,контр,,);
Пока СписокДоговоров.Следующий() Цикл
Если Не СписокДоговоров.Ссылка.Пустая() И Не СписокДоговоров.Ссылка.ПометкаУдаления Тогда
дог=СписокДоговоров;
Прервать;
КонецЕсли;
КонецЦикла;"
контр=справочники.Контрагенты;
контр=контр.найтипокоду(СправочникД);
Если контр.пустая() тогда
Сообщить("Не найден покупатель с кодом " + СправочникД, СтатусСообщения.Внимание);
КонецЕсли;
СписокДоговоров=Справочники.ДоговорыКонтрагентов.Выбрать(,контр,,);
Пока СписокДоговоров.Следующий() Цикл
Если Не СписокДоговоров.Ссылка.Пустая() И Не СписокДоговоров.Ссылка.ПометкаУдаления Тогда
дог=СписокДоговоров;
Прервать;
КонецЕсли;
КонецЦикла;"
Закрытие программы при попытке сформировать отчёт 1С 8.2 БП 2.0 (2.0.31.11)Замена наименования покупателя на выданных счет-фактурах
Читают тему
(гостей: 1)