diff options
Diffstat (limited to 'testautomation/framework/optional/includes/filedlg_document_properties.inc')
-rwxr-xr-x[-rw-r--r--] | testautomation/framework/optional/includes/filedlg_document_properties.inc | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/filedlg_document_properties.inc b/testautomation/framework/optional/includes/filedlg_document_properties.inc index 089a1d131338..0fd8a0a79f55 100644..100755 --- a/testautomation/framework/optional/includes/filedlg_document_properties.inc +++ b/testautomation/framework/optional/includes/filedlg_document_properties.inc @@ -104,3 +104,69 @@ testcase tFiledlgDocumentProperties() endcase +'******************************************************************************* + +function hDocumentInfoSelectTab( cTabPage as string ) as boolean + + + '///<h3>Switch between the tabpages in the document info dialog</h3> + '///<i>The declaration of the document info dialog is not complete which + '///+ enforces special treatment</i><br><br> + + '///<u>Parameter(s):</u><br> + '///<ol> + + '///+<li>The name of the tabpage to be activated (String)</li> + '///<ul> + '///+<li>"General"</li> + '///+<li>"Description"</li> + '///+<li>"User"</li> + '///+<li>"Internet"</li> + '///+<li>"Statistics"</li> + '///+<li>The string is case insensitive</li> + + '///</ul> + + '///</ol> + + + '///<u>Returns:</u><br> + '///<ol> + '///+<li>Errorcondition (Boolean)</li> + '///<ul> + '///+<li>TRUE if tabpage is known and switching worked</li> + '///+<li>FALSE on icorrect input parameter</li> + '///+<li>FALSE on any other error</li> + '///</ul> + '///</ol> + + const CFN = "hDocumentInfoSelectTab::" + printlog( CFN & "Enter with option (tabpage): " & cTabPage ) + dim brc as boolean 'a multi purpose boolean returnvalue + brc = true + + '///<u>Description:</u> + '///<ul> + '///+<li>Kontext to the dialog</li> + Kontext + + '///+<li>Select the page to switch to, context to the new page</li> + select case ( ucase( cTabPage ) ) + case "GENERAL" : active.setPage TabDokument : kontext "TabDokument" + case "DESCRIPTION" : active.setPage TabBeschreibung : kontext "TabBeschreibung" + case "USER" : warnlog( "#i95523# - Cannot access controls on Custom page" ) + brc = false + 'active.setPage TabBenutzer : kontext "TabBenutzer" + case "INTERNET" : active.setPage TabInternet : kontext "TabInternet" + case "STATISTICS" : active.setPage TabStatistik : kontext "TabStatistik" + case default : brc = false + end select + + '///</ul> + + printlog( CFN & "Exit with result: " & brc ) + hDocumentInfoSelectTab() = brc + +end function + + |