Когда я вызываю веб-сервис, я указываю 3 обязательных параметра для QTP, а затем параметры для самого веб-сервиса. Это работает каждый раз (кроме тех случаев, когда веб-сервис не работает)
Вот пример этого:
'=============================================================================
' Define WebService
qtpP1 = "wsdl:=http://172.16.69.84:8080/testframeworkwebapp/services/STFSQLExecutionService?WSDL"
' Define service & port
qtpP2 = "service:=GenericSQLExecutorService"
qtpP3= "port:=STFSQLExecutionService"
' Define Webservice calling parameters
wsP1 = "Select Count(*) From PERSON_TABLE"
'====================================================================
' Call to the WebService
executeSQLByDBName = WebService(qtpP1, qtpP2, qtpP3).executeSQLByDBName(wsP1)
If WebService(qtpP1, qtpP2, qtpP3).GetLastError > "" Then
MsgBox "WebService Issue"
Else
MsgBox "WebServices Call Worked OK"
End If
'====================================================================