Hello all
I have created an agent to “comsume” a webservice, but i keep getting type mismatch, what do i need to pass over to ,
Maybe i am missing the point or i am not passing the correct value / data type to the class(GetDCRCasesByCompleteDate)?
Thanks
AGENT >>>>
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim composed As String
Dim PCADATE As New NotesDateTime("")
PCADATE.LocalTime = Now
Dim msg As String, endpoint As String
Dim port As New CaseSyncroniserSoap_n3
endpoint = "http://pcatest/webservice/CaseSyncroniser.asmx?openwebservice"
Call port.SetEndpoint( endpoint )
'Call port.SetCredentials(username, password )
Dim BkData As String
This is where the problem is, it says type mismatch on GetDCRCasesByCompleteDate
Set BkData = port.GetDCRCasesByCompleteDate("2009-08-10")
here is my class ( web service )
%INCLUDE “lsxsd.lss”
Class GetDCRCasesByCompleteDateResponse_Ge_n3 As XSD_ANYTYPE
Public any As NotesDOMElementNode
Sub NEW
End Sub
End Class
Const n3 = “http://tempuri.org/”
Class CaseSyncroniserSoap_n3 As PortTypeBase
Sub NEW
Call Service.Initialize ("HttpTempuriOrgCaseSyncroniser", _
"CaseSyncroniser.CaseSyncroniserSoap", "http://pcatest/webservice/CaseSyncroniser.asmx", _
"CaseSyncroniserSoap_n3")
End Sub
Function GetDCRCasesByCompleteDate(DateUpdated As XSD_DATETIME) As GetDCRCasesByCompleteDateResponse_Ge_n3
Set GetDCRCasesByCompleteDate = Service.Invoke("GetDCRCasesByCompleteDate", DateUpdated)
End Function
End Class