'encoding UTF-8 Do not remove or change this line!
'*************************************************************************
'
' Licensed to the Apache Software Foundation (ASF) under one
' or more contributor license agreements. See the NOTICE file
' distributed with this work for additional information
' regarding copyright ownership. The ASF licenses this file
' to you under the Apache License, Version 2.0 (the
' "License"); you may not use this file except in compliance
' with the License. You may obtain a copy of the License at
'
' http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing,
' software distributed under the License is distributed on an
' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
' KIND, either express or implied. See the License for the
' specific language governing permissions and limitations
' under the License.
'
'*************************************************************************
'*
'* short description : Fields - Functions
'*
'\***********************************************************************
sub w_fields6
Call tFunctionsConditionalText
Call tFunctionsHiddenText
Call tFunctionsHiddenParagraph
Call tFunctionsInputField
Call tFunctionsPlaceholderText
Call tFunctionsPlaceholderTable
Call tFunctionsPlaceholderFrame
Call tFunctionsPlaceholderGraphics
Call tFunctionsPlaceholderObject
Call tFunctionsInputlistRemove
Call tFunctionsInputlistMoveUp
Call tFunctionsInputlistMoveDown
Call tFunctionsCombineCharacter
end sub
'-----------------------------------------------------------------
testcase tFunctionsConditionalText
Dim sName as String
Dim sValue() as String
Dim sCondition as String
Dim sElse as String
Dim sThen as String
Dim sResult() as String
Dim iType as Integer
Dim i as Integer
Dim j as Integer
sName = "X"
SCondition = "X==" + Chr(34) + "Sun" + Chr(34)
SThen = "Yes"
sElse = "No"
sValue = Array( _
"Sun" , _
"NOTSun" , _
)
sResult = Array( _
"Sun" , _
"Yes" , _
"NOTSun" , _
"No" , _
)
printlog "Conditional text"
'/// Conditional text
Call hNewDocument
'/// Insert/Fields/Other/Variables / Select "set Variable" ,
'/// Set 1 Name and set its Value to "Sun" , then goto tabpage function
'/// + choose "Conditional text" , set condition like
'/// if X="Sun" then "YES" else "NO"
'/// Set another value to "NoSun"
j = UBound(sValue)
for i = 0 to j
Call fInsertFieldsOther("TabVariablen")
Feldtyp.Select 1
Sleep 1
NameText.SetText sName
Wert.SetText sValue(i)
Zahlenformat.Select 1
Einfuegen.Click
TabVariablen.Close
Call wTypeKeys ""
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 1
Sleep 1
Bedingung.SetText sCondition
Dann.SetText sThen
Sonst.SetText sElse
Einfuegen.Click
TabFunktionen.Close
Call wTypeKeys ""
next i
'/// Check if the insertion is correct
Call wTypeKeys ""
j = UBound(sResult)
for i = 0 to j
Call wTypeKeys ""
if fGetFieldContent() <> sResult(i) then
Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
end if
Call wTypeKeys ""
next i
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsHiddenText
Dim sName as String
Dim sValue() as String
Dim sCondition as String
Dim sHiddenText as String
Dim sResult() as String
Dim bHiddenText as Boolean
Dim i as Integer
Dim j as Integer
sName = "X"
SCondition = "X==" + Chr(34) + "ABC" + Chr(34)
sHiddenText = "HiddenText"
sValue = Array( _
"ABC" , _
"NOTABC" , _
)
sResult = Array( _
"" , _
"HiddenText" , _
)
printlog "Hidden text"
'/// Hidden text
Call hNewDocument
'/// Tools/Options / StarOffice writer / Formatting Aids
'/// Uncheck 'Fields : Hidden text"
ToolsOptions
Call hToolsOptions("WRITER","FORMATTINGAIDS")
bHiddenText = FeldVersteckterText.IsChecked
if bHiddenText = TRUE then
FeldVersteckterText.UnCheck
end if
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
'/// Insert/Fields/Other/Variables / Select "set Variable" ,
'/// Set Name and set its Value to "ABC" , then goto tabpage function
'/// + choose "hidden text" , set condition like
'/// if X="ABC" as condition , hidden text is "HiddenText"
'/// Set another value to "NoTABC"
'/// Check if the insertion is correct
j = UBound(sValue)
for i = 0 to j
Call wTypeKeys ""
Call fInsertFieldsOther("TabVariablen")
Feldtyp.Select 1
Sleep 1
NameText.SetText sName
Wert.SetText sValue(i)
Zahlenformat.Select 1
Einfuegen.Click
TabVariablen.Close
Call wTypeKeys ""
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 7 'Hidden text
Sleep 1
Bedingung.SetText sCondition
Hinweis.SetText sHiddenText
Einfuegen.Click
TabFunktionen.Close
Call wTypeKeys ""
if fGetFieldContent() <> sResult(i) then
Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
end if
next i
'Recover to default
ToolsOptions
Call hToolsOptions("WRITER","FORMATTINGAIDS")
if bHiddenText = TRUE then FeldVersteckterText.Check
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsHiddenParagraph
Dim sName as String
Dim sValue() as String
Dim sCondition as String
Dim sHiddenText as String
Dim sResult() as String
Dim bHiddenText as Boolean
Dim i as Integer
Dim j as Integer
sName = "X"
SCondition = "X==" + Chr(34) + "ABC" + Chr(34)
sHiddenText = "HiddenText"
sValue = Array( _
"ABC" , _
"NOTABC" , _
)
sResult = Array( _
"ABC" , _
"HiddenText" , _
)
printlog "Hidden paragraph"
'/// Hidden paragraph
Call hNewDocument
'/// Tools/Options / StarOffice writer / Formatting Aids
'/// Uncheck 'Fields : Hidden paragraph"
ToolsOptions
Call hToolsOptions("WRITER","FORMATTINGAIDS")
bHiddenText = VersteckteAbsatze.IsChecked
if bHiddenText = TRUE then
VersteckteAbsatze.UnCheck
end if
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
'/// Input a paragraph first
Call wTypeKeys ""
Call wTypeKeys sHiddenText
Call wTypeKeys ""
'/// Insert/Fields/Other/Variables / Select "set Variable" ,
'/// Set Name and set its Value to "ABC" , then goto tabpage function
'/// + choose "hidden paragraph" , set condition like
'/// if X="ABC" as condition
'/// Check if the paragraph disappear or not
j = UBound(sValue)
for i = 0 to j
Call wTypeKeys ""
Call fInsertFieldsOther("TabVariablen")
Feldtyp.Select 1
Sleep 1
NameText.SetText sName
Wert.SetText sValue(i)
Zahlenformat.Select 1
Einfuegen.Click
TabVariablen.Close
Call wTypeKeys ""
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 8 'Hidden paragraph
Sleep 1
Bedingung.SetText sCondition
Einfuegen.Click
TabFunktionen.Close
Call wTypeKeys ""
if fGetFieldContent() <> sResult(i) then
Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
end if
next i
'Recover to default
ToolsOptions
Call hToolsOptions("WRITER","FORMATTINGAIDS")
if bHiddenText = TRUE then VersteckteAbsatze.Check
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsInputField
Dim sReference as String
Dim sFieldContent as String
sReference = "NewTest"
sFieldContent = "10000"
printlog "Input field"
'/// Input field
Call hNewDocument
'/// Insert/Fields/Other/Functions / Select "Input field" ,
'/// + set reference , press insert button , input field content
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 3 'Input field
Sleep 1
Hinweis.SetText sReference
Einfuegen.Click
Kontext "Eingabefeld"
if Titel.GetText <> sReference then
Warnlog "Reference should be " & sReference & " but get " & Titel.GetText
end if
EingabeText.SetText sFieldContent
Eingabefeld.OK
Kontext "TabFunktionen"
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sFieldContent then
Warnlog "Should get " & sFieldContent & " but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsPlaceholderText
Dim sPlaceHolder as String
sPlaceHolder = "Text"
printlog "Placeholder - Text"
'/// Placeholder - Text
Call hNewDocument
'/// Insert/Fields/Other/Functions / Select "Placeholder" ,
'/// + select Text
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 5 'Placeholder
Sleep 1
Formatliste.Select 1
Platzhalter.SetText sPlaceHolder
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> ("<" & sPlaceHolder & ">" )then
Warnlog "Should get <" & sPlaceHolder & "> but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsPlaceholderTable
printlog "Placeholder - Table"
'/// Placeholder - Table
Call hNewDocument
Call fFormatPageWriter("TabSeite")
Breite.SetText "15"
Hoehe.SetText "15"
Links.SetText "0"
Rechts.SetText "0"
Oben.SetText "0"
Unten.SetText "0"
TabSeite.OK
Sleep 2
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then ' is it a messagebox ?
Active.Yes
else
Warnlog "Messagebox is not up "
end if
else
Warnlog "Something wrong !"
end if
'/// Insert/Fields/Other/Functions / Select "Placeholder" ,
'/// + select Table
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 5 'Placeholder
Sleep 1
Formatliste.Select 2
Platzhalter.SetText "TableTableTableTableTable"
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> ("" )then
Warnlog "Should get but get " & fGetFieldContent()
end if
Call fSetToBigSize()
Call wTypeKeys ""
Sleep 1
Call gMouseMove(0,0,30,25)
Call gMouseClick(30,25)
Sleep 3
Kontext "TabelleEinfuegenWriter"
if TabelleEinfuegenWriter.Exists then
TabelleEinfuegenWriter.Cancel
else
Warnlog "Insert table dialog isn't up !"
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsPlaceholderFrame
printlog "Placeholder - Frame"
'/// Placeholder - Frame
Call hNewDocument
fFormatPageWriter("TabSeite")
Breite.SetText "15"
Hoehe.SetText "15"
Links.SetText "0"
Rechts.SetText "0"
Oben.SetText "0"
Unten.SetText "0"
TabSeite.OK
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then ' is it a messagebox ?
Active.Yes
else
Warnlog "Messagebox is not up "
end if
else
Warnlog "Something wrong !"
end if
'/// Insert/Fields/Other/Functions / Select "Placeholder" ,
'/// + select Frame
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 5 'Placeholder
Sleep 1
Formatliste.Select 3
Platzhalter.SetText "FrameFrameFrameFrameFrameFrame"
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> ("" )then
Warnlog "Should get but get " & fGetFieldContent()
end if
Call fSetToBigSize()
Call wTypeKeys ""
Sleep 1
Call gMouseMove(0,0,30,25)
Call gMouseClick(30,25)
Sleep 3
try
Kontext
Active.SetPage TabType
Kontext "TabType"
AutoHoehe.UnCheck
TabType.Cancel
catch
Warnlog "Format/Frame dialog isn't up !"
endcatch
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsPlaceholderGraphics
printlog "Placeholder - Graphics"
'/// Placeholder - Graphics
Call hNewDocument
fFormatPageWriter("TabSeite")
Breite.SetText "15"
Hoehe.SetText "15"
Links.SetText "0"
Rechts.SetText "0"
Oben.SetText "0"
Unten.SetText "0"
TabSeite.OK
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then ' is it a messagebox ?
Active.Yes
else
Warnlog "Messagebox is not up "
end if
else
Warnlog "Something wrong !"
end if
'/// Insert/Fields/Other/Functions / Select "Placeholder" ,
'/// + select Graphics
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 5 'Placeholder
Sleep 1
Formatliste.Select 4
Platzhalter.SetText "GraphicsGraphicsGraphicsGraphicsGraphics"
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> ("" )then
Warnlog "Should get but get " & fGetFieldContent()
end if
Call fSetToBigSize()
Call wTypeKeys ""
Sleep 1
Call gMouseMove(0,0,30,25)
Call gMouseClick(30,25)
Sleep 3
try
Kontext "GrafikEinfuegenDlg"
Oeffnen.Click
GrafikEinfuegenDlg.Cancel
catch
Warnlog "Insert picture dialog isn't up !"
endcatch
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsPlaceholderObject
printlog "Placeholder - Object"
'/// Placeholder - Object
Call hNewDocument
fFormatPageWriter("TabSeite")
Breite.SetText "15"
Hoehe.SetText "15"
Links.SetText "0"
Rechts.SetText "0"
Oben.SetText "0"
Unten.SetText "0"
TabSeite.OK
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then ' is it a messagebox ?
Active.Yes
else
Warnlog "Messagebox is not up "
end if
else
Warnlog "Something wrong !"
end if
'/// Insert/Fields/Other/Functions / Select "Placeholder" ,
'/// + select object
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 5 'Placeholder
Sleep 1
Formatliste.Select 5
Platzhalter.SetText "ObjectObjectObjectObjectObjectObject"
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> ("" )then
Warnlog "Should get but get " & fGetFieldContent()
end if
Call fSetToBigSize()
Call wTypeKeys ""
Sleep 1
Call gMouseMove(0,0,30,25)
Call gMouseClick(30,25)
Sleep 3
try
Kontext "OLEObjektEinfuegen"
NeuErstellen.Check
OLEObjektEinfuegen.Cancel
catch
Warnlog "Insert OLE Object dialog isn't up !"
endcatch
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsInputlistRemove
Dim sItem1 as String
Dim sItem2 as String
sItem1 = "First" : sItem2 = "Second"
printlog "Input list - Remove"
'/// Input list Remove
Call hNewDocument
'/// Insert/Fields/Other/Functions / Select "Input list" ,
'/// + insert 2 itmes , remove 1st one
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 2 'Input list
Sleep 1
NewListEntry.SetText sItem1
AddListEntry.Click
NewListEntry.SetText sItem2
AddListEntry.Click
Sleep 1
Einfuegen.Click
Call wTypeKeys ""
Kontext "TabFunktionen"
EntrysList.Select 1
RemoveEntry.Click
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sItem1 then
Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
end if
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sItem2 then
Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsInputlistMoveUp
Dim sItem1 as String
Dim sItem2 as String
sItem1 = "First" : sItem2 = "Second"
printlog "Input list - Move up"
'/// Input list Move up
Call hNewDocument
'/// Insert/Fields/Other/Functions / Select "Input list" ,
'/// + insert 2 itmes , press move up
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 2 'Input list
Sleep 1
NewListEntry.SetText sItem1
AddListEntry.Click
NewListEntry.SetText sItem2
AddListEntry.Click
Sleep 1
Einfuegen.Click
Call wTypeKeys ""
Kontext "TabFunktionen"
MoveUpEntry.Click
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sItem1 then
Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
end if
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sItem2 then
Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsInputlistMoveDown
Dim sItem1 as String
Dim sItem2 as String
sItem1 = "First" : sItem2 = "Second"
printlog "Input list - Move down"
'/// Input list Move down
Call hNewDocument
'/// Insert/Fields/Other/Functions / Select "Input list" ,
'/// + insert 2 itmes , press move down
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 2 'Input list
Sleep 1
NewListEntry.SetText sItem1
AddListEntry.Click
NewListEntry.SetText sItem2
AddListEntry.Click
Sleep 1
Einfuegen.Click
Call wTypeKeys ""
Kontext "TabFunktionen"
EntrysList.Select 1
MoveDownEntry.Click
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sItem1 then
Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
end if
Call wTypeKeys ""
Call wTypeKeys ""
if fGetFieldContent() <> sItem2 then
Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tFunctionsCombineCharacter
Dim sCombineCharacter as String
Dim sTestFile as String
sCombineCharacter = "ABC"
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\CombineTest.sxw")
printlog "Combine Character"
'/// Combine Character
Call hNewDocument
'/// Open test file pageTest.sxw
hFileOpenLocally( sTestFile )
Call wTypeKeys ""
Call wTypeKeys ""
'/// Insert/Fields/Other/Functions / Select "Combine characters"
Call fInsertFieldsOther("TabFunktionen")
Feldtyp.Select 6 'Combine characters
Sleep 1
Namefeld.SetText sCombineCharacter
Einfuegen.Click
TabFunktionen.Close
'/// Check if the insertion is correct
Call wTypeKeys ""
if fGetFieldContent() <> sCombineCharacter then
Warnlog "Should get " & sCombineCharacter & " but get " & fGetFieldContent()
end if
Call wTypeKeys ( "" )
FormatAnchorToPage
Sleep 1
Call fPositionAndSize("TabPositionAndSizeWriter")
if StrToDouble(Horizontalby.Gettext) < 6.5 OR StrToDouble(Horizontalby.Gettext) > 7.5 then
Warnlog "Something wrong in combine character"
end if
TabPositionAndSizeWriter.Cancel
Call hCloseDocument
endcase
'-----------------------------------------------------------------