Forum Discussion
farhanahmed
12 years agoContributor
hi
following is my function
Function mo_ChkParamList( lst_no )
ExcelDriverPath1="D:\Perforce\ISCP_Main\Projects\ISCP_Test\Test\CardDesigner_New\ELEMENT_VariousViewerAndEditors\Stores\DB_CardParameterList1.xls"
Call DDT.ExcelDriver(ExcelDriverPath1,"Sheet1")
Dim parameterName
While Not DDT.CurrentDriver.EOF
if DDT.CurrentDriver.Value("tab") <> "" then
tabName=DDT.CurrentDriver.Value("tab")
Log.message "##### TAB '"&tabName&"' #####"
Call Aliases.CardDesigner.editors.CardParameter.tab_CardParameter.ClickTab(tabName)
end if
parameterName=DDT.CurrentDriver.Value("Param_name")
log.message Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,1000).Exists
if DDT.CurrentDriver.Value("def_undef"&lst_no)= "visible" and Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,5000).Exists then
Log.Event"Correct Status Parameter '"&DDT.CurrentDriver.Value("Parameter")&"' is set to "& DDT.CurrentDriver.Value("def_undef"&lst_no)
elseif DDT.CurrentDriver.Value("def_undef"&lst_no)= "invisible" and Not Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,1000).Exists then
Log.Event"Parameter '"&DDT.CurrentDriver.Value("Parameter")&"' is set to "& DDT.CurrentDriver.Value("def_undef"&lst_no)
End if
Call DDT.CurrentDriver.Next()
WEnd
DDT.CloseDriver(DDT.CurrentDriver.Name)
End function
//calling it as follows
mo_ChkParamList 1
error line is
Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,1000).Exists
every time it returns False even when object exists on screen while my object names are mentioned in excel file and i am concatinating it with rest of the mapped name.
Excel file is attached.
-farhan
following is my function
Function mo_ChkParamList( lst_no )
ExcelDriverPath1="D:\Perforce\ISCP_Main\Projects\ISCP_Test\Test\CardDesigner_New\ELEMENT_VariousViewerAndEditors\Stores\DB_CardParameterList1.xls"
Call DDT.ExcelDriver(ExcelDriverPath1,"Sheet1")
Dim parameterName
While Not DDT.CurrentDriver.EOF
if DDT.CurrentDriver.Value("tab") <> "" then
tabName=DDT.CurrentDriver.Value("tab")
Log.message "##### TAB '"&tabName&"' #####"
Call Aliases.CardDesigner.editors.CardParameter.tab_CardParameter.ClickTab(tabName)
end if
parameterName=DDT.CurrentDriver.Value("Param_name")
log.message Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,1000).Exists
if DDT.CurrentDriver.Value("def_undef"&lst_no)= "visible" and Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,5000).Exists then
Log.Event"Correct Status Parameter '"&DDT.CurrentDriver.Value("Parameter")&"' is set to "& DDT.CurrentDriver.Value("def_undef"&lst_no)
elseif DDT.CurrentDriver.Value("def_undef"&lst_no)= "invisible" and Not Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,1000).Exists then
Log.Event"Parameter '"&DDT.CurrentDriver.Value("Parameter")&"' is set to "& DDT.CurrentDriver.Value("def_undef"&lst_no)
End if
Call DDT.CurrentDriver.Next()
WEnd
DDT.CloseDriver(DDT.CurrentDriver.Name)
End function
//calling it as follows
mo_ChkParamList 1
error line is
Aliases.CardDesigner.editors.CardParameter.WaitVBObject(parameterName,1000).Exists
every time it returns False even when object exists on screen while my object names are mentioned in excel file and i am concatinating it with rest of the mapped name.
Excel file is attached.
-farhan
Related Content
Recent Discussions
- 2 days agoMW_Didata