```1c
    Если ВыборкаПК.Следующий() Тогда

    Для н = 0 По КоличествоКопий Цикл
    Набор = РегистрыСведений.КомпьютерыИОргтехника.СоздатьНаборЗаписей();
    Набор.Прочитать();
    НовЗапись = Набор.Добавить();
    НовЗапись.ОбъектОИС = ЭтотОбъект.Ссылка;
    НовЗапись.Код = ЭтотОбъект.Код;
    НовЗапись.Изготовитель = ВыборкаПК.Изготовитель;
    НовЗапись.НазначениеОбъекта = ВыборкаПК.НазначениеОбъекта;
    НовЗапись.Комментарий2 = ВыборкаПК.Комментарий2;
    НовЗапись.МодельУстройства = ВыборкаПК.МодельУстройства;
    НовЗапись.ДрДопХарактеристики = ВыборкаПК.ДрДопХарактеристики;
    НовЗапись.ДиагональМонитора = ВыборкаПК.ДиагональМонитора;
    НовЗапись.ТипПроцессора = ВыборкаПК.ТипПроцессора;
    НовЗапись.ОбъемПамяти = ВыборкаПК.ОбъемПамяти;
    НовЗапись.ОбъемЖесткогоДиска = ВыборкаПК.ОбъемЖесткогоДиска;
    НовЗапись.ОперационнаяСистема = ВыборкаПК.ОперационнаяСистема;
    НовЗапись.ЛичноеПользование = ВыборкаПК.ЛичноеПользование;
    НовЗапись.Модернизация = ВыборкаПК.Модернизация;
    Набор.Записать();
    КонецЦикла;

    КонецЕсли;
```

Не создается необходимое КоличествоКопий в событии ПриЗаписи, только одна.
---
в данном случае никак. В РС не может быть несколько записей с одинаковыми измерениями. Именно по уникальности измерений и находятся записи.
Единственно, что можно предложить, это добавить еще одно измерение, скажем НомерКопии, тип Число.
И в цикле присваивать ему переменную н.
---
Набор = РегистрыСведений.КомпьютерыИОргтехника.СоздатьНаборЗаписей();
Набор .Отбор.Измерение.Установить(ЗначениеИзмерение);
 Набор.Прочитать();
---
Когда вы читаете() без отбора регистр сведений, то берутся все записи и заменяются на вашу одну, и так в цикле каждый раз.
---
в данном случае никак. В РС не может быть несколько записей с одинаковыми измерениями. Именно по уникальности измерений и находятся записи.
Единственно, что можно предложить, это добавить еще одно измерение, скажем НомерКопии, тип Число.
И в цикле присваивать ему переменную н.
---
Может следует проверить в регистре уникальность по измерениям. Возможно в регистре нет возможности создавать несколько записей, поэтому создается одна.
---
Огласите список измерений, возможно как описано в (2), получение набора без отбора, я бы вынес за пределы цикла или создавал бы менеджер записи
---
Измерения ОбъектОИС и Код
---
Ну раз в нет измерения номер копии, то запишется только 1 запись, что и есть в вашем случае. Добавляйте в измерение номер копии или откажитесть от идеи дублировать записи и пишите в реквизит или ресурс количество копий и тиражируйте уже при получении данных и выводе на печать
---
а отбор?

```1c
    Набор = РегистрыСведений.Наим.СоздатьНаборЗаписей();

    Набор.Отбор.Период.Установить(Период);

    Набор.Прочитать();
```
---
Переменная не определена (Период). Какое тут должно быть значение не понятно. Откуда брать этот период если запись в регистре еще не создана?
---
имя регистра
Набор = РегистрыСведений.КомпьютерыИОргтехника.СоздатьНаборЗаписей();
Набор .Отбор.Измерение.Установить(ЗначениеИзмерение);
Набор.Прочитать()
---
```1c
    РегистрСведений = РегистрыСведений.такойто.СоздатьНаборЗаписей();
    РегистрСведений.Отбор.ОбъектОИС .Установить(Выб.Объект);
    РегистрСведений.Отбор.Код.Установить(Выб.Код);
    РегистрСведений.Прочитать();
```
---
Автор, что вы хотите записать ? с одними измерениями и будет одна запись. Измерения на то и уникальны, что по ним выбирается одна запись. И замечание про отбор и прочитать верное, а то да затрете всё в регистре
---
Код уникален