8.х Про программное заполнение регистра бухгалтерии

Тема в разделе "Общие вопросы "1С:Предприятие 8"", создана пользователем Serg0007, 17 июл 2014.

  1. TopicStarter Overlay
    Serg0007
    Offline

    Serg0007

    Регистрация:
    26 сен 2013
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Все ПРИВЕТ! Люди нужна Ваша помощь ...

    Код:
    //док для регистратора ссылки
        ДокСсылка = Документы.Партия.СоздатьДокумент();
        ДокСсылка.Дата = Дата(2014, 05, 31);
        ДокСсылка.Организация = глЗначениеПеременной("ОсновнаяОрганизация");
        ДокСсылка.Записать();
        //создание дока ОперацияБух (ручные проводки)
        ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
        ДокОперация.Дата = ТекущаяДата();
        ДокОперация.Организация = глЗначениеПеременной("ОсновнаяОрганизация");
        ДокОперация.Содержание = "Загрузка из EXCEL";
        ДокОперация.СпособЗаполнения = "Вручную"; 
     
        ДокОперацияСсылка = ДокОперация.Ссылка;
     
        ДокОперация.Записать();
     
     
        РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        //РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
       
         
        РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
     
        РегХозрасчетный.Записать();
        Для каждого СтрокаТЗ Из ТЗ Цикл
         
            //проверка ... есть ли в ТЗ строка с нулевым значением
            Если СтрокаТЗ.Количество = 0 Тогда
                Продолжить;     
            КонецЕсли;
         
    //создаем новую строку и заполняем
            РегЗапись = РегХозрасчетный.Добавить();
            //Дт
            РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.ГотоваяПродукция;
            РегЗапись.СубконтоДт.Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", СтрокаТЗ.Артикул);
            РегЗапись.СубконтоДт.Склады = Склады;
            РегЗапись.Регистратор = ДокОперацияСсылка;
            РегЗапись.КоличествоДт = СтрокаТЗ.Количество;     
            //Кт
            РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;
            //сумма проводки
            РегЗапись.Сумма =  СтрТЗ.Себестоимость;
         
        КонецЦикла;
     
        РегХозрасчетный.Записать();  - на этом моменте выходит ошибка
    {Форма.Форма.Форма(240)}: Ошибка при вызове метода контекста (Записать)
        РегХозрасчетный.Записать();
    по причине:
    Ошибка записи! Не установлен отбор по регистратору (Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет))
    В ЧЁМ ОШИБКА???
    Последнее редактирование модератором: 17 июл 2014
  2. Dmitriy_76
    Offline

    Dmitriy_76 Опытный в 1С Команда форума

    Регистрация:
    26 мар 2011
    Сообщения:
    2.174
    Симпатии:
    13
    Баллы:
    29
    РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;

    РегХозрасчетный.Записать();

    1) тут проверь ДокОперацияСсылка. является ли он регистратором твоего регистра
    2) вместо записать() попробуй Прочитать() ( у меня так..и работает :)))

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