object's description matches more than one of the objects

[chowdary2004msc]

Hi I am new to qtp.Now I am working with Peoplesoft HRMS with QtP.

doing automation hirining employees.For that dynamically sending data.After retreiving data from excel sheet system will generate emplid.

I need to export generated emplid to excel sheet.

to my first phase exporting empld to excel sheet working fine with the following code.

Code:

EMPLID = .PSFrame("Personal Data").WebElement("Add the Relationship").GetROProperty("innertext") datatable.Value("EMPL_ID",sheetName1) = EMPLID Datatable.ExportSheet sheetPath,sheetName1

after modifing the code like i need hire mutiple employee types(permananent and temporary etc). emplids generating successfully.But getting following error :
object's description matches more than one of the objects in your application.
Please let me know how to handle this is issue or using with DP.

[manishbhalshankar]

Give index property to the object you are trying to access.

[chowdary2004msc]

Hi Manish,

Please give more details with code how to give index property if possible. It is very need full to me.

Thanks
M.R.Chowdary.

[manishbhalshankar]

Hi Chowdary,
For which object are you getting the error "more than one objects found"?

[chowdary2004msc]

Hi manish,

Please find the following code:

I am getting error for add the relationship Object.
EMPLID = .PSFrame("Personal Data").WebElement("Add the Relationship").GetROProperty("innertext"), where as last in the following code.

Code:

