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
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
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