testautomation/writer/optional/includes/fields/w_fields5.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: w_fields5.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:27:14 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Fields - Variables
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_fields5
  41
  42     Call tVariablesSetValueToText
  43     Call tVariablesSetValueToNumber
  44     Call tVariablesSetFormats
  45     Call tVariablesShowVariable1
  46     Call tVariablesShowVariable2
  47     Call tVariablesInsertFormula
  48     Call tVariablesNumberRange
  49     Call tVariablesInputfield
  50     Call tVariablesUserfield
  51     Call tVariablesDDEFieldManual
  52     Call tVariablesDDEFieldAutomatic
  53
  54 end sub
  55
  56 '-----------------------------------------------------------------
  57
  58 testcase tVariablesSetValueToText
  59     if bAsianLan = true then
  60         QaErrorLog "No testing with Asian language. Aborting."
  61         exit sub
  62     end if
  63
  64   Dim sName()   as String
  65   Dim sValue    as String
  66   Dim sResult() as String
  67   Dim i         as Integer
  68   Dim j         as Integer
  69
  70   sValue  = "This is a test!"
  71
  72   sName   = Array( _
  73                    "myTest1" , _
  74                    "myTest2" , _
  75                    "myTest3" , _
  76                    "myTest4" , _
  77                    "myTest5" , _
  78                    "myTest6" , _
  79                   )
  80   sResult = Array( _
  81                    "This is a test!" , _
  82                    "1"               , _
  83                    "1"               , _
  84                    "1" & gSeperator & "00"            , _
  85                    "1"               , _
  86                    "1" & gSeperator & "00"            , _
  87                   )
  88   j = UBound(sResult)
  89
  90   printlog "Set value to text"
  91  '/// <b> Set value to text </b>
  92
  93   Call hNewDocument
  94
  95   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
  96   '/// Set Name and Value(text) , then choose Text , General ,
  97   '/// + -1234 , -1234.12 , -1,234 , -1,234,12 separately
  98    Call fInsertFieldsOther("TabVariablen")
  99      for i = 0 to j
 100          Feldtyp.Select 1
 101          Sleep 1
 102          NameText.SetText sName(i)
 103          Wert.SetText sValue
 104          Zahlenformat.Select i+1
 105          Einfuegen.Click
 106          sleep 1
 107          Call wTypeKeys "<Return>"
 108          Kontext "TabVariablen"
 109      next i
 110      Kontext "TabVariablen"
 111    TabVariablen.Close
 112
 113   '/// Check if the insertion is correct
 114    Call wTypeKeys "<MOD1 Home>"
 115
 116    for i = 0 to j
 117        Call wTypeKeys "<Shift Right>"
 118        if fGetFieldContent() <> sResult(i) then
 119            Warnlog i & "Should get " & sResult(i) & " but get " & fGetFieldContent()
 120        end if
 121        Call wTypeKeys "<Down><Home>"
 122    next i
 123
 124   Call hCloseDocument
 125
 126 endcase
 127
 128 '-----------------------------------------------------------------
 129
 130 testcase tVariablesSetValueToNumber
 131     if bAsianLan = true then
 132         QaErrorLog "No testing with Asian language. Aborting."
 133         exit sub
 134     end if
 135
 136   Dim sName()   as String
 137   Dim sValue    as String
 138   Dim sResult() as String
 139   Dim i         as Integer
 140   Dim j         as Integer
 141
 142   sValue  = "1234,567"
 143
 144   sName   = Array( _
 145                    "myTest1" , _
 146                    "myTest2" , _
 147                    "myTest3" , _
 148                    "myTest4" , _
 149                    "myTest5" , _
 150                    "myTest6" , _
 151                   )
 152   sResult = Array( _
 153                    "1234,567" , _
 154                    "1234,57"  , _
 155                    "1235"     , _
 156                    "1234,57"  , _
 157                    "1.235"    , _
 158                    "1.234,57" , _
 159                   )
 160   j = UBound(sResult)
 161
 162   printlog "Set value to number"
 163  '/// <b> Set value to number </b>
 164
 165   Call hNewDocument
 166
 167   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
 168   '/// Set Name and Value(number) , then choose Text , General ,
 169   '/// + -1234 , -1234.12 , -1,234 , -1,234,12 separately
 170    Call fInsertFieldsOther("TabVariablen")
 171      for i = 0 to j
 172          Feldtyp.Select 1
 173          Sleep 1
 174          NameText.SetText sName(i)
 175          Wert.SetText sValue
 176          Zahlenformat.Select i+1
 177          Einfuegen.Click
 178          sleep 1
 179          Call wTypeKeys "<Return>"
 180          Kontext "TabVariablen"
 181      next i
 182      Kontext "TabVariablen"
 183    TabVariablen.Close
 184
 185   '/// Check if the insertion is correct
 186    Call wTypeKeys "<MOD1 Home>"
 187
 188    for i = 0 to j
 189        Call wTypeKeys "<Shift Right>"
 190        if fGetFieldContent() <> sResult(i) then
 191            QaErrorLog i & "#i94596# - Should get " & sResult(i) & " but get " & fGetFieldContent()
 192        end if
 193        Call wTypeKeys "<Down><Home>"
 194    next i
 195
 196   Call hCloseDocument
 197
 198 endcase
 199
 200 '-----------------------------------------------------------------
 201
 202 testcase tVariablesSetFormats
 203     qaerrorlog "#i94596# - tVariablesSetFormats outcommented due to bug."
 204     goto endsub
 205
 206   Dim sName     as String
 207   Dim sValue    as String
 208   Dim iFormat() as Integer
 209   Dim sResult() as String
 210   Dim i         as Integer
 211   Dim j         as Integer
 212   Dim mUnit     as String
 213
 214   sName   = "myTest"
 215   sValue  = "1234.567"
 216
 217   iFormat = Array( 8,         10          , 52         , 55       , 56)
 218   sResult = Array( _
 219                    "123456.70%"  , _
 220                    "$1,234.57"   , _
 221                    "1.23E+003"   , _
 222                    "1234 55/97"  , _
 223                    "TRUE"        , _
 224                   )
 225   j = UBound(sResult)
 226
 227   printlog "Set format as 'Additional formats...'"
 228  '/// <b> Set format as 'Additional formats...' </b>
 229
 230   Call hNewDocument
 231   CALL GetLanguageText (01)
 232   mUnit = fSetMeasurementToCM()                 ' Set measurement unit to cm
 233
 234   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
 235   '/// Set Name and Value(number) , then choose format as 'Additional formats...'
 236   '/// In the number format dialog , select 'All' in Category
 237   '/// + Select some different formats ...
 238    Call fInsertFieldsOther("TabVariablen")
 239      Feldtyp.Select 1
 240      Sleep 1
 241      NameText.SetText sName
 242      Wert.SetText sValue
 243
 244      for i = 0 to j
 245          Zahlenformat.Select Zahlenformat.GetItemCount
 246          Sleep 3
 247          Kontext "Zahlenformat"
 248            Sprache.Select fGetLanguageName(01)
 249            Sleep 2
 250            Kategorie.Select 1
 251            Sleep 1
 252            KategorieFormat.Select iFormat(i)
 253            Sleep 1
 254          Zahlenformat.OK
 255
 256          Kontext "TabVariablen"
 257            Einfuegen.Click
 258            Call wTypeKeys "<Shift Left>"
 259            sleep 1
 260            if fGetFieldContent() <> sResult(i) then
 261                    Warnlog i & ": Should get " & sResult(i) & " but get " & fGetFieldContent()
 262            end if
 263          Kontext "TabVariablen"
 264      next i
 265    TabVariablen.Close
 266
 267   Call hCloseDocument
 268
 269 endcase
 270
 271 '-----------------------------------------------------------------
 272
 273 testcase tVariablesShowVariable1
 274
 275   Dim sName()   as String
 276   Dim sResult() as String
 277   Dim i         as Integer
 278   Dim j         as Integer
 279
 280   sName   = Array( _
 281                    "myTest1" , _
 282                    "myTest2" , _
 283                    "myTest3" , _
 284                   )
 285   sResult = Array( _
 286                    "1"     , _
 287                    "10"    , _
 288                    "100"   , _
 289                   )
 290   j = UBound(sResult)
 291
 292   printlog "Show Variable - 1"
 293  '/// <b> Show Variable - 2</b>
 294
 295   Call hNewDocument
 296
 297   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
 298   '/// Set Name and Value , then choose General , add 3 variables
 299   '/// + then select Show Variable , insert 3 variables
 300    Call fInsertFieldsOther("TabVariablen")
 301      for i = 0 to j
 302          Feldtyp.Select 1
 303          Sleep 1
 304          NameText.SetText sName(i)
 305          Wert.SetText sResult(i)
 306          Zahlenformat.Select 2
 307          Einfuegen.Click
 308          sleep 1
 309      next i
 310      for i = 0 to j
 311          Call wTypeKeys "<Return>"
 312          Kontext "TabVariablen"
 313          Feldtyp.Select 2
 314          Sleep 1
 315          Auswahl.Select i+1
 316          Einfuegen.Click
 317          sleep 1
 318      next i
 319    TabVariablen.Close
 320
 321   '/// Check if the insertion is correct
 322    Call wTypeKeys "<MOD1 Home>"
 323
 324    for i = 0 to j
 325        Call wTypeKeys "<Down><Home>"
 326        Call wTypeKeys "<Shift Right>"
 327        if fGetFieldContent() <> sResult(i) then
 328            Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
 329        end if
 330    next i
 331
 332   '/// Delete the 1st line
 333    Call wTypeKeys "<MOD1 Home><Shift End><Delete>"
 334
 335    Call wTypeKeys "<MOD1 Home>"
 336
 337    for i = 0 to j
 338        Call wTypeKeys "<Down><Home>"
 339        Call wTypeKeys "<Shift Right>"
 340        if fGetFieldContent() <> "0" then
 341            Warnlog i & "Should get 0 but get " & fGetFieldContent()
 342        end if
 343    next i
 344
 345   Call hCloseDocument
 346
 347 endcase
 348
 349 '-----------------------------------------------------------------
 350
 351 testcase tVariablesShowVariable2
 352
 353   Dim sName     as String
 354   Dim sValue    as String
 355   Dim sResult() as String
 356   Dim i         as Integer
 357   Dim j         as Integer
 358
 359   sResult = Array( _
 360                    "100"   , _
 361                    "100"   , _
 362                    "200"   , _
 363                    "200"   , _
 364                      )
 365   j = UBound(sResult)
 366
 367   sName = "myTest"
 368
 369   printlog "Show Variable - 2"
 370  '/// <b> Show Variable - 2 </b>
 371
 372   Call hNewDocument
 373
 374   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
 375   '/// Set Name and Value , then choose General , insert a variable
 376    Call fInsertFieldsOther("TabVariablen")
 377      sValue = "100"
 378      Feldtyp.Select 1
 379      Sleep 1
 380      NameText.SetText sName
 381      Wert.SetText sValue
 382      Zahlenformat.Select 2
 383      Einfuegen.Click
 384
 385     '/// Then select Show Variable , insert this variable
 386      Call wTypeKeys "<Return>"
 387      Kontext "TabVariablen"
 388      Feldtyp.Select 2
 389      Sleep 1
 390      Auswahl.Select 1
 391      Einfuegen.Click
 392
 393     '/// Insert a same name variable again , but set to another number
 394      Call wTypeKeys "<Return>"
 395      sValue = "200"
 396      Kontext "TabVariablen"
 397      Feldtyp.Select 1
 398      Sleep 1
 399      NameText.SetText sName
 400      Wert.SetText sValue
 401      Zahlenformat.Select 2
 402      Einfuegen.Click
 403
 404     '/// Then select Show Variable , insert this variable again
 405      Call wTypeKeys "<Return>"
 406      Kontext "TabVariablen"
 407      Feldtyp.Select 2
 408      Sleep 1
 409      Auswahl.Select 1
 410      Einfuegen.Click
 411    TabVariablen.Close
 412
 413   '/// Check if the insertion is correct
 414    Call wTypeKeys "<F9><MOD1 Home>"
 415
 416    for i = 0 to j
 417        Call wTypeKeys "<Shift Right>"
 418        if fGetFieldContent() <> sResult(i) then
 419            Warnlog i & "Should get " & sResult(i) & " but get " & fGetFieldContent()
 420        end if
 421        Call wTypeKeys "<Down><Home>"
 422    next i
 423
 424   Call hCloseDocument
 425
 426 endcase
 427
 428 '-----------------------------------------------------------------
 429
 430 testcase tVariablesInsertFormula
 431
 432   Dim sName()   as String
 433   Dim sValue()  as String
 434   Dim sResult   as String
 435   Dim i         as Integer
 436   Dim j         as Integer
 437
 438   sName   = Array( _
 439                    "myTest1" , _
 440                    "myTest2" , _
 441                   )
 442   sValue  = Array( _
 443                    "10"    , _
 444                    "100"   , _
 445                   )
 446   sResult = "110"
 447   j = UBound(sName)
 448
 449   printlog "Insert formula"
 450  '/// <b> Insert formula </b>
 451
 452   Call hNewDocument
 453
 454   '/// Insert/Fields/Other/Variables / Select "set Variable" , add 2 variables - A and B
 455    Call fInsertFieldsOther("TabVariablen")
 456      for i = 0 to j
 457          Feldtyp.Select 1
 458          Sleep 1
 459          NameText.SetText sName(i)
 460          Wert.SetText sValue(i)
 461          Zahlenformat.Select 2
 462          Einfuegen.Click
 463          sleep 1
 464      next i
 465
 466     '/// Then select 'Insert formula' , A+B
 467      Call wTypeKeys "<Return>"
 468      Kontext "TabVariablen"
 469        Feldtyp.Select 4
 470        Wert.SetText (sName(0) & "+" & sName(1))
 471        Einfuegen.Click
 472    TabVariablen.Close
 473
 474    Call wTypeKeys "<Shift Left>"
 475    if fGetFieldContent() <> sResult then
 476        Warnlog "Should get " & sResult & " but get " & fGetFieldContent()
 477    end if
 478
 479   Call hCloseDocument
 480
 481 endcase
 482
 483 '-----------------------------------------------------------------
 484
 485 testcase tVariablesNumberRange
 486
 487   Dim sResult() as String
 488   Dim i         as Integer
 489   Dim x         as Integer
 490
 491   printlog "Number range"
 492  '/// <b> Number range </b>
 493
 494   Call hNewDocument
 495
 496    Call wTypeKeys "<Return>"
 497
 498   '/// Insert/Fields/Other/Variables / Select "Number range" , insert 4 numbers for
 499   '/// + Table , text , drawing and illustration
 500    Call fInsertFieldsOther("TabVariablen")
 501      for i = 1 to 4
 502          Feldtyp.Select 6
 503          Sleep 1
 504          Auswahl.Select i
 505          Einfuegen.Click
 506          Call wTypeKeys "<Return>"
 507          Kontext "TabVariablen"
 508          sleep 1
 509      next i
 510
 511     '/// Then insert Table , text , drawing and illustration separately
 512     '/// + Check if the result is correct
 513      Call wTypeKeys "<MOD1 Home>"
 514      Kontext "TabVariablen"
 515
 516      for i = 1 to 4
 517          Feldtyp.Select 6
 518          Sleep 1
 519          Auswahl.Select i
 520          Einfuegen.Click
 521          Sleep 2
 522          Call wTypeKeys "<Home>"
 523          sResult = Array("1" , "1" , "1" , "1" , "1")
 524          sResult(i) = "2"
 525          for x = 0 to 4
 526              Call wTypeKeys "<Shift Right>"
 527              if fGetFieldContent() <> sResult(x) then
 528                  Warnlog "Should get " & sResult(x) & " but get " & fGetFieldContent()
 529              end if
 530              Call wTypeKeys "<Down><Home>"
 531          next x
 532          Call wTypeKeys "<MOD1 Home><Shift End><Delete>"
 533          sleep 1
 534          Kontext "TabVariablen"
 535      next i
 536    TabVariablen.Close
 537
 538   Call hCloseDocument
 539
 540 endcase
 541
 542 '-----------------------------------------------------------------
 543
 544 testcase tVariablesInputfield
 545
 546   Dim sName         as String
 547   Dim sValue        as String
 548   Dim sReference    as String
 549   Dim sFieldContent as String
 550
 551   sName = "myTest" : sValue = "100"
 552   sReference    = "NewTest"
 553   sFieldContent = "10000"
 554
 555   printlog "Input field"
 556  '/// <b> Input field </b>
 557
 558   Call hNewDocument
 559
 560   '/// Insert/Fields/Other/Variables / Select "set Variable" , add 1 variable - A
 561    Call fInsertFieldsOther("TabVariablen")
 562      Feldtyp.Select 1
 563      Sleep 1
 564      NameText.SetText sName
 565      Wert.SetText sValue
 566      Zahlenformat.Select 2
 567      Einfuegen.Click
 568      Call wTypeKeys "<Return>"
 569      Sleep 1
 570
 571   '/// Select "Input field" , set reference , press insert ,
 572   '/// + a dialog should pop up , insert field content
 573   '/// + Table , text , drawing and illustration
 574      Kontext "TabVariablen"
 575      Feldtyp.Select 5
 576      Wert.SetText sReference
 577      Einfuegen.Click
 578      Kontext "Eingabefeld"
 579        if Titel.GetText <> sReference then
 580            Warnlog "Reference should be " & sReference & " but get " & Titel.GetText
 581        end if
 582        EingabeText.SetText sFieldContent
 583      Eingabefeld.OK
 584
 585      Kontext "TabVariablen"
 586    TabVariablen.Close
 587
 588   '/// Check if the insertion is correct
 589      Call wTypeKeys "<MOD1 Home>"
 590      Call wTypeKeys "<Shift Right>"
 591      if fGetFieldContent() <> sValue then
 592          Warnlog "Should get " & sValue & " but get " & fGetFieldContent()
 593      end if
 594
 595      Call wTypeKeys "<Down><Home>"
 596      Call wTypeKeys "<Shift Right>"
 597      if fGetFieldContent() <> sFieldContent then
 598          Warnlog "Should get " & sFieldContent & " but get " & fGetFieldContent()
 599      end if
 600
 601   '/// Delete variable A in the document , Check if the insertion is still correct
 602      Call wTypeKeys "<MOD1 Home>"
 603      Call wTypeKeys "<Shift Right><Delete>"
 604
 605      Call wTypeKeys "<Down><Home>"
 606      Call wTypeKeys "<Shift Right>"
 607      if fGetFieldContent() <> sFieldContent then
 608          Warnlog "2-Should get " & sFieldContent & " but get " & fGetFieldContent()
 609      end if
 610
 611   Call hCloseDocument
 612
 613 endcase
 614
 615 '-----------------------------------------------------------------
 616
 617 testcase tVariablesUserfield
 618
 619   Dim sName()    as String
 620   Dim sValue()   as String
 621   Dim sResult1() as String
 622   Dim sResult2() as String
 623   Dim i          as Integer
 624   Dim j          as Integer
 625
 626   sName    = Array("U1" , "UserField" , "U2")
 627   sValue   = Array("UserField - 10" , "100" , "UserField + 10")
 628   sResult1 = Array("-10" , "100" , "110")
 629   sResult2 = Array("90"  , "100" , "110")
 630   j = UBound(sResult1)
 631
 632   printlog "User field"
 633  '/// <b> User field </b>
 634
 635   Call hNewDocument
 636
 637   '/// Insert/Fields/Other/Variables / Select "User Field"
 638    Call fInsertFieldsOther("TabVariablen")
 639    for i = 0 to j
 640        Feldtyp.Select 9
 641        Sleep 1
 642        NameText.SetText sName(i)
 643        Wert.SetText sValue(i)
 644        Zahlenformat.Select 3
 645        Einfuegen.Click
 646        Sleep 2
 647        Call wTypeKeys "<Shift Left>"
 648        if fGetFieldContent() <> sResult1(i) then
 649            Warnlog "Should get " & sResult1(i) & " but get " & fGetFieldContent()
 650        end if
 651        Call wTypeKeys "<End><Return>"
 652        sleep 1
 653        Kontext "TabVariablen"
 654    next i
 655    TabVariablen.Close
 656
 657   '/// Check if the result is OK.
 658    Call wTypeKeys "<F9>"
 659    Call wTypeKeys "<MOD1 Home>"
 660    Sleep 1
 661    for i = 0 to j
 662        Call wTypeKeys "<Shift Right>"
 663        if fGetFieldContent() <> sResult2(i) then
 664            Warnlog "Should get " & sResult2(i) & " but get " & fGetFieldContent()
 665        end if
 666        Call wTypeKeys "<Down><Left>"
 667    next i
 668
 669    Call hCloseDocument
 670
 671 endcase
 672
 673 '-----------------------------------------------------------------
 674
 675 testcase tVariablesDDEFieldManual
 676     qaerrorlog "#i93906# - tVariablesDDEFieldManual outcommented due to a problem with copying field-contents outside the office."
 677     goto endsub
 678
 679   Dim sDDEFile        as String
 680   Dim sContent        as String
 681   Dim sName           as String
 682   Dim sDDEStatement   as String
 683   Dim sSectionName    as String
 684
 685   sDDEFile = Convertpath ( gNetzOfficePath + "dde_test.oxt")
 686   sContent = "DDE"
 687   sName    = "myTest"
 688   sSectionName  = "Section1"
 689   sDDEStatement = "soffice " & sDDEFile & " " & sSectionName
 690
 691   printlog "DDE field - manual"
 692  '/// <b> DDE field - manual </b>
 693
 694   if hFileExists ( sDDEFile ) then app.kill ( sDDEFile )
 695
 696   Call hNewDocument
 697
 698   '/// Input something , insert a section , then save it and close the file
 699    Call wTypeKeys sContent
 700    Call wTypeKeys "<Shift Home>"
 701    Call fInsertSection("TabBereiche")
 702      Bereichsliste.Settext sSectionName
 703    TabBereiche.OK
 704    Sleep 1
 705    Call hFileSaveAsKill(sDDEFile)
 706   Call hCloseDocument
 707
 708   '/// Opan a new document
 709    Call hNewDocument
 710
 711   '/// Insert/Fields/Other/Variables / Select "DDE Field"
 712   '/// Set DDE name and DDE statement , select "DDE manual"
 713    Call fInsertFieldsOther("TabVariablen")
 714      Feldtyp.Select 3
 715      Sleep 1
 716      NameText.SetText sName
 717      Wert.SetText     sDDEStatement
 718      Formatliste.Select 1
 719      Einfuegen.Click
 720      Sleep 2
 721    TabVariablen.Close
 722    Sleep 2
 723
 724    Call wTypeKeys "<MOD1 Home>"
 725    Call wTypeKeys "<Shift End>"
 726    if fGetFieldContent() <> sContent then
 727        Warnlog "Should get " & sContent & " but get " & fGetFieldContent()
 728    end if
 729
 730   '/// Open the test file which you just closed , add something ,
 731   '/// Save the file
 732    Call hFileOpen(sDDEFile)
 733     Call wTypeKeys "<MOD1 Home>"
 734     Call wTypeKeys "XYZ"
 735     FileSave
 736    Call hCloseDocument
 737
 738   '/// Check if the content is changed -- Should NOT
 739    Sleep 2
 740    Call wTypeKeys "<F9>"
 741    Call wTypeKeys "<MOD1 Home><Shift End>"
 742    if fGetFieldContent() <> sContent then
 743        Warnlog "Should get " & sContent & " but get " & fGetFieldContent()
 744    end if
 745
 746   '/// Edit/Fields , press update button
 747    EditFields
 748    Kontext "VerknuepfungenBearbeiten"
 749      Aktualisieren.Click
 750    VerknuepfungenBearbeiten.Close
 751
 752   '/// Check if the content is changed -- Should NOT
 753    Sleep 1
 754    Call wTypeKeys "<F9>"
 755    Call wTypeKeys "<MOD1 Home><Shift End>"
 756    if fGetFieldContent() <> ("XYZ" & sContent) then
 757        Warnlog "Should get XYZ" & sContent & " but get " & fGetFieldContent()
 758    end if
 759
 760   Call hCloseDocument
 761
 762   if hFileExists ( sDDEFile ) then app.kill ( sDDEFile )
 763
 764 endcase
 765
 766 '-----------------------------------------------------------------
 767
 768 testcase tVariablesDDEFieldAutomatic
 769     qaerrorlog "#i102792# - tVariablesDDEFieldAutomatic outcommented. Fields not updated."
 770     goto endsub
 771
 772   Dim sDDEFile      as String
 773   Dim sContent      as String
 774   Dim sName         as String
 775   Dim sDDEStatement as String
 776   Dim sSectionName  as String
 777
 778   sDDEFile = Convertpath ( gNetzOfficePath + "dde_test.oxt")
 779   sContent = "DDE"
 780   sName    = "myTest"
 781   sSectionName  = "Section1"
 782   sDDEStatement = "soffice " & sDDEFile & " " & sSectionName
 783
 784   printlog "DDE field - automatic"
 785  '/// <b> DDE field - automatic </b>
 786
 787   if hFileExists ( sDDEFile ) then app.kill ( sDDEFile )
 788
 789   Call hNewDocument
 790
 791   '/// Input something , insert a section , then save it and close the file
 792    Call wTypeKeys sContent
 793    Call wTypeKeys "<Shift Home>"
 794    Call fInsertSection("TabBereiche")
 795      Bereichsliste.Settext sSectionName
 796    TabBereiche.OK
 797    Sleep 1
 798    Call hFileSaveAsKill(sDDEFile)
 799   Call hCloseDocument
 800
 801   '/// Opan a new document
 802    Call hNewDocument
 803
 804   '/// Insert/Fields/Other/Variables / Select "DDE Field"
 805   '/// Set DDE name and DDE statement , select "DDE automatic"
 806    Call fInsertFieldsOther("TabVariablen")
 807      Feldtyp.Select 3
 808      Sleep 1
 809      NameText.SetText sName
 810      Wert.SetText     sDDEStatement
 811      Formatliste.Select 2
 812      Einfuegen.Click
 813      Sleep 2
 814    TabVariablen.Close
 815    Sleep 2
 816
 817    Call wTypeKeys "<MOD1 Home>"
 818    Call wTypeKeys "<Shift End>"
 819    if fGetFieldContent() <> sContent then
 820        Warnlog "Should get " & sContent & " but get " & fGetFieldContent()
 821    end if
 822
 823   '/// Open the test file which you just closed , add something ,
 824   '/// Save the file
 825    Call hFileOpen(sDDEFile)
 826     Call wTypeKeys "<MOD1 Home>"
 827     Call wTypeKeys "XYZ"
 828     FileSave
 829    Call hCloseDocument
 830
 831   '/// Check if the content is changed -- Should
 832    Sleep 2
 833    Call wTypeKeys "<F9>"
 834    Call wTypeKeys "<MOD1 Home><Shift End>"
 835    if fGetFieldContent() <> ("XYZ" & sContent) then
 836        Warnlog "Should get XYZ" & sContent & " but get " & fGetFieldContent()
 837    end if
 838
 839   Call hCloseDocument
 840
 841   if hFileExists ( sDDEFile ) then app.kill ( sDDEFile )
 842
 843 endcase
 844
 845 '-----------------------------------------------------------------