'/*Decleration Action Variables 'On Error Resume Next 'Option Explicit Dim actLogin,actLoginName,HRUrl,sheetName1,sheetPath,userID,passWord,EMPLID ' /*using external environmen t file to save action perameters actionPerameters="C:\QTP_FrameWork\HR\Environment\actionPerameters.INI" environment.LoadFromFile actionPerameters '/*Loads action perameters at run time HRUrl=environment.Value("HRUrl") actLogin=environment.Value("actLogin") actLoginName=environment.Value("actLoginName") userID=environment.Value("userID") passWord=environment.Value("passWord") 'msgbox passWord '/*calling the application URL systemUtil.Run HRUrl,"",false '/*Load and runs the exteranal reusable Login action at run time LoadandRunaction actLogin,actLoginName,oneIteration,userID,passWord 'Import the test data from external XLS sheet to Datasheet sheetName1="AddPerson" sheetPath="C:\QTP_FrameWork\HR\TestData\Add_Person.xls" datatable.AddSheet(sheetName1) datatable.ImportSheet sheetPath,sheetName1,sheetName1 rowCount=datatable.GetSheet(sheetName1).GetRowCount 'msgbox rowCount 'Script for Login to PeopleSoft PIA With Browser("Oracle | PeopleSoft Enterprise") With .Page("Oracle | PeopleSoft Enterprise") End With 'Navigating to the destination page .Page("Employee-facing registry").Link("Workforce Administration").Click .Page("Base Navigation Page").PSFrame("Navigational Links").Link("Personal Information").Click 'Start Looping from here For i=1 to rowCount 'My_EffDate = DataTable.GetSheet(sheetName1).GetParameter("Eff_Date").ValueByRow(i) 'comment ed on 03/15 'Validate the data in the first column of the current row, if its blank, do nothing otherwise process the data. 'If My_EffDate="" Then 'comment ed on 03/15 'else 'comment ed on 03/15 datatable.GetSheet(sheetName1).SetCurrentRow(i) .Page("Base Navigation Page_2").PSFrame("Navigational Links").Link("Add a Person").Click With .Page("Add a Person") .PSFrame("Add Person Front End").Link("Add the Person").Click 'Adding data .PSFrame("Personal Data").WebEdit("NAMES_EFFDT$0").Set datatable.Value("Eff_Date" , sheetName1) .PSFrame("Personal Data").Link("Add Name").Click .PSFrame("Personal Data").WebEdit("DERIVED_CORE_NM_FIRST_NAME").Set datatable.Value("First_Name" , sheetName1) .PSFrame("Personal Data").WebEdit("DERIVED_CORE_NM_LAST_NAME").Set datatable.Value("Last_name" , sheetName1) .PSFrame("Personal Data").WebButton("OK").Click .PSFrame("Personal Data").WebEdit("PERSON_BIRTHDATE").Set datatable.Value("Birth_Dt" , sheetName1) .PSFrame("Personal Data").WebEdit("PERSON_BIRTHSTATE").Set datatable.Value("State" , sheetName1) .PSFrame("Personal Data").WebEdit("PERSON_BIRTHPLACE").Set datatable.Value("Birth_Loc",sheetName1) 'add script on 16-03-10 .PSFrame("Personal Data").WebList("PERS_DATA_EFFDT_SEX$0").Select datatable.Value("Sex" , sheetName1) If datatable.Value("Education",sheetName1) <>"" Then .PSFrame("Personal Data").WebList("PERS_DATA_EFFDT_HIGHEST_EDUC_LVL$0").Select datatable.Value("Education",sheetName1) 'add script on 16-03-10 End If If datatable.Value("Marital_Stat",sheetName1) <>"" Then .PSFrame("Personal Data").WebList("PERS_DATA_EFFDT_MAR_STATUS$0").Select datatable.Value("Marital_Stat",sheetName1) 'add script on 16-03-10 End If If datatable.Value("Language",sheetName1) <>"" Then .PSFrame("Personal Data").WebList("PERS_DATA_EFFDT_LANG_CD$0").Select datatable.Value("Language",sheetName1) ' add script on 16-03-10 End If .PSFrame("Personal Data").WebEdit("PERS_NID_COUNTRY$0").Set datatable.Value("Country",sheetName1) ' add script on 16-03-10 .PSFrame("Personal Data").WebList("PERS_NID_NATIONAL_ID_TYPE$0").Select datatable.Value("NID_Type" , sheetName1 ) 'Modified script - add script on 16-03-10 .PSFrame("Personal Data").WebEdit("DERIVED_HR_NID_SPECIAL_CHAR$0").Set datatable.Value("NID" , sheetName1) .PSFrame("Personal Data").Link("Contact Information").Click .PSFrame("Personal Data").Link("Add Address Detail").Click .PSFrame("Personal Data").Link("Add Address").Click .PSFrame("Personal Data").WebEdit("DERIVED_ADDRESS_ADDRESS1").Set datatable.Value("Addrs1" , sheetName1) .PSFrame("Personal Data").WebEdit("DERIVED_ADDRESS_CITY").Set datatable.Value("City" , sheetName1) .PSFrame("Personal Data").WebEdit("DERIVED_ADDRESS_STATE").Set datatable.Value("Addrs_State" , sheetName1) .PSFrame("Personal Data").WebEdit("DERIVED_ADDRESS_POSTAL").Set datatable.Value("ZIP" , sheetName1) .PSFrame("Personal Data").WebEdit("DERIVED_ADDRESS_COUNTY").Set datatable.Value("Country" , sheetName1) .PSFrame("Personal Data").Image("OK").Click .PSFrame("Personal Data").WebButton("OK").Click .PSFrame("Personal Data").Link("Organizational Relationships").Click '.PSFrame("Personal Data").WebCheckBox("DERIVED_HCR_PER_DERIVED_EMP").Set "ON" 'commented on 16-03-10 If datatable.Value ("Emp_Type",sheetName1)="EMP" Then 'add script on 16-03-10 .PSFrame("Personal Data").WebCheckBox("DERIVED_HCR_PER_DERIVED_EMP").Set "ON" else if datatable.Value ("Emp_Type",sheetName1)="CWR" Then .PSFrame("Personal Data").WebCheckBox("DERIVED_HCR_PER_DERIVED_CWR").Set "ON" else if datatable.Value ("Emp_Type",sheetName1)="POI" Then .PSFrame("Personal Data").WebCheckBox("DERIVED_HCR_PER_DERIVED_POI").Set "ON" End if End if End If 'add script on 16-03-10 '.PSFrame("Personal Data").WebCheckBox(datatable.Value("Emp_Type",sheetName1)).Set "ON" .PSFrame("Personal Data").WebButton("Add the Relationship").Click If not (.PSFrame("Personal Data").WebList("JOB_ACTION_REASON$0").Exist(1)) Then .PSFrame("Personal Data").WebButton("Return").Click .PSFrame("Personal Data").WebButton("OK").Click End If If datatable.Value("Job_Ind",sheetName1) <> "" Then .PSFrame("Personal Data").WebList("JOB_JOB_INDICATOR$0").Select datatable.Value("Job_Ind",sheetName1) 'add script on 16-03-10 End If .PSFrame("Personal Data").WebList("JOB_ACTION$0").Select datatable.Value("Action",sheetName1) 'add script on 16-03-10 .PSFrame("Personal Data").WebList("JOB_ACTION_REASON$0").Select datatable.Value("Act_Rsn" , sheetName1) 'Modified script on 16-03-10 .PSFrame("Personal Data").WebEdit("JOB_POSITION_NBR$0").Set datatable.Value("Pos_No",sheetName1) 'add script on 16-03-10 If LEN(datatable.Value("Pos_No",sheetName1) ) = 0 Then .PSFrame("Personal Data").WebEdit("JOB_DEPTID$0").Set datatable.Value("Dept_Id" , sheetName1) .PSFrame("Personal Data").WebEdit("JOB_LOCATION$0").Set datatable.Value("Loc" , sheetName1) .PSFrame("Personal Data").WebEdit("JOB_ESTABID$0").Set datatable.Value("Est_Id",sheetName1) 'add script on 16-03-10 End If .PSFrame("Personal Data").Link("Job Information").Click If datatable.Value("Job_Code" , sheetName1) <>""Then .PSFrame("Personal Data").WebEdit("JOB_JOBCODE$0").Set datatable.Value("Job_Code" , sheetName1) End If If datatable.Value("Reg_Temp",sheetName1) <> "" Then .PSFrame("Personal Data").WebList("JOB_REG_TEMP$0").Select datatable.Value("Reg_Temp",sheetName1) 'add script on 16-03-10 End If If datatable.Value("Emp_class",sheetName1) <> "" Then .PSFrame("Personal Data").WebList("JOB_EMPL_CLASS$0").Select datatable.Value("Emp_class",sheetName1) 'add script on 16-03-10 End If .PSFrame("Personal Data").Link("Payroll").Click .PSFrame("Personal Data").WebEdit("JOB_PAYGROUP$0").Set datatable.Value("PayGroup" , sheetName1) .PSFrame("Personal Data").WebEdit("JOB_TAX_LOCATION_CD$0").Set datatable.Value("Tax_LocCd" , sheetName1) .PSFrame("Personal Data").Link("Compensation").Click .PSFrame("Personal Data").WebEdit("COMPENSATION_COMP_RATECD$0").Set datatable.Value("Comp_Ratecd" , sheetName1) .PSFrame("Personal Data").WebEdit("COMPENSATION_COMPRATE$0").Set datatable.Value("Comp_Rate" , sheetName1) .PSFrame("Personal Data").WebButton("Calculate Compensation").Click .PSFrame("Personal Data").WebButton("OK").Click .PSFrame("Personal Data").WebButton("OK").Click 'Script to capture the system generated EMPLID and save it to datatable EMPLID = .PSFrame("Personal Data").WebElement("Add the Relationship").GetROProperty("innertext") datatable.Value("EMPL_ID",sheetName1) = EMPLID End With 'End If 'comment ed on 03/15 next 'Script to signout .Page("Add a Person").PSFrame("Tool Bar Header").Link("Sign out").Click End With 'Script to export the data to excel sheet Datatable.ExportSheet sheetPath,sheetName1

[Saket]

@Everyone - Please wrap your codes using proper tags to make your post more readable (I have edited the above post, used tags). For more details on tags refer help.