Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Web page not loading for EBS application when open UFT
#1
Not Solved
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


Attached Files Image(s)
       
Reply
#2
Not Solved
Does any one experienced same or similar problem. I am thinking the issue is Oracle EBS application is using UFT java version whenever open UFT.
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  UFT Fails to Open Microsoft Word teekay99 0 721 10-24-2019, 07:37 PM
Last Post: teekay99
  How to open UFT if its Crashed Mordiyasnehal 1 1,065 01-14-2019, 09:43 AM
Last Post: anand01_05
Exclamation Dev Express (15.2) application crash issue with UFT 14.0 Manoj Surela 0 1,394 11-26-2018, 04:55 PM
Last Post: Manoj Surela
  Automating Delphi application version XE8 using the UFT 14.03 maheshmaka 1 1,534 07-05-2018, 05:42 PM
Last Post: Ankur
  Facing a problem while identifying Angular JS objects in a web page vangasantosh 0 1,211 12-20-2017, 01:26 PM
Last Post: vangasantosh

Forum Jump:


Users browsing this thread: 2 Guest(s)