Micro Focus QTP (UFT) Forums

Hi All,
I am having big problem on entering data in to a web table.
I will provide the screen shot as well as spy for the object.
Please help me on how to overcome this problem.

I am using QTP-11, The Web Application is Developed in .Net
My script is not entering value in the Cells It is just highlighting the cell.

My Script:

Code:
For r =  1 to  Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").RowCount

    temp = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").GetCellData(r,3)

    If instr(1,temp, trim (Datatable.Value ("ItemCode",DtlocalSheet)) ,1) <> 0 Then

        Set Tempeditbox = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").ChildItem(r, 5, "WebElement",0)

        Tempeditbox.Click

        Tempeditbox.Set "15"

    End IF

Next

I even tried this code also.

Code:
Set obj = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").ChildItem(r,5,"WebElement",0)

Set collection = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").ObjectsByMicClass("WebElement") 

wait(stdWait+ 1)

For i=1 to collection.count 

    If (collection(i).GetROProperty("outertext") = "0.000") Then 

        collection(i).Set DataTable.Value("Qty") 

        Exit for

    End If                                         

Next

HI Ramesh,

Try this below code.

Code:
For r = 1 to Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").RowCount

temp = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").GetCellData(r,3)

If instr(1,temp, trim (Datatable.Value ("ItemCode",DtlocalSheet)) ,1) <> 0 Then

Set Tempeditbox = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").ChildItem(r, 5, "WebElement",0)

Tempeditbox.Click

'Tempeditbox.Set "15"

Tempeditbox.WebEdit("index:=0").Set "15"

End IF

Next

Hi SUpputuri,
This Solution not worked. It is helpful to me if i get any other solution.

Hi All,
I am also facing a serious problem in one of my web application that i can't enter data in any one my cell in the table.
Attaching the Screen shot, Object spy.

I used this code:

Code:
rowcnt = Browser("name:=Automatic Building Plan Approval System").Page("title:=Automatic Building Plan Approval System").Frame("html id:=IframeExtract", "html tag:=IFRAME", "title:=PlotExtract").WebTable("html id:=fpExtracts_viewport", "html tag:=TABLE", "name:=fpExtracts:0,5").RowCount

colcnt = Browser("name:=Automatic Building Plan Approval System").Page("title:=Automatic Building Plan Approval System").Frame("html id:=IframeExtract", "html tag:=IFRAME", "title:=PlotExtract").WebTable("html id:=fpExtracts_viewport", "html tag:=TABLE", "name:=fpExtracts:0,5").ColumnCount

For r = 1 to rowcnt

    For c = 1 to colcnt

               Set Tempeditbox = Browser("name:=Automatic Building Plan Approval System").Page("title:=Automatic Building Plan Approval System").Frame("html id:=IframeExtract", "html tag:=IFRAME", "title:=PlotExtract").WebTable("html id:=fpExtracts_viewport", "html tag:=TABLE", "name:=fpExtracts:0,5").ChildItem(r,c,"WebElement",0)

        Tempeditbox.Click

        Tempeditbox.WebEdit("index:=0").Set "1"

        Next

Next

I even tried this code also at least to enter data in one cell

Code:
Set Tempeditbox = Browser("name:=Automatic Building Plan Approval System").Page("title:=Automatic Building Plan Approval System").Frame("html id:=IframeExtract", "html tag:=IFRAME", "title:=PlotExtract").WebTable("html id:=fpExtracts_viewport", "html tag:=TABLE", "name:=fpExtracts:0,5").Object.Rows(1).Cols(2)

Tempeditbox.Click

Tempeditbox.Set "1"

HI Ankur,
Can i request your help regarding this post!!!!

Hi All,
I am waiting for solution for my problem mentioned above. Can anyone post a good reply to me?

try sending the value by using device replay.

Try the below code

Code:
Dim myDeviceReplay

Set myDeviceReplay = CreateObject("Mercury.DeviceReplay")

rCnt = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").GetROProperty("rows")

For i = 1 to rCnt 

temp = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").GetCellData(r,3)

If instr(1,temp, trim (Datatable.Value ("ItemCode",DtlocalSheet)) ,1) <> 0 Then

Set Tempeditbox = Browser("Works Information Management").Page("Works Information Management").Frame("Frame_\d").WebTable("html id:=fpsEstItems_viewport", "visible:=True","name:=fpsEstItems.*").ChildItem(r, 5, "WebElement",0)

Tempeditbox.FireEvent "onclick"

myDeviceReplay.SendString "This is my string"

myDeviceReplay.PressKey 28

End IF

Next

Thankyou,
This solved the purpose. But is it a permanent solution?

nistalaramesh

supputuri

nistalaramesh

nistalaramesh

nistalaramesh

nistalaramesh

supputuri

ssvali

nistalaramesh