Добавление записи регистра накопления

@mirina313 · Регистрация: 04.11.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Подскажите, как программно заполнить регистр "Продажи по дисконтным картам" с помощью внешней обработки.
Допустим такими данными как во вложении

Есть примерные коды, но я не смыслю в 1С:

Кликните здесь для просмотра всего текста

Не по теме:

1C

Процедура МодификацияЗаписейРегистраНакопления()
 
    ВыбДок = Документы.ПоступлениеТоваровУслуг.Выбрать();
    Если ВыбДок.Следующий() Тогда
        Набор =
            РегистрыНакопления.НДСПредъявленный.СоздатьНаборЗаписей();
        Набор.Отбор.Регистратор.Установить(ВыбДок.Ссылка);
        Набор.Прочитать();
 
        // изменение существующих записей
        Для Каждого Движение Из Набор Цикл
            Движение.НДС = 0;
        КонецЦикла;
 
        // добавление новых записей
        Движение = Набор.ДобавитьРасход();
        Движение.НДС = 100;
        Движение.Период = ТекущаяДата();
 
        Движение = Набор.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.НДС = 300;
        Движение.Период = ТекущаяДата();
 
        // удаление существующих записей
        Набор.Удалить(0);
 
        Набор.Записать(Истина);
    КонецЕсли;
 
КонецПроцедуры

Кликните здесь для просмотра всего текста

Не по теме:

1C

НаборЗаписей=РегистрыНакопления.ТоварыНаСкладах.СоздатьНаборЗаписей();
 
    Запрос=Новый Запрос;
    Запрос.Текст=
      "ВЫБРАТЬ
     |    ТоварыНаСкладах.Период как Период,
     |    ТоварыНаСкладах.Регистратор как Регистратор,
     |    ТоварыНаСкладах.Количество как Количество
     |ИЗ
     |    РегистрНакопления.ТоварыНаСкладах КАК ТоварыНаСкладах
     | ГДЕ 
     | ТоварыНаСкладах.Период МЕЖДУ &ДатаНачала И &ДатаОкончания
     |И  ТоварыНаСкладах.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг ";
     
     Запрос.УстановитьПараметр("ДатаНачала", НачПериода);
     Запрос.УстановитьПараметр("ДатаОкончания", КонПериода);
     
     Результат=Запрос.Выполнить();
     Выборка=Результат.Выбрать();
     Пока Выборка.Следующий() Цикл
           НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);
          НаборЗаписей.Прочитать();
          Для каждого движ из НаборЗаписей Цикл
            Движ.Количество=5;
          КонецЦикла;
            НаборЗаписей.Записать();
     КонецЦикла;

@mirina313 · 22.02.2019, 12:54 **[ТС]**

Ут 10.3

@SonicQ · 22.02.2019, 15:28

mirina313, так же как и в ваших примерах

1C

        Набор = РегистрыНакопления.НДСПредъявленный.СоздатьНаборЗаписей();
        Набор.Отбор.Регистратор.Установить(СсылкаНаДокумент);
        Набор.Прочитать();
        // далее добавляете записи
        НоваяСтрока = Набор.Добавить();
        // заполняете строку
        // потом записываете
        Набор.Записать();

@mirina313 · 22.02.2019, 16:54 **[ТС]**

Из всего вышесказанного я дошла до этого момента

1C

        Набор = РегистрыНакопления.ПродажиПоДисконтнымКартам.СоздатьНаборЗаписей();
        Набор.Отбор.Регистратор.Установить(Регистр); //Регистр = ДокументСсылка.КорректировкаЗаписейРегистров
        Набор.Прочитать();
        // далее добавляете записи
        НоваяСтрока = Набор.Добавить(); 
        // заполняете строку
        // потом записываете
        Набор.Записать();

А как заполнить "строку" ?
Я в 1с ничего не понимаю практически...

Добавлено через 27 минут
А при таком раскладе ругается:

1C

    Набор = РегистрыНакопления.ПродажиПоДисконтнымКартам.СоздатьНаборЗаписей();
    Набор.Отбор.Регистратор.Установить(Регистр); //Регистр = ДокументСсылка.КорректировкаЗаписейРегистров
    Набор.Прочитать();
    // далее добавляете записи
    
