QTP, доступ к полю QC по метке - PullRequest
Новая
       27

QTP, доступ к полю QC по метке

5 голосов
/ 23 июня 2010

Я хочу обновить пользовательское поле в КК, используя метку поля вместо имени

В данный момент мы делаем это следующим образом 

Set currentRun = QCUtil.CurrentRun
currentRun.Field("RN_USER_03") = 1
currentRun.Post

Но я бы хотелсделать это таким образом 

Set currentRun = QCUtil.CurrentRun
currentRun.Field("Data Rows Passed") = 4
currentRun.Post

Но я не могу найти способ сделать это.Есть идеи?

Ответы [ 2 ]

1 голос
/ 17 февраля 2016

Посмотрите на это: 

Dim gFieldLabelToNameDICT: Set gFieldLabelToNameDICT = CreateObject("Scripting.Dictionary")
gFieldLabelToNameDICT.CompareMode = vbTextCompare

Function GetNameOfLabel (strFieldLabel)
    ' If it doesn't exist yet in fieldLabelToName dict -> search it using TDC and add it to the list to improve performance
    If Not gFieldLabelToNameDICT.Exists(strFieldLabel) Then
        Dim testSetFields As List

        Dim testSetFields: Set testSetFields = QCUtil.QCConnection.Customization.Fields.Fields("RUN")
        For Each aField in testSetFields
            If aField.UserLabel = strFieldLabel Then
                gFieldLabelToNameDICT.Item(strFieldLabel) = aField.ColumnName
            End If
        Next aField
    End If

    GetNameOfLabel = gFieldLabelToNameDICT.Item(strFieldLabel)
End Function

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

1 голос
/ 27 октября 2010

Подразумевается, что все ярлыки уникальны (в чем я сомневаюсь ..):

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

Предположим, что функция будет называться «GetNameOfLabel», тогда код вызывающей стороны будет выглядеть так: 

Set currentRun = QCUtil.CurrentRun 
currentRun.Field(GetNameOfLabel ("Data Rows Passed")) = 1 
currentRun.Post

Конечно, функция на самом деле не будет тривиальной, но достаточно простой после некоторого поиска в модели данных QC и поиска эффективного способа извлечь имя из БД через SQL.

Или, функция может искать имя в массиве или словаре, тогда вам придется поддерживать этот словарь, но вам не нужно будет обращаться к базе данных для каждого поиска.

Disadventages:

  • Сценарии с неправильной меткой могут быть сложнее отладить
  • Если ярлыки не уникальны, отладка может быть очень интересной

Если посмотреть на БД:

  • Все сценарии замедляются, если вы не кэшируете или не загружаете предварительно результаты SQL-запросов для этих поисков;
  • сложность, так как вам нужно правильно выполнить запрос SQL, и вы весьма своеобразно зависите от модели данных QC (обычно это ужас при обновлении)

При поиске в массиве или словаре:

  • Вы должны либо поддерживать его инициализацию (держите пари, что другие администраторы, добавившие поле cust, легко это забудут), либо должны «загрузить» его из таблицы QC (что немного похоже на решение SQL выше и имеет те же недостатки) .

Я бы пошел с массивом / dictionary-initialized-from-db-idea. Или, если вы можете жить с постоянной представленной идеей, это хорошая ставка. Учитывая, что в сценариях настройки QC отсутствует независимая от сеанса область действия, идея доступа к SQL может действительно снизить производительность, поскольку ее придется выполнять для каждого нового пользовательского сеанса. Вот почему я тоже добавил +1 к постоянной идее.

...