• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

1С 8.1 Проведение документа

  • Автор темы VoodyGoo
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

VoodyGoo

Создаю новый документ программно...

и проводку в нем тоже:
Код:
	Движение = НовыйДок.Движения.Типовой;
Проводка = Движение.Добавить();

Проводка.СчетДт = ПланыСчетов.Типовой.НайтиПоКоду("1210").Код;
Проводка.СчетКт = ПланыСчетов.Типовой.НайтиПоКоду("6010").Код;

//......

Движение.Записать();

Выходит ошибка в окно сообщений:
{Обработка.Перекачка.Форма.Форма(22)}: Ошибка при вызове метода контекста (Записать): Ошибка записи! Не установлен отбор по регистратору (Регистр бухгалтерии: Журнал проводок (бухгалтерский учет))
Движение.Записать();
 
K

kaa

Создал документ программно Док.Провести() // и не надо прописывать проведение документа в коде, оно уже есть в модуле документа ^_^
 
V

VoodyGoo

Создал документ программно Док.Провести() // и не надо прописывать проведение документа в коде, оно уже есть в модуле документа ^_^

не все так просто.
В документе стоит запрет на проведение. => в модуле ничего про проведение нет.

А данные из дока должны попасть в регистр бухгалтерии.

С ошибкой регистратора разобрался, все процедуры без ошибок проходят, но вот результата никакого.

Привожу весь код:

Код:
Процедура СозданиеДокумента()

НовыйДок = Документы.ОперацияБух.СоздатьДокумент();
ДокСсылка = НовыйДок.ПолучитьСсылкуНового();

Пользователь = Справочники.Пользователи;
Пользователь.Выбрать();

НовыйДок.Дата = ПериодПерекачки;
НовыйДок.Номер = "123456";
НовыйДок.Автор = Пользователь.НайтиПоКоду("Администратор");
НовыйДок.Содержание = "Проверка";
НовыйДок.Ответственный = Пользователь.НайтиПоКоду("Администратор");
НовыйДок.СуммаОперации = 555666;

Организация = Справочники.Организации;
Организация.Выбрать();

НовыйДок.Организация = Организация.НайтиПоКоду("000000001");

НовыйДок.Записать(РежимЗаписиДокумента.Запись);




Движение = НовыйДок.Движения.Типовой;
Проводка = Движение.Добавить();

Проводка.СчетДт = ПланыСчетов.Типовой.НайтиПоКоду("1210");
Проводка.СчетКт = ПланыСчетов.Типовой.НайтиПоКоду("6010");
Проводка.Регистратор = ДокСсылка;
Проводка.Сумма = 5465655;
Проводка.Период = ПериодПерекачки;

Движение.Записать();

КонецПроцедуры
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!