Unable to enter data in web table

[nistalaramesh]

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

[supputuri]

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

[nistalaramesh]

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

[nistalaramesh]

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"

[nistalaramesh]

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

[nistalaramesh]

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

[supputuri]

try sending the value by using device replay.

[ssvali]

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

[nistalaramesh]

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