09-10-2019, 01:05 AM
Hi Ankur,
I am facing the problem on Oracle Financial application automation.
The issue is objects are not loading on popup browser when open UFT tool.
We have test case to create Bank Account. Here we need to select Country as one of the field, for that need to click on Search icon and EBS application will open popup browser, here we need to search, select United states then click on Select icon.
in this POPUP browser (second browser) the objects are not loading if I open UFT and the objects are loading properly and working functionality good if I close the UFT. Please can you help me is there anything need to take care from UFT or browser side.
Please see the below code to create bank account.
Function CreateBank (record)
Dim CountryObj
Set CountryObj = Browser("Login").Page("Create Bank").WebEdit("Country")
record("lineNumber") = record("lineNumber") + 1
If CountryObj.Exist(01) Then
CountryObj.Set record("Country")
'-------------------------------------------------------Here the second browser will open------------------------------
'wait for object
dim maxloop, currentloop
maxloop = 50
currentloop = 0
Dim waitForObjectflag
waitForObjectflag = false
Do Until waitForObjectflag = true
waitForObjectflag = Browser("Oracle Applications R12").Page("Search and Select List").Frame("Frame").WebButton("Select").Exist(01)
wait 01
if (maxloop = currentloop) then
waitForObjectflag = true
'LogInfoForHtml record("lineNumber") & ". Enter Country", "Search and Select List page will open.", " Search and Select List page does not open " , "fail"
On Error Goto 0
record ("error step") = ". Enter Country"
record ("error expected") = "Search and Select List page will open."
record ("error actual") = "Search and Select List page does not open"
Err.Raise 1, "Workflow", "Failed: Expected Search and Select List page does not open."
end if
currentloop = currentloop + 1
Loop
If waitForObjectflag Then
LogInfoForHtml record("lineNumber") & ". Enter Country", "Search and Select List page will open.", " Search and Select List page displayed" , "pass"
End If
'Wait for Select value page
Dim selecttableobj, CountryRow, radioButtons
set selecttableobj = Browser("Oracle Applications R12").Page("Search and Select List").Frame("Frame").WebTable("Countrytable")
set CountryRow = OFA.actionOnColumnOfTbl(selecttableobj,"","","US","returnObj")
If CountryRow ("returnobjfound") Then
Dim getradiobuttonobj
Set getradiobuttonobj = OFA.actionOnColumnOfTbl(selecttableobj,0,CountryRow("rowNumber"),"","returnObj")
If getradiobuttonobj ("returnobjfound") Then
set radioButtons =getradiobuttonobj("returnColObj").getElementsByTagName("input")
radioButtons(0).click
'radioButtons(0).Select "0"
'radioButtons(0).Select CountryRow("rowNumber") - 1
End If
End If
'click on Select button
Dim selectObj
Set selectObj = Browser("Oracle Applications R12").Page("Search and Select List").Frame("Frame").WebButton("Select")
If selectObj.Exist(01) Then
selectObj.Click
End If
End If
'Enter Bank name
Dim bankName
Set bankName = Browser("Login").Page("Create Bank").WebEdit("BankName")
record("lineNumber") = record("lineNumber") + 1
If bankName.Exist(01) Then
bankName.Set record("Bank name")
Dim getbankName
getbankName = bankName.GetROProperty("value")
If trim(getbankName) = record("Bank name") Then
LogInfoForHtml record("lineNumber") & ". Enter Bank Name", "Bank Name should enter as " & record("Bank name") , " Bank Name entered as " & getbankName , "pass"
else
LogInfoForHtml record("lineNumber") & ". Enter Bank Name", "Bank Name should enter as " & record("Bank name") , " Bank Name entered as " & getbankName , "fail"
End If
End If
'click on Finish button
Dim finishButton
set finishButton = Browser("Login").Page("Create Bank").WebButton("Finish")
record("lineNumber") = record("lineNumber") + 1
If finishButton.Exist(01) Then
finishButton.Click
'wait for object
'dim maxloop, currentloop
maxloop = 500
currentloop = 0
'Dim waitForObjectflag
waitForObjectflag = false
Do Until waitForObjectflag = true
waitForObjectflag = Browser("Login").Page("Bank Simple Page").WebElement("Confirmation").Exist(01)
wait 01
if (maxloop = currentloop) then
waitForObjectflag = true
'LogInfoForHtml record("lineNumber") & ". Click on Finish button", "Confirmation message should display.", " Confirmation message does not open " , "fail"
record ("error step") = ". Click on Finish button"
record ("error expected") = "Confirmation message should display."
record ("error actual") = "Confirmation message does not open"
On Error Goto 0
Err.Raise 1, "Workflow", "Failed: Expected Confirmation message does not open."
end if
currentloop = currentloop + 1
Loop
If waitForObjectflag Then
LogInfoForHtml record("lineNumber") & ". Click on Finish button", "Confirmation message should display.", " Confirmation message displayed" , "pass"
End If
End If
End Function
I am facing the problem on Oracle Financial application automation.
The issue is objects are not loading on popup browser when open UFT tool.
We have test case to create Bank Account. Here we need to select Country as one of the field, for that need to click on Search icon and EBS application will open popup browser, here we need to search, select United states then click on Select icon.
in this POPUP browser (second browser) the objects are not loading if I open UFT and the objects are loading properly and working functionality good if I close the UFT. Please can you help me is there anything need to take care from UFT or browser side.
Please see the below code to create bank account.
Function CreateBank (record)
Dim CountryObj
Set CountryObj = Browser("Login").Page("Create Bank").WebEdit("Country")
record("lineNumber") = record("lineNumber") + 1
If CountryObj.Exist(01) Then
CountryObj.Set record("Country")
'-------------------------------------------------------Here the second browser will open------------------------------
'wait for object
dim maxloop, currentloop
maxloop = 50
currentloop = 0
Dim waitForObjectflag
waitForObjectflag = false
Do Until waitForObjectflag = true
waitForObjectflag = Browser("Oracle Applications R12").Page("Search and Select List").Frame("Frame").WebButton("Select").Exist(01)
wait 01
if (maxloop = currentloop) then
waitForObjectflag = true
'LogInfoForHtml record("lineNumber") & ". Enter Country", "Search and Select List page will open.", " Search and Select List page does not open " , "fail"
On Error Goto 0
record ("error step") = ". Enter Country"
record ("error expected") = "Search and Select List page will open."
record ("error actual") = "Search and Select List page does not open"
Err.Raise 1, "Workflow", "Failed: Expected Search and Select List page does not open."
end if
currentloop = currentloop + 1
Loop
If waitForObjectflag Then
LogInfoForHtml record("lineNumber") & ". Enter Country", "Search and Select List page will open.", " Search and Select List page displayed" , "pass"
End If
'Wait for Select value page
Dim selecttableobj, CountryRow, radioButtons
set selecttableobj = Browser("Oracle Applications R12").Page("Search and Select List").Frame("Frame").WebTable("Countrytable")
set CountryRow = OFA.actionOnColumnOfTbl(selecttableobj,"","","US","returnObj")
If CountryRow ("returnobjfound") Then
Dim getradiobuttonobj
Set getradiobuttonobj = OFA.actionOnColumnOfTbl(selecttableobj,0,CountryRow("rowNumber"),"","returnObj")
If getradiobuttonobj ("returnobjfound") Then
set radioButtons =getradiobuttonobj("returnColObj").getElementsByTagName("input")
radioButtons(0).click
'radioButtons(0).Select "0"
'radioButtons(0).Select CountryRow("rowNumber") - 1
End If
End If
'click on Select button
Dim selectObj
Set selectObj = Browser("Oracle Applications R12").Page("Search and Select List").Frame("Frame").WebButton("Select")
If selectObj.Exist(01) Then
selectObj.Click
End If
End If
'Enter Bank name
Dim bankName
Set bankName = Browser("Login").Page("Create Bank").WebEdit("BankName")
record("lineNumber") = record("lineNumber") + 1
If bankName.Exist(01) Then
bankName.Set record("Bank name")
Dim getbankName
getbankName = bankName.GetROProperty("value")
If trim(getbankName) = record("Bank name") Then
LogInfoForHtml record("lineNumber") & ". Enter Bank Name", "Bank Name should enter as " & record("Bank name") , " Bank Name entered as " & getbankName , "pass"
else
LogInfoForHtml record("lineNumber") & ". Enter Bank Name", "Bank Name should enter as " & record("Bank name") , " Bank Name entered as " & getbankName , "fail"
End If
End If
'click on Finish button
Dim finishButton
set finishButton = Browser("Login").Page("Create Bank").WebButton("Finish")
record("lineNumber") = record("lineNumber") + 1
If finishButton.Exist(01) Then
finishButton.Click
'wait for object
'dim maxloop, currentloop
maxloop = 500
currentloop = 0
'Dim waitForObjectflag
waitForObjectflag = false
Do Until waitForObjectflag = true
waitForObjectflag = Browser("Login").Page("Bank Simple Page").WebElement("Confirmation").Exist(01)
wait 01
if (maxloop = currentloop) then
waitForObjectflag = true
'LogInfoForHtml record("lineNumber") & ". Click on Finish button", "Confirmation message should display.", " Confirmation message does not open " , "fail"
record ("error step") = ". Click on Finish button"
record ("error expected") = "Confirmation message should display."
record ("error actual") = "Confirmation message does not open"
On Error Goto 0
Err.Raise 1, "Workflow", "Failed: Expected Confirmation message does not open."
end if
currentloop = currentloop + 1
Loop
If waitForObjectflag Then
LogInfoForHtml record("lineNumber") & ". Click on Finish button", "Confirmation message should display.", " Confirmation message displayed" , "pass"
End If
End If
End Function