Hi all, Can anyone help me in creating macros which will be helpful for testing team to pull some sort of reports or useful in anyway for testing team.
Thanks in advance, Padma ---------- Forwarded message ---------- From: iRahulSingh <[email protected]> Date: Mon, Dec 26, 2011 at 11:04 PM Subject: Re: Help me in Array List code To: QTP - HP Quick Test Professional - Automated Software Testing < [email protected]> 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 -- 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
