testautomation/dbaccess/optional/includes/wiz_CopyTableWizard.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: wiz_CopyTableWizard.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:42 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : marc.neumann@sun.com
  35 '*
  36 '* short description : Copy Table Autopilot
  37 '*
  38 '\**************************************************************************************
  39 Dim sDSName as string
  40 Dim sTabName as string
  41 dim i as integer
  42
  43 sub wiz_CopyTableWizard
  44
  45         printlog "------------------- wiz_CopyTableWizard.inc ------------------------"
  46
  47         call tCopy_Table_Dialog_Definition_and_data
  48     call tCopy_Table_Dialog_Definition
  49     call tCopy_Table_Dialog_Attach_data
  50     call tCopy_Table_from_Text_Document
  51     call tCopy_Table_from_Calc_Document
  52     ' because of issue 68334 I need to restart the office
  53     call ExitRestartTheOffice
  54     call tCopy_Table_from_hsql_to_dBase
  55     ' test issue 81299
  56     call tCopy_Table_Paste_Special
  57
  58 end sub
  59 '--------------------------------------------------------------------
  60 testcase tCopy_Table_Dialog_Definition_and_data
  61
  62     Dim sTableDimension as string
  63     Dim iRowCount as integer
  64     Dim iColumnCount as integer
  65
  66     '/// open the bibliography database
  67     printlog "open the bibliography database"
  68     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
  69
  70     '///Make sure that there isn't a biblio2 table
  71     printlog "Make sure that there isn't a biblio2 table"
  72     If fFindtable("biblio2") = true then
  73        call fDeleteTable("biblio2")
  74     EndIf
  75
  76     '/// select the biblio table
  77     printlog "select the biblio table"
  78     call fFindtable("biblio")
  79
  80     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
  81     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
  82     Kontext "DATABASE"
  83         Database.typeKeys("<MOD1 C>",true)
  84         sleep(1)
  85         Database.typeKeys("<MOD1 V>",true)
  86         sleep(1)
  87
  88     '/// the copy table dialog appear
  89     printlog "the copy table dialog appear"
  90         Kontext "CopyDatabaseTable"
  91         if not CopyDatabaseTable.Exists(3) then
  92             warnlog "the Copy Table Autopilot doesn't appear"
  93             goto endsub
  94         endif
  95
  96     '/// select the Definition and Data option
  97     printlog "select the Definition and Data option"
  98     Kontext "TabCopyDatabaseTable"
  99         DefinitionAndData.Check
 100
 101     '/// change the table name to biblio
 102     printlog "change the table name to biblio"
 103         Kontext "TabCopyDatabaseTable"
 104             TableName.setText "biblio"
 105
 106     '/// click next
 107     printlog "click next"
 108         Kontext "CopyDatabaseTable"
 109             NextBt.Click
 110     '/// there should be a message that the table name already exists.
 111     printlog "there should be a message that the table name already exists."
 112         Kontext "MessageBox"
 113             If not MessageBox.Exists(1) then
 114             warnlog "There have to be an error messages that the table name already exists"
 115         else
 116             MessageBox.OK
 117         endif
 118
 119     '/// change the table name to biblio2
 120     printlog "change the table name to biblio2"
 121         Kontext "TabCopyDatabaseTable"
 122             TableName.setText "biblio2"
 123         DefinitionAndData.Check
 124
 125     '/// click next
 126     printlog "click next"
 127         Kontext "CopyDatabaseTable"
 128         NextBt.Click
 129
 130         sleep(1)
 131
 132     '/// add all columns
 133     printlog "add all columns"
 134         Kontext "TabColumnSelect"
 135             AddAll.Click
 136         sleep(1)
 137
 138     '/// click next
 139     printlog "click next"
 140         Kontext "CopyDatabaseTable"
 141             NextBt.Click
 142         sleep(1)
 143
 144     '/// click OK
 145     printlog "click OK"
 146         Kontext "CopyDatabaseTable"
 147         CopyDatabaseTable.OK
 148         sleep(1)
 149
 150     qaerrorlog "because of issue 76051 this copied table is not checked"
 151     '///Check if the table is copied correct
 152     'printlog "Check, if the table is copied correct"
 153     'sTableDimension = fCreateRefFile("Bibliography", "t" , "biblio2" , "#")
 154     'if (sTableDimension = "") then
 155     '    printlog "Problem while creating Reference File"
 156     'else
 157     '    'printlog sTableDimension       'Debugcode
 158     '    iColumnCount = CInt(Left(sTableDimension, instr(sTableDimension,",")))+1
 159     '    'printlog "Number of Columns: " & iColumnCount  'Debugcode
 160     '    iRowCount = CInt(Right(sTableDimension, (Len(sTableDimension) - instr(sTableDimension,","))))+1
 161     '    'printlog "Number of Rows: " & iRowCount    'Debugcode
 162     '    call tCompareMatrixValues("Bibliography", "user/work/biblio2.ttr", "t", "biblio", iRowCount, iColumnCount, "#")
 163     'endif
 164
 165
 166     '/// delete the copy table
 167     printlog "delete the copy table"
 168     call fDeleteTable("biblio2")
 169
 170         '/// close the database
 171     printlog "close the database"
 172         call fCloseDatabase()
 173
 174 endcase
 175 '--------------------------------------------------------------------
 176 testcase tCopy_Table_Dialog_Definition
 177
 178     '/// open the bibliography database
 179     printlog "open the bibliography database"
 180     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 181
 182     '/// select the biblio table
 183     printlog "select the biblio table"
 184     call fFindtable("biblio")
 185
 186     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
 187     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
 188     Kontext "DATABASE"
 189         Database.typeKeys("<MOD1 C>",true)
 190         sleep(1)
 191         Database.typeKeys("<MOD1 V>",true)
 192         sleep(1)
 193
 194
 195     '/// the copy table dialog appear
 196     printlog "the copy table dialog appear"
 197         Kontext "CopyDatabaseTable"
 198         if not CopyDatabaseTable.Exists(3) then
 199             warnlog "the Copy Table Autopilot doesn't appear"
 200             goto endsub
 201         endif
 202     '/// check definition
 203     printlog "check definition"
 204     Kontext "TabCopyDatabaseTable"
 205         Definition.Check
 206
 207     '/// change the table name to biblio2
 208     printlog "change the table name to biblio2"
 209         Kontext "TabCopyDatabaseTable"
 210             TableName.setText "biblio2"
 211         DefinitionAndData.Check
 212     '/// click next
 213     printlog "click next"
 214         Kontext "CopyDatabaseTable"
 215         NextBt.Click
 216         sleep(1)
 217
 218     '/// add all columns
 219     printlog "add all columns"
 220         Kontext "TabColumnSelect"
 221             AddAll.Click
 222         sleep(1)
 223
 224     '/// click next
 225     printlog "click next"
 226         Kontext "CopyDatabaseTable"
 227             NextBt.Click
 228         sleep(1)
 229
 230     '/// click OK
 231     printlog "click OK"
 232     Kontext "CopyDatabaseTable"
 233         CopyDatabaseTable.OK
 234         sleep(1)
 235
 236     'TODO: check if the table is copied correct
 237
 238     '/// delete the copy table
 239     printlog "delete the copy table"
 240     call fDeleteTable("biblio2")
 241
 242     '/// close the database
 243     printlog "close the database"
 244         call fCloseDatabase()
 245
 246 endcase
 247 '--------------------------------------------------------------------
 248 testcase tCopy_Table_Dialog_Attach_data
 249
 250     '/// open the bibliography database
 251     printlog "open the bibliography database"
 252     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 253
 254     '/// select the biblio table
 255     printlog "select the biblio table"
 256     call fFindtable("biblio")
 257
 258     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
 259     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
 260     Kontext "DATABASE"
 261         Database.typeKeys("<MOD1 C>",true)
 262         sleep(1)
 263         Database.typeKeys("<MOD1 V>",true)
 264         sleep(1)
 265
 266     '/// the copy table dialog appear
 267     printlog "the copy table dialog appear"
 268         Kontext "CopyDatabaseTable"
 269         if not CopyDatabaseTable.Exists(3) then
 270             warnlog "the Copy Table Autopilot doesn't appear"
 271             goto endsub
 272         endif
 273
 274     '/// check definition
 275     Kontext "TabCopyDatabaseTable"
 276         Definition.Check
 277
 278     '/// change the table name to biblio3
 279     printlog "change the table name to biblio3"
 280         Kontext "TabCopyDatabaseTable"
 281             TableName.setText "biblio3"
 282         DefinitionAndData.Check
 283
 284     '/// click next
 285     printlog "click next"
 286         Kontext "CopyDatabaseTable"
 287         NextBt.Click
 288         sleep(1)
 289
 290     '/// add all columns
 291     printlog "add all columns"
 292         Kontext "TabColumnSelect"
 293             AddAll.Click
 294         sleep(1)
 295
 296     '/// click next
 297     printlog "click next"
 298         Kontext "CopyDatabaseTable"
 299             NextBt.Click
 300         sleep(1)
 301
 302     '/// click OK
 303     printlog "click OK"
 304         Kontext "CopyDatabaseTable"
 305         CopyDatabaseTable.OK
 306         sleep(1)
 307
 308     '/// select the biblio table
 309     printlog "select the biblio table"
 310     call fFindtable("biblio")
 311
 312     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
 313     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
 314     Kontext "DATABASE"
 315         Database.typeKeys("<MOD1 C>",true)
 316         sleep(1)
 317         Database.typeKeys("<MOD1 V>",true)
 318         sleep(1)
 319
 320     '/// the copy table dialog appear
 321     printlog "the copy table dialog appear"
 322         Kontext "CopyDatabaseTable"
 323         if not CopyDatabaseTable.Exists(3) then
 324             warnlog "the Copy Table Autopilot doesn't appear"
 325             goto endsub
 326         endif
 327     '/// change the table name to biblio3 and choose attach data
 328     printlog "change the table name to biblio3"
 329         Kontext "TabCopyDatabaseTable"
 330             TableName.setText "biblio3"
 331         AttachData.Check
 332
 333     '/// click next
 334     printlog "click next"
 335         Kontext "CopyDatabaseTable"
 336         NextBt.Click
 337         sleep(1)
 338
 339     '/// click OK
 340     printlog "click OK"
 341     Kontext "CopyDatabaseTable"
 342         CopyDatabaseTable.OK
 343         sleep(1)
 344
 345     'TODO: check if the table is copied correct
 346
 347     '/// delete the copy table
 348     call fDeleteTable("biblio3")
 349
 350     '/// close the database
 351     call fCloseDatabase()
 352
 353 endcase
 354 '--------------------------------------------------------------------
 355 testcase tCopy_Table_from_Text_Document
 356
 357     '/// open a new document
 358     printlog "open a new document"
 359         call hNewDocument
 360
 361     '/// insert a table and insert some data
 362     printlog "insert a table and insert some data"
 363     InsertTableWriter
 364     Sleep 2
 365     Kontext "TabelleEinfuegenWriter"
 366         wait 500
 367         TabelleEinfuegenWriter.OK
 368         Sleep 1
 369     Kontext "DocumentWriter"
 370         DocumentWriter.TypeKeys "field1" , true
 371         DocumentWriter.TypeKeys "<TAB>" , true
 372         DocumentWriter.TypeKeys "field2" , true
 373         DocumentWriter.TypeKeys "<TAB>" , true
 374         DocumentWriter.TypeKeys "field3" , true
 375         DocumentWriter.TypeKeys "<TAB>" , true
 376         DocumentWriter.TypeKeys "field4" , true
 377         DocumentWriter.TypeKeys "<TAB>" , true
 378         DocumentWriter.TypeKeys "field5" , true
 379         DocumentWriter.TypeKeys "<TAB>" , true
 380         DocumentWriter.TypeKeys "1" , true
 381         DocumentWriter.TypeKeys "<TAB>" , true
 382         DocumentWriter.TypeKeys "value1" , true
 383         DocumentWriter.TypeKeys "<TAB>" , true
 384         DocumentWriter.TypeKeys "value2" , true
 385         DocumentWriter.TypeKeys "<TAB>" , true
 386         DocumentWriter.TypeKeys "31.7.2003" , true
 387         DocumentWriter.TypeKeys "<TAB>" , true
 388                 EditSelectAll
 389         sleep(1)
 390         DocumentWriter.TypeKeys "<MOD1 C>" , true
 391     sleep(2)
 392
 393     '/// open database for past to
 394     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 395
 396     '/// select the biblio table
 397     call fFindtable("biblio")
 398
 399     '/// press CTRL + V to paste the table
 400     Kontext "DATABASE"
 401         Database.typeKeys("<MOD1 V>",true)
 402         sleep(1)
 403
 404     '/// the copy table dialog appear
 405     printlog "the copy table dialog appear"
 406         Kontext "CopyDatabaseTable"
 407         if not CopyDatabaseTable.Exists(3) then
 408                 warnlog "the Copy Table Autopilot doesn't appear"
 409                 goto endsub
 410         endif
 411     '/// change the table name to biblio2
 412     printlog "change the table name to biblio2"
 413         Kontext "TabCopyDatabaseTable"
 414             TableName.setText "biblio2"
 415
 416     '/// select Definition and Data
 417     printlog "select Definition and Data"
 418         DefinitionAndData.Check
 419
 420     '/// click next
 421     printlog "click next"
 422         Kontext "CopyDatabaseTable"
 423         NextBt.Click
 424         sleep(1)
 425
 426     '/// add all columns
 427     printlog "add all columns"
 428         Kontext "TabColumnSelect"
 429         AddAll.Click
 430         sleep(1)
 431
 432     '/// click next
 433     printlog "click next"
 434         Kontext "CopyDatabaseTable"
 435         NextBt.Click
 436         sleep(1)
 437
 438     '/// click OK
 439     printlog "click OK"
 440         CopyDatabaseTable.OK
 441         sleep(1)
 442
 443     'TODO: check if the table is copied correct
 444
 445     '/// delete the copy table
 446     printlog "delete the copy table"
 447     call fDeleteTable("biblio2")
 448
 449     '/// close the database
 450     printlog "close the database"
 451     call fCloseDatabase
 452
 453     '/// close the document
 454     printlog "close the document"
 455     call hCloseDocument
 456
 457 endcase
 458 '--------------------------------------------------------------------
 459 testcase tCopy_Table_from_Calc_Document
 460
 461     '/// open a new calc document
 462     printlog "open a calc new document"
 463         gApplication = "CALC"
 464     call hNewDocument
 465
 466     '/// insert some data
 467     printlog "insert some data"
 468     Kontext "DocumentCalc"
 469         DocumentCalc.TypeKeys "Field1" , true
 470         DocumentCalc.TypeKeys "<TAB>" , true
 471         DocumentCalc.TypeKeys "Field2" , true
 472         DocumentCalc.TypeKeys "<TAB>" , true
 473         DocumentCalc.TypeKeys "Field3" , true
 474         DocumentCalc.TypeKeys "<TAB>" , true
 475         DocumentCalc.TypeKeys "Field4" , true
 476         DocumentCalc.TypeKeys "<TAB>" , true
 477         DocumentCalc.TypeKeys "Field5" , true
 478         DocumentCalc.TypeKeys "<TAB>" , true
 479         DocumentCalc.TypeKeys "<RETURN>" , true
 480         DocumentCalc.TypeKeys "<HOME>" , true
 481         DocumentCalc.TypeKeys "1" , true
 482         DocumentCalc.TypeKeys "<TAB>" , true
 483         DocumentCalc.TypeKeys "value1" , true
 484         DocumentCalc.TypeKeys "<TAB>" , true
 485         DocumentCalc.TypeKeys "value2" , true
 486         DocumentCalc.TypeKeys "<TAB>" , true
 487         DocumentCalc.TypeKeys "31.7.2003" , true
 488         DocumentCalc.TypeKeys "<TAB>" , true
 489         '/// select all and press CTRL + C to copy the data to the clipboard
 490         printlog "select all and press CTRL + C to copy the data to the clipboard"
 491                 EditSelectALL
 492         sleep(1)
 493         DocumentCalc.TypeKeys "<MOD1 C>" , true
 494     sleep(2)
 495
 496     '/// open database for paste to
 497     printlog "open database for paste to"
 498     app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb"),gOfficePath + ConvertPath("user/work/TT_hsqldb.odb")
 499     call fOpendatabase(ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb"))
 500
 501     '/// open the tables container
 502     printlog "open the tables container"
 503     call fFindtable("biblio2")
 504
 505     '/// press CTRL + V to paste the table again
 506     Kontext "DATABASE"
 507         Database.typeKeys("<MOD1 V>",true)
 508         sleep(1)
 509
 510     '/// the copy table dialog appear
 511     printlog "the copy table dialog appear"
 512         Kontext "CopyDatabaseTable"
 513         if not CopyDatabaseTable.Exists(3) then
 514                 warnlog "the Copy Table Autopilot doesn't appear"
 515                 goto endsub
 516         endif
 517     '/// change the table name to biblio2
 518     printlog "change the table name to biblio2"
 519         Kontext "TabCopyDatabaseTable"
 520             TableName.setText "biblio2"
 521
 522     '/// select Definition and Data
 523     printlog "select Definition and Data"
 524         DefinitionAndData.Check
 525
 526     '/// let the wizard create a primary key
 527     printlog "let the wizard create a primary key"
 528     CreatePrimaryKey.Check
 529     '/// check if the default text for the primary key is available
 530     printlog "check if the default text for the primary key is available"
 531     if ( PrimaryKeyName.getText = "" ) then
 532         warnlog "the automatic default text for the primary key doesn't work"
 533     endif
 534
 535     '/// change the default text to ID111
 536     printlog "change the default text to ID111"
 537     PrimaryKeyName.setText("ID1111")
 538
 539     '/// click next
 540     printlog "click next"
 541         Kontext "CopyDatabaseTable"
 542         NextBt.Click
 543         sleep(1)
 544
 545     '/// add all columns
 546     printlog "add all columns"
 547         Kontext "TabColumnSelect"
 548         AddAll.Click
 549         sleep(1)
 550
 551     '/// click next
 552     printlog "click next"
 553         Kontext "CopyDatabaseTable"
 554         NextBt.Click
 555         sleep(1)
 556
 557     '/// click OK
 558     printlog "click OK"
 559         CopyDatabaseTable.OK
 560         sleep(1)
 561
 562     '/// ceck if the table is copied correct
 563     printlog "ceck if the table is copied correct"
 564     call fOpenTableInDesign("biblio2")
 565
 566     Kontext "TableDesignTable"
 567         dim s as String
 568         s = Fieldname.getText()
 569         printlog s
 570         if s <> "ID1111" then
 571             warnlog "the first field is wrong. It should ID1111 but it is " + s
 572         endif
 573         TableDesignTable.TypeKeys("<DOWN>")
 574         s = Fieldname.getText()
 575         printlog s
 576         if s <> "Field1" then
 577             warnlog "the second field is wrong. It should Field1 but it is " + s
 578         endif
 579         TableDesignTable.TypeKeys("<DOWN>")
 580         s = Fieldname.getText()
 581         printlog s
 582         if s <> "Field2" then
 583             warnlog "the third field is wrong. It should Field2 but it is " + s
 584         endif
 585         TableDesignTable.TypeKeys("<DOWN>")
 586         s = Fieldname.getText()
 587         printlog s
 588         if s <> "Field3" then
 589             warnlog "the 4. field is wrong. It should Field3 but it is " + s
 590         endif
 591         TableDesignTable.TypeKeys("<DOWN>")
 592         s = Fieldname.getText()
 593         printlog s
 594         if s <> "Field4" then
 595             warnlog "the 5. field is wrong. It should Field4 but it is " + s
 596         endif
 597         TableDesignTable.TypeKeys("<DOWN>")
 598         s = Fieldname.getText()
 599         printlog s
 600         if s <> "Field5" then
 601             warnlog "the 6. field is wrong. It should Field5 but it is " + s
 602         endif
 603         TableDesignTable.TypeKeys("<DOWN>")
 604
 605     '/// close the table design
 606     printlog "close the table design"
 607     call fCloseTableDesign
 608
 609     '/// delete the copy table
 610     printlog "delete the copy table"
 611     call fDeleteTable("biblio2")
 612
 613     '/// close the database
 614     printlog "close the database"
 615     call fCloseDatabase
 616
 617     '/// close the spreadsheet document
 618     printlog "close the spreadsheet document"
 619     call hCloseDocument
 620
 621     gApplication = "WRITER"
 622
 623 endcase
 624 '--------------------------------------------------------------------
 625 testcase tCopy_Table_from_hsql_to_dBase
 626
 627     '/// copy the database file to a local path
 628     printlog "copy the database file to a local path"
 629     app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb"),gOfficePath + ConvertPath("user/work/TT_hsqldb.odb")
 630
 631     '/// open a hsql database
 632     printlog "open a hsql database"
 633     call fOpendatabase(ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb"))
 634     sleep(5)
 635
 636     '/// select the tabel TT_CopyTest
 637     printlog "select the tabel TT_CopyTest"
 638     call fFindTable("TT_1")
 639
 640     '/// press CTRL + C to copy the table
 641     printlog "press CTRL + C to copy the table"
 642     Kontext "DATABASE"
 643         Database.typeKeys("<MOD1 C>",true)
 644
 645     '/// open the bibliography database
 646     printlog "open the bibliography database"
 647     call fOpenDatabase(gOfficePath + "user/database/biblio.odb")
 648
 649     call fDeleteTable("TT_1") ' delete the table TT_1 if the table exists.
 650
 651     '/// select the biblio table
 652     printlog "select the biblio table"
 653     call fFindTable("biblio")
 654
 655     '/// press CTRL + V to paste the table
 656     Kontext "DATABASE"
 657         Database.typeKeys("<MOD1 V>",true)
 658
 659     '/// the copy table dialog appear
 660     printlog "the copy table dialog appear"
 661         Kontext "CopyDatabaseTable"
 662         if not CopyDatabaseTable.Exists(3) then
 663                 warnlog "the Copy Table Autopilot doesn't appear"
 664                 goto endsub
 665         endif
 666
 667     '/// select Definition and Data
 668     printlog "select Definition and Data"
 669         Kontext "TabCopyDatabaseTable"
 670             TableName.setText("TT_1")
 671         DefinitionAndData.Check
 672
 673     '/// click next
 674     printlog "click next"
 675         Kontext "CopyDatabaseTable"
 676         NextBt.Click
 677
 678     '/// add all columns
 679     printlog "add all columns"
 680         Kontext "TabColumnSelect"
 681         AddAll.Click
 682
 683     ' there is a messages box about missing compatible field type.
 684     Kontext "MessageBox"
 685     if MessageBox.exists(3) then
 686         printlog "There is a messageBox. " + MessageBox.getText
 687         MessageBox.OK
 688     endif
 689
 690     '/// click next
 691     printlog "click next"
 692         Kontext "CopyDatabaseTable"
 693             NextBt.Click
 694
 695     '/// click OK
 696     printlog "click OK"
 697         CopyDatabaseTable.OK
 698         sleep(1)
 699
 700     Kontext "MessageBox"
 701     if MessageBox.exists(3) then
 702         printlog "There is a messageBox. " + MessageBox.getText
 703         MessageBox.Yes
 704     endif
 705
 706     if MessageBox.exists(3) then
 707         printlog "There is a messageBox. " + MessageBox.getText
 708         MessageBox.OK
 709     endif
 710
 711     '/// delete the copied table
 712     printlog "delete the copied table"
 713     call fDeleteTable("TT_1")
 714
 715     '/// close the database
 716     printlog "close the database"
 717     call fCloseDatabase()
 718
 719     '/// close the other database
 720     printlog "close the other database"
 721     call fCloseDatabase()
 722
 723 endcase
 724 '--------------------------------------------------------------------
 725 testcase tCopy_Table_Paste_Special
 726
 727     Dim sTableDimension as string
 728     Dim iRowCount as integer
 729     Dim iColumnCount as integer
 730
 731     '/// open the bibliography database
 732     printlog "open the bibliography database"
 733     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 734
 735     '///Make sure that there isn't a biblio2 table
 736     printlog "Make sure that there isn't a biblio2 table"
 737     If fFindtable("biblio2") = true then
 738        call fDeleteTable("biblio2")
 739     EndIf
 740
 741     '/// select the biblio table
 742     printlog "select the biblio table"
 743     call fFindtable("biblio")
 744
 745     '/// press CTRL + C to copy the table and CTRL + V to paste the table again
 746     printlog "press CTRL + C to copy the table and CTRL + V to paste the table again"
 747     Kontext "DATABASE"
 748         Database.typeKeys("<MOD1 C>",true)
 749         sleep(1)
 750         Database.UseMenu
 751         hMenuSelectNr(2)
 752         hMenuSelectNr(5)
 753         sleep(1)
 754         Kontext "InhaltEinfuegen"
 755             InhaltEinfuegen.OK
 756
 757     '/// the copy table dialog appear
 758     printlog "the copy table dialog appear"
 759         Kontext "CopyDatabaseTable"
 760         if not CopyDatabaseTable.Exists(3) then
 761             warnlog "the Copy Table Autopilot doesn't appear"
 762             goto endsub
 763         endif
 764
 765     '/// change the table name to biblio
 766     printlog "change the table name to biblio"
 767         Kontext "TabCopyDatabaseTable"
 768             TableName.setText "biblio"
 769
 770     '/// click next
 771     printlog "click next"
 772         Kontext "CopyDatabaseTable"
 773             NextBt.Click
 774     '/// there should be a message that the table name already exists.
 775     printlog "there should be a message that the table name already exists."
 776         Kontext "MessageBox"
 777             If not MessageBox.Exists(1) then
 778             warnlog "There have to be an error messages that the table name already exists"
 779         else
 780             MessageBox.OK
 781         endif
 782
 783     '/// change the table name to biblio2
 784     printlog "change the table name to biblio2"
 785         Kontext "TabCopyDatabaseTable"
 786             TableName.setText "biblio2"
 787         DefinitionAndData.Check
 788
 789     '/// click next
 790     printlog "click next"
 791         Kontext "CopyDatabaseTable"
 792         NextBt.Click
 793
 794         sleep(1)
 795
 796     '/// add all columns
 797     printlog "add all columns"
 798         Kontext "TabColumnSelect"
 799             AddAll.Click
 800         sleep(1)
 801
 802     '/// click next
 803     printlog "click next"
 804         Kontext "CopyDatabaseTable"
 805             NextBt.Click
 806         sleep(1)
 807
 808     '/// click OK
 809     printlog "click OK"
 810         Kontext "CopyDatabaseTable"
 811         CopyDatabaseTable.OK
 812         sleep(1)
 813
 814     qaerrorlog "because of issue 76051 this copied table is not checked"
 815     '///Check if the table is copied correct
 816     'printlog "Check, if the table is copied correct"
 817     'sTableDimension = fCreateRefFile("Bibliography", "t" , "biblio2" , "#")
 818     'if (sTableDimension = "") then
 819     '    printlog "Problem while creating Reference File"
 820     'else
 821     '    'printlog sTableDimension       'Debugcode
 822     '    iColumnCount = CInt(Left(sTableDimension, instr(sTableDimension,",")))+1
 823     '    'printlog "Number of Columns: " & iColumnCount  'Debugcode
 824     '    iRowCount = CInt(Right(sTableDimension, (Len(sTableDimension) - instr(sTableDimension,","))))+1
 825     '    'printlog "Number of Rows: " & iRowCount    'Debugcode
 826     '    call tCompareMatrixValues("Bibliography", "user/work/biblio2.ttr", "t", "biblio", iRowCount, iColumnCount, "#")
 827     'endif
 828
 829
 830     '/// delete the copy table
 831     printlog "delete the copy table"
 832     call fDeleteTable("biblio2")
 833
 834         '/// close the database
 835     printlog "close the database"
 836         call fCloseDatabase()
 837
 838 endcase
 839