карта = ИнформационнаяКарта;
владелец = ВладелецДисконтнойКарты;
сумма = Сумма;
 
    НоваяСтрока = Набор.Добавить();
    НоваяСтрока.Период = ТекущаяДата();
    НоваяСтрока.ДисконтнаяКарта = карта;
    НоваяСтрока.ВладелецДисконтнойКарты = владелец;
    НоваяСтрока.Сумма = сумма;
    // заполняете строку
    // потом записываете
    Набор.Записать();

1C

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

@mirina313 · 25.02.2019, 11:29 **[ТС]**

Не пойму как установить отбор по данному регистратору

@polax · 25.02.2019, 11:59

mirina313, Это обычный документ. Так что отбор как и по любому другому регистратору. Что конкретно не получается (код)?

@mirina313 · 25.02.2019, 12:13 **[ТС]**

polax,
При таком алгоритме, добавляется новая строка в уже созданный документ корректировки записей регистров, и то строка задваивается почему-то

Кликните здесь для просмотра всего текста

1C

    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    ПродажиПоДисконтнымКартам.Регистратор
                   |ИЗ
                   |    РегистрНакопления.ПродажиПоДисконтнымКартам КАК ПродажиПоДисконтнымКартам";
                   
    Выборка = Запрос.Выполнить().Выбрать();
    
    Пока Выборка.Следующий() Цикл
    //    
    Набор = РегистрыНакопления.ПродажиПоДисконтнымКартам.СоздатьНаборЗаписей();
    //    
    Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);
    //    
    Набор.Прочитать();
    НоваяСтрока = Набор.Добавить();
    НоваяСтрока.Период = ТекущаяДата();
    НоваяСтрока.ДисконтнаяКарта = ВыборКарты; //Справочник.ИнформационныеКарты
    НоваяСтрока.ВладелецДисконтнойКарты = ВыборВладельцаКарты; //Справочник.Контрагенты
    НоваяСтрока.Сумма = ВводСуммыКарты; //ПолеВвода
        Набор.Записать()

1C

А при таком

Кликните здесь для просмотра всего текста

1C

карта = ИнформационнаяКарта;
владелец = ВладелецДисконтнойКарты;
сумма = Сумма;
 
    Набор = РегистрыНакопления.ПродажиПоДисконтнымКартам.СоздатьНаборЗаписей();
    Набор.Отбор.Регистратор.Установить(Регистр); //Регистр = ДокументСсылка.КорректировкаЗаписейРегистров
    Набор.Прочитать();
    НоваяСтрока = Набор.Добавить();
    НоваяСтрока.Период = ТекущаяДата();
    НоваяСтрока.ДисконтнаяКарта = карта;
    НоваяСтрока.ВладелецДисконтнойКарты = владелец;
    НоваяСтрока.Сумма = сумма;
    Набор.Записать();

Ошибка записи! Не установлен отбор по регистратору (Регистр накопления: Продажи по дисконтным картам)

Добавлено через 5 минут
Почему не устанавливается регистратор "ДокументСсылка.КорректировкаЗаписейРегистров" ?

@polax · 25.02.2019, 12:36

Сообщение от mirina313

При таком алгоритме, добавляется новая строка в уже созданный документ корректировки записей регистров, и то строка задваивается почему-то

Конечно строка добавляется вы же прямо указываете

Сообщение от mirina313

НоваяСтрока = Набор.Добавить();

Если надо корректировать запись, то ищите (или задаете) конкретный док регистратор
и не добавляете строку а корректируете найденную
Здесь как добавить запись
Как найти и добавить запись здесь
Найти запись можно как выше можно запросом с отбором по номеру карты, клиенту и т.п.

Добавлено через 1 минуту

Сообщение от mirina313

Набор.Отбор.Регистратор.Установить(Регистр); //Регистр = ДокументСсылка.КорректировкаЗаписейРегистров

А это неверно. Регистратор - это ссылка на конкретный док а не на его тип значения

