Hier einmal der Rumpf eines Web Services "wsTicket"
Funktionen:
-- CreateTicket ( strUser As String, strProblem As String ) As Integer
-- CloseTicket ( strTicket As String ) As Integer
-- AssignTicket ( strTicket As String, strAssignTo As String ) As Integer
-- GetAllTicketsBySupporter ( strSupporter As String ) As Variant
Das CreateTicket funktioniert schon einmal soweit
; die anderen Funktionen beinhalten ein einfaches ERRHANDLE, aber noch keinen Funktionscode.
Bei GetAllTicketsBySupporter stehe ich ein wenig auf dem Schlauch; in LS würde ich eine NotesDocumentCollection zurückgeben; das funktioniert aber bei einem web service nicht.
Was noch fehlt ist das Abrufen eines bestimmten Tickets, und damit verbunden auch das Suchen nach einem Ticket ...
%REM
#####################################################
INCLUDES
#####################################################
%END REM
%INCLUDE "lsxsd.lss"
%REM
#####################################################
CONSTANTS
#####################################################
%END REM
Private Const CREATE_TICKET_FORM = "BugReport"
Private Const CREATE_TICKET_INITIAL_STATUS = "0"
Private Const CREATE_TICKET_VIA_WEBSERVICE = 1
Private Const CREATE_TICKET_ERR_NOERROR = 0
Private Const CREATE_TICKET_ERR_MISC_ERROR = 1
Private Const CREATE_TICKET_ERR_MANDANTORY = 2
Private Const ASSIGN_TICKET_ERR_NOERROR = 0
Private Const ASSIGN_TICKET_ERR_MISC_ERROR = 1
Private Const ASSIGN_TICKET_ERR_MANDANTORY = 2
Private Const CLOSE_TICKET_ERR_NOERROR = 0
Private Const CLOSE_TICKET_ERR_MISC_ERROR = 1
Private Const CLOSE_TICKET_ERR_MANDANTORY = 2
Private Const GET_TICKET_ERR_NOERROR = 0
Private Const GET_TICKET_ERR_MISC_ERROR = 1
Private Const GET_TICKET_ERR_MANDANTORY = 2
%REM
#####################################################
VARIABLES
#####################################################
%END REM
Private s As NotesSession
Private db As NotesDatabase
Private success As Variant
%REM
#####################################################
WEBSERVICE
#####################################################
%END REM
Class wsTicket
%REM
#####################################################
Public Sub New
#####################################################
%END REM
Public Sub New
' initialize some stuff
Set s = New NotesSession()
Set db = s.currentDatabase
End Sub
%REM
#####################################################
Public Function CreateTicket ( strUser As String, strProblem As String ) As Integer
#####################################################
%END REM
Public Function CreateTicket ( strUser As String, strProblem As String ) As Integer
CreateTicket = CREATE_TICKET_ERR_NOERROR
On Error Goto ERRHANDLE
If Trim(strUser) = "" Or Trim(strProblem) = "" Then
CreateTicket = CREATE_TICKET_ERR_MANDANTORY ' mandantory fields
Exit Function ' nothing else to do, get outa here !
Else
Dim doc As NotesDocument
Dim dateTime As New NotesDateTime( "" )
Call dateTime.SetNow
Set doc = db.CreateDocument
doc.Form = CREATE_TICKET_FORM
doc.User = strUser
doc.Problem = strProblem
doc.Status = CREATE_TICKET_INITIAL_STATUS ' new Ticket, unassigned
doc.Webservice = CREATE_TICKET_VIA_WEBSERVICE
doc.DateCreated = Cstr(dateTime.DateOnly)
doc.TimeCreated = Cstr(dateTime.TimeOnly)
success = doc.ComputeWithForm( False, False )
Call doc.Save (True,True)
End If
EXITPOINT:
Exit Function
ERRHANDLE:
CreateTicket = CREATE_TICKET_ERR_MISC_ERROR
Resume EXITPOINT
End Function
%REM
#####################################################
Public GetAllTicketsBySupporter ( strSupporter As String ) As Variant
#####################################################
%END REM
Public Function GetAllTicketsBySupporter ( strSupporter As String ) As Variant
On Error Goto ERRHANDLE
GetAllTicketsBySupporter = GET_TICKET_ERR_NOERROR
If Trim(strSupporter) = "" Then
GetAllTicketsBySupporter = GET_TICKET_ERR_MANDANTORY ' mandantory fields
Exit Function ' nothing else to do, get outa here !
Else
' Your Code goes here
End If
EXITPOINT:
Exit Function
ERRHANDLE:
GetAllTicketsBySupporter = GET_TICKET_ERR_MISC_ERROR
Resume EXITPOINT
End Function
%REM
#####################################################
Public Function AssignTicket (strTicket As String, strAssignTo As String) As Integer
#####################################################
%END REM
Public Function AssignTicket (strTicket As String, strAssignTo As String) As Integer
On Error Goto ERRHANDLE
AssignTicket = ASSIGN_TICKET_ERR_NOERROR
If Trim(strTicket) = "" Or Trim(strAssignTo) = "" Then
AssignTicket = ASSIGN_TICKET_ERR_MANDANTORY 'mandantory fields
Exit Function ' nothing else to do, get outa here !
Else
' Your Code goes here
End If
EXITPOINT:
Exit Function
ERRHANDLE:
AssignTicket = ASSIGN_TICKET_ERR_MISC_ERROR
Resume EXITPOINT
End Function
%REM
#####################################################
Public Function CloseTicket ( strTicket As String ) As Integer
#####################################################
%END REM
Public Function CloseTicket ( strTicket As String ) As Integer
On Error Goto ERRHANDLE
CloseTicket = CLOSE_TICKET_ERR_NOERROR
If Trim(strTicket) = "" Then
CloseTicket = CLOSE_TICKET_ERR_MANDANTORY 'mandantory fields
Exit Function ' nothing else to do, get outa here !
Else
' Your Code goes here
End If
EXITPOINT:
Exit Function
ERRHANDLE:
CloseTicket = CLOSE_TICKET_ERR_MISC_ERROR
Resume EXITPOINT
End Function
End Class
