1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sc_ScIndexEnumeration_DataPilotFieldsEnumeration" script:language="StarBasic">
4
5'*************************************************************************
6'
7' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
8'
9' Copyright 2000, 2010 Oracle and/or its affiliates.
10'
11' OpenOffice.org - a multi-platform office productivity suite
12'
13' This file is part of OpenOffice.org.
14'
15' OpenOffice.org is free software: you can redistribute it and/or modify
16' it under the terms of the GNU Lesser General Public License version 3
17' only, as published by the Free Software Foundation.
18'
19' OpenOffice.org is distributed in the hope that it will be useful,
20' but WITHOUT ANY WARRANTY; without even the implied warranty of
21' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
22' GNU Lesser General Public License version 3 for more details
23' (a copy is included in the LICENSE file that accompanied this code).
24'
25' You should have received a copy of the GNU Lesser General Public License
26' version 3 along with OpenOffice.org.  If not, see
27' <http://www.openoffice.org/license.html>
28' for a copy of the LGPLv3 License.
29'
30'*************************************************************************
31*****
32'*************************************************************************
33
34
35
36' Be sure that all variables are dimensioned:
37option explicit
38
39
40' REQUIRED VARIABLES for interface/service tests:
41
42
43Sub CreateObj()
44
45'*************************************************************************
46' COMPONENT:
47' sc.ScIndexEnumeration_DataPilotFieldsEnumeration
48'*************************************************************************
49On Error Goto ErrHndl
50
51    Dim bOK As Boolean
52    Dim i as Integer,j As Integer
53    Dim oSheet as Object, oDataPilotDescriptor  As Object
54    Dim oFields as Variant, oDataPilotTable As Variant
55    Dim sCellRangeAddress As New com.sun.star.table.CellRangeAddress
56    Dim sCellAddress As New com.sun.star.table.CellAddress
57
58    bOK = true
59    oDoc = utils.createDocument("scalc", cObjectName)
60    oSheet = oDoc.Sheets.getByIndex(0)
61
62    for i = 1 to 5
63        for j = 1 to 5
64            oSheet.getCellByPosition(i, j).Value = 2.5 * j + i
65        next j
66    next i
67
68    sCellRangeAddress.Sheet = 0
69    sCellRangeAddress.StartColumn = 1
70    sCellRangeAddress.StartRow = 1
71    sCellRangeAddress.EndColumn = 5
72    sCellRangeAddress.EndRow = 5
73
74    sCellAddress.Sheet = 0
75    sCellAddress.Column = 7
76    sCellAddress.Row = 8
77
78    oDataPilotTable = oSheet.getDataPilotTables
79    oDataPilotDescriptor = oDataPilotTable.createDataPilotDescriptor()
80    oDataPilotDescriptor.setSourceRange(sCellRangeAddress)
81
82    oDataPilotTable.insertNewByName(cObjectName, sCellAddress, oDataPilotDescriptor)
83
84    oFields = oDataPilotDescriptor.getDataPilotFields
85    oObj = oFields.createEnumeration()
86
87Exit Sub
88ErrHndl:
89    Test.Exception()
90End Sub
91</script:module>
92