Re: Trouble with using AR System .NET API version 1.2.1761.15495

Mon, 07 Aug 2006 09:02:33 -0700

Title: Trouble with using AR System .NET API version 1.2.1761.15495
**
Not sure if this will come through but here is the code.

Thanks
Peter Lammey
ESPN MIT Technical Services & Applications Management
860-766-4761

 

From: Action Request System discussion list(ARSList) [mailto:[EMAIL PROTECTED] On Behalf Of Houldcroft, Darren
Sent: Monday, August 07, 2006 11:37 AM
To: arslist@ARSLIST.ORG
Subject: Re: Trouble with using AR System .NET API version 1.2.1761.15495

**
Hi Peter,
 
Are you able to post the section of code? - I've not had this problem before.
 
Rgds,
 
Darren Houldcroft
 
LogicaCMG - Remedy TA
250 Brook Drive,
Green Park,
Reading,
RG2 6UA
T: +44 (0) 118 9650 453
M: +44 (0) 7968 475 015
E: [EMAIL PROTECTED]
W: http://www.logicacmg.com
 

From: Action Request System discussion list(ARSList) [mailto:[EMAIL PROTECTED] On Behalf Of Lammey, Peter A.
Sent: 07 August 2006 16:26
To: arslist@ARSLIST.ORG
Subject: Trouble with using AR System .NET API version 1.2.1761.15495

**

I have been working with a development team to setup a separate application that will pull and push data to our Remedy system via the .NET API that is provided from the Community Download area on the Supportweb.

For some odd reason, the program they setup can only pull data on some of the fields against the forms they are pulling data from which is the SHR:Company, SHR:Categorization, and AST:ASTOuterJoinASTPeople forms that are provided and are basically the out of box forms from ITSM 5.6.

For example, on SHR:Company the API can pull data from Company Name but cant pull the Company ID or Company Type.
The ID they are using has all the right permissions and all the fields they are looking to pull data from has even Public view permissions.

I was even able to login with the Remedy ID they are using and see all the fields with data.

Our server is version is 6.3 patch 16 on a Windows 2003 server.
Our database is Oracle 9.2.0.4.

Any ideas are welcome since I have no clue at this point where to go from here.

Thanks
Peter Lammey
ESPN MIT Technical Services & Applications Management
860-766-4761

__20060125_______________________This posting was submitted with HTML in it___

This e-mail and any attachment is for authorised use by the intended recipient(s) only. It may contain proprietary material, confidential information and/or be subject to legal privilege. It should not be copied, disclosed to, retained or used by, any other party. If you are not an intended recipient then please promptly delete this e-mail and any attachment and all copies and inform the sender. Thank you.

__20060125_______________________This posting was submitted with HTML in it___ __20060125_______________________This posting was submitted with HTML in it___ 
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data.SqlClient
Imports System.Collections.ArrayList

Public Enum AR_ASSETS_FIELD

    AR_ASSETS_FIELD_ENTRYID = 1
    AR_ASSETS_FIELD_CATEGORY = 200000003
    AR_ASSETS_FIELD_TYPE = 200000004
    AR_ASSETS_FIELD_ITEM = 200000005
    AR_ASSETS_FIELD_NAME = 200000020
    AR_ASSETS_FIELD_ASSETID = 210000000
    AR_ASSETS_FIELD_Status = 7
    AR_ASSETS_FIELD_Serial_Number = 200000001
    AR_ASSETS_SITE = 200000007
    AR_ASSETS_FIELD_Region = 200000012
    AR_ASSETS_FIELD_Model = 240001002
    AR_ASSETS_FIELD_ManufacturerName = 240001003
    AR_ASSETS_FIELD_Building = 260000001
    AR_ASSETS_FIELD_Floor = 260000004
    AR_ASSETS_FIELD_Room = 260000005
    AR_ASSETS_FIELD_LoginName = 260100002
    AR_ASSETS_FIELD_SupplierName = 240001008






End Enum
Public Enum AR_BuildingFloor_Field

    AR_BuildingFloor_SITE = 200000007
    AR_BuildingFloor_Building = 260000001
    AR_BuildingFloor_Floor = 260000004
    AR_BuildingFloor_Room = 260000005

End Enum
Public Enum AR_Location_Field

    AR_Location_Department = 200000006
    AR_Location_Site = 200000007
    AR_Location_Region = 200000012
End Enum

Public Enum AR_State_Province_Field

    AR_State_Province_Name = 8
    AR_State_Province_CountryCode = 260000000
    AR_State_Province_StateCode = 260000001

End Enum
Public Enum AR_Company_Field

    AR_Company_CompanyType = 260000000
    AR_Company_CompanyName = 8
    AR_Company_CompanyID = 260000032


End Enum
Public Enum AR_ASTOuterJoinASTPeople_Field

    AR_ASTOuterJoinASTPeople_Item = 200000007
















End Enum
Public Enum AR_SHRCategorization_Field

    AR_SHRCategorization_Category = 200000003
    AR_SHRCategorization_Type = 200000004
    AR_SHRCategorization_Item = 200000005
    AR_SHRCategorization_ApplicationSchemaKey = 230000000
    AR_SHRCategorization_AppSchema = 260000000
    AR_SHRCategorization_Status = 7
End Enum

Public Enum AR_SHRApplicationGroups_Field

    AR_SHRApplicationGroups_GroupName = 240000005

    
End Enum


<WebService(Namespace:="http://tempuri.org/";)> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
    Inherits System.Web.Services.WebService


    Public objArSystemPub As New ARSystem.Server

    <WebMethod()> _
    Public Function GetRemedyObject(ByVal pRemedyServer As String, ByVal 
pRemedyUID As String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, 
ByVal pRemedyRPCProgramNum As String) As ARSystem.Server
        Call objArSystemPub.Login(pRemedyServer, pRemedyUID, pRemedyPWD, "")
        Call 
objArSystemPub.SetServerPort(Microsoft.VisualBasic.Conversion.Int(pRemedyPort), 
Microsoft.VisualBasic.Conversion.Int(pRemedyRPCProgramNum))
        GetRemedyObject = objArSystemPub
        Return objArSystemPub
    End Function

    '<WebMethod()> _
    'Public Function Test(ByVal pRemedyServer As String, ByVal pRemedyUID As 
String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, ByVal 
pRemedyRPCProgramNum As String) As String
    '    Dim objARSystem As New ARSystem.Server
    '    objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

    '    Dim objEntryId As New ARSystem.EntryIdList
    '    Call objEntryId.FromString("")
    '    Dim objEntryList As New ARSystem.EntryListFieldValueList
    '    Dim temp As New ARSystem.EntryListFieldList
    '    objEntryList = objARSystem.GetListEntryWithFields("AST:Asset", "", 
temp, 0, 5)
    '    'objEntryList = 
