Deo_Cleto
11 years agoNew Contributor
'Unable to find the object Panel("divTab")'
'Unable to find the object Panel("divTab")'
The script kept on failing with this message 'Unable to find the object Panel("divTab"). ' but whenever I capture the field (Object spy) the object does exist. Here's the code looks like:
'Policy Start - Page
Set Pg4 = GetPage
'Effective Date
Set Effective_Date = Pg4.Frame("MAIN").Panel("divTab").Panel(0).Textbox ("dtaPOLPOL_NEFFDAT")
Effective_Date.value = I_Effective_Date
Call Effective_Date.Keys(tab)
I captured the field using the ObjectSpy with this result
Sys.Browser("iexplore").Page("http://advqa/aqs.advantage.client/system/asp/Main_ISLLSYS_20010101.asp?UserID=DCLETO&PolicyID=9 2411&NodeKey=POL%7CPOL%7C0%7C&Action=RateLevel&Dia gnosticMode=0&XMLDetail=%3Citems%3E%3Citem%20name% 3D%27ratingdatachanged%27%20value%3D%27T%27/%3E%3Citem%20name%3D%27datachanged%27%20value%3D%2 7T%27/%3E%3Citem%20name%3D%27auto%20approve%27%20value%3 D%27T%27/%3E%3Citem%20name%3D%27discard%27%20value%3D%27F%2 7/%3E%3Citem%20name%3D%27issue%27%20value%3D%27F%27/%3E%3Citem%20name%3D%27submit%27%20value%3D%27T%27/%3E%3Citem%20name%3D%27comploc%27%20value%3D%27CFM T%27/%3E%3Citem%20name%3D%27transactionid%27%20value%3D %271%27/%3E%3Citem%20name%3D%27policystatus%27%20value%3D% 27In%20Process%27/%3E%3Citem%20name%3D%27sectransactionid%27%20value %3D%271%27/%3E%3Citem%20name%3D%27rlvlocked%27%20value%3D%27F alse%27/%3E%3Citem%20name%3D%27inquiry%27%20value%3D%27F%2 7/%3E%3Citem%20name%3D%27historytype%27%20value%3D%2 7FFL%27/%3E%3Citem%20name%3D%27beginpolicy%27%20value%3D%2 7T%27/%3E%3C/items%3E&expirednumber=0&tab=0&debug=False&transac tion=In Process Quote").Frame("MAIN").Panel("divTab").Panel(0).Tex tbox("dtaPOLPOL_NEFFDAT")
Here's the GetPage function:
Function GetPage
'************************************************* ************************************************** **********'
' Function that obtains the "Page" object. '
'************************************************* ************************************************** **********'
Dim w
Set w = p.IEFrame(2)
Set GetPage = w.Page("*")
End Function