@mirina313 · 25.02.2019, 13:03 **[ТС]**

polax,
Да нет, цель создавать новую (следующую по номеру) "корректировку записей регистров" и уже в ней добавлять строку с данными... а выходит создать только в той, которую найдет запрос =\

Регистратор - это ссылка на конкретный док а не на его тип значения

Я не пойму как сделать эту самую ссылку?
Я делала через "реквизит-тип"

@polax · 25.02.2019, 13:14

mirina313, Если надо новую запись, то сначала надо создать документ Корректировка (программно).
Посмотрите последнюю ссылку и последний пример "Как создать записи регистра накопления без привязки к документу в 1с 8.3, 8.2"
Это ваш вариант, только адаптируйте к своему регистру и документу

@mirina313 · 25.02.2019, 15:31 **[ТС]**

Получилось реализовать в таком формате, как вы считаете - это "гавнокод"?

1C

НовыйДокумент = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
НовыйДокумент.Ответственный = ПараметрыСеанса.ТекущийПользователь;
НовыйДокумент.Комментарий = "Обработка";
НовыйДокумент.Дата = ТекущаяДата();
СтрокаТЧ = НовыйДокумент.ТаблицаРегистровНакопления.Добавить();
СтрокаТЧ.Имя = "ПродажиПоДисконтнымКартам";
СтрокаТЧ.Представление = "ПродажиПоДисконтнымКартам";
НоваяСтрока = НовыйДокумент.Движения.ПродажиПоДисконтнымКартам.Добавить();
НоваяСтрока.Период = ТекущаяДата ();
НоваяСтрока.Активность = Истина;
НоваяСтрока.ДисконтнаяКарта = ДисконтнаяКарта;
НоваяСтрока.Сумма = Сумма;
НовыйДокумент.Записать();

@polax · 25.02.2019, 15:34

mirina313, Мое мнение - нормальный код. Я бы сделал точно так же. Но я не профессионал. Главное работает и сделано не через ... ))))

@mirina313 · 25.02.2019, 15:43 **[ТС]**

polax,
Теперь хочу попробовать сделать добавление записей по картам в определенный номер документа "корректировки записей регистров".
При первом запуске обработка добавляет документ к.з.р. с определенным номером и добавляет в него запись,
а если документ с к.з.п. с данным номером уже имеется, то обработка только добавляет запись строки в этот документ.
Для этого, я так понимаю мне нужно будет указать регистратор - номер документа ?

Набор.Отбор.Регистратор.Установить (ссылка); в скобках должна быть ссылка, вопрос как ее указать?

@polax · 25.02.2019, 15:48

Сообщение от mirina313

Набор.Отбор.Регистратор.Установить (ссылка); в скобках должна быть ссылка, вопрос как ее указать?

Да. Здесь должна быть ссылка на конкретный документ. Найти можно (вариант) Запрос к базе Выбрать первые 1 (далее нужные данные, ссылка из нужного дока) Упорядочить ПО Ссылка.Дата убыв. Выберется последняя запись (если она нужна) ИЛИ запрос с отбором по номеру карты и т.п. Тут вам виднее. Главное, чтобы в итоге была получена ссылка на нужный регистратор

@mirina313 · 26.02.2019, 11:34 **[ТС]**

1C

НаборЗаписей = РегистрыНакопления.ПродажиПоДисконтнымКартам.СоздатьНаборЗаписей();
Выборка = Документы.КорректировкаЗаписейРегистров.Выбрать();
Пока Выборка.Следующий() Цикл                                
    НоваяЗапись = НаборЗаписей.Добавить();
    НоваяЗапись.Период = ТекущаяДата ();
    НоваяЗапись.Регистратор = Выборка.Ссылка;
    НоваяЗапись.Сумма = 123;
КонецЦикла;
НаборЗаписей.Записать(Ложь);

Ошибка

1C

{ВнешняяОбработка.ВнешняяОбработка6.Форма.Форма.Форма(11)}: Ошибка при вызове метода контекста (Записать)
НаборЗаписей.Записать(Ложь);
по причине:
Ошибка записи! Не установлен отбор по регистратору (Регистр накопления: Продажи по дисконтным картам)

