8.х Изменение записей регистра бухгалтерии документом

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем nickvv, 7 авг 2014.

  1. TopicStarter Overlay
    nickvv
    Offline

    nickvv Опытный в 1С

    Регистрация:
    10 май 2011
    Сообщения:
    280
    Симпатии:
    0
    Баллы:
    26
    Здравствуйте, уважаемые эксперты!
    Подскажите, пожалуйста, что я делаю не так.
    1С:Предприятие 8.3 (8.3.4.408), Бухгалтерия предприятия КОРП, редакция 3.0 (3.0.34.14)
    Надо создать новый документ, который меняет субконто "Номенклатурные группы" в записях по сч.20.01 на выбранную номенклатурную группу (выбирается главбухом на форме документа).
    Надо менять это субконто именно отдельным документом, не меняя первичные, т.е. надо, чтобы этот новый документ сделал новую проводку ДтПравильнаяНоменклатурнаяГруппа - КтНеправильнаяНоменклатурнаяГруппа на сумму дебетового оборота по"неправильной" номенклатурной группе, все остальные данные - прежние.

    Выбираю нужные записи с "неправильным" субконто и пытаюсь записать с правильным (реквизит "Экспедиция"):
    Код:
        Запрос = Новый Запрос;
        Запрос.Текст =
            "ВЫБРАТЬ
            |    ХозрасчетныйДвиженияССубконто.Период,
            |    ХозрасчетныйДвиженияССубконто.Активность,
            |    ХозрасчетныйДвиженияССубконто.СчетДт,
            |    ХозрасчетныйДвиженияССубконто.СубконтоДт1,
            |    ХозрасчетныйДвиженияССубконто.СубконтоДт2,
            |    ХозрасчетныйДвиженияССубконто.ПодразделениеДт,
            |    ХозрасчетныйДвиженияССубконто.Сумма,
            |    ХозрасчетныйДвиженияССубконто.Содержание
            |ИЗ
            |    РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
            |            &НачДата,
            |            &КонДата,
            |            СчетДт = &Счет2001
            |                И СубконтоДт1 = &СубконтоДт1,
            |            ,
            |            ) КАК ХозрасчетныйДвиженияССубконто";
    
        Запрос.УстановитьПараметр("КонДата", ПериодОбработкиКон);
        Запрос.УстановитьПараметр("НачДата", ПериодОбработкиНач);
        Запрос.УстановитьПараметр("СубконтоДт1", Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000001"));
        Запрос.УстановитьПараметр("Счет2001", ПланыСчетов.Хозрасчетный.ОсновноеПроизводство);
    
        РезультатЗапроса = Запрос.Выполнить();
    
        ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
      
        Движения.Хозрасчетный.Записывать = Истина;
    
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
          
            Проводка = Движения.Хозрасчетный.Добавить();
            Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
            Проводка.СчетКт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
            Проводка.СубконтоДт1 = Экспедиция;
            Проводка.СубконтоКт1 = ВыборкаДетальныеЗаписи.СубконтоДт1;
            Проводка.СубконтоДт2 = ВыборкаДетальныеЗаписи.СубконтоДт2;
            Проводка.СубконтоКт2 = ВыборкаДетальныеЗаписи.СубконтоДт2;
            Проводка.Сумма = ВыборкаДетальныеЗаписи.Сумма;
            Проводка.Содержание = ВыборкаДетальныеЗаписи.Содержание;
            Проводка.ПодразделениеДт = ВыборкаДетальныеЗаписи.ПодразделениеДт;
            Проводка.ПодразделениеКт = ВыборкаДетальныеЗаписи.ПодразделениеДт;
    
        КонецЦикла;
    
    В итоге получаю сообщение об ошибке (файл 1).
    1.png

    Если оставляю Проводка.СубконтоДТ (из контекстной подсказки), то сообщение об ошибке другое (файл 2).
    2.png

    Как же явно указать в проводке, что хочу записать именно СубконтоДт1?
    Спасибо
    Последнее редактирование: 7 авг 2014
  2. 1cUserAndrew
    Offline

    1cUserAndrew Профессионал в 1С Команда форума

    Регистрация:
    27 май 2010
    Сообщения:
    4.949
    Симпатии:
    149
    Баллы:
    104
    Есть процедура общего модуля, которая устанавливает значения субконто:
    Код:
    БухгалтерскийУчет.УстановитьСубконто(...);
    Попробуйте пройтись поиском по конфигурации и посмотреть, как она используется, и сделать по аналогии.
    Последнее редактирование: 7 авг 2014
    nickvv нравится это.
  3. TopicStarter Overlay
    nickvv
    Offline

    nickvv Опытный в 1С

    Регистрация:
    10 май 2011
    Сообщения:
    280
    Симпатии:
    0
    Баллы:
    26
    Спасибо! Именно то, что надо!

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