Exemplo
Continuando com o uso do excel nas demonstrações, veja abaixo um exemplo, em excel, que permite o acesso à Atendentes e Solicitantes, de forma integrada:
O primeiro quadro aciona macro: AcessaQualitor(). O segundo quadro, por sua vez aciona macro: AcessaQualitorSolicitante().
Sub AcessaQualitor ( )
‘ Declara variáveis
Dim wsConn As New SoapClient30
Dim wsRetorno As String
Dim wsAuth As String
Dim wsXML As String
Dim wsToken As String
‘ Inicializa o SOAP acessando o WSDL
wsConn.MSSoapInit ““http://ncxs003/6.00.00/ws/services/General/WSGeneral.wsdl”
‘ Realiza o Login
wsAuth = wsConn.Login(“conexao ws”, “123”, “1”)
‘ Este exemplo irá buscar um Token de autenticação, para o usário “adair_fernandes” na empresa 1.
wsXML = “”
wsXML = wsXML & “<?xml version=””1.0”” enconding=””ISO-8859-1””?>”
wsXML = wsXML & “<wsqualitor>”
wsXML = wsXML & “<contents>”
wsXML = wsXML & “ <data>”
wsXML = wsXML & “ <nmusuario>” & ActiveSheet.Cells(3,4). Value & “</nmusuario>”
wsXML = wsXML & “ <cdempresa> & ActiveSheet.Cells(3,4). Value & “</cdempresa>”
wsXML = wsXML & “ </data>”
wsXML = wsXML & “</contents>”
wsXML = wsXML & “</wsqualitor>”
‘ Busca Token de autenticação
wsRetorno = wsConn.GetAuthToken(wsAuth, wsXML)
If Mid(wsRetorno, Instr(1, wsRetorno, “<status>”) +8, 1) = “1” Then
‘ Se houve sucesso na operação, separa o token do retorno:
wsToken = Mid(wsRetorno, InStr(1, wsRetorno, ”<token>”) +7, Len(wsRetorno) -
54 - InStr(1, wsRetorno, “<token>”)
‘ Aciona a URL do Qualitor
ShellExecute 0, “open”, ““http://ncxs003/6.00.00/login.php?authws=” & wsToken,
vbNullString, vbNullString, 3
Else
MsgBox wsRetorno, vbCritical, “Qualitor Integration Services”
End If