objARSystem.GetListEntryWithFields("ESPN-AST:AssetInventoryBulkUpdate", "", 
temp, 0, 5)

    '    Return temp(0).ToString
    'End Function

    '<WebMethod()> _
    'Public Function GetData(ByVal pRemedyServer As String, ByVal pRemedyUID As 
String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, ByVal 
pRemedyRPCProgramNum As String) As String
    '    Dim objARSystem As New ARSystem.Server
    '    objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

    '    Dim tmpStringEntryID As String = ""
    '    Dim tmpStringAssetID As String = ""
    '    Dim tmpStringName As String = ""
    '    Dim tmpCategory As String = ""
    '    Dim tmpType As String = ""
    '    Dim tmpItem As String = ""

    '    Dim objEntryList As New ARSystem.EntryListFieldValueList
    '    Dim temp As New ARSystem.EntryListFieldList
    '    'objEntryList = 
objARSystem.GetListEntryWithFields("AST:ASTOuterJoinASTPeople", "", temp, 0, 1)
    '    objEntryList = objARSystem.GetListEntryWithFields("AST:Asset", "", 
temp, 0, 1)

    '    For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList
    '        tmpStringEntryID = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_ENTRYID)).ToString
    '        tmpCategory = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_CATEGORY)).ToString
    '        tmpType = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_TYPE)).ToString
    '        tmpItem = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_ITEM)).ToString
    '        tmpStringName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_NAME)).ToString
    '        tmpStringAssetID = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_ASSETID)).ToString
    '    Next

    '    Return tmpStringEntryID & vbCrLf & tmpCategory & vbCrLf & tmpType & 
