Связанные документы со связанными РКК

Опубликовано:
25 декабря 2018 в 14:26
  • 0

Получил на днях претензию от помощника делопроизводителя о том, что чтобы добраться до связанных документов связанной РКК, приходится нажимать на кнопку аж 4 раза. Ну, люди мы подневольные (всемогущие и готовые прийти на выручку) - сократил я это до 1 нажатия кнопки создав действие:

if Assigned(Object.Requisites("LongString").Value)
  AddWhereTemplate = '(%0:s.%1:s = %2:s or %0:s.%3:s = %2:s)'
  CurrentRRCID = Object.SYSREQ_ID                        
  RRCLinksReference = CreateReference('СРК')
  AddWhereSourceRRCID = Format(AddWhereTemplate; ArrayOf(RRCLinksReference.TableName;
    RRCLinksReference.Requisites('РКК').SQLFieldName; CurrentRRCID; RRCLinksReference.Requisites('РКК2').SQLFieldName))
  AddWhereID = RRCLinksReference.AddWhere(AddWhereSourceRRCID)
  RRCLinksReference.Open 
  LinksChanged = TRUE
  if not RRCLinksReference.EOF
      foreach Ref in RRCLinksReference
          Связь = References.СРК.GetObjectByID(Ref.ID)
          Исходящая = References.РКК.GetObjectByCode(Связь.Requisites("РКК").AsString)
          Входящая = References.РКК.GetObjectByCode(Связь.Requisites("РКК2").AsString)
          BoundEDocumentsSearchDescr = Searches.Load("BOUND_EDOCUMENT_SEARCH")
          if Object.Requisites("ПризнакДок").AsString == 'Входящий'
            BoundEDocumentsSearchDescr.InitializeSearch(Исходящая.Info)
          else
            BoundEDocumentsSearchDescr.InitializeSearch(Входящая.Info)
          endif
          Searches.Show(BoundEDocumentsSearchDescr) 
      endforeach
    endif
else
MessageBox("ВНИМАНИЕ!";"Нет связанных РКК!")
endif

Далее, это действие было помещено на карточки Исходящих и Входящих РКК рядом с кнопкой "Связи РКК":

Собственно, краткость - сестра таланта. на этом все. Может кому-то это и пригодится.

5
Подписаться

Комментарии

Пока комментариев нет
Авторизуйтесь, чтобы написать комментарий