VAlue from datasheet is not being picket up

[Mala]

Hi,
I have to enter date in a field based on whether that field is enabled or disabed. My coede reads as follows

Code:

Dim FromDateDisabled
FromDateDisabled = Browser("x").Page("y").WebEdit("FromDate").GetROProperty("Disabled")
If FromDateDisabled = False Then
Browser("x").Page("y").WebEdit("FromDate").Set DataTable("FromDate", dtGlobalSheet)
    Else
    Reporter.ReportEvent micPass,"From Date","From Date Disabled"

In this situation, if the disabled = true, Else statement is not picking up and the test fails.
Any hlep is appreciated please!!

[jsknight1969]

Try changing to this

Code:

If lcase(FromDateDisabled) = "false" then

GetROproperty is going to return a string value.

Hope this helps.

[Rekhapramod]

Hi,

Please try the below code to get the value

Code:

DataTable.Import("C:\Documents and Settings\qtp\Desktop\Login_Details.xls")
WebVal=DataTable.GetSheet(1).GetParameter("Login").Value
Val=Browser("name:=International").Page("title:=International").WebEdit("name:=Uname").GetROProperty("disabled")
If Val=0 Then
     Browser("name:=International").Page("title:=International").WebEdit("name:=Uname").Set WebVal
else
    Reporter.ReportEvent micFail,"Login user name field ","Login username field is read only"
End If

Thanks,
Rekhapramod

[Mala]

Sorry guys,
Both the solutions didn't work. I guess, it is wrong from my part in explaining the problem. Let me rewrite the problem.
The code after the 'Then' statement is not being picked up whether it is reporter... event or entering the value from the datasheet.
Thanks for all the help I am getting from you guys.

[jsknight1969]

I can only see that scenario happening if your script is throwing an error. VbScript stops execution on error unless otherwise specified. You do have to be careful. depending on the errored statment, the next line might be the true statement of the if..condition and not be the results you want.

Code:

on error resume next 'go to next statment
Dim FromDateDisabled
FromDateDisabled = 1 'default to satisfy condition test if error occurs
FromDateDisabled = Browser("x").Page("y").WebEdit("FromDate").GetROProperty("Disabled")
If FromDateDisabled = 0 Then  'disabled is reverse logic too!!!!
  Browser("x").Page("y").WebEdit("FromDate").Set DataTable("FromDate", dtGlobalSheet)
Else
  Reporter.ReportEvent micPass,"From Date","From Date Disabled"
end if

Hope this helps.

[Mala]

Thank you. Go to next step upon error works. For now, I will give a break and will dig into this. I want to see if there is a way to make this work without the go to next step line.

But, I can't thank you enough for answering my questions.