Почему не устанавливается отбор по регистратору?

Добавлено через 54 минуты
Есть вот такой рабочий, интересный вариант

но по какому принципу он выбирает регистратор мне не понятно...

1C

       Выборка = Документы.КорректировкаЗаписейРегистров.Выбрать();
       Выборка.Следующий();
       Документ = Выборка.Ссылка;
  
       НаборЗаписей=РегистрыНакопления.ПродажиПоДисконтнымКартам.СоздатьНаборЗаписей();
       НаборЗаписей.Отбор.Регистратор.Установить(Документ);
       НаборЗаписей.Прочитать();
       
       НоваяЗапись = НаборЗаписей.Добавить();
       НоваяЗапись.Период = ТекущаяДата();
       НоваяЗапись.ДисконтнаяКарта = Карта;    
       НоваяЗапись.Сумма = 100000;
       
       НаборЗаписей.Записать();

@Yulunga · 26.02.2019, 12:11

Сообщение от mirina313

Выборка = Документы.КорректировкаЗаписейРегистров.Выбрать();

это, как нетрудно догадаться, ВЫБОРКА.
то есть сколько-то документов. типа массива.
а штобе перейти к первому из них - надо написать выборка.следующий()
тогда мы переместимся к первому.
если надо ко второму - ещё раз пишем выборка.следующий()
поэтому в рабочем варианте - есть конкретный документ. а в вашем - массив

@mirina313 · 26.02.2019, 12:41 **[ТС]**

Yulunga, допустим, хочу указать конкретный документ "выделенный" во вложении.
Как мне указать на него?

@Yulunga · 26.02.2019, 13:06

Сообщение от mirina313

Доброго времени суток!
Подскажите, как программно заполнить регистр "Продажи по дисконтным картам" с помощью внешней обработки.

во внешней обработке создать поле с типом вашего конкретного документа ("продажиподисконтнымкартам", "какоетоназваниедокумента", "документпродажи",..... как он у вас называется в общем)

сделать кнопку.
в обработке кнопки брать конкретно вот тот документ, который пользователь выбрал вона в том поле

@mirina313 · 26.02.2019, 13:42 **[ТС]**

Yulunga,
Программно указать, без кнопок

@d_pinchuk · 26.02.2019, 14:51

mirina313,

1C

Указатель = Документы.КорректировкаЗаписейРегистров.НайтиПоНомеру ("Т0000000002", Дата(2019,01,01));
Документ = Указатель.Ссылка;
НаборЗаписей=РегистрыНакопления.ПродажиПоДисконтнымКартам.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Документ);
НаборЗаписей.Прочитать();     
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Период = ТекущаяДата();    
НоваяЗапись.Сумма = 777;
 
НаборЗаписей.Записать();

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	26.02.2019, 12:41 [ТС]	17
	Yulunga, допустим, хочу указать конкретный документ "выделенный" во вложении. Как мне указать на него? Миниатюры 0

@Yulunga Модератор 2296 / 839 / 244 Регистрация: 22.04.2013 Сообщений: 6,166 Записей в блоге: 1
	26.02.2019, 13:06	18
	Сообщение от mirina313 Доброго времени суток! Подскажите, как программно заполнить регистр "Продажи по дисконтным картам" с помощью внешней обработки. во внешней обработке создать поле с типом вашего конкретного документа ("продажиподисконтнымкартам", "какоетоназваниедокумента", "документпродажи",..... как он у вас называется в общем) сделать кнопку. в обработке кнопки брать конкретно вот тот документ, который пользователь выбрал вона в том поле 1

Новые блоги и статьи
Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	22.02.2019, 12:54 [ТС]	2
	Ут 10.3 0

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	25.02.2019, 11:29 [ТС]	5
	Не пойму как установить отбор по данному регистратору Миниатюры 0

@polax 3031 / 1584 / 576 Регистрация: 16.01.2015 Сообщений: 6,743
	25.02.2019, 11:59	6
	mirina313, Это обычный документ. Так что отбор как и по любому другому регистратору. Что конкретно не получается (код)? 1