vbCrLf & tmpItem & vbCrLf & tmpStringName & vbCrLf & tmpStringAssetID

    'End Function

    <WebMethod()> _
    Public Function GetAsset(ByVal pRemedyServer As String, ByVal pRemedyUID As 
String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, ByVal 
pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

        Dim tmpStringEntryID As String = ""
        Dim tmpStringAssetID As String = ""
        Dim tmpStringName As String = ""
        Dim tmpCategory As String = ""
        Dim tmpType As String = ""
        Dim tmpItem As String = ""
        Dim tmpStatus As String = ""
        Dim tmpSerial_Number As String = ""
        Dim tmpStringSite As String = ""
        Dim tmpRegion As String = ""
        Dim tmpModel As String = ""
        Dim tmpManufacturerName As String = ""
        Dim tmpBuilding As String = ""
        Dim tmpFloor As String = ""
        Dim tmpRoom As String = ""
        Dim tmpLoginName As String = ""
        Dim tmpSupplierName As String = ""



        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable

        dt.Columns.Add("EntryID")
        dt.Columns.Add("Category")
        dt.Columns.Add("Type")
        dt.Columns.Add("Item")
        dt.Columns.Add("Name")
        dt.Columns.Add("AssetID")
        dt.Columns.Add("Status")
        dt.Columns.Add("SerialNumber")
        dt.Columns.Add("Site")
        dt.Columns.Add("Company")
        dt.Columns.Add("ModelNo")
        dt.Columns.Add("Mfg_Name")
        dt.Columns.Add("Bldg")
        dt.Columns.Add("Floor")
        dt.Columns.Add("Room")
        dt.Columns.Add("ManagerGroup")
        dt.Columns.Add("Vendor")



        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = objARSystem.GetListEntryWithFields("AST:Asset", "", 
temp, 0, 50)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()

            tmpStringEntryID = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_ENTRYID)).ToString()
            tmpCategory = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_CATEGORY)).ToString()
            tmpType = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_TYPE)).ToString()
            tmpItem = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_ITEM)).ToString()
            tmpStringName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_NAME)).ToString()
            tmpStringAssetID = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_ASSETID)).ToString()
            
            tmpStatus = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Status)).ToString()

            If 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_SITE))
 <> Nothing Then
                tmpStringSite = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_SITE)).ToString()
            Else
                tmpStringSite = ""
            End If
            'tmpSerial_Number = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToString(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Serial_Number)).ToString()
            'tmpStringSite = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_SITE)).ToString()
            'tmpRegion = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Region)).ToString()

            'tmpModel = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Model)).ToString()

            'tmpManufacturerName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_ManufacturerName)).ToString()

            'tmpBuilding = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Building)).ToString()

            'tmpFloor = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Floor)).ToString()

            'tmpRoom = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Room)).ToString()

            ' tmpLoginName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_LoginName)).ToString()
            ' tmpSupplierName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_SupplierName)).ToString()

            'tmpSite = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_ASSETS_FIELD.AR_ASSETS_FIELD_Site)).ToString()


            dr(0) = tmpStringEntryID
            dr(1) = tmpCategory
            dr(2) = tmpType
            dr(3) = tmpItem
            dr(4) = tmpStringName
            dr(5) = tmpStatus
            dr(6) = tmpStringAssetID
            dr(7) = tmpSerial_Number
            dr(8) = tmpStringSite
            dr(9) = tmpModel
            dr(10) = tmpManufacturerName
            dr(11) = tmpBuilding
            dr(12) = tmpFloor
            dr(13) = tmpRoom
            dr(14) = tmpLoginName
            dr(15) = tmpSupplierName
            dr(16) = tmpRegion




            dt.Rows.Add(dr)

        Next
        ds.Tables.Add(dt)

        Return ds

    End Function


    <WebMethod()> _
  Public Function GetBuildingFloor(ByVal pRemedyServer As String, ByVal 
pRemedyUID As String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, 
ByVal pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

        Dim tmpStringSITE As String = ""
        Dim tmpStringBuilding As String = ""
        Dim tmpStringFloor As String = ""
        Dim tmpRoom As String = ""

        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable
        dt.Columns.Add("SITE")
        dt.Columns.Add("Building")
        dt.Columns.Add("Floor")
        dt.Columns.Add("Room")

        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = 
objARSystem.GetListEntryWithFields("ESPN:SHR:BuildingFloorRoom", "", temp, 0, 
50)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()

            tmpStringSITE = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_BuildingFloor_Field.AR_BuildingFloor_SITE)).ToString()
            tmpStringBuilding = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_BuildingFloor_Field.AR_BuildingFloor_Building)).ToString()
            tmpStringFloor = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_BuildingFloor_Field.AR_BuildingFloor_Floor)).ToString()
            tmpRoom = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_BuildingFloor_Field.AR_BuildingFloor_Room)).ToString()

            dr(0) = tmpStringSITE
            dr(1) = tmpStringBuilding
            dr(2) = tmpStringFloor
            dr(3) = tmpRoom

            dt.Rows.Add(dr)

        Next
        ds.Tables.Add(dt)

        Return ds
    End Function


    <WebMethod()> _
  Public Function GetSHRLocation(ByVal pRemedyServer As String, ByVal 
pRemedyUID As String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, 
ByVal pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

        Dim tmpStringDepartment As String = ""
        Dim tmpStringSite As String = ""
        Dim tmpStringRegion As String = ""

        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable

        dt.Columns.Add("Department")
        dt.Columns.Add("Site")
        dt.Columns.Add("Region")

        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = objARSystem.GetListEntryWithFields("SHR:Location", "", 
temp, 0, 400)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()

            tmpStringDepartment = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_Location_Field.AR_Location_Department)).ToString()
            tmpStringSite = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_Location_Field.AR_Location_Site)).ToString()
            tmpStringRegion = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_Location_Field.AR_Location_Region)).ToString()


            dr(0) = tmpStringDepartment
            dr(1) = tmpStringSite
            dr(2) = tmpStringRegion

            dt.Rows.Add(dr)
        Next
        ds.Tables.Add(dt)
        Return ds
    End Function


    <WebMethod()> _
 Public Function GetSHRState(ByVal pRemedyServer As String, ByVal pRemedyUID As 
String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, ByVal 
pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

        Dim tmpStateName As String = ""
        Dim tmpCountryCode As String = ""
        Dim tmpStateCode As String = ""


        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable

        dt.Columns.Add("State_ProvinceName")
        dt.Columns.Add("Country_Code")
        dt.Columns.Add("State_ProvinceCode")

        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = objARSystem.GetListEntryWithFields("SHR:State/Province", 
"", temp, 0, 50)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()

            tmpStateName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_State_Province_Field.AR_State_Province_Name)).ToString()
            tmpCountryCode = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_State_Province_Field.AR_State_Province_CountryCode)).ToString()
            tmpStateCode = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_State_Province_Field.AR_State_Province_StateCode)).ToString()

            dr(0) = tmpStateName
            dr(1) = tmpCountryCode
            dr(2) = tmpStateCode

            dt.Rows.Add(dr)
        Next
        ds.Tables.Add(dt)
        Return ds
    End Function




    <WebMethod()> _
 Public Function GetSHRCompany(ByVal pRemedyServer As String, ByVal pRemedyUID 
As String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, ByVal 
pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)


        Dim tmpCompanyType As String = ""
        Dim tmpCompanyName As String = ""
        Dim tmpCompanyID As String = ""

        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable

        dt.Columns.Add("CompanyType")
        dt.Columns.Add("CompanyName")
        dt.Columns.Add("CompanyID")

        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = objARSystem.GetListEntryWithFields("SHR:Company", "", 
temp, 0, 50)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()

            tmpCompanyName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(2)).ToString()
            tmpCompanyName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_Company_Field.AR_Company_CompanyName)).ToString()

            'tmpCompanyType = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(260000032).ToString()
            'tmpCompanyType = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(260000032).ToString()
            tmpCompanyName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_Company_Field.AR_Company_CompanyName)).ToString()
            ' tmpCompanyType = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_Company_Field.AR_Company_CompanyType)).ToString()
            ' tmpCompanyID = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_Company_Field.AR_Company_CompanyID)).ToString()

            dr(0) = tmpCompanyType
            dr(1) = tmpCompanyName
            dr(2) = tmpCompanyID

            dt.Rows.Add(dr)
        Next
        ds.Tables.Add(dt)
        Return ds

    End Function




    <WebMethod()> _
 Public Function GetSHRCategorization(ByVal pRemedyServer As String, ByVal 
pRemedyUID As String, ByVal pRemedyPWD As String, ByVal pRemedyPort As String, 
ByVal pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)



        Dim tmpCategory As String = ""
        Dim tmpType As String = ""
        Dim tmpItem As String = ""
        Dim tmpApplicationSchemaKey As String = ""
        Dim tmpAppSchema As String = ""
        Dim tmpStatus As String = ""

        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable

        dt.Columns.Add("Category")
        dt.Columns.Add("Type")
        dt.Columns.Add("Item")
        dt.Columns.Add("ApplicationSchemaKey")
        dt.Columns.Add("AppSchema")
        dt.Columns.Add("Status")


        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = objARSystem.GetListEntryWithFields("SHR:Categorization", 
"", temp, 0, 50)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()


            tmpCategory = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_SHRCategorization_Field.AR_SHRCategorization_Category)).ToString()
            tmpType = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_SHRCategorization_Field.AR_SHRCategorization_Type)).ToString()
            tmpItem = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_SHRCategorization_Field.AR_SHRCategorization_Item)).ToString()
            tmpApplicationSchemaKey = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_SHRCategorization_Field.AR_SHRCategorization_ApplicationSchemaKey)).ToString()
            'tmpAppSchema = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_SHRCategorization_Field.AR_SHRCategorization_AppSchema)).ToString()
            'tmpStatus = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_SHRCategorization_Field.AR_SHRCategorization_Status)).ToString()


            dr(0) = tmpCategory
            dr(1) = tmpType
            dr(2) = tmpItem
            dr(3) = tmpApplicationSchemaKey
            dr(4) = tmpAppSchema
            dr(5) = tmpStatus


            dt.Rows.Add(dr)
        Next
        ds.Tables.Add(dt)
        Return ds

    End Function

    <WebMethod()> Public Function GetSHRApplicatonGroups(ByVal pRemedyServer As 
String, ByVal pRemedyUID As String, ByVal pRemedyPWD As String, ByVal 
pRemedyPort As String, ByVal pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

        Dim tmpGroupName As String = ""
        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable

        dt.Columns.Add("ManagerGroup")


        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = 
objARSystem.GetListEntryWithFields("SHR:ApplicationGroups", "", temp, 0, 50)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()

            tmpGroupName = 
entrylistfieldvalue.FieldValues.Item(System.Convert.ToUInt32(AR_SHRApplicationGroups_Field.AR_SHRApplicationGroups_GroupName)).ToString()



            dr(0) = tmpGroupName


            dt.Rows.Add(dr)
        Next
        ds.Tables.Add(dt)
        Return ds

    End Function


    <WebMethod()> Public Function TestCompany(ByVal pRemedyServer As String, 
ByVal pRemedyUID As String, ByVal pRemedyPWD As String, ByVal pRemedyPort As 
String, ByVal pRemedyRPCProgramNum As String) As Data.DataSet
        Dim objARSystem As New ARSystem.Server
        objARSystem = GetRemedyObject(pRemedyServer, pRemedyUID, pRemedyPWD, 
pRemedyPort, pRemedyRPCProgramNum)

        Dim tmpSite As String = ""
        Dim ds As New Data.DataSet
        Dim dt As New Data.DataTable
        dt.Columns.Add(System.Convert.ToString("Site"))

        Dim dr As Data.DataRow

        Dim objEntryList As New ARSystem.EntryListFieldValueList
        Dim temp As New ARSystem.EntryListFieldList

        objEntryList = objARSystem.GetListEntryWithFields("AST:SS", "", temp, 
0, 50)

        For Each entrylistfieldvalue As ARSystem.EntryListFieldValue In 
objEntryList

            dr = dt.NewRow()

            tmpSite = 
entrylistfieldvalue.FieldValues.Item((AR_ASTOuterJoinASTPeople_Field.AR_ASTOuterJoinASTPeople_Item)).ToString()
            tmpSite = 
entrylistfieldvalue.FieldValues.Item((200000003)).ToString()



            dr(0) = tmpSite


            dt.Rows.Add(dr)
        Next
        ds.Tables.Add(dt)
        Return ds

    End Function

End Class

Reply via email to