Help Application demo at Lotusphere

Lotus Notes / Domino Sonstiges > Help-Desk Applikation !!Help!!

<< < (6/34) > >>

flaite:
Ok. War mein Fehler. Hab im Webservices die Objekte zwar initialisiert, aber die Werte nicht gesetzt.

--- Code: ---<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
<soapenv:Body>
<ns1:GETALLLANDSResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="urn:DefaultNamespace"><GETALLLANDSReturn xsi:type="ns1:LANDCOLWRAPPER"><ALLLANDINST xsi:type="soapenc:Array" soapenc:arrayType="ns1:LANDINST[2]"><item xsi:type="ns1:LANDINST"><ANAME xsi:type="xsd:string">Chile</ANAME><HAUPTSTADT xsi:type="xsd:string">Santiago</HAUPTSTADT></item><item xsi:type="ns1:LANDINST"><ANAME xsi:type="xsd:string">Deutschland</ANAME><HAUPTSTADT xsi:type="xsd:string">Berlin</HAUPTSTADT></item></ALLLANDINST></GETALLLANDSReturn></ns1:GETALLLANDSResponse>
</soapenv:Body>
</soapenv:Envelope><soapenv:Envelope xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soapenv:Body>
<ns1:GETALLLANDSResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="urn:DefaultNamespace">
<GETALLLANDSReturn xsi:type="ns1:LANDCOLWRAPPER">
<ALLLANDINST soapenc:arrayType="ns1:LANDINST[2]" xsi:type="soapenc:Array">
<item xsi:type="ns1:LANDINST">
<ANAME xsi:type="xsd:string">Chile</ANAME>
<HAUPTSTADT xsi:type="xsd:string">Santiago</HAUPTSTADT>
</item>
<item xsi:type="ns1:LANDINST">
<ANAME xsi:type="xsd:string">Deutschland</ANAME>
<HAUPTSTADT xsi:type="xsd:string">Berlin</HAUPTSTADT>
</item>
</ALLLANDINST>
</GETALLLANDSReturn>
</ns1:GETALLLANDSResponse>
</soapenv:Body>
</soapenv:Envelope><?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
<soapenv:Body>
<ns1:GETALLLANDSResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="urn:DefaultNamespace"><GETALLLANDSReturn xsi:type="ns1:LANDCOLWRAPPER"><ALLLANDINST xsi:type="soapenc:Array" soapenc:arrayType="ns1:LANDINST[2]"><item xsi:type="ns1:LANDINST"><ANAME xsi:type="xsd:string">Chile</ANAME><HAUPTSTADT xsi:type="xsd:string">Santiago</HAUPTSTADT></item><item xsi:type="ns1:LANDINST"><ANAME xsi:type="xsd:string">Deutschland</ANAME><HAUPTSTADT xsi:type="xsd:string">Berlin</HAUPTSTADT></item></ALLLANDINST></GETALLLANDSReturn></ns1:GETALLLANDSResponse>
</soapenv:Body>
</soapenv:Envelope>

--- Ende Code ---

Ich werd den Land Webservices entsprechend übersichtlich updaten und an den Thread im 7er Forum hängen.

Ich denke, die können mit ihrem Tool etwas damit anfangen.
Kann aber z.B. für die !!!Help!!!-Webservices auch einen Swing Client schreiben.
Hab das auch durch Eclipse gejagt und mit den erzeugten Klassen kann man schon arbeiten.

Gruß Axel

eknori (retired):
Genau, so muss das aussehen. Ich werde das jetzt mal für HELP umsetzen. Wollte eigentlich schon früher damit anfangen, aber heute wollte ich "mal eben" ein Update unserer Firewalls machen ... na ja, "mal eben" halt ...

eknori (retired):
Ich habe die Erkenntnisse jetzt einmal in HELP eingebaut:
Die Funktion GetAllTicketsBySupporter sieht dann so aus

Class TicketCollection
   Public Tickets() As Ticket
   Public TicketCount As Integer
End Class

Class Ticket
   Public User As String
   Public TicketNumber As String
   Public Problem As String
End Class

%REM
#####################################################
Public Function GetAllTicketsBySupporter ( ) As Variant
#####################################################
%END REM
   Public Function GetAllTicketsBySupporter ( strSupporter As String, status As String ) As TicketCollection

      On Error Goto ERRHANDLE
      ' open, progress, closed, on hold, empty string or all
      If status = "" Or Ucase(status) = "ALL" Then
         status = "ALL"
      End If

      Select Case Ucase(status) ' evaluate status

      Case "OPEN"
         SearchFormula =_
         |@UpperCase(Form) ="BUGREPORT" & @UpperCase(@Name([CN];supporter)) ="|_
         & Ucase(CommonNameString (strSupporter )) & |"|

      Case "CLOSED"
         SearchFormula =_
         |@UpperCase(Form) ="BUGREPORT" & @UpperCase(@Name([CN];supporter)) ="|_
         & Ucase(CommonNameString (strSupporter )) & |"|

      Case "PROGRESS"
         SearchFormula =_
         |@UpperCase(Form) ="BUGREPORT" & @UpperCase(@Name([CN];supporter)) ="|_
         & Ucase(CommonNameString (strSupporter )) & |"|

      Case "ON HOLD"
         SearchFormula =_
         |@UpperCase(Form) ="BUGREPORT" & @UpperCase(@Name([CN];supporter)) ="|_
         & Ucase(CommonNameString (strSupporter )) & |"|

      Case "ALL"
         SearchFormula =_
         |@UpperCase(Form) ="BUGREPORT" & @UpperCase(@Name([CN];supporter)) ="|_
         & Ucase(CommonNameString (strSupporter )) & |"|

      Case Else

      End Select

      Dim dateTime As New NotesDateTime(_
      Cstr(Datenumber(2000, 5, 1)))

      Set col = db.Search( SearchFormula, dateTime,0)
      count = col.count
      Set GetAllTicketsBySupporter = New TicketCollection
      GetAllTicketsBySupporter.TicketCount = count

      If (count = 0) Then
         Redim GetAllTicketsBySupporter.Tickets(count)
      Else
         Redim GetAllTicketsBySupporter.Tickets(count - 1)
      End If

      If Trim(strSupporter) = "" Or count = 0 Then
         Exit Function ' nothing else to do, get outa here !
      Else

         i = 0
         Set doc = col.GetFirstDocument
         Do Until (doc Is Nothing)

            Set TicketValues = New Ticket
            TicketValues.User = CommonNameString(getItemValue ("user"))
            TicketValues.TicketNumber = getItemValue ("ReqNumber")
            TicketValues.Problem = getItemValue ("problem")

            Set GetAllTicketsBySupporter.Tickets(i) = TicketValues
            i = i +1
            Set doc = col.GetNextDocument(doc)
         Loop

      End If

EXITPOINT:
      Exit Function
ERRHANDLE:
      Resume EXITPOINT

   End Function

eknori (retired):
Ich habe den Code mal an die "Brombeeren" bei RIM geschickt; Testen in Eclipse oder der SoapGUI ist ja ganz nett, ich würde aber gerne auch wissen, ob die mit dem Zeugs was anfangen können.

eknori (retired):

--- Zitat ---Kann aber z.B. für die !!!Help!!!-Webservices auch einen Swing Client schreiben.
--- Ende Zitat ---

Möglicherweise wäre das was für den OpenNTF booth.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete

Zur normalen Ansicht wechseln