@polax 3031 / 1584 / 576 Регистрация: 16.01.2015 Сообщений: 6,743
	25.02.2019, 12:36	8
	Сообщение от mirina313 При таком алгоритме, добавляется новая строка в уже созданный документ корректировки записей регистров, и то строка задваивается почему-то Конечно строка добавляется вы же прямо указываете Сообщение от mirina313 НоваяСтрока = Набор.Добавить(); Если надо корректировать запись, то ищите (или задаете) конкретный док регистратор и не добавляете строку а корректируете найденную Здесь как добавить запись Как найти и добавить запись здесь Найти запись можно как выше можно запросом с отбором по номеру карты, клиенту и т.п. Добавлено через 1 минуту Сообщение от mirina313 Набор.Отбор.Регистратор.Установить(Регистр); //Регистр = ДокументСсылка.КорректировкаЗаписейРегистров А это неверно. Регистратор - это ссылка на конкретный док а не на его тип значения 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	25.02.2019, 13:03 [ТС]	9
	polax, Да нет, цель создавать новую (следующую по номеру) "корректировку записей регистров" и уже в ней добавлять строку с данными... а выходит создать только в той, которую найдет запрос =\ Регистратор - это ссылка на конкретный док а не на его тип значения Я не пойму как сделать эту самую ссылку? Я делала через "реквизит-тип" 0

@polax 3031 / 1584 / 576 Регистрация: 16.01.2015 Сообщений: 6,743
	25.02.2019, 13:14	10
	mirina313, Если надо новую запись, то сначала надо создать документ Корректировка (программно). Посмотрите последнюю ссылку и последний пример "Как создать записи регистра накопления без привязки к документу в 1с 8.3, 8.2" Это ваш вариант, только адаптируйте к своему регистру и документу 0

@polax 3031 / 1584 / 576 Регистрация: 16.01.2015 Сообщений: 6,743
	25.02.2019, 15:34	12
	mirina313, Мое мнение - нормальный код. Я бы сделал точно так же. Но я не профессионал. Главное работает и сделано не через ... )))) 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	25.02.2019, 15:43 [ТС]	13
	polax, Теперь хочу попробовать сделать добавление записей по картам в определенный номер документа "корректировки записей регистров". При первом запуске обработка добавляет документ к.з.р. с определенным номером и добавляет в него запись, а если документ с к.з.п. с данным номером уже имеется, то обработка только добавляет запись строки в этот документ. Для этого, я так понимаю мне нужно будет указать регистратор - номер документа ? Набор.Отбор.Регистратор.Установить (ссылка); в скобках должна быть ссылка, вопрос как ее указать? 0

@polax 3031 / 1584 / 576 Регистрация: 16.01.2015 Сообщений: 6,743
	25.02.2019, 15:48	14
	Сообщение от mirina313 Набор.Отбор.Регистратор.Установить (ссылка); в скобках должна быть ссылка, вопрос как ее указать? Да. Здесь должна быть ссылка на конкретный документ. Найти можно (вариант) Запрос к базе Выбрать первые 1 (далее нужные данные, ссылка из нужного дока) Упорядочить ПО Ссылка.Дата убыв. Выберется последняя запись (если она нужна) ИЛИ запрос с отбором по номеру карты и т.п. Тут вам виднее. Главное, чтобы в итоге была получена ссылка на нужный регистратор 1

@Yulunga Модератор 2296 / 839 / 244 Регистрация: 22.04.2013 Сообщений: 6,166 Записей в блоге: 1
	26.02.2019, 12:11	16
	Сообщение от mirina313 Выборка = Документы.КорректировкаЗаписейРегистров.Выбрать(); это, как нетрудно догадаться, ВЫБОРКА. то есть сколько-то документов. типа массива. а штобе перейти к первому из них - надо написать выборка.следующий() тогда мы переместимся к первому. если надо ко второму - ещё раз пишем выборка.следующий() поэтому в рабочем варианте - есть конкретный документ. а в вашем - массив 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	26.02.2019, 13:42 [ТС]	19
	Yulunga, Программно указать, без кнопок 0

Добавление записи регистра накопления

Решение