#i108418# wrong errorhandling in c_so7_pp1.bas

1 files changed, 6 insertions, 9 deletions

diff --git a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc
index 7f9d9f0627af..658e1b8aa697 100755
--- a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc
+++ b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc
@@ -90,23 +90,20 @@ testcase tIBIS111158
     sleep(2)
     Kontext "FormControls"
     try
-        if SwitchControlDesignMode.IsEnabled then
+    	if SwitchControlDesignMode.GetState(2) = 0 then
             '/// Click on 'Design Mode on/off' button on 'Form Controls'-toolbar
             SwitchControlDesignMode.click
             sleep(2)
-            '/// Click on 'Form Design' button on 'Form Controls'-toolbar                
-            FormDesignTools.Click
-            sleep(2)
-        else
-            printlog "Form controls toolbar was not enabled."
         end if
     catch
-        QAErrorlog "Document is opened in design mode -> #111099#"
-        QAErrorlog "No need to test if that one isn't fixed -> aborted"
+        warnlog "Form controls toolbar was not enabled, maybe the doc is writeprotected."
+        Call hToolbarSelect("CONTROLS", false)
         call hCloseDocument
         goto endsub
     endcatch
-
+    '/// Click on 'Form Design' button on 'Form Controls'-toolbar                
+    FormDesignTools.Click
+    sleep(2)
     Kontext "FormDesignTools"
     if FormDesignTools.Exists(2) then
         If ShowFmExplorer.IsEnabled then