Fehler gefunden,
die durch Notes8 importierte URL wahr falsch, diese muss komplett eingetragen werden.
Hier der richtige Code:
%INCLUDE "lsxsd.lss"
Class GetSubject As PortTypeBase
Sub NEW
Call Service.Initialize ("UrnDefaultNamespaceGetSubjectService", _
"GetSubjectService.Domino", "http://192.168.1.34/DataShare/Dev/webServices.nsf/getSubject?openWebService", _
"GetSubject")
End Sub
Function GETNTHSUBJECT(DBNAME As String, VIEW As String, N As Long, FIELD As String) As String
Let GETNTHSUBJECT = Service.Invoke("GETNTHSUBJECT", DBNAME, VIEW, N, FIELD)
End Function
End Class
nach dem Notes-Import stand nur http://192.168.1.34 als URL-Referenz drin.
bubble