Web Services SDK secLDAP

Question

We are converting from the Enterprise SDK to the Web Services SDK and I am having problem with the following snippet of code.  We use something similar to force an LDAP update in the enterprise SDK
                GetOptions opts = new GetOptions();
                opts.IncludeSecurity = false;
                //build and run the query to get the LDAP refresh time
                string query = "query://{SELECT TOP 1 * FROM CI_SYSTEMOBJECTS WHERE SI_NAME = 'secLDAP'}";
                ResponseHolder boResponseHolder = boBIPlatform.Get(query, opts);
                if (boResponseHolder != null && boResponseHolder.InfoObjects != null && boResponseHolder.InfoObjects.InfoObject != null)
                    BusinessObjects.DSWS.BIPlatform.Auth.secLDAP test = boResponseHolder.InfoObjects.InfoObject[0] as BusinessObjects.DSWS.BIPlatform.Auth.secLDAP;
                    //set LDAP refresh time to now
                    boResponseHolder.InfoObjects.InfoObject[0].UpdateTime = DateTime.Now;
                    boBIPlatform.Update(boResponseHolder.InfoObjects);
I have 2 problems with it:
1)   BusinessObjects.DSWS.BIPlatform.Auth.secLDAP test = boResponseHolder.InfoObjects.InfoObject[0] as BusinessObjects.DSWS.BIPlatform.Auth.secLDAP;
results in "test" being null even though InfoObject[0] is there.  It shows as Desktop.GenericInfoObject when debugging.  what is wrong with how I am getting the object and casting?
2)  boBIPlatform.Update throws an exception:
An XSD Exception occurred. Import file parsing exception occurred : 'The prefix "io" for element "io:InfoObjects" is not bound.' (FWM 04009) (WBP 42029)

Answer 1

Hello, Bob;
I tested this this morning on my Business Objects Enterprise XI R3.1 system and had no errors. LDAP updated.
Here is my code in case you can see any differences:
Imports BusinessObjects.DSWS
Imports BusinessObjects.DSWS.BIPlatform
Imports BusinessObjects.DSWS.BIPlatform.Constants
Imports BusinessObjects.DSWS.BIPlatform.Desktop
Imports BusinessObjects.DSWS.BIPlatform.GetOptions
Imports BusinessObjects.DSWS.ReportEngine
Imports BusinessObjects.DSWS.Session
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Partial Class _Default
    Inherits System.Web.UI.Page
    ' Modify the variables here to reflect the environment
    ' CMS-specific parameters
    Private CMS_USER As String = "Admin1"
    Private CMS_USER_PASSWORD As String = "uid" 'String.Empty
    Private CMS_CLUSTER_NAME As String = "sap-v5hyxcb8pbf" 'String.Empty
    Private CMS_AUTHENTICATION As String = String.Empty
    ' Web Services URLs
    Private WS_BASE_URL As String = "http://localhost:8080/dswsbobje/services/"
    'NOTE:  The following variables are case sensitive
    '       Lower case for Axis 1.1 (BOE XI R2)
    Private WS_URL_SESSION As String = WS_BASE_URL + "session"
    Private WS_URL_REPORTENGINE As String = WS_BASE_URL + "reportengine"
    Private WS_URL_BIPLATFORM As String = WS_BASE_URL + "biplatform"
    ' Name of the report to be viewed
    Private REPORT_NAME As String = "Test2_StoredProc.rpt"
    'Database Logon properties
    Private USER_NAME As String = "user"
    Private USER_PASSWORD As String = "password"
    Private bipService As BIPlatform
    Private boRepEng As ReportEngine
    Private wSession As Session
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        ConfigureCrystalReports()
    End Sub
    Private Sub ConfigureCrystalReports()
        ' The following sample code demonstrates how to view a report using the Web Services BIPlatform and \
        ' Report Engine services.
        ' Just running the following code will enable you to view a simple report with no additional options.
        ' Include the commented blocks of code to view reports with different viewing options:
        ' - View a report in PDF format
        ' - View a report with database logon information
        ' - View a report with discrete parameters
        ' Note: You may have to change some parts of the code to make the special viewing options work.
        Logon()
        ViewReport()
    End Sub
    Private Sub Logon()
        Dim wSession As BusinessObjects.DSWS.Session.Session
        Try
            Dim boConnection As BusinessObjects.DSWS.Connection = New BusinessObjects.DSWS.Connection(WS_URL_SESSION)
            ' login to BusinessObjects Enterprise using web services
            Console.WriteLine("Logging into web service..." + WS_URL_SESSION)
            Dim credential As New EnterpriseCredential
            credential.Login = CMS_USER
            credential.Password = CMS_USER_PASSWORD
            credential.Domain = CMS_CLUSTER_NAME
            credential.AuthType = CMS_AUTHENTICATION
            wSession = New BusinessObjects.DSWS.Session.Session(boConnection)
            wSession.Login(credential)
            Console.WriteLine("Logged into web service.")
            boConnection.URL = WS_URL_BIPLATFORM
            bipService = New BIPlatform(boConnection, wSession.ConnectionState)
            boConnection.URL = WS_URL_REPORTENGINE
            boRepEng = New ReportEngine(boConnection, wSession.ConnectionState)
            Session("Platform") = bipService
            Session("ReportEngine") = boRepEng
        Catch ex As DSWSException
            Console.Error.WriteLine(ex)
            Console.Error.WriteLine(ex.CauseDetail)
            Throw
        End Try
    End Sub
    Private Sub ViewReport()
        Try
            'Get PageInfo
            Dim boGetOptions As New GetOptions
            boGetOptions = New GetOptions
            boGetOptions.IncludeSecurity = True
            'Dim query As String = "path://InfoObjects/Root Folder/**/" + REPORT_NAME
            Dim query As String = "query://{Select TOP 1 * FROM CI_SYSTEMOBJECTS WHERE SI_NAME = 'secLDAP'}"
            Dim reportRH As ResponseHolder = bipService.Get(query, boGetOptions)
            Dim boReports As InfoObjects = reportRH.InfoObjects
            If (Nothing Is boReports) Then
                Return
            End If
            Dim repID As String = boReports.InfoObject(0).CUID
            Response.Write("RepID " + repID.ToString)
            Dim testLDAP As BusinessObjects.DSWS.BIPlatform.Auth.secLDAP
            testLDAP = boReports.InfoObject(0)
            Response.Write("   CUID: " + testLDAP.CUID.ToString)
            testLDAP.UpdateTime = DateTime.Now
            bipService.Update(reportRH.InfoObjects)
            Response.Write("<BR> LDAP updated <BR>")
        Catch ex As DSWSException
            Console.Error.WriteLine(ex)
            Console.Error.WriteLine(ex.CauseDetail)
            Throw
        Finally
            If Not wSession Is Nothing Then
                wSession.Logout()
            End If
            Console.Write("Press the [ENTER] key to terminate program.")
        End Try
    End Sub
End Class
Where do you have your BusinessObjects.DSWS .dlls?
If you right click on "BusinessObjects.DSWS.dll" and go to Properties and the version tab, what is the full File version?
I am having someone test this with version 3.0 today as I do not have that version setup.
Elaine
Edited by: Ludek Uher on Mar 20, 2009 12:29 PM