p to k kommentar

        Dim objIssuesService As New CounterSoft.Gemini.WebServices.IssuesService

        Dim objSelectedIssue As CounterSoft.Gemini.Commons.Entity.IssueEN = CType(Me.cbIssue.SelectedItem, CounterSoft.Gemini.Commons.Entity.IssueEN)

 

 

        Dim issueComment As New IssueCommentEN

        With issueComment

            .IssueID = objSelectedIssue.IssueID

            .Comment = txttest.Text

            .ProjectID = objSelectedIssue.ProjectID

        End With

 

        issueComment = mobjServiceManager.IssuesService.CreateComment(issueComment.IssueID, issueComment)

        MessageBox.Show("Erfolg")