'encoding UTF-8  Do not remove or change this line!
sub main
    call tEditHeadersAndFooters
end sub
'-------------------------------------------------------------------------
sub LoadIncludeFiles
    use "global/system/inc/master.inc"
    use "global/system/inc/gvariabl.inc"
    gApplication   = "CALC"
    call getusefiles    
end sub
'-------------------------------------------------------------------------
testcase tEditHeadersAndFooters
    Call  hNewDocument
        FormatPageCalc
        Kontext
        Active.SetPage TabKopfzeile
        Kontext
        if Active.Exists(2) then
            if Active.GetRT = 304 then
                Printlog Active.GetText
                Active.Yes
                sleep(2)
            end if
        end if
        Kontext "TabKopfzeile"
        InhaltLinksRechtsGleich.uncheck
        Kontext
        Active.SetPage TabFusszeile
        Kontext "TabFussZeile"
        InhaltLinksRechtsGleich.uncheck
        TabFusszeile.Ok
        EditHeadersAndFooters
        Kontext
        if Active.GetPageCount <> 4 then
        	warnlog "There should be 4 tab pages but there are only " & Active.GetPageCount & "."
        	Active.Cancel
        	Call hCloseDocument
        	goto endsub
        end if
        Active.SetPage TabKopfzeileCalc
        Kontext "TabKopfzeileCalc"
        if TabKopfzeileCalc.Exists(2) then         
            Call DialogTest(TabKopfzeileCalc)
            Datei.Click
            Tabelle.Click
            Seitennummer.Click
            Seitenanzahl.Click
            Datum.Click
            Zeit.Click    
            Textattribute.Click
        else
            warnlog "Tab page 'Header' in 'Headers/Footers' dialog missing!"
        endif
        Kontext    
        Active.SetPage TabFont
        Kontext "TabFont"
        if TabFont.Exists(2) then
            TabFont.Cancel
        else
            warnlog "Tab page 'Font' in 'Headers/Footers dialog missing!"
        endif
        Kontext
        Active.SetPage TabKopfzeileCalc
        Kontext "TabKopfzeileCalc"
        TabKopfzeileCalc.Close
    Call hCloseDocument
endcase