QTP PROGRAMME FOR CASE STUDY 5

Eight-case study:

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

                                                Product

 

Vbwindow(“procuct”).vbcombobox(“productid”).select “007”

Q=10

Vbwindwo(“product”).vbedit9”prate”).getroproperty(Text”)

R= vbwindwo(“product”.vbedit(“prate”.getroproperty(“text”)

Ev=R*Q

Var1= vbwindow(“product”).vbbutton(“cal”).exists

If cstr(var1)=cstr(true) then

Var2=vbwindow(“product”).vbbutton(“cal”).getroproperty”exists”

If cstr(var2)=cstr(true) then

          Vbwindow(“product”).vbbutton(“cal”).click

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

If cint(Av)=cint(Ev) then

Reporter.report event micpass,”myreport”,”result is pass”

Else

Reporter.reporteventmicfail,”myreport”,”result is fail”

End if

Else

Reporter.reporteventmicwarning,”my report”,”cal button does not exists”

End if

Else

Reporter.reporteventmicwarning,”my report”,”cal button is disabled”

End if