Member 10423359 Ответов: 1

Динамическое описательное Программирование QTP в эмуляторе терминала ошибка


Привет,
Я пробовал описательное Программирование (DP) в QTP с помощью эмулятора терминала. Мой код работает, когда я кодирую свой скрипт в статике, но он терпит неудачу, когда я кодирую его в динамике. Он не может обнаружить поле в эмуляторе, даже если после создания фиктивного объекта и передачи его значений. Пожалуйста помочь.


Статическое описательное программирование (это работает):

TeWindow ("краткое имя:= A").TeScreen ("количество полей ввода:=5").TeField ("прикрепленный текст:=пользователь").Установить " пользователь"
TeWindow ("краткое имя:= A").TeScreen ("количество полей ввода:=5").TeField ("прикрепленный текст:=пароль").SetSecure " 528ecce84d9dac2ab9ac05806f4c"
TeWindow ("краткое имя:= A").TeScreen ("input field count:=5"). SendKey TE_ENTER


Динамическое описательное программирование (это не удается):

Set oTeWindow=описание.Создавать
oTeWindow ("micClass"). value= " TeWindow"
oTeWindow ("протокол"). value= " 5250"

Set oTeScreen=описание.Создавать
oTeScreen ("micClass"). value= " TeScreen"
oTeScreen ("input field count"). value= " 5"

Set oUsrEdit=описание.Создавать
oUsrEdit ("micClass"). value= " TeField"
oUsrEdit ("прикрепленный текст"). value= " пользователь"

Set oPwdEdit=описание.Создавать
oPwdEdit ("micClass"). value= " TeField"
oPwdEdit ("прикрепленный текст"). value= " пароль"

Тьюиндоу (oTeWindow).Тэкскрин (oTeScreen).Тефилд(oUsrEdit).Установить " пользователь"
Тьюиндоу (oTeWindow).Тэкскрин (oTeScreen).Тефилд (oPwdEdit).SetSecure " 528ecce84d9dac2ab9ac05806f4c"
Тьюиндоу (oTeWindow).Тэкскрин (oTeScreen).SendKey TE_ENTER

Сообщение об ошибке:
Не удается найти родительский объект "[TeField] "" [ TeWindow ] "(класс TeWindow). Убедитесь, что родительские свойства соответствуют объекту, отображаемому в данный момент в вашем приложении.
Строка (21): "Тьюиндоу(oTeWindow).Тэкскрин (oTeScreen).Тефилд(oUsrEdit).Установите "пользователь"".

1 Ответов

Рейтинг:
2

Member 13076402

Нашел решение для этого . Удалите значение свойства класса и попробуйте сделать это, как показано ниже.
Set oTeWindow=описание.Создавать
oTeWindow ("протокол"). value= " 5250"

Set oTeScreen=описание.Создавать
oTeScreen ("input field count"). value= " 5"

Set oUsrEdit=описание.Создавать
oUsrEdit ("прикрепленный текст"). value= " пользователь"

Set oPwdEdit=описание.Создавать
oPwdEdit ("прикрепленный текст"). value= " пароль"