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

Тема в разделе "1C и всё что с ней связано", создана пользователем VoodyGoo, 23 июл 2008.

Статус темы:
Закрыта.
  1. VoodyGoo

    VoodyGoo Гость

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

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

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

    //......

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

    kaa Гость

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

    VoodyGoo Гость

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

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

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

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

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

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

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

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

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

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

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




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

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

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

    КонецПроцедуры
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей