2 files changed, 12 insertions, 9 deletions
diff --git a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
index 2a39ad34911b..32eee7e6040c 100755
--- a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
@@ -310,6 +310,7 @@ testcase tFileOpenHTML
     Call hNewDocument
     Printlog " Open File-Open-dialog"
     FileOpen
+    waitslot (5)
     Kontext "OeffnenDlg"
     Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
     Dateiname.settext (sTestFile)
@@ -317,7 +318,6 @@ testcase tFileOpenHTML
     Call hSelectUIFilter (sTestFilter1)
     Printlog " Click on Open"
     Oeffnen.Click
-    sleep (1)
     Kontext "HTMLImportOptions"
     Printlog " Use every control on dialog Import Options"
     Custom.Check
@@ -325,11 +325,13 @@ testcase tFileOpenHTML
     Automatic.Check
     DetectSpecialNumbers.Check
     HTMLImportOptions.OK
+    sleep (2)
     Printlog " Close recent document"
     Call hCloseDocument
     Printlog " Retry with Calc Web Querry filter"
     Printlog " Open File-Open-dialog"
     FileOpen
+    waitslot (5)
     Kontext "OeffnenDlg"
     Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
     Dateiname.settext (sTestFile)
@@ -337,7 +339,6 @@ testcase tFileOpenHTML
     Call hSelectUIFilter (sTestFilter2)
     Printlog " Click on Open"
     Oeffnen.Click
-    sleep (1)
     Kontext "HTMLImportOptions"
     Printlog " Use every control on dialog Import Options"
     Custom.Check
@@ -345,6 +346,7 @@ testcase tFileOpenHTML
     Automatic.Check
     DetectSpecialNumbers.Check
     HTMLImportOptions.OK
+    sleep (2)
     Printlog " Close recent document"
     Call hCloseDocument
 
diff --git a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
index 5e8e5c1f0fdb..293418b76c2b 100644..100755
--- a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
@@ -324,13 +324,14 @@ testcase tViewNavigator
     Szenarien.Click
     Szenarien.Click
     '/// Check that the dragmodus has 3 modes
-    printlog " Check that the dragmodus has 3 modes"
-    Dragmodus.OpenMenu
-    waitslot(1000)
-    if hMenuItemGetCount <> 3 then
-        warnlog "Not enough modes for dragmodus"
-    end if
-    hMenuSelectNr (0)
+    qaerrorlog "Dragmodus disabled because of unreliability"
+'    printlog " Check that the dragmodus has 3 modes"
+'    Dragmodus.OpenMenu
+'    waitslot(1000)
+'    if hMenuItemGetCount <> 3 then
+'        warnlog "Not enough modes for dragmodus"
+'    end if
+'    hMenuSelectNr (0)
     '/// Close Navigator
     printlog " Close Navigator"
     Kontext "Navigator"