Hi Prasad,
I havn't done anything with your code but doesn't see any issue with
it... please try this :
Dim sApproverOutput:sApproverOutput = 0
For i= 1 to N
If Browser("XXXXX").Page("XXXXXXX").WebTable("Approver
Name").RowCount >= 2 Then
iApproverCount = Browser("").Page("").WebTable("").RowCount
For iLoop = 1 to iApproverCount
sApproverOutput = sApproverOutput +
Browser("").Page("").WebTable("").GetCellData (iLoop,1)
Next
DataTable.GetSheet(sDataSheetName).GetParameter(18).Value
=sApproverOutput
Wait 5
sApproverOutput = 0
Wait 2
End If
Next
Hope It may be of any help.
cheers,
/rahul
On Dec 26, 5:45 pm, Prasad Bandaru <[email protected]> wrote:
> Hi Guys,
>
> Can you pls chek the code and give me a solution
> Problem is : First iteration "sApproverOutput" is giving correctly, 2nd
> iteration onwards, its giving Previous value also.
>
> Pls try to help me.
>
> Code is follows:
>
> @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>
> For i= 1 to N
> If Browser("XXXXX").Page("XXXXXXX").WebTable("Approver Name").RowCount >=
> 2 Then
> iApproverCount = Browser("Oracle
> iProcurement: Checkout").Page("Oracle iProcurement:
> Checkout").WebTable("Approver Name").RowCount
> Dim ArrApproverList()
> Dim sApproverOutput
> ReDim
> ArrApproverList(iApproverCount)
> arrLoop = 0 ' Array start with Zero
> 'Table differs
> For iLoop = 1 to iApproverCount
> ArrApproverList(arrLoop)=
> Browser("Oracle iProcurement: Checkout").Page("Oracle iProcurement:
> Checkout").WebTable("Approver Name").GetCellData (iLoop,1)&vbNewLine
> arrLoop = arrLoop+1
>
> Next
> For iLoop = 1 to UBound
> (ArrApproverList)
> sApproverOutput =
> sApproverOutput + ArrApproverList(iLoop)
> Next
>
> DataTable.GetSheet(sDataSheetName).GetParameter(18).Value =sApproverOutput
> Wait 5
>
> Erase ArrApproverList
> Set sApproverOutput = Nothing
>
> Wait 2
>
> Next
> @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>
> Waiting for the reply,
>
> Unfeigned Regards,
> Prasad
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
