Web page not loading for EBS application when open UFT - Printable Version +- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums) +-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP) +--- Forum: UFT / QTP Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others) +--- Thread: Web page not loading for EBS application when open UFT (/Thread-Web-page-not-loading-for-EBS-application-when-open-UFT) |
Web page not loading for EBS application when open UFT - satyagadam - 09-10-2019 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 RE: Web page not loading for EBS application when open UFT - satyagadam - 09-18-2019 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. |