merge the formfield patch from ooo-build
[ooovba.git] / testautomation / dbaccess / required / includes / ReportBuilder01.inc
blobcc774430d51b6c008e48e00be0187cd4cad3113d
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: ReportBuilder01.inc,v $
11 '* $Revision: 1.4 $
13 '* last change: $Author: obo $ $Date: 2008-07-25 07:44:12 $
15 '* This file is part of OpenOffice.org.
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.
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).
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.
32 '/************************************************************************
34 '* owner : marc.neumann@sun.com
36 '* short description : report builder include file
38 '\***********************************************************************************
39 sub rpt_Main
41     printlog "------------------ ReportBuilder01.inc ---------------------"
42     
43     if ( tools_reporttools_InstallExtension() = 0 ) then        
44         call tMainMenuBar
45         call tExecuteReport
46         call tEditReport
47         call tConditionalFormatingDialog
48         call tPageNumber
49         call tDateTime
50         call tFormatPage
51         call tGroupingSorting
52         call tReportNavigator
53         call tReportHeaderFooter
54         call tPageHeaderFooter   
55         call tFunctionWizard
56     else
57         warnlog "report extension could not installed"    
58     endif
59     
60 end sub
61 '-------------------------------------------------------------------------
62 '-------------------------------------------------------------------------
63 '-------------------------------------------------------------------------
64 testcase tMainMenuBar
66     dim iCount as Integer
68     '/// open Bibliography database
69     
70     call hFileOpen(gOfficePath + ConvertPath("user/database/biblio.odb"))
71         
72     Kontext "DATABASE"
73     
74     Database.MouseDown(50,50)
75     Database.MouseUp(50,50)
76     sleep(1)
77     
78     '/// open the report designer
79     call fOpenNewReportDesign
80     
81     
82         
83     '/// check the menu for the right entries
85  'file menu    
86     Kontext "ReportDesign"
87     if ( ReportDesign.exists( 20 ) ) then
88         ReportDesign.UseMenu            
89         '/// check if there are 10 items in the file menu.
90         printlog "check if there are 10 items in the file menu."                
91         hMenuSelectNr(1) ' the file menu        
92         iCount = hMenuItemGetCount()        
93         if ( lcase( gPlatform ) = "osx" ) then
94             if ( iCount <> 9 ) then
95                 warnlog( "File menu: 9 Items expected, found " & iCount )
96             endif
97         else
98             if (iCount <> 10 ) then
99                 warnlog "There should be 10 items in the file menu but there are " + iCount + " items."
100             end if
101         endif
103         '/// check if there are 12 items in the FILE/NEW menu.
104         printlog "check if there are 12 items in the FILE/NEW menu."
105         hMenuSelectNr(1) ' FILE/NEW menu        
106         iCount = hMenuItemGetCount()        
107         if (iCount <> 12) then
108             warnlog "There should 12 items in the FILE/NEW menu but there are " + iCount + " items."
109         end if        
110         call hMenuClose() ' close the FILE menu
111         
112         '/// check the FILE/AUTOPILOTS
113         printlog "check the FILE/AUTOPILOTS"
114         ReportDesign.UseMenu        
115         hMenuSelectNr(1) ' the file menu
116         hMenuSelectNr(4) ' the autopilots menu        
117         iCount = hMenuItemGetCount()
118         if (iCount <> 8) then
119             warnlog "There should 8 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items."
120         endif
121         call hMenuClose()
123  'edit menu        
124         
125         '/// check if there are 11 items in the edit menu.
126         printlog "check if there are 11 items in the edit menu."
127         ReportDesign.UseMenu 
128         hMenuSelectNr(2)        
129         iCount = hMenuItemGetCount()
130         if (iCount <> 11) then
131             warnlog "There should 11 items in the edit menu but there are " + iCount + " items."
132         end if
133         call hMenuClose()
135  'view menu        
136         
137         '/// check if there are 11 items in the view menu.
138         printlog "check if there are 11 items in the view menu."
139         ReportDesign.UseMenu 
140         hMenuSelectNr(3)        
141         iCount = hMenuItemGetCount()
142         if (iCount <> 11) then
143             warnlog "There should 11 items in the view menu but there are " + iCount + " items."
144         end if
145         call hMenuClose()
147  'insert menu        
148         
149         '/// check if there are 3 items in the insert menu.
150         printlog "check if there are 3 items in the insert menu."
151         ReportDesign.UseMenu 
152         hMenuSelectNr(4)        
153         iCount = hMenuItemGetCount()
154         if (iCount <> 3) then
155             warnlog "There should 3 items in the insert menu but there are " + iCount + " items."
156         end if
157         call hMenuClose()
159  'format menu        
160         
161         '/// check if there are 7 items in the format menu.
162         printlog "check if there are 7 items in the format menu."
163         ReportDesign.UseMenu 
164         hMenuSelectNr(5)        
165         iCount = hMenuItemGetCount()
166         if (iCount <> 7) then
167             warnlog "There should 7 items in the format menu but there are " + iCount + " items."
168         end if
169         call hMenuClose()
170         
171         '/// check if there are 6 items in the format/arange menu.
172         printlog "check if there are 6 items in the format/arange menu."        
173         ReportDesign.UseMenu 
174         hMenuSelectNr(5)
175         hMenuSelectNr(4)             
176         iCount = hMenuItemGetCount()
177         if (iCount <> 6) then
178             warnlog "There should 6 items in the format/arrange menu but there are " + iCount + " items."
179         end if
180         call hMenuClose()
181         
182         '/// check if there are 6 items in the format/alignment menu.
183         printlog "check if there are 6 items in the format/alignment menu."        
184         ReportDesign.UseMenu 
185         hMenuSelectNr(5)
186         hMenuSelectNr(5)             
187         iCount = hMenuItemGetCount()
188         if (iCount <> 6) then
189             warnlog "There should 6 items in the format/alignment menu but there are " + iCount + " items."
190         end if
191         call hMenuClose()
192         
193         '/// check if there are 4 items in the format/object resiing menu.
194         printlog "check if there are 4 items in the format/object resiing menu."                
195         ReportDesign.UseMenu 
196         hMenuSelectNr(5)
197         hMenuSelectNr(6)             
198         iCount = hMenuItemGetCount()
199         if (iCount <> 4) then
200             warnlog "There should 4 items in the format/alignment menu but there are " + iCount + " items."
201         end if
202         call hMenuClose()
203         
205  'tools menu        
206         
207         '/// check if there are 4 items in the tools menu.
208         printlog "check if there are 4 items in the tools menu."
209         ReportDesign.UseMenu 
210         hMenuSelectNr(6)        
211         iCount = hMenuItemGetCount()
212         if ( lcase( gPlatform ) = "osx" ) then
213             if ( iCount <> 3 ) then
214                 warnlog( "Tools menu: 3 items expected, found " & iCount )
215             endif
216         else
217             if (iCount <> 4) then
218                 warnlog "There should 4 items in the tools menu but there are " + iCount + " items."
219             end if
220         endif
221         call hMenuClose()
223  'help menu        
224         
225         '/// check if there are 9 items in the help menu.
226         printlog "check if there are 9 items in the help menu."
227         ReportDesign.UseMenu 
228         hMenuSelectNr(8)        
229         iCount = hMenuItemGetCount()
230         if ( lcase( gPlatform ) = "osx" ) then iCount = iCount + 1 ' dirty, but check is fuzzy anyway.
231         if (gOOO) then
232             if (iCount <> 9) then
233                 warnlog "There should 9 items in the help menu but there are " + iCount + " items."
234             end if
235         else
236             if (iCount <> 9 AND iCount <> 8 ) then
237                 warnlog "There should 8 or 9 items in the help menu but there are " + iCount + " items."
238             end if
239         endif
240         call hMenuClose()
241         
242         
243         '/// close the report designer
244         call fCloseReportDesign
245      
246     else
247         warnlog "The Report Designer did not open within expected timeframe"
248     endif
249     '/// close the database
250     call fCloseDatabase
251     
252 endcase
253 '-------------------------------------------------------------------------
254 testcase tConditionalFormatingDialog
256     '/// open Bibliography database
257     printlog "open Bibliography database"    
258     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
259     
260     '/// open the report designer
261     printlog "open the report designer"
262     call fOpenNewReportDesign
264     Kontext "ReportDesign"
265         ReportDesign.Maximize()    
266     
267     '/// insert a data control
268     printlog "insert a data control"
269         Kontext "FormControls"          
270             Edit.Click
271         sleep(1)
272     
273     Kontext "ReportDesign"    
274             ReportDesign.MouseDown ( 30, 10 )            
275             ReportDesign.MouseMove ( 40, 20 )            
276             ReportDesign.MouseUp ( 40, 20 )            
277     sleep(1)                        
278                             
279     '/// open the conditional formating dialog via the menu    
280     printlog "open the conditional formating dialog via the menu"
281     Kontext "ReportDesign"
282         ReportDesign.UseMenu
283         hMenuSelectNr(5)
284         hMenuSelectNr(1) 
285         
286     '/// check if the conditional formating dialog appear
287     printlog "check if the conditional formating dialog appear"
288     sleep(10)
289     Kontext "ConditionalFormating"        
290         if ( not ConditionalFormating.exists(3)) then
291             warnlog "Condditional Formating Dialog doesn't appear"
292             call fCloseReportDesign    
293             call fCloseDatabase
294             goto endsub
295         else
296             printlog "Conditional Formating Dialog appear"
297             call DialogTest(ConditionalFormating)
298             ConditionalFormating.Cancel
299         endif
300     
301     '/// check if there is one condition
302     '/// add 2 more conditions and check if the dialog grows
303     '/// add one more condition and check if the scrollbar gets enabled
304     '/// check if the right condition is displayed
305     '/// remove the second condition and check if the scrollbar gets disabled
306     '/// remove 2 conditions and check if the dialog skrink
307     
308     '/// close the report designer
309     call fCloseReportDesign
310     '/// close the database
311     call fCloseDatabase
312     
313 endcase
314 '-------------------------------------------------------------------------
315 testcase tExecuteReport
317     '/// open Bibliography database    
318     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
319     
320     '/// open the report designer
321     call fOpenNewReportDesign
323     '/// select the first table in the content list box
324     printlog "select the first table in the content list box"
325     Kontext "ReportDataProperties"   
326         Content.select 1
327         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
328     
329     Kontext "ReportDesign"
330         ReportDesign.TypeKeys("<MOD1 TAB>",true)
331         ReportDesign.TypeKeys("<MOD1 TAB>",true)
332         
333     Kontext "ReportAddField"
334         ReportAddFieldList.select 1    
335         ReportAddField.TypeKeys("<RETURN>",true)        
336         
337     'close the Add Field dialog to get the focus back to the design
338     call fCloseAddFieldDialog()
339         
340     '/// execute the report
341     printlog "execute the report"    
342     Kontext "ReportDesign"
343         ReportDesign.UseMenu            
344         hMenuSelectNr(2)
345         hMenuSelectNr(11)
346        
347     sleep(10)
348     
349     '/// ckeck if the report is created
350     printlog "ckeck if the report is created"
351     Kontext "DocumentWriter"
352         if (DocumentWriter.exists(10)) then
353             call fCloseReportView
354         else
355             warnlog "No report is created."
356         endif
357         
358     sleep(1)
359     '/// close the report design
360     printlog "close the report design"
361     call fCloseReportDesign
362     
363     '/// close the database
364     printlog "close the database"
365     call fCloseDatabase
366     
367 endcase        
368 '-------------------------------------------------------------------------
369 testcase tPageNumber
371     '/// open Bibliography database
372     printlog "open Bibliography database"    
373     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
374     
375     '/// open the report designer
376     printlog "open the report designer"
377     call fOpenNewReportDesign
379     '/// insert a data control
380     printlog "insert a data control"
381         Kontext "FormControls"          
382             Edit.Click
383         sleep(1)
384     
385     Kontext "ReportDesign"    
386             ReportDesign.MouseDown ( 30, 20 )
387             ReportDesign.MouseMove ( 40, 30 )            
388             ReportDesign.MouseUp ( 40, 30 )            
389     sleep(1)                        
390                             
391     '/// open page number dialog via the menu
392     printlog "open page number dialog via the menu"
393     Kontext "ReportDesign"
394         ReportDesign.UseMenu
395         hMenuSelectNr(4)
396         hMenuSelectNr(1) 
397         
398     '/// check if the page number dialog appear
399     printlog "check if the page number dialog appear"
400     Kontext "ReportPageNumber"
401         if ( not ReportPageNumber.exists(3)) then
402             warnlog "Page Number Dialog doesn't appear"
403             call fCloseReportDesign    
404             call fCloseDatabase
405             goto endsub
406         else   
407             printlog "Page Number Dialog appear"
408             call DialogTest(ReportPageNumber)
409             ReportPageNumber.Cancel
410         endif
411         
412     '/// close the report designer
413     call fCloseReportDesign
414     '/// close the database
415     call fCloseDatabase
417 endcase    
418 '-------------------------------------------------------------------------
419 testcase tDateTime
421     '/// open Bibliography database
422     printlog "open Bibliography database"    
423     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
424     
425     '/// open the report designer
426     printlog "open the report designer"
427     call fOpenNewReportDesign
429     '/// insert a data control
430     printlog "insert a data control"
431         Kontext "FormControls"          
432             Edit.Click
433         sleep(1)
434     
435     Kontext "ReportDesign"    
436             ReportDesign.MouseDown ( 30, 20 )
437             ReportDesign.MouseMove ( 40, 30 )            
438             ReportDesign.MouseUp ( 40, 30 )            
439     sleep(1)                        
440                             
441     '/// open date time dialog via the menu
442     printlog "open date time dialog via the menu"
443     Kontext "ReportDesign"
444         ReportDesign.UseMenu
445         hMenuSelectNr(4)
446         hMenuSelectNr(2) 
447         
448     '/// check if the date time dialog appear
449     printlog "check if the date time dialog appear"    
450     Kontext "ReportDateTime"
451         if ( not ReportDateTime.exists(3)) then
452             warnlog "Date Time Dialog doesn't appear"
453             call fCloseReportDesign    
454             call fCloseDatabase
455             goto endsub
456         else   
457             printlog "Date Time Dialog appear"
458             call DialogTest(ReportDateTime)
459             ReportDateTime.Cancel
460         endif
461     
462     
463     '/// close the report designer
464     call fCloseReportDesign
465     '/// close the database
466     call fCloseDatabase
468 endcase
469 '-------------------------------------------------------------------------
470 testcase tGroupingSorting
472     '/// open Bibliography database
473     printlog "open Bibliography database"    
474     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
475     
476     '/// open the report designer
477     printlog "open the report designer"
478     call fOpenNewReportDesign
480     '/// insert a data control
481     printlog "insert a data control"
482         Kontext "FormControls"          
483             Edit.Click
484         sleep(1)
485     
486     Kontext "ReportDesign"    
487             ReportDesign.MouseDown ( 30, 50 )            
488             ReportDesign.MouseMove ( 40, 60 )            
489             ReportDesign.MouseUp ( 40, 60 )            
490     sleep(1)                        
491                             
492     '/// open date time dialog via the menu
493     printlog "open date time dialog via the menu"
494     Kontext "ReportDesign"
495         ReportDesign.UseMenu
496         hMenuSelectNr(3)
497         hMenuSelectNr(4) 
498         
499     '/// check if the sorting and grouping dialog appear
500     printlog "check if the sorting and grouping dialog appear"    
501     Kontext "ReportSortingGrouping"
502         if ( not ReportSortingGrouping.exists(3)) then
503             warnlog "Sorting and Grouping Dialog doesn't appear"
504             call fCloseReportDesign    
505             call fCloseDatabase
506             goto endsub
507         else   
508             printlog "Sorting and Grouping Dialog appear"
509             call DialogTest(ReportSortingGrouping)
510             ReportSortingGrouping.Close
511         endif
512     
513     
514     '/// close the report designer
515     call fCloseReportDesign
516     '/// close the database
517     call fCloseDatabase
519 endcase
520 '-------------------------------------------------------------------------
521 testcase tReportNavigator
523     '/// open Bibliography database
524     printlog "open Bibliography database"    
525     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
526     
527     '/// open the report designer
528     printlog "open the report designer"
529     call fOpenNewReportDesign
531     '/// insert a data control
532     printlog "insert a data control"
533         Kontext "FormControls"          
534             Edit.Click
535         sleep(1)
536     
537     Kontext "ReportDesign"    
538             ReportDesign.MouseDown ( 30, 50 )            
539             ReportDesign.MouseMove ( 40, 60 )            
540             ReportDesign.MouseUp ( 40, 60 )            
541     sleep(1)                        
542                             
543     '/// open report navigator via the menu
544     printlog "open report navigator via the menu"
545     Kontext "ReportDesign"
546         ReportDesign.UseMenu
547         hMenuSelectNr(3)
548         hMenuSelectNr(5) 
549         
550     '/// check if the report navigator appear
551     printlog "check if the report navigator appear"    
552     Kontext "ReportNavigator"
553         if ( not ReportNavigator.exists(3)) then
554             warnlog "report navigator doesn't appear"
555             call fCloseReportDesign    
556             call fCloseDatabase
557             goto endsub
558         else   
559             printlog "report navigator appear"
560             call DialogTest(ReportNavigator)
561             ReportNavigator.Close
562         endif
563     
564     
565     '/// close the report designer
566     call fCloseReportDesign
567     '/// close the database
568     call fCloseDatabase
570 endcase
571 '-------------------------------------------------------------------------
572 testcase tReportHeaderFooter
574     '/// open Bibliography database
575     printlog "open Bibliography database"    
576     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
577     
578     '/// open the report designer
579     printlog "open the report designer"
580     call fOpenNewReportDesign
581                         
582     '/// open report navigator
583     printlog "open report navigator"
584     call fOpenReportNavigator        
585         
586     '/// check if the report navigator appear
587     printlog "check if the report navigator appear"    
588     Kontext "ReportNavigator"
589         if ( not ReportNavigator.exists(3)) then
590             warnlog "report navigator doesn't appear"
591             call fCloseReportDesign    
592             call fCloseDatabase
593             goto endsub        
594         endif
595         '/// check if there are 6 entries in the report navigator
596         printlog "check if there are 6 entries in the report navigator"
597         if (NavigatorTree.getItemCount <> 6) then
598             warnlog "the count of items in the report navigator is not correct." + _
599             "it should 6 but it is " + NavigatorTree.getItemCount
600         endif
601     
602     'close the report navigator to get the focus back into the document    
603     call fCloseReportNavigator
604         
605     '/// turn on the report header via the edit menu
606     printlog "turn on the report header via the edit menu"
607     Kontext "ReportDesign"
608         ReportDesign.UseMenu
609         hMenuSelectNr(2)
610         hMenuSelectNr(9)
612     'open the navigator again    
613     call fOpenReportNavigator
614         
615     '/// check if report header appear in the report navigator (8 entries)
616     printlog "check if report header appear in the report navigator (8 entries)"
617     Kontext "ReportNavigator"        
618         if (NavigatorTree.getItemCount <> 8) then
619             warnlog "the report header is not diaplyed in the report navigator."
620         endif
622     'close the report navigator to get the focus back into the document        
623     call fCloseReportNavigator    
624         
625     '/// turn off the report header via the edit menu
626     printlog "turn off the report header via the edit menu"
627     Kontext "ReportDesign"
628         ReportDesign.UseMenu
629         hMenuSelectNr(2)
630         hMenuSelectNr(9)
631     
632     'open the navigator again
633     call fOpenReportNavigator
634         
635     '/// check if report header disappear in the report navigator (6 entries)
636     printlog "check if report header disappear in the report navigator (6 entries)"
637     Kontext "ReportNavigator"        
638         if (NavigatorTree.getItemCount <> 6) then
639             warnlog "the report header is not diaplyed in the report navigator."
640         endif        
642     'close the report navigator
643     call fCloseReportNavigator
644             
645     '/// close the report designer
646     printlog "close the report designer"
647     call fCloseReportDesign
648     '/// close the database
649     printlog "close the database"
650     call fCloseDatabase
652 endcase
653 '-------------------------------------------------------------------------
654 testcase tPageHeaderFooter
656     '/// open Bibliography database
657     printlog "open Bibliography database"    
658     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
659     
660     '/// open the report designer
661     printlog "open the report designer"
662     call fOpenNewReportDesign
663                         
664     '/// open report navigator
665     call fOpenReportNavigator     
666         
667     '/// check if the report navigator appear
668     printlog "check if the report navigator appear"    
669     Kontext "ReportNavigator"
670         if ( not ReportNavigator.exists(3)) then
671             warnlog "report navigator doesn't appear"
672             call fCloseReportDesign    
673             call fCloseDatabase
674             goto endsub        
675         endif
676         '/// check if there are 6 entries in the report navigator
677         printlog "check if there are 6 entries in the report navigator"
678         if (NavigatorTree.getItemCount <> 6) then
679             warnlog "the count of items in the report navigator is not correct." + _
680             "it should 6 but it is " + NavigatorTree.getItemCount
681         endif
682     
683     'close the report navigator to get the focus back into the document        
684     call fCloseReportNavigator
685         
686     '/// turn off the page header via the edit menu
687     printlog "turn off the page header via the edit menu"    
688     Kontext "ReportDesign"
689         ReportDesign.UseMenu
690         hMenuSelectNr(2)
691         hMenuSelectNr(8)
692     
693     'open the report navigator        
694     call fOpenReportNavigator
695         
696     '/// check if page header disappear in the report navigator (4 entries)
697     printlog "check if page header disappear in the report navigator (4 entries)"    
698     Kontext "ReportNavigator"        
699         if (NavigatorTree.getItemCount <> 4) then
700             warnlog "the page header is not displayed in the report navigator."
701         endif
703     'close the report navigator to get the focus back into the document        
704     call fCloseReportNavigator        
705         
706     '/// turn on the page header via the edit menu
707     printlog "turn on the page header via the edit menu"    
708     Kontext "ReportDesign"
709         ReportDesign.UseMenu
710         hMenuSelectNr(2)
711         hMenuSelectNr(8)
712     
713     'open the report navigator        
714     call fOpenReportNavigator    
715         
716     '/// check if page header appear in the report navigator (6 entries)
717     printlog "check if page header appear in the report navigator (6 entries)"
718     Kontext "ReportNavigator"        
719         if (NavigatorTree.getItemCount <> 6) then
720             warnlog "the page header is displayed in the report navigator."
721         endif        
723     'close the report navigator        
724     call fCloseReportNavigator    
725         
726     '/// close the report designer
727     printlog "close the report designer"
728     call fCloseReportDesign
729     '/// close the database
730     printlog "close the database"
731     call fCloseDatabase
733 endcase
734 '-------------------------------------------------------------------------
735 testcase tEditReport
737     '/// open Bibliography database    
738     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
739     
740     '/// open the report designer
741     call fOpenNewReportDesign
743     '/// select the first table in the content list box
744     printlog "select the first table in the content list box"
745     Kontext "ReportDataProperties"   
746         Content.select 1
747         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
748     
749     Kontext "ReportDesign"
750         ReportDesign.TypeKeys("<MOD1 TAB>",true)
751         ReportDesign.TypeKeys("<MOD1 TAB>",true)
752         
753     Kontext "ReportAddField"
754         ReportAddFieldList.select 1    
755         ReportAddField.TypeKeys("<RETURN>",true)        
756         
757     'close the Add Field dialog to get the focus back to the design
758     call fCloseAddFieldDialog()
759         
760     '/// save the report
761     printlog "save the report"        
762     Kontext "ReportDesign"
763         ReportDesign.UseMenu            
764         hMenuSelectNr(1)
765         hMenuSelectNr(6)
766        
767     sleep(10)
768     
769     '/// insert a name into the save dialog
770     printlog "insert a name into the save dialog"
772     Kontext "FormSaveDialog" ' report and forms use the same dialog 
773         FormName.setText("Report1")
774         SaveBtn.Click
776     '/// close the report design
777     printlog "close the report design"
778     call fCloseReportDesign
779         
780     '/// open the report again in the edit mode
781     printlog "open the report again in the edit mode"
782     call fOpenReportInDesign("Report1")
783     
784     Kontext "ReportDesign"
785         if (ReportDesign.exists(10)) then
786             call fCloseReportDesign
787         else
788             warnlog "ReportDesign not open"
789         endif    
790     
791     '/// close the database
792     printlog "close the database"
793     call fCloseDatabase
794     
795 endcase
796 '-------------------------------------------------------------------------
797 testcase tFormatPage
798     
799     printlog "open Bibliography database"    
800     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
801         
802     printlog "open the report designer"
803     call fOpenNewReportDesign
804     
805     printlog "open format/page dialog via the menu"
806     Kontext "ReportDesign"
807         ReportDesign.UseMenu
808         hMenuSelectNr(5)
809         hMenuSelectNr(3) 
810      
811     printlog "check if the format page dialog appear"    
812     Kontext "TabSeite"
813         if ( not TabSeite.exists(3)) then
814             warnlog "format page dialog doesn't appear"
815             call fCloseReportDesign    
816             call fCloseDatabase
817             goto endsub
818         else   
819             printlog "format page dialog appear"
820             call DialogTest(TabSeite)
821             TabSeite.Cancel
822         endif    
823     
824     '/// close the report designer
825     call fCloseReportDesign
826     '/// close the database
827     call fCloseDatabase
829 endcase
830 '-------------------------------------------------------------------------
831 testcase tFunctionWizard
832     
833     printlog "open Bibliography database"    
834     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
835         
836     printlog "open the report designer"
837     call fOpenNewReportDesign
839     printlog "select the first table in the content list box"
840     Kontext "ReportDataProperties"   
841         Content.select 1
842         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
843     
844     Kontext "ReportDesign"
845         ReportDesign.TypeKeys("<MOD1 TAB>",true)
846         ReportDesign.TypeKeys("<MOD1 TAB>",true)
847         
848     Kontext "ReportAddField"
849         ReportAddFieldList.select 1    
850         ReportAddField.TypeKeys("<RETURN>",true)        
851         
852     'close the Add Field dialog to get the focus back to the design
853     call fCloseAddFieldDialog()
854     
855     'press 2 time tab to select the edit field
856     Kontext "ReportDesign"
857         ReportDesign.TypeKeys("<TAB>",true)
858         ReportDesign.TypeKeys("<TAB>",true)
859     
860     sleep(1)
861     
862     printlog "click on the ... button behind the datafield property in the property browser"    
863     Kontext "ReportDataProperties"
864         OpenFormularWizard.Click
865     
866     printlog "check if the function wizard appear"    
867     Kontext "FunctionWizard"
868         if(FunctionWizard.exists(5)) then
869             printlog "The function wizard appear -> OK"
870             FunctionWizard.close
871         else
872             warnlog "The function wizard does not appear -> FAILED"
873         endif
874     
875     sleep(1)        
876         
877     printlog "close the report designer"
878     call fCloseReportDesign
879     printlog "close the database"
880     call fCloseDatabase
882 endcase