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?