bRecordGroupLevel:Init()

Purpose

Creates an object of the class bRecordGroupLevel.

Class

bRecordGroupLevel

Type

Method

Syntax

bRecordGroupLevel{

<ocbGroupBlock>,

<ocbSubGroupBlock>,

<uSubRootValue>,

[<iOptions>]

} Æ oRecordGroupLevel

Arguments

The expression to determine the group values.

Data Type:

bCodeblock

The expression to determine the sub group values.

Data Type:

bCodeblock

Sub group value from the record of the parent record group.

Data Type:

Usual

Options for controlling the record group items. The following options are supported:

Option	Description
BRGLO_NONE	No options are defined.
BRGLO_AUTO	The following default options are used: •BRGLO_GROUPLEASH
BRGLO_AUTOOPEN	Record group items are opened automatically if these contain sub record group items.
BRGLO_AUTOOPENONSKIP	Record group items are opened automatically at record movements if these contain sub record group items.
BRGLO_GROUPLEASH	A vertical line is drawn in the record group column for all matching record group items.
BRGLO_LEVELSEPARATOR	The record groups get separated in the record group column with a horizontal line.
BRGLO_ORDER_DESCENDING	The order in the data server is descending.
BRGLO_SEPARATEGROUPHEADER	The record groups have a virtual group header.
BRGLO_SERVERSEEK	With the method Seek() of the data server can be search the records of the record groups.
BRGLO_VALUE_CASESENSITIVE	The group values and sub group values are case sensitive.

The value BRGLO_AUTO is used as default.

Data Type:

DWord

Return Value

bRecordGroupLevel

The created object of the class bRecordGroupLevel.

Data Type:

bRecordGroupLevel

Description

bRecordGroupLevel:Init() creates a new object of the class bRecordGroupLevel and initializes it.

Samples

In the sample below a record group level is created for a data server which contains products. The data server contains the field PROD_ID (Product-ID) for that the record groups are created. The field is of the type STRING and consists 6 digits. The first 3 digits specify the product group and the last 3 digits the products within the product group. The record group level is defined in such way that the first 3 digits from the field PROD_ID specify the parent record group items and the last 3 digits the sub record group items. The sub root value of the parent record group item consists 3 zeros ('000').

LOCAL cGroupKey          AS STRING
LOCAL cSubGroupKey       AS STRING
LOCAL cSubRootKey        AS STRING

cGroupKey := "SubStr(Server:PROD_ID, 1, 3)"
cSubGroupKey := "SubStr(Server:PROD_ID, 4, 3)"
cSubRootKey := "000"
oRecordGroupLevel := bRecordGroupLevel{bCodeblock{cGroupKey, oServer},;
                                       bCodeblock{cSubGroupKey, oServer},;
                                       cSubRootKey,;
                                       _Or(BRGLO_AUTOOPEN, BRGLO_GROUPLEASH, BRGLO_SERVERSEEK)}