Полезные мелочи при работе с карточками ч.5 (Пересохраним записи справочника)

Бывают в нашей работе ситуации, когда мы добавляем в уже имеющийся справочник новый реквизит, который начинает включаться в список с каждым новым элементом, но вот беда - старые все остаются без него. Предлагаю универсальное решение - пересохранение справочника по выбранным записям.

С чего у нас начинается работа? С определения справочника, который надо пересохранить и новый реквизит в нем (хотя, если вы поставили его на автозаполнение при сохранении, даже это можно опустить). Итак, здесь нет ничего сложного:

1. Создаем новый Сценарий:

Не важно, как мы его назовем, главное, чтобы потом было несложно его найти. На моем примере рассматривается справочник Вида Электронных Документов, куда был добавлен новый параметр "TabStr", который превращает в строку внесенные в таблицу записи.

2. Занесем в Текст Код:

Ref = CreateReference('ВЭД')   // Указываем нужный нам справочник
  // Создать предтставление
  View = Ref.CreateView('Главное')  // или иное, если вам это требуется
  // Окрыть справочник на выбор
  View.ViewMode =  vmSelect 
  // Разрешить множественный выбор
  View.MultiSelection = TRUE
  View.MainForm.Show
  // Если выбрали записи, то получить ИД выбранных значений
  if View.MainForm.Result = mrOK
    RecCount = View.SelectedRecordCount 
    Index = 0
    
    Progress = CreateProgress(''; RecCount)
    Progress.Show

    while Index < RecCount 
      ЗаписьВЭД = References.ВЭД.GetObjectByID(View.SelectedRecordsID(Index))
      
      ЗаписьВЭД.SYSREQ_NAME = ЗаписьВЭД.SYSREQ_NAME  // Это главное - переприсвоения имени достаточно чтобы пересохранить запись
      
// ниже идет блок работы с моей переменной "TabStr", то, ради чего я это вообще делаю
      Perem = ''
      foreach Str in ЗаписьВЭД.DetailDataSet(2)
        Perem = AddSubString(Str.Requisites('ТипЭлДокТ2').DisplayText; Perem; '; ')
      endforeach
  
      if Assigned(Perem)
        ЗаписьВЭД.Requisites("TabStr").Value = Perem
      endif
// Выше идет блок работы с моей переменной "TabStr", то, ради чего я это вообще делаю

      ЗаписьВЭД.Save
      ЗаписьВЭД = nil
      
      Index = Index + 1  
      Progress.Next 
    endwhile          
    Progress.Hide
  endif

Вот собственно и все. Здесь есть все необходимое мне для пересохранения записей справочника. Но если ваш реквизит сохраняется автоматически без видимых пользователю операций, то можно все упростить:

Ref = CreateReference('ВЭД')       // Указываем справочник
  View = Ref.CreateView('Главное')
  View.ViewMode =  vmSelect 
  View.MultiSelection = TRUE
  View.MainForm.Show
  if View.MainForm.Result = mrOK
    RecCount = View.SelectedRecordCount 
    Index = 0
    Progress = CreateProgress(''; RecCount)
    Progress.Show
    while Index < RecCount 
      ЗаписьВЭД = References.ВЭД.GetObjectByID(View.SelectedRecordsID(Index))   
      ЗаписьВЭД.SYSREQ_NAME = ЗаписьВЭД.SYSREQ_NAME 
      ЗаписьВЭД.Save
      ЗаписьВЭД = nil
      Index = Index + 1  
      Progress.Next 
    endwhile          
    Progress.Hide
  endif

Как мы видим - ничего сложного. Теперь проверим работу скрипта:

Выделяем нужные нам записи или вообще все и жмем "Выбрать"

Пара секунды на выбранные элементы справочника и все готово - выбранные записи были пересохранены.

P.S.: Конечно, если вам надо пересохранить несколько десятков тысяч таких записей, время на это будет потрачено куда больше, так же как и пересохранение записей, в которых очень много вычислений после сохранения. В таких случаях лучше создавать скрипт с использованием SQL-сценария, но это уже другая статья... 

У меня все. Всем удачного дня!