QTP PROGRAMME FOR CASE STUDY 4

                       Develop the script for selecting the product id, entering quantity, clicking on cal button and     checking whether it is working fine or not

                                                PRODUCT

 

          Vbwindow(“product”).vbcombobox(“pid”).select “007”

Q=5

R=vbwindow(“product”).vbedit(“prate”).getroproperty “Text”

EV=r*q

Vbwindow(“product”).vbedit(“quantity”.set q

Vbwindow(“product”).vb button(“cal”).click

AV=vbwindow(“product”).vbedit(“amount”).getroproperty “text”

If (EV=AV) then

Reporter.reportevent, 0,”my report”,”cal button is working”

Else

Reporter.report event,3,”my report”,”cal button is not working”

End if