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

Reply via email to