version 3.5.25		version 3.5.26
	'3.5.25		'3.5.26
	Option Explicit		Option Explicit
	Private vbLang As Integer		Private Const vbVersion As String = "GetSetUniverse 3.5.26"
	' ---> xxx start declaration		' ---> xxx start declaration
			Private vbLang As Integer
			' error handling
			Private vbErrHand As Integer
			Private Const vbErrExit As Integer = 0
			Private Const vbErrresume As Integer = 1
			Private Const vbErrHeader As String = "Error in "
			' mode
	Private Const vbModus As Integer = 1		Private Const vbModus As Integer = 1
	Private Const vbModusLive As Integer = 1		Private Const vbModusLive As Integer = 1
	Private Const vbModusDemo As Integer = 0		Private Const vbModusDemo As Integer = 0
	Private Const vbVersion As String = "GetSetUniverse 3.5.25"
	Private Const vbErrHeader As String = "Error in "
	' definition of color code for outlined objects		' definition of color code for outlined objects
	Private Const vbColorDsDimensionObject As Integer = 41		Private Const vbColorDsDimensionObject As Integer = 41
	Private Const vbColorDsDetailObject As Integer = 50		Private Const vbColorDsDetailObject As Integer = 50
	Private Const vbColorDsMeasureObject As Integer = 22		Private Const vbColorDsMeasureObject As Integer = 22
	Private Const vbColorDsConditionObject As Integer = 44		Private Const vbColorDsConditionObject As Integer = 44
	Private Const vbColorDsStandard As Integer = 56		Private Const vbColorDsStandard As Integer = 56
	Private Const vbColorDsError As Integer = 13		Private Const vbColorDsError As Integer = 13
	' definition sheet Universe Properties		' definition sheet Universe Properties
	Private Const rowPropsName As Integer = 2		Private Const rowPropsName As Integer = 2
	Private Const rowPropsLName As Integer = 3		Private Const rowPropsLName As Integer = 3
	Private Const rowPropsPath As Integer = 4		Private Const rowPropsPath As Integer = 4
	Private Const rowPropdCreate As Integer = 5		Private Const rowPropdCreate As Integer = 5
	Private Const rowPropsAuthor As Integer = 6		Private Const rowPropsAuthor As Integer = 6
	Private Const rowPropdChanged As Integer = 7		Private Const rowPropdChanged As Integer = 7
	Private Const rowPropdImported As Integer = 8		Private Const rowPropdImported As Integer = 8
	Private Const rowPropsVersion As Integer = 9		Private Const rowPropsVersion As Integer = 9
	Private Const rowPropsConnection As Integer = 10		Private Const rowPropsConnection As Integer = 10
	Private Const rowPropsDescription As Integer = 11		Private Const rowPropsDescription As Integer = 11
	Private Const rowPropsComment As Integer = 12		Private Const rowPropsComment As Integer = 12
	Private Const rowPropiCntClasses As Integer = 13		Private Const rowPropiCntClasses As Integer = 13
	Private Const rowPropiCntObjects As Integer = 14		Private Const rowPropiCntObjects As Integer = 14
	Private Const rowPropiCntConditions As Integer = 15		Private Const rowPropiCntConditions As Integer = 15
	Private Const rowPropiCntTables As Integer = 16		Private Const rowPropiCntTables As Integer = 16
	Private Const rowPropiCntAliases As Integer = 17		Private Const rowPropiCntAliases As Integer = 17
	Private Const rowPropiCntJoins As Integer = 18		Private Const rowPropiCntJoins As Integer = 18
	Private Const rowPropiCntContexts As Integer = 19		Private Const rowPropiCntContexts As Integer = 19
	Private Const rowPropiCntHierachies As Integer = 20		Private Const rowPropiCntHierachies As Integer = 20
	Private Const rowPropdblLimitResultSetVal As Integer = 21		Private Const rowPropdblLimitResultSetVal As Integer = 21
	Private Const rowPropdblLimitExecTimeVal As Integer = 22		Private Const rowPropdblLimitExecTimeVal As Integer = 22
	Private Const rowPropdblCostEstExceedVal As Integer = 23		Private Const rowPropdblCostEstExceedVal As Integer = 23
	Private Const rowPropdblLimitLTextObjectVal As Integer = 24		Private Const rowPropdblLimitLTextObjectVal As Integer = 24
	Private Const rowPropbSQLSubQueries As Integer = 25		Private Const rowPropbSQLSubQueries As Integer = 25
	Private Const rowPropbSQLOperators As Integer = 26		Private Const rowPropbSQLOperators As Integer = 26
	Private Const rowPropbSQLComplexOperators As Integer = 27		Private Const rowPropbSQLComplexOperators As Integer = 27
	Private Const rowPropbSQLMultipleSQLForContext As Integer = 28		Private Const rowPropbSQLMultipleSQLForContext As Integer = 28
	Private Const rowPropbSQLMultipleSQLForMeasure As Integer = 29		Private Const rowPropbSQLMultipleSQLForMeasure As Integer = 29
	Private Const rowPropbSQLSelectMultipleContexts As Integer = 30		Private Const rowPropbSQLSelectMultipleContexts As Integer = 30
	Private Const rowPropbSQLPreventCartesianProducts As Integer = 31		Private Const rowPropbSQLPreventCartesianProducts As Integer = 31
	' definition sheet Universe Contexts		' definition sheet Universe Contexts
	Private Const colCtxtName As Integer = 1		Private Const colCtxtName As Integer = 1
	Private Const colCtxtTab1 As Integer = 2		Private Const colCtxtTab1 As Integer = 2
	Private Const colCtxtCol1 As Integer = 3		Private Const colCtxtCol1 As Integer = 3
	Private Const colCtxtTab2 As Integer = 4		Private Const colCtxtTab2 As Integer = 4
	Private Const colCtxtCol2 As Integer = 5		Private Const colCtxtCol2 As Integer = 5
	Private Const colCtxtExpr As Integer = 6		Private Const colCtxtExpr As Integer = 6
	' definition sheet Universe Dependencies		' definition sheet Universe Dependencies
	Private Const colDepnClassId As Integer = 1		Private Const colDepnClassId As Integer = 1
	Private Const colDepnObjectId As Integer = 2		Private Const colDepnObjectId As Integer = 2
	Private Const colDepnClassName As Integer = 3		Private Const colDepnClassName As Integer = 3
	Private Const colDepnObjectName As Integer = 4		Private Const colDepnObjectName As Integer = 4
	Private Const colDepnTableAlias As Integer = 5		Private Const colDepnTableAlias As Integer = 5
	Private Const colDepnTable As Integer = 6		Private Const colDepnTable As Integer = 6
	Private Const colDepnColumn As Integer = 7		Private Const colDepnColumn As Integer = 7
	Private Const colDepnIsDerived As Integer = 8		Private Const colDepnIsDerived As Integer = 8
	' definition sheet Universe Parameters		' definition sheet Universe Parameters
	Private Const colParamName As Integer = 1		Private Const colParamName As Integer = 1
	Private Const colParamValue As Integer = 2		Private Const colParamValue As Integer = 2
	' definition sheet Universe Incombatibilities		' definition sheet Universe Incombatibilities
	Private Const colInCombTableName As Integer = 1		Private Const colInCombTableName As Integer = 1
	Private Const colInCombClassName As Integer = 2		Private Const colInCombClassName As Integer = 2
	Private Const colInCombObjectName As Integer = 3		Private Const colInCombObjectName As Integer = 3
	Private Const colInCombTableId As Integer = 4		Private Const colInCombTableId As Integer = 4
	Private Const colInCombClassId As Integer = 5		Private Const colInCombClassId As Integer = 5
	Private Const colInCombObjectId As Integer = 6		Private Const colInCombObjectId As Integer = 6
	' definition sheet Universe Objects		' definition sheet Universe Objects
	Private Const colObjClassId As Integer = 1		Private Const colObjClassId As Integer = 1
	Private Const colObjObjectId As Integer = 2		Private Const colObjObjectId As Integer = 2
	Private Const colObjClassName As Integer = 3		Private Const colObjClassName As Integer = 3
	Private Const colObjObjectName As Integer = 4		Private Const colObjObjectName As Integer = 4
	Private Const colObjObjectType As Integer = 5		Private Const colObjObjectType As Integer = 5
	Private Const colObjDataType As Integer = 6		Private Const colObjDataType As Integer = 6
	Private Const colObjDescription As Integer = 7		Private Const colObjDescription As Integer = 7
	Private Const colObjSqlSelect As Integer = 8		Private Const colObjSqlSelect As Integer = 8
	Private Const colObjSQLWhere As Integer = 9		Private Const colObjSQLWhere As Integer = 9
	Private Const colObjHidden As Integer = 10		Private Const colObjHidden As Integer = 10
	Private Const colObjAggregateFunction As Integer = 11		Private Const colObjAggregateFunction As Integer = 11
	Private Const colObjHasListOfValues As Integer = 12		Private Const colObjHasListOfValues As Integer = 12
	Private Const colObjListOfValuesName As Integer = 13		Private Const colObjListOfValuesName As Integer = 13
	Private Const colObjAllowUserToEditLov As Integer = 14		Private Const colObjAllowUserToEditLov As Integer = 14
	Private Const colObjAutomaticLovRefreshBeforeUse As Integer = 15		Private Const colObjAutomaticLovRefreshBeforeUse As Integer = 15
	Private Const colObjUseHierarchicalDisplay As Integer = 16		Private Const colObjUseHierarchicalDisplay As Integer = 16
	Private Const colObjExportLovWithUniverse As Integer = 17		Private Const colObjExportLovWithUniverse As Integer = 17
	Private Const colObjSecurityAccessLevel As Integer = 18		Private Const colObjSecurityAccessLevel As Integer = 18
	Private Const colObjCanBeUsedResult As Integer = 19		Private Const colObjCanBeUsedResult As Integer = 19
	Private Const colObjCanBeUsedCondition As Integer = 20		Private Const colObjCanBeUsedCondition As Integer = 20
	Private Const colObjCanBeUsedSort As Integer = 21		Private Const colObjCanBeUsedSort As Integer = 21
	' definition sheet Universe Joins		' definition sheet Universe Joins
	Private Const colJoinId As Integer = 1		Private Const colJoinId As Integer = 1
	Private Const colJoinExpr As Integer = 2		Private Const colJoinExpr As Integer = 2
	' definition sheet Universe Hierarchies		' definition sheet Universe Hierarchies
	Private Const colHierName As Integer = 1		Private Const colHierName As Integer = 1
	Private Const colHierObjectName As Integer = 2		Private Const colHierObjectName As Integer = 2
	Private Const colHierClassName As Integer = 3		Private Const colHierClassName As Integer = 3
	Private Const colHierIsVisible As Integer = 4		Private Const colHierIsVisible As Integer = 4
	Private Type tControl		Private Type tControl
	bExecInfo As Boolean		bExecInfo As Boolean
	bExecParameter As Boolean		bExecParameter As Boolean
	bExecObject As Boolean		bExecObject As Boolean
	bExecTable As Boolean		bExecTable As Boolean
	bExecJoin As Boolean		bExecJoin As Boolean
	bExecContext As Boolean		bExecContext As Boolean
	bExecHier As Boolean		bExecHier As Boolean
	bExecDependency As Boolean		bExecDependency As Boolean
	bExecIncomb As Boolean		bExecIncomb As Boolean
	End Type		End Type
	Private Type tUniverseProperties		Private Type tUniverseProperties
	sLogonSystem As String		sLogonSystem As String
	sLogonName As String		sLogonName As String
	sName As String		sName As String
	sLongName As String		sLongName As String
	sPath As String		sPath As String
	sAuthor As String		sAuthor As String
	sCreate As String		sCreate As String
	sChanged As String		sChanged As String
	dImported As Date		dImported As Date
	sVersion As String		sVersion As String
	sConnection As String		sConnection As String
	sDescription As String		sDescription As String
	sComment As String		sComment As String
	iCountClasses As Integer		iCountClasses As Integer
	iCountObjects As Integer		iCountObjects As Integer
	iCountConditions As Integer		iCountConditions As Integer
	iCountTables As Integer		iCountTables As Integer
	iCountAliases As Integer		iCountAliases As Integer
	iCountJoins As Integer		iCountJoins As Integer
	iCountContexts As Integer		iCountContexts As Integer
	iCountHierachies As Integer		iCountHierachies As Integer
	iCurrentObjectStrategy As Integer		iCurrentObjectStrategy As Integer
	iCurrentJoinStrategy As Integer		iCurrentJoinStrategy As Integer
	iCurrentTableStrategy As Integer		iCurrentTableStrategy As Integer
	bSQLComplexOperators As Boolean		bSQLComplexOperators As Boolean
	bSQLMultipleSQLForContext As Boolean		bSQLMultipleSQLForContext As Boolean
	bSQLMultipleSQLForMeasure As Boolean		bSQLMultipleSQLForMeasure As Boolean
	bSQLOperators As Boolean		bSQLOperators As Boolean
	bSQLPreventCartesianProducts As Boolean		bSQLPreventCartesianProducts As Boolean
	bSQLSelectMultipleContexts As Boolean		bSQLSelectMultipleContexts As Boolean
	bSQLSubQueries As Boolean		bSQLSubQueries As Boolean
	bLimitExecutionTime As Boolean		bLimitExecutionTime As Boolean
	dblLimitExecutionTimeValue As Double		dblLimitExecutionTimeValue As Double
	bLimitSizeOfLongTextObject As Boolean		bLimitSizeOfLongTextObject As Boolean
	dblLimitSizeOfLongTextObjectValue As Double		dblLimitSizeOfLongTextObjectValue As Double
	bLimitSizeofResultSet As Boolean		bLimitSizeofResultSet As Boolean
	dblLimitSizeofResultSetValue As Double		dblLimitSizeofResultSetValue As Double
	bWarnIfCostEstimateExceeded As Boolean		bWarnIfCostEstimateExceeded As Boolean
	dblCostEstimateExceededValue As Double		dblCostEstimateExceededValue As Double
	End Type		End Type
	Private Type tUniverseParameters		Private Type tUniverseParameters
	sName As String		sName As String
	sValue As String		sValue As String
	End Type		End Type
	Private Type tClasses		Private Type tClasses
	sName As String		sName As String
	iId As Integer		iId As Integer
	iParentId As Integer		iParentId As Integer
	iCountClasses As Integer		iCountClasses As Integer
	iLevel As Integer		iLevel As Integer
	sDescription As String		sDescription As String
	bIsVisible As Boolean		bIsVisible As Boolean
	End Type		End Type
	Private Type tObjectProperties		Private Type tObjectProperties
	iId As Integer		iId As Integer
	sName As String		sName As String
	iObjectID As Integer		iObjectID As Integer
	sClassName As String		sClassName As String
	iClassId As Integer		iClassId As Integer
	sDescription As String		sDescription As String
	sSelect As String		sSelect As String
	sWhere As String		sWhere As String
	iDataBaseFormat As Integer		iDataBaseFormat As Integer
	iQualification As Integer		iQualification As Integer
	iAggregateFunction As Integer		iAggregateFunction As Integer
	bIsVisible As Boolean		bIsVisible As Boolean
	bCanBeUsedCondition As Boolean		bCanBeUsedCondition As Boolean
	bCanBeUsedResult As Boolean		bCanBeUsedResult As Boolean
	bCanBeUsedSort As Boolean		bCanBeUsedSort As Boolean
	bAllowUserToEditLov As Boolean		bAllowUserToEditLov As Boolean
	bAutomaticLovRefreshBeforeUse As Boolean		bAutomaticLovRefreshBeforeUse As Boolean
	bExportLovWithUniverse As Boolean		bExportLovWithUniverse As Boolean
	bHasListOfValues As Boolean		bHasListOfValues As Boolean
	sListOfValuesName As String		sListOfValuesName As String
	iCountObjects As Integer		iCountObjects As Integer
	iSecurityAccessLevel As Integer		iSecurityAccessLevel As Integer
	iType As Integer		iType As Integer
	bUseHierarchicalDisplay As Boolean		bUseHierarchicalDisplay As Boolean
	End Type		End Type
	Private Type tObjectKeys		Private Type tObjectKeys
	iId As Integer		iId As Integer
	iClassId As Integer		iClassId As Integer
	iObjectID As Integer		iObjectID As Integer
	sClassName As String		sClassName As String
	sObjectName As String		sObjectName As String
	bEnable As Boolean		bEnable As Boolean
	iType As Integer		iType As Integer
	sSelect As String		sSelect As String
	sWhere As String		sWhere As String
	End Type		End Type
	Private Type tAllTables		Private Type tAllTables
	iId As Integer		iId As Integer
	sName As String		sName As String
	bIsAlias As Boolean		bIsAlias As Boolean
	iIdOriginalTable As Integer		iIdOriginalTable As Integer
	sOriginalTable As String		sOriginalTable As String
	iCountColumns As Integer		iCountColumns As Integer
	iCountIncompatibleObjects As Integer		iCountIncompatibleObjects As Integer
	iCountIncompatiblePredefConditions As Integer		iCountIncompatiblePredefConditions As Integer
	bIsDerived As Boolean		bIsDerived As Boolean
	sSqlOfDerivedTable As String		sSqlOfDerivedTable As String
	sSqlOfDerivedTableWithAlias As String		sSqlOfDerivedTableWithAlias As String
	dblWeight As Double		dblWeight As Double
	End Type		End Type
	Private Type tOriginalTables		Private Type tOriginalTables
	iId As Integer		iId As Integer
	sName As String		sName As String
	End Type		End Type
	Private Type tTableColumns		Private Type tTableColumns
	iId As Integer		iId As Integer
	iTableId As Integer		iTableId As Integer
	sTableName As String		sTableName As String
	sName As String		sName As String
	iType As Integer		iType As Integer
	iKey As Integer		iKey As Integer
	End Type		End Type
	Private Type tHierarchyProperties		Private Type tHierarchyProperties
	iId As Integer		iId As Integer
	sName As String		sName As String
	iObjectID As Integer		iObjectID As Integer
	iClassId As Integer		iClassId As Integer
	sObjectName As String		sObjectName As String
	sClassName As String		sClassName As String
	bIsVisible As Boolean		bIsVisible As Boolean
	End Type		End Type
	Private Type tDependencies		Private Type tDependencies
	iId As Integer		iId As Integer
	iClassId As Integer		iClassId As Integer
	iObjectID As Integer		iObjectID As Integer
	iTableId As Integer		iTableId As Integer
	iColumnId As Integer		iColumnId As Integer
	sClassName As String		sClassName As String
	sObjectName As String		sObjectName As String
	sTableName As String		sTableName As String
	sTableOriginalName As String		sTableOriginalName As String
	sColumnName As String		sColumnName As String
	iSource As Integer		iSource As Integer
	bIsDerived As Boolean		bIsDerived As Boolean
	End Type		End Type
	Private Type tContextProperties		Private Type tContextProperties
	iId As Integer		iId As Integer
	sName As String		sName As String
	sDescription As String		sDescription As String
	sFirstTable As String		sFirstTable As String
	iFirstTableId As Integer		iFirstTableId As Integer
	sSecondTable As String		sSecondTable As String
	iSecondTable As Integer		iSecondTable As Integer
	sFirstColumn As String		sFirstColumn As String
	iFirstColumn As Integer		iFirstColumn As Integer
	sSecondColumn As String		sSecondColumn As String
	iSecondColumn As Integer		iSecondColumn As Integer
	sExpression As String		sExpression As String
	End Type		End Type
	Private Type tJoins		Private Type tJoins
	iJoinId As Integer		iJoinId As Integer
	iOuterJoin As Integer		iOuterJoin As Integer
	bShortCut As Boolean		bShortCut As Boolean
	iCardinality As Integer		iCardinality As Integer
	sExpression As String		sExpression As String
	End Type		End Type
	Private Type tIncombatibilities		Private Type tIncombatibilities
	iIncId As Integer		iIncId As Integer
	iTableId As Integer		iTableId As Integer
	iClassId As Integer		iClassId As Integer
	iObjectID As Integer		iObjectID As Integer
	sTableName As String		sTableName As String
	sClassName As String		sClassName As String
	sObjectName As String		sObjectName As String
	End Type		End Type
	' Dimensionen		' Dimensionen
	' Language settings		' Language settings
	Private Type dLanguage		Private Type dLanguage
	iLang As Integer		iLang As Integer
	sLang As String		sLang As String
	End Type		End Type
	' tUniverseProperties.CurrentObjectStrategy		' tUniverseProperties.CurrentObjectStrategy
	Private Type dCurrentObjectStrategy		Private Type dCurrentObjectStrategy
	iCurrentObjectStrategy As Integer		iCurrentObjectStrategy As Integer
	sCurrentObjectStrategy As String		sCurrentObjectStrategy As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tUniverseProperties.CurrentJoinStrategy		' tUniverseProperties.CurrentJoinStrategy
	Private Type dCurrentJoinStrategy		Private Type dCurrentJoinStrategy
	iCurrentJoinStrategy As Integer		iCurrentJoinStrategy As Integer
	sCurrentJoinStrategy As String		sCurrentJoinStrategy As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tUniverseProperties.CurrentTableStrategy		' tUniverseProperties.CurrentTableStrategy
	Private Type dCurrentTableStrategy		Private Type dCurrentTableStrategy
	iCurrentTableStrategy As Integer		iCurrentTableStrategy As Integer
	sCurrentTableStrategy As String		sCurrentTableStrategy As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tObjectProperties.DataBaseFormat		' tObjectProperties.DataBaseFormat
	Private Type dDataBaseFormat		Private Type dDataBaseFormat
	iDataBaseFormat As Integer		iDataBaseFormat As Integer
	sDataBaseFormat As String		sDataBaseFormat As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tObjectProperties.Qualification		' tObjectProperties.Qualification
	Private Type dQualification		Private Type dQualification
	iQualification As Integer		iQualification As Integer
	sQualification As String		sQualification As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tObjectProperties.AggregateFunction		' tObjectProperties.AggregateFunction
	Private Type dAggregateFunction		Private Type dAggregateFunction
	iAggregateFunction As Integer		iAggregateFunction As Integer
	sAggregateFunction As String		sAggregateFunction As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tObjectProperties.SecurityAccessLevel		' tObjectProperties.SecurityAccessLevel
	Private Type dSecurityAccessLevel		Private Type dSecurityAccessLevel
	iSecurityAccessLevel As Integer		iSecurityAccessLevel As Integer
	sSecurityAccessLevel As String		sSecurityAccessLevel As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tObjectProperties.Type		' tObjectProperties.Type
	Private Type dObjectPropertiesType		Private Type dObjectPropertiesType
	iType As Integer		iType As Integer
	sType As String		sType As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tObjectKeys.Type		' tObjectKeys.Type
	Private Type dObjectKeysType		Private Type dObjectKeysType
	iType As Integer		iType As Integer
	sType As String		sType As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tDependencies.Source		' tDependencies.Source
	Private Type dSource		Private Type dSource
	iSource As Integer		iSource As Integer
	sSource As String		sSource As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	'tTableColumn.Type		'tTableColumn.Type
	Private Type dTableColumnType		Private Type dTableColumnType
	iTyp As Integer		iTyp As Integer
	sName As String		sName As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' tTableColumn.Key		' tTableColumn.Key
	Private Type dTableColumnKey		Private Type dTableColumnKey
	iKey As Integer		iKey As Integer
	sName As String		sName As String
	iLang As Integer		iLang As Integer
	End Type		End Type
	' detect changes of descriptions ob bo objects defined in excel		' detect changes of descriptions ob bo objects defined in excel
	Private Type tChanges		Private Type tChanges
	iChange As Integer		iChange As Integer
	iRow As Integer		iRow As Integer
	iClassId As Integer		iClassId As Integer
	iObjectID As Integer		iObjectID As Integer
	sClassName As String		sClassName As String
	sObjectNameOld As String		sObjectNameOld As String
	sObjectNameNew As String		sObjectNameNew As String
	sObjectType As String		sObjectType As String
	iObjectType As Integer		iObjectType As Integer
	iChangeDefinition As Integer ' binary code where the change is detected		iChangeDefinition As Integer ' binary code where the change is detected
	sSelectOld As String		sSelectOld As String
	sSelectNew As String		sSelectNew As String
	sWhereOld As String		sWhereOld As String
	sWhereNew As String		sWhereNew As String
	sDescOld As String		sDescOld As String
	sDescNew As String		sDescNew As String
	End Type		End Type
	Private oUnvProp As tUniverseProperties		Private oUnvProp As tUniverseProperties
	Private oUnvParams() As tUniverseParameters		Private oUnvParams() As tUniverseParameters
	Private oClasses() As tClasses		Private oClasses() As tClasses
	Private oObjects() As tObjectProperties		Private oObjects() As tObjectProperties
	Private oObjectKeys() As tObjectKeys		Private oObjectKeys() As tObjectKeys
	Private oTables() As tAllTables		Private oTables() As tAllTables
	Private oOriginalTables() As tOriginalTables		Private oOriginalTables() As tOriginalTables
	Private oTableColumns() As tTableColumns		Private oTableColumns() As tTableColumns
	Private oHierarchies() As tHierarchyProperties		Private oHierarchies() As tHierarchyProperties
	Private oObjectTableDependencies() As tDependencies		Private oObjectTableDependencies() As tDependencies
	Private oContexts() As tContextProperties		Private oContexts() As tContextProperties
	Private oJoins() As tJoins		Private oJoins() As tJoins
	Private oIncombatibilities() As tIncombatibilities		Private oIncombatibilities() As tIncombatibilities
	Private oLanguage() As dLanguage		Private oLanguage() As dLanguage
	Private oCurrentObjectStrategy() As dCurrentObjectStrategy		Private oCurrentObjectStrategy() As dCurrentObjectStrategy
	Private oCurrentJoinStrategy() As dCurrentJoinStrategy		Private oCurrentJoinStrategy() As dCurrentJoinStrategy
	Private oCurrentTableStrategy() As dCurrentTableStrategy		Private oCurrentTableStrategy() As dCurrentTableStrategy
	Private oDataBaseFormat() As dDataBaseFormat		Private oDataBaseFormat() As dDataBaseFormat
	Private oQualification() As dQualification		Private oQualification() As dQualification
	Private oAggregateFunction() As dAggregateFunction		Private oAggregateFunction() As dAggregateFunction
	Private oSecurityAccessLevel() As dSecurityAccessLevel		Private oSecurityAccessLevel() As dSecurityAccessLevel
	Private oObjectPropertiesType() As dObjectPropertiesType		Private oObjectPropertiesType() As dObjectPropertiesType
	Private oObjectKeysType() As dObjectKeysType		Private oObjectKeysType() As dObjectKeysType
	Private oSource() As dSource		Private oSource() As dSource
	Private oTableColumnType() As dTableColumnType		Private oTableColumnType() As dTableColumnType
	Private oTableColumnKey() As dTableColumnKey		Private oTableColumnKey() As dTableColumnKey
	Private oControl As tControl		Private oControl As tControl
	Private oChanges() As tChanges		Private oChanges() As tChanges
	' ---> xxx end declaration		' ---> xxx end declaration
	' ---> xxx start sub routines		' ---> xxx start sub routines
	Private Sub InitFrm()		Private Sub InitFrm()
	Dim sProcName As String		Dim sProcName As String
	Dim iSh As Integer		Dim iSh As Integer
	Dim oSh As Worksheet		Dim oSh As Worksheet
	Const rowInfo As Integer = 2		Const rowInfo As Integer = 2
	Const rowParams As Integer = 3		Const rowParams As Integer = 3
	Const rowObjects As Integer = 4		Const rowObjects As Integer = 4
	Const rowDependencies As Integer = 5		Const rowDependencies As Integer = 5
	Const rowHierarchies As Integer = 6		Const rowHierarchies As Integer = 6
	Const rowContexts As Integer = 7		Const rowContexts As Integer = 7
	Const rowJoins As Integer = 8		Const rowJoins As Integer = 8
	Const rowIncombs As Integer = 9		Const rowIncombs As Integer = 9
	Const rowLangEN As Integer = 10		Const rowLangEN As Integer = 10
	Const rowLangDE As Integer = 11		Const rowLangDE As Integer = 11
	Const rowData As Integer = 13		Const rowData As Integer = 13
	Const rowLang As Integer = 14		Const rowLang As Integer = 14
			Const rowErrHandling As Integer = 15
			Const rowErrHandlingTxt As Integer = 16
			Const rowErrExit As Integer = 17
			Const rowErrResume As Integer = 18
	sProcName = "InitBars"		sProcName = "InitBars"
	On Error GoTo Err		On Error GoTo Err
	vbLang = iGetLanguage		vbLang = iGetLanguage
	iSh = iGetWorksheetID(ActiveWorkbook, "_params")		iSh = iGetWorksheetID(ActiveWorkbook, "_params")
	Set oSh = ActiveWorkbook.Worksheets(iSh)		Set oSh = ActiveWorkbook.Worksheets(iSh)
	frmExecOptions.Caption = vbVersion		frmExecOptions.Caption = vbVersion
	frmExecOptions.bxInfo.Caption = oSh.Cells(rowInfo, 1).Value		frmExecOptions.bxInfo.Caption = oSh.Cells(rowInfo, 1).Value
	frmExecOptions.bxParams.Caption = oSh.Cells(rowParams, 1).Value		frmExecOptions.bxParams.Caption = oSh.Cells(rowParams, 1).Value
	frmExecOptions.bxObjects.Caption = oSh.Cells(rowObjects, 1).Value		frmExecOptions.bxObjects.Caption = oSh.Cells(rowObjects, 1).Value
	frmExecOptions.bxDependencies.Caption = oSh.Cells(rowDependencies, 1).Value		frmExecOptions.bxDependencies.Caption = oSh.Cells(rowDependencies, 1).Value
	frmExecOptions.bxHierarchies.Caption = oSh.Cells(rowHierarchies, 1).Value		frmExecOptions.bxHierarchies.Caption = oSh.Cells(rowHierarchies, 1).Value
	frmExecOptions.bxContexts.Caption = oSh.Cells(rowContexts, 1).Value		frmExecOptions.bxContexts.Caption = oSh.Cells(rowContexts, 1).Value
	frmExecOptions.bxJoins.Caption = oSh.Cells(rowJoins, 1).Value		frmExecOptions.bxJoins.Caption = oSh.Cells(rowJoins, 1).Value
	frmExecOptions.bxIncombs.Caption = oSh.Cells(rowIncombs, 1).Value		frmExecOptions.bxIncombs.Caption = oSh.Cells(rowIncombs, 1).Value
	frmExecOptions.bxDE.Caption = oSh.Cells(rowLangDE, 1).Value		frmExecOptions.bxDE.Caption = oSh.Cells(rowLangDE, 1).Value
	frmExecOptions.bxEN.Caption = oSh.Cells(rowLangEN, 1).Value		frmExecOptions.bxEN.Caption = oSh.Cells(rowLangEN, 1).Value
			frmExecOptions.lblErr.Caption = oSh.Cells(rowErrHandlingTxt, 1).Value
			frmExecOptions.bxErrExit.Caption = oSh.Cells(rowErrExit, 1).Value
			frmExecOptions.bxErrResume.Caption = oSh.Cells(rowErrResume, 1).Value
	frmExecOptions.pgAll.pages(0).Caption = oSh.Cells(rowData, 1).Value		frmExecOptions.pgAll.pages(0).Caption = oSh.Cells(rowData, 1).Value
	frmExecOptions.pgAll.pages(1).Caption = oSh.Cells(rowLang, 1).Value		frmExecOptions.pgAll.pages(1).Caption = oSh.Cells(rowLang, 1).Value
			frmExecOptions.pgAll.pages(2).Caption = oSh.Cells(rowErrHandling, 1).Value
	frmExecOptions.cmdEsc.Caption = "Esc"		frmExecOptions.cmdEsc.Caption = "Esc"
	frmExecOptions.cmdOk.Caption = "Ok"		frmExecOptions.cmdOk.Caption = "Ok"
	frmExecOptions.bxInfo.Value = IIf(LCase(oSh.Cells(rowInfo, 2).Value) = "yes", True, False)		frmExecOptions.bxInfo.Value = IIf(LCase(oSh.Cells(rowInfo, 2).Value) = "yes", True, False)
	frmExecOptions.bxInfo.Value = IIf(LCase(oSh.Cells(rowInfo, 2).Value) = "yes", True, False)		frmExecOptions.bxInfo.Value = IIf(LCase(oSh.Cells(rowInfo, 2).Value) = "yes", True, False)
	frmExecOptions.bxParams.Value = IIf(LCase(oSh.Cells(rowParams, 2).Value) = "yes", True, False)		frmExecOptions.bxParams.Value = IIf(LCase(oSh.Cells(rowParams, 2).Value) = "yes", True, False)
	frmExecOptions.bxObjects.Value = IIf(LCase(oSh.Cells(rowObjects, 2).Value) = "yes", True, False)		frmExecOptions.bxObjects.Value = IIf(LCase(oSh.Cells(rowObjects, 2).Value) = "yes", True, False)
	frmExecOptions.bxDependencies.Value = IIf(LCase(oSh.Cells(rowDependencies, 2).Value) = "yes", True, False)		frmExecOptions.bxDependencies.Value = IIf(LCase(oSh.Cells(rowDependencies, 2).Value) = "yes", True, False)
	frmExecOptions.bxHierarchies.Value = IIf(LCase(oSh.Cells(rowHierarchies, 2).Value) = "yes", True, False)		frmExecOptions.bxHierarchies.Value = IIf(LCase(oSh.Cells(rowHierarchies, 2).Value) = "yes", True, False)
	frmExecOptions.bxContexts.Value = IIf(LCase(oSh.Cells(rowContexts, 2).Value) = "yes", True, False)		frmExecOptions.bxContexts.Value = IIf(LCase(oSh.Cells(rowContexts, 2).Value) = "yes", True, False)
	frmExecOptions.bxJoins.Value = IIf(LCase(oSh.Cells(rowJoins, 2).Value) = "yes", True, False)		frmExecOptions.bxJoins.Value = IIf(LCase(oSh.Cells(rowJoins, 2).Value) = "yes", True, False)
	frmExecOptions.bxIncombs.Value = IIf(LCase(oSh.Cells(rowIncombs, 2).Value) = "yes", True, False)		frmExecOptions.bxIncombs.Value = IIf(LCase(oSh.Cells(rowIncombs, 2).Value) = "yes", True, False)
	frmExecOptions.bxEN.Value = IIf(LCase(oSh.Cells(rowLangEN, 2).Value) = "yes", True, False)		frmExecOptions.bxEN.Value = IIf(LCase(oSh.Cells(rowLangEN, 2).Value) = "yes", True, False)
	frmExecOptions.bxDE.Value = IIf(LCase(oSh.Cells(rowLangDE, 2).Value) = "yes", True, False)		frmExecOptions.bxDE.Value = IIf(LCase(oSh.Cells(rowLangDE, 2).Value) = "yes", True, False)
			frmExecOptions.bxErrExit.Value = IIf(LCase(oSh.Cells(rowErrExit, 2).Value) = "yes", True, False)
			frmExecOptions.bxErrResume.Value = IIf(LCase(oSh.Cells(rowErrResume, 2).Value) = "yes", True, False)
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub ShowFrm()		Private Sub ShowFrm()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "ShowFrm"		sProcName = "ShowFrm"
	On Error GoTo Err		On Error GoTo Err
	Call InitFrm		Call InitFrm
	frmExecOptions.Show		frmExecOptions.Show
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Public Sub InitBars()		Public Sub InitBars()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "InitBars"		sProcName = "InitBars"
	Dim oXls As Excel.Application		Dim oXls As Excel.Application
	Dim oMenubar As CommandBar		Dim oMenubar As CommandBar
	Dim oBr As CommandBarPopup		Dim oBr As CommandBarPopup
	Dim oBr1 As CommandBarControl		Dim oBr1 As CommandBarControl
	Dim oBr2 As CommandBarControl		Dim oBr2 As CommandBarControl
	Dim oBr3 As CommandBarControl		Dim oBr3 As CommandBarControl
	Dim oBr4 As CommandBarControl		Dim oBr4 As CommandBarControl
	Dim oBr5 As CommandBarControl		Dim oBr5 As CommandBarControl
	Dim sBar1Caption As String		Dim sBar1Caption As String
	Dim sBar1OnAction As String		Dim sBar1OnAction As String
	Dim sBar2Caption As String		Dim sBar2Caption As String
	Dim sBar2OnAction As String		Dim sBar2OnAction As String
	Dim sBar3Caption As String		Dim sBar3Caption As String
	Dim sBar3OnAction As String		Dim sBar3OnAction As String
	Dim sBar4Caption As String		Dim sBar4Caption As String
	Dim sBar4OnAction As String		Dim sBar4OnAction As String
	Dim sBar5Caption As String		Dim sBar5Caption As String
	Dim sBar5OnAction As String		Dim sBar5OnAction As String
	Dim sMyBar As String		Dim sMyBar As String
	On Error GoTo Err		On Error GoTo Err
	vbLang = iGetLanguage		vbLang = iGetLanguage
	Call RemoveBars		Call RemoveBars
	Call InitFrm		Call InitFrm
	sMyBar = "&" & vbVersion		sMyBar = "&" & vbVersion
	Set oXls = Excel.Application		Set oXls = Excel.Application
	' language settings for output		' language settings for output
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	sBar1Caption = "&Lade Universum"		sBar1Caption = "&Lade Universum"
	sBar2Caption = "&Schreibe Universum"		sBar2Caption = "&Schreibe Universum"
	sBar3Caption = "&Versioniere Universum >> xls"		sBar3Caption = "&Versioniere Universum >> xls"
	sBar4Caption = "&Optionen"		sBar4Caption = "&Optionen"
	sBar5Caption = "&Info"		sBar5Caption = "&Info"
	Case Else ' english		Case Else ' english
	sBar1Caption = "&Load universe"		sBar1Caption = "&Load universe"
	sBar2Caption = "&Write universe"		sBar2Caption = "&Write universe"
	sBar3Caption = "&Versioning universe >> xls"		sBar3Caption = "&Versioning universe >> xls"
	sBar4Caption = "&Options"		sBar4Caption = "&Options"
	sBar5Caption = "&Info"		sBar5Caption = "&Info"
	End Select		End Select
	sBar1OnAction = "WriteUniverseXLS"		sBar1OnAction = "WriteUniverseXLS"
	sBar2OnAction = "SetUniverse"		sBar2OnAction = "SetUniverse"
	sBar3OnAction = "ExportUniverseXLS"		sBar3OnAction = "ExportUniverseXLS"
	sBar4OnAction = "ShowFrm"		sBar4OnAction = "ShowFrm"
	sBar5OnAction = "ShowInfo"		sBar5OnAction = "ShowInfo"
	Set oMenubar = oXls.CommandBars("Worksheet Menu Bar")		Set oMenubar = oXls.CommandBars("Worksheet Menu Bar")
	For Each oBr In oMenubar.Controls		For Each oBr In oMenubar.Controls
	'MsgBox oBr.Caption		'MsgBox oBr.Caption
	If oBr.Caption = sMyBar Then Exit Sub		If oBr.Caption = sMyBar Then Exit Sub
	Next oBr		Next oBr
	Set oBr = oMenubar.Controls.Add(msoControlPopup)		Set oBr = oMenubar.Controls.Add(msoControlPopup)
	oBr.Visible = True		oBr.Visible = True
	oBr.Caption = sMyBar & IIf(vbModus = vbModusDemo, " demo", "")		oBr.Caption = sMyBar & IIf(vbModus = vbModusDemo, " demo", "")
	Set oBr1 = oBr.Controls.Add(msoControlButton)		Set oBr1 = oBr.Controls.Add(msoControlButton)
	oBr1.Visible = True		oBr1.Visible = True
	oBr1.Caption = sBar1Caption		oBr1.Caption = sBar1Caption
	oBr1.OnAction = sBar1OnAction		oBr1.OnAction = sBar1OnAction
	Set oBr2 = oBr.Controls.Add(msoControlButton)		Set oBr2 = oBr.Controls.Add(msoControlButton)
	oBr2.Visible = True		oBr2.Visible = True
	oBr2.Caption = sBar2Caption		oBr2.Caption = sBar2Caption
	oBr2.OnAction = sBar2OnAction		oBr2.OnAction = sBar2OnAction
	Set oBr3 = oBr.Controls.Add(msoControlButton)		Set oBr3 = oBr.Controls.Add(msoControlButton)
	oBr3.Visible = True		oBr3.Visible = True
	oBr3.Caption = sBar3Caption		oBr3.Caption = sBar3Caption
	oBr3.OnAction = sBar3OnAction		oBr3.OnAction = sBar3OnAction
	Set oBr4 = oBr.Controls.Add(msoControlButton)		Set oBr4 = oBr.Controls.Add(msoControlButton)
	oBr4.Visible = True		oBr4.Visible = True
	oBr4.Caption = sBar4Caption		oBr4.Caption = sBar4Caption
	oBr4.OnAction = sBar4OnAction		oBr4.OnAction = sBar4OnAction
	Set oBr5 = oBr.Controls.Add(msoControlButton)		Set oBr5 = oBr.Controls.Add(msoControlButton)
	oBr5.Visible = True		oBr5.Visible = True
	oBr5.Caption = sBar5Caption		oBr5.Caption = sBar5Caption
	oBr5.OnAction = sBar5OnAction		oBr5.OnAction = sBar5OnAction
	Set oBr = Nothing		Set oBr = Nothing
	Set oBr1 = Nothing		Set oBr1 = Nothing
	Set oBr2 = Nothing		Set oBr2 = Nothing
	Set oBr3 = Nothing		Set oBr3 = Nothing
	Set oBr4 = Nothing		Set oBr4 = Nothing
	Set oBr5 = Nothing		Set oBr5 = Nothing
	Set oMenubar = Nothing		Set oMenubar = Nothing
	Set oXls = Nothing		Set oXls = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Public Sub RemoveBars()		Public Sub RemoveBars()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "RemoveBars"		sProcName = "RemoveBars"
	Dim oXls As Excel.Application		Dim oXls As Excel.Application
	Dim oMenubar As CommandBar		Dim oMenubar As CommandBar
	Dim oBr As CommandBarPopup		Dim oBr As CommandBarPopup
	Dim sMyBar As String		Dim sMyBar As String
	On Error GoTo Err		On Error GoTo Err
	sMyBar = "&" & vbVersion		sMyBar = "&" & vbVersion
	Set oXls = Excel.Application		Set oXls = Excel.Application
	Set oMenubar = oXls.CommandBars("Worksheet Menu Bar")		Set oMenubar = oXls.CommandBars("Worksheet Menu Bar")
	For Each oBr In oMenubar.Controls		For Each oBr In oMenubar.Controls
	If oBr.Caption = sMyBar & IIf(vbModus = vbModusDemo, " demo", "") Then oBr.Delete		If oBr.Caption = sMyBar & IIf(vbModus = vbModusDemo, " demo", "") Then oBr.Delete
	Next oBr		Next oBr
	Set oBr = Nothing		Set oBr = Nothing
	Set oMenubar = Nothing		Set oMenubar = Nothing
	Set oXls = Nothing		Set oXls = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub ShowInfo()		Private Sub ShowInfo()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "ShowInfo"		sProcName = "ShowInfo"
	On Error GoTo Err		On Error GoTo Err
	frmInfo.Caption = vbVersion & IIf(vbModus = vbModusDemo, " - demo", "")		frmInfo.Caption = vbVersion & IIf(vbModus = vbModusDemo, " - demo", "")
	frmInfo.lblInfo = "GetSetUniverse" & vbCrLf & _		frmInfo.lblInfo = "GetSetUniverse" & vbCrLf & _
	"version " & vbVersion & vbCrLf & vbCrLf & _		"version " & vbVersion & vbCrLf & vbCrLf & _
	"André Lützkendorf" & vbCrLf & _		"André Lützkendorf" & vbCrLf & _
	"www.luetzkendorf.eu" & vbCrLf & _		"www.luetzkendorf.eu" & vbCrLf & _
	"info@luetzkendorf.eu"		"info@luetzkendorf.eu"
	frmInfo.Show		frmInfo.Show
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub DefinitionOfDimensionTablesDE()		Private Sub DefinitionOfDimensionTablesDE()
	Dim sProcName As String		Dim sProcName As String
	Dim iLang As Integer		Dim iLang As Integer
	sProcName = "DefinitionOfDimensionTablesDE"		sProcName = "DefinitionOfDimensionTablesDE"
	On Error GoTo Err		On Error GoTo Err
	' language settings		' language settings
	ReDim oLanguage(2)		ReDim oLanguage(2)
	oLanguage(1).iLang = 49		oLanguage(1).iLang = 49
	oLanguage(1).sLang = "de"		oLanguage(1).sLang = "de"
	oLanguage(2).iLang = 44		oLanguage(2).iLang = 44
	oLanguage(2).sLang = "en"		oLanguage(2).sLang = "en"
	'tUniverseProperties.CurrentObjectStrategy		'tUniverseProperties.CurrentObjectStrategy
	ReDim oCurrentObjectStrategy(1)		ReDim oCurrentObjectStrategy(1)
	oCurrentObjectStrategy(1).iLang = 49		oCurrentObjectStrategy(1).iLang = 49
	oCurrentObjectStrategy(1).iCurrentObjectStrategy = 0		oCurrentObjectStrategy(1).iCurrentObjectStrategy = 0
	oCurrentObjectStrategy(1).sCurrentObjectStrategy = "Standard-Umbenennung"		oCurrentObjectStrategy(1).sCurrentObjectStrategy = "Standard-Umbenennung"
	' tUniverseProperties.CurrentJoinStrategy		' tUniverseProperties.CurrentJoinStrategy
	ReDim oCurrentJoinStrategy(4)		ReDim oCurrentJoinStrategy(4)
	oCurrentJoinStrategy(1).iLang = 49		oCurrentJoinStrategy(1).iLang = 49
	oCurrentJoinStrategy(1).iCurrentJoinStrategy = 0		oCurrentJoinStrategy(1).iCurrentJoinStrategy = 0
	oCurrentJoinStrategy(1).sCurrentJoinStrategy = "Manuell bearbeiten (keine automatische Erstellung)"		oCurrentJoinStrategy(1).sCurrentJoinStrategy = "Manuell bearbeiten (keine automatische Erstellung)"
	oCurrentJoinStrategy(2).iLang = 49		oCurrentJoinStrategy(2).iLang = 49
	oCurrentJoinStrategy(2).iCurrentJoinStrategy = 1		oCurrentJoinStrategy(2).iCurrentJoinStrategy = 1
	oCurrentJoinStrategy(2).sCurrentJoinStrategy = "1"		oCurrentJoinStrategy(2).sCurrentJoinStrategy = "1"
	oCurrentJoinStrategy(3).iLang = 49		oCurrentJoinStrategy(3).iLang = 49
	oCurrentJoinStrategy(3).iCurrentJoinStrategy = 2		oCurrentJoinStrategy(3).iCurrentJoinStrategy = 2
	oCurrentJoinStrategy(3).sCurrentJoinStrategy = "2"		oCurrentJoinStrategy(3).sCurrentJoinStrategy = "2"
	oCurrentJoinStrategy(4).iLang = 49		oCurrentJoinStrategy(4).iLang = 49
	oCurrentJoinStrategy(4).iCurrentJoinStrategy = -1		oCurrentJoinStrategy(4).iCurrentJoinStrategy = -1
	oCurrentJoinStrategy(4).sCurrentJoinStrategy = "-1"		oCurrentJoinStrategy(4).sCurrentJoinStrategy = "-1"
	' tUniverseProperties.CurrentTableStrategy		' tUniverseProperties.CurrentTableStrategy
	ReDim oCurrentTableStrategy(2)		ReDim oCurrentTableStrategy(2)
	oCurrentTableStrategy(1).iLang = 49		oCurrentTableStrategy(1).iLang = 49
	oCurrentTableStrategy(1).iCurrentTableStrategy = 0		oCurrentTableStrategy(1).iCurrentTableStrategy = 0
	oCurrentTableStrategy(1).sCurrentTableStrategy = "Standard (Integriert)"		oCurrentTableStrategy(1).sCurrentTableStrategy = "Standard (Integriert)"
	oCurrentTableStrategy(2).iLang = 49		oCurrentTableStrategy(2).iLang = 49
	oCurrentTableStrategy(2).iCurrentTableStrategy = -1		oCurrentTableStrategy(2).iCurrentTableStrategy = -1
	oCurrentTableStrategy(2).sCurrentTableStrategy = "-1"		oCurrentTableStrategy(2).sCurrentTableStrategy = "-1"
	' tObjectProperties.DataBaseFormat		' tObjectProperties.DataBaseFormat
	' is not implemented		' is not implemented
	' tObjectProperties.Qualification		' tObjectProperties.Qualification
	ReDim oQualification(4)		ReDim oQualification(4)
	oQualification(1).iLang = 49		oQualification(1).iLang = 49
	oQualification(1).iQualification = dsDimensionObject		oQualification(1).iQualification = dsDimensionObject
	oQualification(1).sQualification = "Dimension"		oQualification(1).sQualification = "Dimension"
	oQualification(2).iLang = 49		oQualification(2).iLang = 49
	oQualification(2).iQualification = dsDetailObject		oQualification(2).iQualification = dsDetailObject
	oQualification(2).sQualification = "Information"		oQualification(2).sQualification = "Information"
	oQualification(3).iLang = 49		oQualification(3).iLang = 49
	oQualification(3).iQualification = dsMeasureObject		oQualification(3).iQualification = dsMeasureObject
	oQualification(3).sQualification = "Kennzahl"		oQualification(3).sQualification = "Kennzahl"
	oQualification(4).iLang = 49		oQualification(4).iLang = 49
	oQualification(4).iQualification = 4		oQualification(4).iQualification = 4
	oQualification(4).sQualification = "Filter"		oQualification(4).sQualification = "Filter"
	' tObjectProperties.AggregateFunction		' tObjectProperties.AggregateFunction
	ReDim oAggregateFunction(8)		ReDim oAggregateFunction(8)
	oAggregateFunction(1).iLang = 49		oAggregateFunction(1).iLang = 49
	oAggregateFunction(1).iAggregateFunction = dsAggregateBySumObject		oAggregateFunction(1).iAggregateFunction = dsAggregateBySumObject
	oAggregateFunction(1).sAggregateFunction = "Summe (sum)"		oAggregateFunction(1).sAggregateFunction = "Summe (sum)"
	oAggregateFunction(2).iLang = 49		oAggregateFunction(2).iLang = 49
	oAggregateFunction(2).iAggregateFunction = dsAggregateByMaxObject		oAggregateFunction(2).iAggregateFunction = dsAggregateByMaxObject
	oAggregateFunction(2).sAggregateFunction = "Max (max)"		oAggregateFunction(2).sAggregateFunction = "Max (max)"
	oAggregateFunction(3).iLang = 49		oAggregateFunction(3).iLang = 49
	oAggregateFunction(3).iAggregateFunction = dsAggregateByMinObject		oAggregateFunction(3).iAggregateFunction = dsAggregateByMinObject
	oAggregateFunction(3).sAggregateFunction = "Min (min)"		oAggregateFunction(3).sAggregateFunction = "Min (min)"
	oAggregateFunction(4).iLang = 49		oAggregateFunction(4).iLang = 49
	oAggregateFunction(4).iAggregateFunction = dsAggregateByAvgObject		oAggregateFunction(4).iAggregateFunction = dsAggregateByAvgObject
	oAggregateFunction(4).sAggregateFunction = "Durchschnitt (avg)"		oAggregateFunction(4).sAggregateFunction = "Durchschnitt (avg)"
	oAggregateFunction(5).iLang = 49		oAggregateFunction(5).iLang = 49
	oAggregateFunction(5).iAggregateFunction = dsAggregateByCountObject		oAggregateFunction(5).iAggregateFunction = dsAggregateByCountObject
	oAggregateFunction(5).sAggregateFunction = "Anzahl (count)"		oAggregateFunction(5).sAggregateFunction = "Anzahl (count)"
	oAggregateFunction(6).iLang = 49		oAggregateFunction(6).iLang = 49
	oAggregateFunction(6).iAggregateFunction = dsAggregateByNullObject		oAggregateFunction(6).iAggregateFunction = dsAggregateByNullObject
	oAggregateFunction(6).sAggregateFunction = "Keine (null)"		oAggregateFunction(6).sAggregateFunction = "Keine (null)"
	oAggregateFunction(7).iLang = 49		oAggregateFunction(7).iLang = 49
	oAggregateFunction(7).iAggregateFunction = 0 'dsAggregateByDbDelegation		oAggregateFunction(7).iAggregateFunction = 0 'dsAggregateByDbDelegation
	oAggregateFunction(7).sAggregateFunction = "Datenbank Delegiert"		oAggregateFunction(7).sAggregateFunction = "Datenbank Delegiert"
	oAggregateFunction(8).iLang = 49		oAggregateFunction(8).iLang = 49
	oAggregateFunction(8).iAggregateFunction = -1 'Dsratellung Filterobjekte		oAggregateFunction(8).iAggregateFunction = -1 'Dsratellung Filterobjekte
	oAggregateFunction(8).sAggregateFunction = ""		oAggregateFunction(8).sAggregateFunction = ""
	' tObjectProperties.SecurityAccessLevel		' tObjectProperties.SecurityAccessLevel
	ReDim oSecurityAccessLevel(6)		ReDim oSecurityAccessLevel(6)
	oSecurityAccessLevel(1).iLang = 49		oSecurityAccessLevel(1).iLang = 49
	oSecurityAccessLevel(1).iSecurityAccessLevel = dsControlledAccess		oSecurityAccessLevel(1).iSecurityAccessLevel = dsControlledAccess
	oSecurityAccessLevel(1).sSecurityAccessLevel = "Kontrolliert"		oSecurityAccessLevel(1).sSecurityAccessLevel = "Kontrolliert"
	oSecurityAccessLevel(2).iLang = 49		oSecurityAccessLevel(2).iLang = 49
	oSecurityAccessLevel(2).iSecurityAccessLevel = dsRestrictedAccess		oSecurityAccessLevel(2).iSecurityAccessLevel = dsRestrictedAccess
	oSecurityAccessLevel(2).sSecurityAccessLevel = "Eingeschränkt"		oSecurityAccessLevel(2).sSecurityAccessLevel = "Eingeschränkt"
	oSecurityAccessLevel(3).iLang = 49		oSecurityAccessLevel(3).iLang = 49
	oSecurityAccessLevel(3).iSecurityAccessLevel = dsConfidentialAccess		oSecurityAccessLevel(3).iSecurityAccessLevel = dsConfidentialAccess
	oSecurityAccessLevel(3).sSecurityAccessLevel = "Vertraulich"		oSecurityAccessLevel(3).sSecurityAccessLevel = "Vertraulich"
	oSecurityAccessLevel(4).iLang = 49		oSecurityAccessLevel(4).iLang = 49
	oSecurityAccessLevel(4).iSecurityAccessLevel = dsPrivateAccess		oSecurityAccessLevel(4).iSecurityAccessLevel = dsPrivateAccess
	oSecurityAccessLevel(4).sSecurityAccessLevel = "Privat"		oSecurityAccessLevel(4).sSecurityAccessLevel = "Privat"
	oSecurityAccessLevel(5).iLang = 49		oSecurityAccessLevel(5).iLang = 49
	oSecurityAccessLevel(5).iSecurityAccessLevel = dsPublicAccess		oSecurityAccessLevel(5).iSecurityAccessLevel = dsPublicAccess
	oSecurityAccessLevel(5).sSecurityAccessLevel = "Öffentlich"		oSecurityAccessLevel(5).sSecurityAccessLevel = "Öffentlich"
	oSecurityAccessLevel(6).iLang = 49		oSecurityAccessLevel(6).iLang = 49
	oSecurityAccessLevel(6).iSecurityAccessLevel = -1 'Darstellung Filterobjekte		oSecurityAccessLevel(6).iSecurityAccessLevel = -1 'Darstellung Filterobjekte
	oSecurityAccessLevel(6).sSecurityAccessLevel = ""		oSecurityAccessLevel(6).sSecurityAccessLevel = ""
	' tObjectProperties.Type		' tObjectProperties.Type
	ReDim oObjectPropertiesType(6)		ReDim oObjectPropertiesType(6)
	oObjectPropertiesType(1).iLang = 49		oObjectPropertiesType(1).iLang = 49
	oObjectPropertiesType(1).iType = dsNumericObject		oObjectPropertiesType(1).iType = dsNumericObject
	oObjectPropertiesType(1).sType = "NumericObject"		oObjectPropertiesType(1).sType = "NumericObject"
	oObjectPropertiesType(2).iLang = 49		oObjectPropertiesType(2).iLang = 49
	oObjectPropertiesType(2).iType = dsCharacterObject		oObjectPropertiesType(2).iType = dsCharacterObject
	oObjectPropertiesType(2).sType = "CharacterObject"		oObjectPropertiesType(2).sType = "CharacterObject"
	oObjectPropertiesType(3).iLang = 49		oObjectPropertiesType(3).iLang = 49
	oObjectPropertiesType(3).iType = dsDateObject		oObjectPropertiesType(3).iType = dsDateObject
	oObjectPropertiesType(3).sType = "DateObject"		oObjectPropertiesType(3).sType = "DateObject"
	oObjectPropertiesType(4).iLang = 49		oObjectPropertiesType(4).iLang = 49
	oObjectPropertiesType(4).iType = dsBlobObject		oObjectPropertiesType(4).iType = dsBlobObject
	oObjectPropertiesType(4).sType = "BlobObject"		oObjectPropertiesType(4).sType = "BlobObject"
	oObjectPropertiesType(5).iLang = 49		oObjectPropertiesType(5).iLang = 49
	oObjectPropertiesType(5).iType = dsUnknownObject		oObjectPropertiesType(5).iType = dsUnknownObject
	oObjectPropertiesType(5).sType = "UnknownObject"		oObjectPropertiesType(5).sType = "UnknownObject"
	oObjectPropertiesType(6).iLang = 49		oObjectPropertiesType(6).iLang = 49
	oObjectPropertiesType(6).iType = dsNullObject		oObjectPropertiesType(6).iType = dsNullObject
	oObjectPropertiesType(6).sType = "NullObject"		oObjectPropertiesType(6).sType = "NullObject"
	' tObjectKeys.Type		' tObjectKeys.Type
	ReDim oObjectKeysType(2)		ReDim oObjectKeysType(2)
	oObjectKeysType(1).iLang = 49		oObjectKeysType(1).iLang = 49
	oObjectKeysType(1).iType = 0		oObjectKeysType(1).iType = 0
	oObjectKeysType(1).sType = "Primärschlüssel"		oObjectKeysType(1).sType = "Primärschlüssel"
	oObjectKeysType(2).iLang = 49		oObjectKeysType(2).iLang = 49
	oObjectKeysType(2).iType = 1		oObjectKeysType(2).iType = 1
	oObjectKeysType(2).sType = "Externer Schlüssel"		oObjectKeysType(2).sType = "Externer Schlüssel"
	' tDependencies.Source		' tDependencies.Source
	ReDim oSource(2)		ReDim oSource(2)
	oSource(1).iLang = 49		oSource(1).iLang = 49
	oSource(1).iSource = 1		oSource(1).iSource = 1
	oSource(1).sSource = "Select"		oSource(1).sSource = "Select"
	oSource(2).iLang = 49		oSource(2).iLang = 49
	oSource(2).iSource = 2		oSource(2).iSource = 2
	oSource(2).sSource = "Where"		oSource(2).sSource = "Where"
	'tTableColumn.Type		'tTableColumn.Type
	ReDim oTableColumnType(6)		ReDim oTableColumnType(6)
	oTableColumnType(1).iLang = 49		oTableColumnType(1).iLang = 49
	oTableColumnType(1).iTyp = dsNumericColumn		oTableColumnType(1).iTyp = dsNumericColumn
	oTableColumnType(1).sName = "NumericColumn"		oTableColumnType(1).sName = "NumericColumn"
	oTableColumnType(2).iLang = 49		oTableColumnType(2).iLang = 49
	oTableColumnType(2).iTyp = dsCharacterColumn		oTableColumnType(2).iTyp = dsCharacterColumn
	oTableColumnType(2).sName = "CharacterColumn"		oTableColumnType(2).sName = "CharacterColumn"
	oTableColumnType(3).iLang = 49		oTableColumnType(3).iLang = 49
	oTableColumnType(3).iTyp = dsDateColumn		oTableColumnType(3).iTyp = dsDateColumn
	oTableColumnType(3).sName = "DateColumn"		oTableColumnType(3).sName = "DateColumn"
	oTableColumnType(4).iLang = 49		oTableColumnType(4).iLang = 49
	oTableColumnType(4).iTyp = dsTextColumn		oTableColumnType(4).iTyp = dsTextColumn
	oTableColumnType(4).sName = "TextColumn"		oTableColumnType(4).sName = "TextColumn"
	oTableColumnType(5).iLang = 49		oTableColumnType(5).iLang = 49
	oTableColumnType(5).iTyp = dsUnknownColumn		oTableColumnType(5).iTyp = dsUnknownColumn
	oTableColumnType(5).sName = "UnknownColumn"		oTableColumnType(5).sName = "UnknownColumn"
	oTableColumnType(6).iLang = 49		oTableColumnType(6).iLang = 49
	oTableColumnType(6).iTyp = dsNullColumn		oTableColumnType(6).iTyp = dsNullColumn
	oTableColumnType(6).sName = "NullColumn"		oTableColumnType(6).sName = "NullColumn"
	' tTableColumn.Key		' tTableColumn.Key
	ReDim oTableColumnKey(6)		ReDim oTableColumnKey(6)
	' no support fpund to assign description to keys		' no support fpund to assign description to keys
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub DefinitionOfDimensionTablesEN()		Private Sub DefinitionOfDimensionTablesEN()
	Dim sProcName As String		Dim sProcName As String
	Dim iLang As Integer		Dim iLang As Integer
	sProcName = "DefinitionOfDimensionTablesEN"		sProcName = "DefinitionOfDimensionTablesEN"
	On Error GoTo Err		On Error GoTo Err
	' language settings		' language settings
	ReDim oLanguage(2)		ReDim oLanguage(2)
	oLanguage(1).iLang = 49		oLanguage(1).iLang = 49
	oLanguage(1).sLang = "de"		oLanguage(1).sLang = "de"
	oLanguage(2).iLang = 44		oLanguage(2).iLang = 44
	oLanguage(2).sLang = "en"		oLanguage(2).sLang = "en"
	'tUniverseProperties.CurrentObjectStrategy		'tUniverseProperties.CurrentObjectStrategy
	ReDim oCurrentObjectStrategy(1)		ReDim oCurrentObjectStrategy(1)
	oCurrentObjectStrategy(1).iLang = 44		oCurrentObjectStrategy(1).iLang = 44
	oCurrentObjectStrategy(1).iCurrentObjectStrategy = 0		oCurrentObjectStrategy(1).iCurrentObjectStrategy = 0
	oCurrentObjectStrategy(1).sCurrentObjectStrategy = "(Build in) Standard Renaming"		oCurrentObjectStrategy(1).sCurrentObjectStrategy = "(Build in) Standard Renaming"
	' tUniverseProperties.CurrentJoinStrategy		' tUniverseProperties.CurrentJoinStrategy
	ReDim oCurrentJoinStrategy(4)		ReDim oCurrentJoinStrategy(4)
	oCurrentJoinStrategy(1).iLang = 44		oCurrentJoinStrategy(1).iLang = 44
	oCurrentJoinStrategy(1).iCurrentJoinStrategy = 0		oCurrentJoinStrategy(1).iCurrentJoinStrategy = 0
	oCurrentJoinStrategy(1).sCurrentJoinStrategy = "Edit Manually (none)"		oCurrentJoinStrategy(1).sCurrentJoinStrategy = "Edit Manually (none)"
	oCurrentJoinStrategy(2).iLang = 44		oCurrentJoinStrategy(2).iLang = 44
	oCurrentJoinStrategy(2).iCurrentJoinStrategy = 1		oCurrentJoinStrategy(2).iCurrentJoinStrategy = 1
	oCurrentJoinStrategy(2).sCurrentJoinStrategy = "1"		oCurrentJoinStrategy(2).sCurrentJoinStrategy = "1"
	oCurrentJoinStrategy(3).iLang = 44		oCurrentJoinStrategy(3).iLang = 44
	oCurrentJoinStrategy(3).iCurrentJoinStrategy = 2		oCurrentJoinStrategy(3).iCurrentJoinStrategy = 2
	oCurrentJoinStrategy(3).sCurrentJoinStrategy = "2"		oCurrentJoinStrategy(3).sCurrentJoinStrategy = "2"
	oCurrentJoinStrategy(4).iLang = 44		oCurrentJoinStrategy(4).iLang = 44
	oCurrentJoinStrategy(4).iCurrentJoinStrategy = -1		oCurrentJoinStrategy(4).iCurrentJoinStrategy = -1
	oCurrentJoinStrategy(4).sCurrentJoinStrategy = "-1"		oCurrentJoinStrategy(4).sCurrentJoinStrategy = "-1"
	' tUniverseProperties.CurrentTableStrategy		' tUniverseProperties.CurrentTableStrategy
	ReDim oCurrentTableStrategy(2)		ReDim oCurrentTableStrategy(2)
	oCurrentTableStrategy(1).iLang = 44		oCurrentTableStrategy(1).iLang = 44
	oCurrentTableStrategy(1).iCurrentTableStrategy = 0		oCurrentTableStrategy(1).iCurrentTableStrategy = 0
	oCurrentTableStrategy(1).sCurrentTableStrategy = "(Build in) Standard"		oCurrentTableStrategy(1).sCurrentTableStrategy = "(Build in) Standard"
	oCurrentTableStrategy(2).iLang = 44		oCurrentTableStrategy(2).iLang = 44
	oCurrentTableStrategy(2).iCurrentTableStrategy = -1		oCurrentTableStrategy(2).iCurrentTableStrategy = -1
	oCurrentTableStrategy(2).sCurrentTableStrategy = "-1"		oCurrentTableStrategy(2).sCurrentTableStrategy = "-1"
	' tObjectProperties.DataBaseFormat		' tObjectProperties.DataBaseFormat
	' is not implemented		' is not implemented
	' tObjectProperties.Qualification		' tObjectProperties.Qualification
	ReDim oQualification(4)		ReDim oQualification(4)
	oQualification(1).iLang = 44		oQualification(1).iLang = 44
	oQualification(1).iQualification = dsDimensionObject		oQualification(1).iQualification = dsDimensionObject
	oQualification(1).sQualification = "Dimension"		oQualification(1).sQualification = "Dimension"
	oQualification(2).iLang = 44		oQualification(2).iLang = 44
	oQualification(2).iQualification = dsDetailObject		oQualification(2).iQualification = dsDetailObject
	oQualification(2).sQualification = "Detail"		oQualification(2).sQualification = "Detail"
	oQualification(3).iLang = 44		oQualification(3).iLang = 44
	oQualification(3).iQualification = dsMeasureObject		oQualification(3).iQualification = dsMeasureObject
	oQualification(3).sQualification = "Measure"		oQualification(3).sQualification = "Measure"
	oQualification(4).iLang = 44		oQualification(4).iLang = 44
	oQualification(4).iQualification = 4		oQualification(4).iQualification = 4
	oQualification(4).sQualification = "Condition"		oQualification(4).sQualification = "Condition"
	' tObjectProperties.AggregateFunction		' tObjectProperties.AggregateFunction
	ReDim oAggregateFunction(8)		ReDim oAggregateFunction(8)
	oAggregateFunction(1).iLang = 44		oAggregateFunction(1).iLang = 44
	oAggregateFunction(1).iAggregateFunction = dsAggregateBySumObject		oAggregateFunction(1).iAggregateFunction = dsAggregateBySumObject
	oAggregateFunction(1).sAggregateFunction = "Sum"		oAggregateFunction(1).sAggregateFunction = "Sum"
	oAggregateFunction(2).iLang = 44		oAggregateFunction(2).iLang = 44
	oAggregateFunction(2).iAggregateFunction = dsAggregateByMaxObject		oAggregateFunction(2).iAggregateFunction = dsAggregateByMaxObject
	oAggregateFunction(2).sAggregateFunction = "Max"		oAggregateFunction(2).sAggregateFunction = "Max"
	oAggregateFunction(3).iLang = 44		oAggregateFunction(3).iLang = 44
	oAggregateFunction(3).iAggregateFunction = dsAggregateByMinObject		oAggregateFunction(3).iAggregateFunction = dsAggregateByMinObject
	oAggregateFunction(3).sAggregateFunction = "Min"		oAggregateFunction(3).sAggregateFunction = "Min"
	oAggregateFunction(4).iLang = 44		oAggregateFunction(4).iLang = 44
	oAggregateFunction(4).iAggregateFunction = dsAggregateByAvgObject		oAggregateFunction(4).iAggregateFunction = dsAggregateByAvgObject
	oAggregateFunction(4).sAggregateFunction = "Average"		oAggregateFunction(4).sAggregateFunction = "Average"
	oAggregateFunction(5).iLang = 44		oAggregateFunction(5).iLang = 44
	oAggregateFunction(5).iAggregateFunction = dsAggregateByCountObject		oAggregateFunction(5).iAggregateFunction = dsAggregateByCountObject
	oAggregateFunction(5).sAggregateFunction = "Count"		oAggregateFunction(5).sAggregateFunction = "Count"
	oAggregateFunction(6).iLang = 44		oAggregateFunction(6).iLang = 44
	oAggregateFunction(6).iAggregateFunction = dsAggregateByNullObject		oAggregateFunction(6).iAggregateFunction = dsAggregateByNullObject
	oAggregateFunction(6).sAggregateFunction = "None"		oAggregateFunction(6).sAggregateFunction = "None"
	oAggregateFunction(7).iLang = 44		oAggregateFunction(7).iLang = 44
	oAggregateFunction(7).iAggregateFunction = 0 'dsAggregateByDbDelegation		oAggregateFunction(7).iAggregateFunction = 0 'dsAggregateByDbDelegation
	oAggregateFunction(7).sAggregateFunction = "Database delegated"		oAggregateFunction(7).sAggregateFunction = "Database delegated"
	oAggregateFunction(8).iLang = 44		oAggregateFunction(8).iLang = 44
	oAggregateFunction(8).iAggregateFunction = -1 'Darstellung Filterobjekte		oAggregateFunction(8).iAggregateFunction = -1 'Darstellung Filterobjekte
	oAggregateFunction(8).sAggregateFunction = ""		oAggregateFunction(8).sAggregateFunction = ""
	' tObjectProperties.SecurityAccessLevel		' tObjectProperties.SecurityAccessLevel
	ReDim oSecurityAccessLevel(6)		ReDim oSecurityAccessLevel(6)
	oSecurityAccessLevel(1).iLang = 44		oSecurityAccessLevel(1).iLang = 44
	oSecurityAccessLevel(1).iSecurityAccessLevel = dsControlledAccess		oSecurityAccessLevel(1).iSecurityAccessLevel = dsControlledAccess
	oSecurityAccessLevel(1).sSecurityAccessLevel = "Controlled access"		oSecurityAccessLevel(1).sSecurityAccessLevel = "Controlled access"
	oSecurityAccessLevel(2).iLang = 44		oSecurityAccessLevel(2).iLang = 44
	oSecurityAccessLevel(2).iSecurityAccessLevel = dsRestrictedAccess		oSecurityAccessLevel(2).iSecurityAccessLevel = dsRestrictedAccess
	oSecurityAccessLevel(2).sSecurityAccessLevel = "Restricted access"		oSecurityAccessLevel(2).sSecurityAccessLevel = "Restricted access"
	oSecurityAccessLevel(3).iLang = 44		oSecurityAccessLevel(3).iLang = 44
	oSecurityAccessLevel(3).iSecurityAccessLevel = dsConfidentialAccess		oSecurityAccessLevel(3).iSecurityAccessLevel = dsConfidentialAccess
	oSecurityAccessLevel(3).sSecurityAccessLevel = "Confidential access"		oSecurityAccessLevel(3).sSecurityAccessLevel = "Confidential access"
	oSecurityAccessLevel(4).iLang = 44		oSecurityAccessLevel(4).iLang = 44
	oSecurityAccessLevel(4).iSecurityAccessLevel = dsPrivateAccess		oSecurityAccessLevel(4).iSecurityAccessLevel = dsPrivateAccess
	oSecurityAccessLevel(4).sSecurityAccessLevel = "Private access"		oSecurityAccessLevel(4).sSecurityAccessLevel = "Private access"
	oSecurityAccessLevel(5).iLang = 44		oSecurityAccessLevel(5).iLang = 44
	oSecurityAccessLevel(5).iSecurityAccessLevel = dsPublicAccess		oSecurityAccessLevel(5).iSecurityAccessLevel = dsPublicAccess
	oSecurityAccessLevel(5).sSecurityAccessLevel = "Public access"		oSecurityAccessLevel(5).sSecurityAccessLevel = "Public access"
	oSecurityAccessLevel(6).iLang = 44		oSecurityAccessLevel(6).iLang = 44
	oSecurityAccessLevel(6).iSecurityAccessLevel = -1 'Darstellung Filterobjekte		oSecurityAccessLevel(6).iSecurityAccessLevel = -1 'Darstellung Filterobjekte
	oSecurityAccessLevel(6).sSecurityAccessLevel = ""		oSecurityAccessLevel(6).sSecurityAccessLevel = ""
	' tObjectProperties.Type		' tObjectProperties.Type
	ReDim oObjectPropertiesType(6)		ReDim oObjectPropertiesType(6)
	oObjectPropertiesType(1).iLang = 44		oObjectPropertiesType(1).iLang = 44
	oObjectPropertiesType(1).iType = dsNumericObject		oObjectPropertiesType(1).iType = dsNumericObject
	oObjectPropertiesType(1).sType = "NumericObject"		oObjectPropertiesType(1).sType = "NumericObject"
	oObjectPropertiesType(2).iLang = 44		oObjectPropertiesType(2).iLang = 44
	oObjectPropertiesType(2).iType = dsCharacterObject		oObjectPropertiesType(2).iType = dsCharacterObject
	oObjectPropertiesType(2).sType = "CharacterObject"		oObjectPropertiesType(2).sType = "CharacterObject"
	oObjectPropertiesType(3).iLang = 44		oObjectPropertiesType(3).iLang = 44
	oObjectPropertiesType(3).iType = dsDateObject		oObjectPropertiesType(3).iType = dsDateObject
	oObjectPropertiesType(3).sType = "DateObject"		oObjectPropertiesType(3).sType = "DateObject"
	oObjectPropertiesType(4).iLang = 44		oObjectPropertiesType(4).iLang = 44
	oObjectPropertiesType(4).iType = dsBlobObject		oObjectPropertiesType(4).iType = dsBlobObject
	oObjectPropertiesType(4).sType = "BlobObject"		oObjectPropertiesType(4).sType = "BlobObject"
	oObjectPropertiesType(5).iLang = 44		oObjectPropertiesType(5).iLang = 44
	oObjectPropertiesType(5).iType = dsUnknownObject		oObjectPropertiesType(5).iType = dsUnknownObject
	oObjectPropertiesType(5).sType = "UnknownObject"		oObjectPropertiesType(5).sType = "UnknownObject"
	oObjectPropertiesType(6).iLang = 44		oObjectPropertiesType(6).iLang = 44
	oObjectPropertiesType(6).iType = dsNullObject		oObjectPropertiesType(6).iType = dsNullObject
	oObjectPropertiesType(6).sType = "NullObject"		oObjectPropertiesType(6).sType = "NullObject"
	' tObjectKeys.Type		' tObjectKeys.Type
	ReDim oObjectKeysType(2)		ReDim oObjectKeysType(2)
	oObjectKeysType(1).iLang = 44		oObjectKeysType(1).iLang = 44
	oObjectKeysType(1).iType = 0		oObjectKeysType(1).iType = 0
	oObjectKeysType(1).sType = "Primarz Key"		oObjectKeysType(1).sType = "Primarz Key"
	oObjectKeysType(2).iLang = 44		oObjectKeysType(2).iLang = 44
	oObjectKeysType(2).iType = 1		oObjectKeysType(2).iType = 1
	oObjectKeysType(2).sType = "Foreign Key"		oObjectKeysType(2).sType = "Foreign Key"
	' tDependencies.Source		' tDependencies.Source
	ReDim oSource(2)		ReDim oSource(2)
	oSource(1).iLang = 44		oSource(1).iLang = 44
	oSource(1).iSource = 1		oSource(1).iSource = 1
	oSource(1).sSource = "Select"		oSource(1).sSource = "Select"
	oSource(2).iLang = 44		oSource(2).iLang = 44
	oSource(2).iSource = 2		oSource(2).iSource = 2
	oSource(2).sSource = "Where"		oSource(2).sSource = "Where"
	'tTableColumn.Type		'tTableColumn.Type
	ReDim oTableColumnType(6)		ReDim oTableColumnType(6)
	oTableColumnType(1).iLang = 44		oTableColumnType(1).iLang = 44
	oTableColumnType(1).iTyp = dsNumericColumn		oTableColumnType(1).iTyp = dsNumericColumn
	oTableColumnType(1).sName = "NumericColumn"		oTableColumnType(1).sName = "NumericColumn"
	oTableColumnType(2).iLang = 44		oTableColumnType(2).iLang = 44
	oTableColumnType(2).iTyp = dsCharacterColumn		oTableColumnType(2).iTyp = dsCharacterColumn
	oTableColumnType(2).sName = "CharacterColumn"		oTableColumnType(2).sName = "CharacterColumn"
	oTableColumnType(3).iLang = 44		oTableColumnType(3).iLang = 44
	oTableColumnType(3).iTyp = dsDateColumn		oTableColumnType(3).iTyp = dsDateColumn
	oTableColumnType(3).sName = "DateColumn"		oTableColumnType(3).sName = "DateColumn"
	oTableColumnType(4).iLang = 44		oTableColumnType(4).iLang = 44
	oTableColumnType(4).iTyp = dsTextColumn		oTableColumnType(4).iTyp = dsTextColumn
	oTableColumnType(4).sName = "TextColumn"		oTableColumnType(4).sName = "TextColumn"
	oTableColumnType(5).iLang = 44		oTableColumnType(5).iLang = 44
	oTableColumnType(5).iTyp = dsUnknownColumn		oTableColumnType(5).iTyp = dsUnknownColumn
	oTableColumnType(5).sName = "UnknownColumn"		oTableColumnType(5).sName = "UnknownColumn"
	oTableColumnType(6).iLang = 44		oTableColumnType(6).iLang = 44
	oTableColumnType(6).iTyp = dsNullColumn		oTableColumnType(6).iTyp = dsNullColumn
	oTableColumnType(6).sName = "NullColumn"		oTableColumnType(6).sName = "NullColumn"
	' tTableColumn.Key		' tTableColumn.Key
	ReDim oTableColumnKey(6)		ReDim oTableColumnKey(6)
	' no support found to assign description to keys		' no support found to assign description to keys
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetUniverseClasses(oMyUnv As Designer.Universe)		Private Sub GetUniverseClasses(oMyUnv As Designer.Universe)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseClasses"		sProcName = "GetUniverseClasses"
	Dim oClass As Designer.Class		Dim oClass As Designer.Class
	'Dim oObject As designer.object		'Dim oObject As designer.object
	Dim iObject As Integer		Dim iObject As Integer
	Dim iCondition As Integer		Dim iCondition As Integer
	Dim iKey As Integer		Dim iKey As Integer
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	If oMyUnv.Classes.Count = 0 Then Exit Sub		If oMyUnv.Classes.Count = 0 Then Exit Sub
	ReDim oClasses(0)		ReDim oClasses(0)
	ReDim oObjects(0)		ReDim oObjects(0)
	ReDim oObjectKeys(0)		ReDim oObjectKeys(0)
	oClasses(0).iId = 0		oClasses(0).iId = 0
	oClasses(0).iParentId = 0		oClasses(0).iParentId = 0
	oClasses(0).iCountClasses = oMyUnv.Classes.Count		oClasses(0).iCountClasses = oMyUnv.Classes.Count
	oClasses(0).sName = oMyUnv.Name		oClasses(0).sName = oMyUnv.Name
	oClasses(0).iLevel = 0		oClasses(0).iLevel = 0
	For Each oClass In oMyUnv.Classes		For Each oClass In oMyUnv.Classes
	ReDim Preserve oClasses(UBound(oClasses) + 1)		ReDim Preserve oClasses(UBound(oClasses) + 1)
	oClasses(UBound(oClasses)).iId = UBound(oClasses)		oClasses(UBound(oClasses)).iId = UBound(oClasses)
	oClasses(UBound(oClasses)).iParentId = 0		oClasses(UBound(oClasses)).iParentId = 0
	oClasses(UBound(oClasses)).sName = oClass.Name		oClasses(UBound(oClasses)).sName = oClass.Name
	oClasses(UBound(oClasses)).iCountClasses = oClass.Classes.Count		oClasses(UBound(oClasses)).iCountClasses = oClass.Classes.Count
	oClasses(UBound(oClasses)).iLevel = 1		oClasses(UBound(oClasses)).iLevel = 1
	oClasses(UBound(oClasses)).sDescription = oClass.Description		oClasses(UBound(oClasses)).sDescription = oClass.Description
	oClasses(UBound(oClasses)).bIsVisible = oClass.Show		oClasses(UBound(oClasses)).bIsVisible = oClass.Show
	For iObject = 1 To oClass.Objects.Count		For iObject = 1 To oClass.Objects.Count
	ReDim Preserve oObjects(UBound(oObjects) + 1)		ReDim Preserve oObjects(UBound(oObjects) + 1)
	oObjects(UBound(oObjects)).iId = UBound(oObjects)		oObjects(UBound(oObjects)).iId = UBound(oObjects)
	oObjects(UBound(oObjects)).sName = oClass.Objects(iObject).Name		oObjects(UBound(oObjects)).sName = oClass.Objects(iObject).Name
	oObjects(UBound(oObjects)).iObjectID = iObject		oObjects(UBound(oObjects)).iObjectID = iObject
	oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId		oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId
	oObjects(UBound(oObjects)).sClassName = oClasses(UBound(oClasses)).sName		oObjects(UBound(oObjects)).sClassName = oClasses(UBound(oClasses)).sName
	oObjects(UBound(oObjects)).sDescription = oClass.Objects(iObject).Description		oObjects(UBound(oObjects)).sDescription = oClass.Objects(iObject).Description
	oObjects(UBound(oObjects)).sSelect = oClass.Objects(iObject).Select		oObjects(UBound(oObjects)).sSelect = oClass.Objects(iObject).Select
	oObjects(UBound(oObjects)).sWhere = oClass.Objects(iObject).Where		oObjects(UBound(oObjects)).sWhere = oClass.Objects(iObject).Where
	oObjects(UBound(oObjects)).iType = oClass.Objects(iObject).Type		oObjects(UBound(oObjects)).iType = oClass.Objects(iObject).Type
	'oObjects(UBound(oObjects)).iDataBaseFormat = oClass.Objects(iObject).DataBaseFormat		'oObjects(UBound(oObjects)).iDataBaseFormat = oClass.Objects(iObject).DataBaseFormat
	oObjects(UBound(oObjects)).iQualification = oClass.Objects(iObject).Qualification		oObjects(UBound(oObjects)).iQualification = oClass.Objects(iObject).Qualification
	oObjects(UBound(oObjects)).iAggregateFunction = oClass.Objects(iObject).AggregateFunction		oObjects(UBound(oObjects)).iAggregateFunction = oClass.Objects(iObject).AggregateFunction
	oObjects(UBound(oObjects)).bIsVisible = oClass.Objects(iObject).Show		oObjects(UBound(oObjects)).bIsVisible = oClass.Objects(iObject).Show
	oObjects(UBound(oObjects)).bCanBeUsedCondition = oClass.Objects(iObject).CanBeUsedCondition		oObjects(UBound(oObjects)).bCanBeUsedCondition = oClass.Objects(iObject).CanBeUsedCondition
	oObjects(UBound(oObjects)).bCanBeUsedResult = oClass.Objects(iObject).CanBeUsedResult		oObjects(UBound(oObjects)).bCanBeUsedResult = oClass.Objects(iObject).CanBeUsedResult
	oObjects(UBound(oObjects)).bCanBeUsedSort = oClass.Objects(iObject).CanBeUsedSort		oObjects(UBound(oObjects)).bCanBeUsedSort = oClass.Objects(iObject).CanBeUsedSort
	oObjects(UBound(oObjects)).bAllowUserToEditLov = oClass.Objects(iObject).AllowUserToEditLov		oObjects(UBound(oObjects)).bAllowUserToEditLov = oClass.Objects(iObject).AllowUserToEditLov
	oObjects(UBound(oObjects)).bAutomaticLovRefreshBeforeUse = oClass.Objects(iObject).AutomaticLovRefreshBeforeUse		oObjects(UBound(oObjects)).bAutomaticLovRefreshBeforeUse = oClass.Objects(iObject).AutomaticLovRefreshBeforeUse
	oObjects(UBound(oObjects)).bExportLovWithUniverse = oClass.Objects(iObject).ExportLovWithUniverse		oObjects(UBound(oObjects)).bExportLovWithUniverse = oClass.Objects(iObject).ExportLovWithUniverse
	oObjects(UBound(oObjects)).bHasListOfValues = oClass.Objects(iObject).HasListOfValues		oObjects(UBound(oObjects)).bHasListOfValues = oClass.Objects(iObject).HasListOfValues
	oObjects(UBound(oObjects)).iSecurityAccessLevel = oClass.Objects(iObject).SecurityAccessLevel		oObjects(UBound(oObjects)).iSecurityAccessLevel = oClass.Objects(iObject).SecurityAccessLevel
	oObjects(UBound(oObjects)).bUseHierarchicalDisplay = oClass.Objects(iObject).useHierarchicalDisplay		oObjects(UBound(oObjects)).bUseHierarchicalDisplay = oClass.Objects(iObject).useHierarchicalDisplay
	oObjects(UBound(oObjects)).sListOfValuesName = sGetListOfValues(oClass, iObject)		oObjects(UBound(oObjects)).sListOfValuesName = sGetListOfValues(oClass, iObject)
	'oClass.Objects(iObject).ListOfValues.Name		'oClass.Objects(iObject).ListOfValues.Name
	For iKey = 1 To oClass.Objects(iObject).Keys.Count		For iKey = 1 To oClass.Objects(iObject).Keys.Count
	ReDim Preserve oObjectKeys(UBound(oObjectKeys) + 1)		ReDim Preserve oObjectKeys(UBound(oObjectKeys) + 1)
	oObjectKeys(UBound(oObjectKeys)).iId = UBound(oObjectKeys)		oObjectKeys(UBound(oObjectKeys)).iId = UBound(oObjectKeys)
	oObjectKeys(UBound(oObjectKeys)).iClassId = oClasses(UBound(oClasses)).iId		oObjectKeys(UBound(oObjectKeys)).iClassId = oClasses(UBound(oClasses)).iId
	oObjectKeys(UBound(oObjectKeys)).iObjectID = oObjects(UBound(oObjects)).iId		oObjectKeys(UBound(oObjectKeys)).iObjectID = oObjects(UBound(oObjects)).iId
	oObjectKeys(UBound(oObjectKeys)).sClassName = oClasses(UBound(oClasses)).sName		oObjectKeys(UBound(oObjectKeys)).sClassName = oClasses(UBound(oClasses)).sName
	oObjectKeys(UBound(oObjectKeys)).sObjectName = oObjects(UBound(oObjects)).sName		oObjectKeys(UBound(oObjectKeys)).sObjectName = oObjects(UBound(oObjects)).sName
	oObjectKeys(UBound(oObjectKeys)).bEnable = oClass.Objects(iObject).Keys(iKey).Enable		oObjectKeys(UBound(oObjectKeys)).bEnable = oClass.Objects(iObject).Keys(iKey).Enable
	oObjectKeys(UBound(oObjectKeys)).iType = oClass.Objects(iObject).Keys(iKey).Type		oObjectKeys(UBound(oObjectKeys)).iType = oClass.Objects(iObject).Keys(iKey).Type
	oObjectKeys(UBound(oObjectKeys)).sSelect = oClass.Objects(iObject).Keys(iKey).Select		oObjectKeys(UBound(oObjectKeys)).sSelect = oClass.Objects(iObject).Keys(iKey).Select
	oObjectKeys(UBound(oObjectKeys)).sWhere = oClass.Objects(iObject).Keys(iKey).Where		oObjectKeys(UBound(oObjectKeys)).sWhere = oClass.Objects(iObject).Keys(iKey).Where
	Next iKey		Next iKey
	Next iObject		Next iObject
	For iCondition = 1 To oClass.PredefinedConditions.Count		For iCondition = 1 To oClass.PredefinedConditions.Count
	ReDim Preserve oObjects(UBound(oObjects) + 1)		ReDim Preserve oObjects(UBound(oObjects) + 1)
	oObjects(UBound(oObjects)).iId = UBound(oObjects)		oObjects(UBound(oObjects)).iId = UBound(oObjects)
	oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId		oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId
	oObjects(UBound(oObjects)).sClassName = oClass.Name		oObjects(UBound(oObjects)).sClassName = oClass.Name
	oObjects(UBound(oObjects)).sName = oClass.PredefinedConditions(iCondition).Name		oObjects(UBound(oObjects)).sName = oClass.PredefinedConditions(iCondition).Name
	oObjects(UBound(oObjects)).iObjectID = iCondition		oObjects(UBound(oObjects)).iObjectID = iCondition
	oObjects(UBound(oObjects)).sDescription = oClass.PredefinedConditions(iCondition).Description		oObjects(UBound(oObjects)).sDescription = oClass.PredefinedConditions(iCondition).Description
	oObjects(UBound(oObjects)).bIsVisible = oClass.PredefinedConditions(iCondition).Show		oObjects(UBound(oObjects)).bIsVisible = oClass.PredefinedConditions(iCondition).Show
	oObjects(UBound(oObjects)).sWhere = oClass.PredefinedConditions(iCondition).Where		oObjects(UBound(oObjects)).sWhere = oClass.PredefinedConditions(iCondition).Where
	oObjects(UBound(oObjects)).iQualification = 4		oObjects(UBound(oObjects)).iQualification = 4
	oObjects(UBound(oObjects)).iAggregateFunction = -1		oObjects(UBound(oObjects)).iAggregateFunction = -1
	Next iCondition		Next iCondition
	If oClass.Classes.Count > 0 Then Call GetUniverseSubClasses(oClass, UBound(oClasses))		If oClass.Classes.Count > 0 Then Call GetUniverseSubClasses(oClass, UBound(oClasses))
	Next oClass		Next oClass
	oUnvProp.iCountClasses = UBound(oClasses)		oUnvProp.iCountClasses = UBound(oClasses)
	For iObject = 1 To UBound(oObjects)		For iObject = 1 To UBound(oObjects)
	If oObjects(iObject).iQualification = 4 Then oUnvProp.iCountConditions = oUnvProp.iCountConditions + 1		If oObjects(iObject).iQualification = 4 Then oUnvProp.iCountConditions = oUnvProp.iCountConditions + 1
	Next iObject		Next iObject
	oUnvProp.iCountObjects = UBound(oObjects) - oUnvProp.iCountConditions		oUnvProp.iCountObjects = UBound(oObjects) - oUnvProp.iCountConditions
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Function sGetListOfValues(oMyClass As Designer.Class, iMyObject As Integer) As String		Private Function sGetListOfValues(oMyClass As Designer.Class, iMyObject As Integer) As String
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseSubClasses"		sProcName = "GetUniverseSubClasses"
	On Error GoTo Err		On Error GoTo Err
	sGetListOfValues = oMyClass.Objects(iMyObject).ListOfValues.Name		sGetListOfValues = oMyClass.Objects(iMyObject).ListOfValues.Name
	Exit Function		Exit Function
	Err:		Err:
	sGetListOfValues = ""		sGetListOfValues = ""
	End Function		End Function
	Private Sub GetUniverseSubClasses(oMyClass As Designer.Class, iMyId As Integer)		Private Sub GetUniverseSubClasses(oMyClass As Designer.Class, iMyId As Integer)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseSubClasses"		sProcName = "GetUniverseSubClasses"
	Dim oClass As Designer.Class		Dim oClass As Designer.Class
	Dim iObject As Integer		Dim iObject As Integer
	Dim iCondition As Integer		Dim iCondition As Integer
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	For Each oClass In oMyClass.Classes		For Each oClass In oMyClass.Classes
	ReDim Preserve oClasses(UBound(oClasses) + 1)		ReDim Preserve oClasses(UBound(oClasses) + 1)
	oClasses(UBound(oClasses)).iId = UBound(oClasses)		oClasses(UBound(oClasses)).iId = UBound(oClasses)
	oClasses(UBound(oClasses)).iParentId = iMyId		oClasses(UBound(oClasses)).iParentId = iMyId
	oClasses(UBound(oClasses)).sName = oClass.Name		oClasses(UBound(oClasses)).sName = oClass.Name
	oClasses(UBound(oClasses)).iCountClasses = oClass.Classes.Count		oClasses(UBound(oClasses)).iCountClasses = oClass.Classes.Count
	oClasses(UBound(oClasses)).iLevel = oClasses(iMyId).iLevel + 1		oClasses(UBound(oClasses)).iLevel = oClasses(iMyId).iLevel + 1
	oClasses(UBound(oClasses)).sDescription = oClass.Description		oClasses(UBound(oClasses)).sDescription = oClass.Description
	oClasses(UBound(oClasses)).bIsVisible = oClass.Show		oClasses(UBound(oClasses)).bIsVisible = oClass.Show
	For iObject = 1 To oClass.Objects.Count		For iObject = 1 To oClass.Objects.Count
	ReDim Preserve oObjects(UBound(oObjects) + 1)		ReDim Preserve oObjects(UBound(oObjects) + 1)
	oObjects(UBound(oObjects)).iId = UBound(oObjects)		oObjects(UBound(oObjects)).iId = UBound(oObjects)
	oObjects(UBound(oObjects)).sName = oClass.Objects(iObject).Name		oObjects(UBound(oObjects)).sName = oClass.Objects(iObject).Name
	oObjects(UBound(oObjects)).iObjectID = iObject		oObjects(UBound(oObjects)).iObjectID = iObject
	oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId		oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId
	oObjects(UBound(oObjects)).sClassName = oClasses(UBound(oClasses)).sName		oObjects(UBound(oObjects)).sClassName = oClasses(UBound(oClasses)).sName
	oObjects(UBound(oObjects)).sDescription = oClass.Objects(iObject).Description		oObjects(UBound(oObjects)).sDescription = oClass.Objects(iObject).Description
	oObjects(UBound(oObjects)).sSelect = oClass.Objects(iObject).Select		oObjects(UBound(oObjects)).sSelect = oClass.Objects(iObject).Select
	oObjects(UBound(oObjects)).sWhere = oClass.Objects(iObject).Where		oObjects(UBound(oObjects)).sWhere = oClass.Objects(iObject).Where
	oObjects(UBound(oObjects)).iType = oClass.Objects(iObject).Type		oObjects(UBound(oObjects)).iType = oClass.Objects(iObject).Type
	'oObjects(UBound(oObjects)).iDataBaseFormat = oClass.Objects(iObject).DataBaseFormat		'oObjects(UBound(oObjects)).iDataBaseFormat = oClass.Objects(iObject).DataBaseFormat
	oObjects(UBound(oObjects)).iQualification = oClass.Objects(iObject).Qualification		oObjects(UBound(oObjects)).iQualification = oClass.Objects(iObject).Qualification
	oObjects(UBound(oObjects)).iAggregateFunction = oClass.Objects(iObject).AggregateFunction		oObjects(UBound(oObjects)).iAggregateFunction = oClass.Objects(iObject).AggregateFunction
	oObjects(UBound(oObjects)).bIsVisible = oClass.Objects(iObject).Show		oObjects(UBound(oObjects)).bIsVisible = oClass.Objects(iObject).Show
	oObjects(UBound(oObjects)).bCanBeUsedCondition = oClass.Objects(iObject).CanBeUsedCondition		oObjects(UBound(oObjects)).bCanBeUsedCondition = oClass.Objects(iObject).CanBeUsedCondition
	oObjects(UBound(oObjects)).bCanBeUsedResult = oClass.Objects(iObject).CanBeUsedResult		oObjects(UBound(oObjects)).bCanBeUsedResult = oClass.Objects(iObject).CanBeUsedResult
	oObjects(UBound(oObjects)).bCanBeUsedSort = oClass.Objects(iObject).CanBeUsedSort		oObjects(UBound(oObjects)).bCanBeUsedSort = oClass.Objects(iObject).CanBeUsedSort
	oObjects(UBound(oObjects)).bAllowUserToEditLov = oClass.Objects(iObject).AllowUserToEditLov		oObjects(UBound(oObjects)).bAllowUserToEditLov = oClass.Objects(iObject).AllowUserToEditLov
	oObjects(UBound(oObjects)).bAutomaticLovRefreshBeforeUse = oClass.Objects(iObject).AutomaticLovRefreshBeforeUse		oObjects(UBound(oObjects)).bAutomaticLovRefreshBeforeUse = oClass.Objects(iObject).AutomaticLovRefreshBeforeUse
	oObjects(UBound(oObjects)).bExportLovWithUniverse = oClass.Objects(iObject).ExportLovWithUniverse		oObjects(UBound(oObjects)).bExportLovWithUniverse = oClass.Objects(iObject).ExportLovWithUniverse
	oObjects(UBound(oObjects)).bHasListOfValues = oClass.Objects(iObject).HasListOfValues		oObjects(UBound(oObjects)).bHasListOfValues = oClass.Objects(iObject).HasListOfValues
	oObjects(UBound(oObjects)).iSecurityAccessLevel = oClass.Objects(iObject).SecurityAccessLevel		oObjects(UBound(oObjects)).iSecurityAccessLevel = oClass.Objects(iObject).SecurityAccessLevel
	oObjects(UBound(oObjects)).bUseHierarchicalDisplay = oClass.Objects(iObject).useHierarchicalDisplay		oObjects(UBound(oObjects)).bUseHierarchicalDisplay = oClass.Objects(iObject).useHierarchicalDisplay
	oObjects(UBound(oObjects)).sListOfValuesName = sGetListOfValues(oClass, iObject)		oObjects(UBound(oObjects)).sListOfValuesName = sGetListOfValues(oClass, iObject)
	'oClass.Objects(iObject).ListOfValues.Name		'oClass.Objects(iObject).ListOfValues.Name
	Next iObject		Next iObject
	For iCondition = 1 To oClass.PredefinedConditions.Count		For iCondition = 1 To oClass.PredefinedConditions.Count
	ReDim Preserve oObjects(UBound(oObjects) + 1)		ReDim Preserve oObjects(UBound(oObjects) + 1)
	oObjects(UBound(oObjects)).iId = UBound(oObjects)		oObjects(UBound(oObjects)).iId = UBound(oObjects)
	oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId		oObjects(UBound(oObjects)).iClassId = oClasses(UBound(oClasses)).iId
	oObjects(UBound(oObjects)).sClassName = oClass.Name		oObjects(UBound(oObjects)).sClassName = oClass.Name
	oObjects(UBound(oObjects)).iObjectID = iCondition		oObjects(UBound(oObjects)).iObjectID = iCondition
	oObjects(UBound(oObjects)).sName = oClass.PredefinedConditions(iCondition).Name		oObjects(UBound(oObjects)).sName = oClass.PredefinedConditions(iCondition).Name
	oObjects(UBound(oObjects)).sDescription = oClass.PredefinedConditions(iCondition).Description		oObjects(UBound(oObjects)).sDescription = oClass.PredefinedConditions(iCondition).Description
	oObjects(UBound(oObjects)).bIsVisible = oClass.PredefinedConditions(iCondition).Show		oObjects(UBound(oObjects)).bIsVisible = oClass.PredefinedConditions(iCondition).Show
	oObjects(UBound(oObjects)).sWhere = oClass.PredefinedConditions(iCondition).Where		oObjects(UBound(oObjects)).sWhere = oClass.PredefinedConditions(iCondition).Where
	oObjects(UBound(oObjects)).iQualification = 4		oObjects(UBound(oObjects)).iQualification = 4
	oObjects(UBound(oObjects)).iAggregateFunction = -1		oObjects(UBound(oObjects)).iAggregateFunction = -1
	oObjects(UBound(oObjects)).iSecurityAccessLevel = -1		oObjects(UBound(oObjects)).iSecurityAccessLevel = -1
	Next iCondition		Next iCondition
	If oClass.Classes.Count > 0 Then Call GetUniverseSubClasses(oClass, UBound(oClasses))		If oClass.Classes.Count > 0 Then Call GetUniverseSubClasses(oClass, UBound(oClasses))
	Next oClass		Next oClass
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetUniverseParameter(oMyUnv As Designer.Universe)		Private Sub GetUniverseParameter(oMyUnv As Designer.Universe)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseParameter"		sProcName = "GetUniverseParameter"
	Dim iUnvParams As Integer		Dim iUnvParams As Integer
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	oUnvProp.sName = oMyUnv.Name		oUnvProp.sName = oMyUnv.Name
	oUnvProp.sLongName = oMyUnv.LongName		oUnvProp.sLongName = oMyUnv.LongName
	oUnvProp.sPath = oMyUnv.Path		oUnvProp.sPath = oMyUnv.Path
	oUnvProp.sAuthor = oMyUnv.Author		oUnvProp.sAuthor = oMyUnv.Author
	oUnvProp.sCreate = oMyUnv.CreationDate		oUnvProp.sCreate = oMyUnv.CreationDate
	oUnvProp.sChanged = oMyUnv.ModificationDate		oUnvProp.sChanged = oMyUnv.ModificationDate
	oUnvProp.dImported = Now		oUnvProp.dImported = Now
	oUnvProp.sVersion = oMyUnv.RevisionNumber		oUnvProp.sVersion = oMyUnv.RevisionNumber
	oUnvProp.sConnection = oMyUnv.Connection		oUnvProp.sConnection = oMyUnv.Connection
	oUnvProp.sDescription = oMyUnv.Description		oUnvProp.sDescription = oMyUnv.Description
	oUnvProp.sComment = oMyUnv.Comments		oUnvProp.sComment = oMyUnv.Comments
	'    oUnvProp.iCountClasses = Null		'    oUnvProp.iCountClasses = Null
	'    oUnvProp.iCountObjects = Null		'    oUnvProp.iCountObjects = Null
	'    oUnvProp.iCountConditions = Null		'    oUnvProp.iCountConditions = Null
	'    oUnvProp.iCountTables = Null		'    oUnvProp.iCountTables = Null
	'    oUnvProp.iCountAliases = Null		'    oUnvProp.iCountAliases = Null
	oUnvProp.iCountJoins = oMyUnv.Joins.Count		oUnvProp.iCountJoins = oMyUnv.Joins.Count
	oUnvProp.iCountContexts = oMyUnv.Contexts.Count		oUnvProp.iCountContexts = oMyUnv.Contexts.Count
	oUnvProp.iCountHierachies = oMyUnv.CustomHierarchies.Count		oUnvProp.iCountHierachies = oMyUnv.CustomHierarchies.Count
	oUnvProp.bLimitExecutionTime = oMyUnv.ControlOption.LimitExecutionTime		oUnvProp.bLimitExecutionTime = oMyUnv.ControlOption.LimitExecutionTime
	oUnvProp.dblLimitExecutionTimeValue = oMyUnv.ControlOption.LimitExecutionTimeValue		oUnvProp.dblLimitExecutionTimeValue = oMyUnv.ControlOption.LimitExecutionTimeValue
	oUnvProp.bLimitSizeofResultSet = oMyUnv.ControlOption.LimitSizeofResultSet		oUnvProp.bLimitSizeofResultSet = oMyUnv.ControlOption.LimitSizeofResultSet
	oUnvProp.dblLimitSizeofResultSetValue = oMyUnv.ControlOption.LimitSizeofResultSetValue		oUnvProp.dblLimitSizeofResultSetValue = oMyUnv.ControlOption.LimitSizeofResultSetValue
	oUnvProp.bWarnIfCostEstimateExceeded = oMyUnv.ControlOption.WarnIfCostEstimateExceeded		oUnvProp.bWarnIfCostEstimateExceeded = oMyUnv.ControlOption.WarnIfCostEstimateExceeded
	oUnvProp.dblCostEstimateExceededValue = oMyUnv.ControlOption.CostEstimateExceededValue		oUnvProp.dblCostEstimateExceededValue = oMyUnv.ControlOption.CostEstimateExceededValue
	oUnvProp.bLimitSizeOfLongTextObject = oMyUnv.ControlOption.LimitSizeOfLongTextObject		oUnvProp.bLimitSizeOfLongTextObject = oMyUnv.ControlOption.LimitSizeOfLongTextObject
	oUnvProp.dblLimitSizeOfLongTextObjectValue = oMyUnv.ControlOption.LimitSizeOfLongTextObjectValue		oUnvProp.dblLimitSizeOfLongTextObjectValue = oMyUnv.ControlOption.LimitSizeOfLongTextObjectValue
	oUnvProp.bSQLComplexOperators = oMyUnv.SQLOption.ComplexOperators		oUnvProp.bSQLComplexOperators = oMyUnv.SQLOption.ComplexOperators
	oUnvProp.bSQLMultipleSQLForContext = oMyUnv.SQLOption.MultipleSQLForContext		oUnvProp.bSQLMultipleSQLForContext = oMyUnv.SQLOption.MultipleSQLForContext
	oUnvProp.bSQLMultipleSQLForMeasure = oMyUnv.SQLOption.MultipleSQLForMeasure		oUnvProp.bSQLMultipleSQLForMeasure = oMyUnv.SQLOption.MultipleSQLForMeasure
	oUnvProp.bSQLOperators = oMyUnv.SQLOption.Operators		oUnvProp.bSQLOperators = oMyUnv.SQLOption.Operators
	oUnvProp.bSQLPreventCartesianProducts = oMyUnv.SQLOption.PreventCartesianProducts		oUnvProp.bSQLPreventCartesianProducts = oMyUnv.SQLOption.PreventCartesianProducts
	oUnvProp.bSQLSelectMultipleContexts = oMyUnv.SQLOption.SelectMultipleContexts		oUnvProp.bSQLSelectMultipleContexts = oMyUnv.SQLOption.SelectMultipleContexts
	oUnvProp.bSQLSubQueries = oMyUnv.SQLOption.SubQueries		oUnvProp.bSQLSubQueries = oMyUnv.SQLOption.SubQueries
	Select Case oMyUnv.CurrentObjectStrategy		Select Case oMyUnv.CurrentObjectStrategy
	Case "Standard-Umbenennung", "(Build in) Standard Renaming", "0"		Case "Standard-Umbenennung", "(Build in) Standard Renaming", "0"
	oUnvProp.iCurrentObjectStrategy = 0		oUnvProp.iCurrentObjectStrategy = 0
	Case Else		Case Else
	oUnvProp.iCurrentObjectStrategy = -1		oUnvProp.iCurrentObjectStrategy = -1
	End Select		End Select
	Select Case oMyUnv.CurrentJoinStrategy		Select Case oMyUnv.CurrentJoinStrategy
	Case "Manuell bearbeiten (keine automatische Erstellung)", "Edit Manually (none)", "0"		Case "Manuell bearbeiten (keine automatische Erstellung)", "Edit Manually (none)", "0"
	oUnvProp.iCurrentJoinStrategy = 0		oUnvProp.iCurrentJoinStrategy = 0
	Case "1"		Case "1"
	oUnvProp.iCurrentJoinStrategy = 1		oUnvProp.iCurrentJoinStrategy = 1
	Case "2"		Case "2"
	oUnvProp.iCurrentJoinStrategy = 2		oUnvProp.iCurrentJoinStrategy = 2
	Case "3"		Case "3"
	oUnvProp.iCurrentJoinStrategy = 3		oUnvProp.iCurrentJoinStrategy = 3
	Case Else		Case Else
	oUnvProp.iCurrentJoinStrategy = -1		oUnvProp.iCurrentJoinStrategy = -1
	End Select		End Select
	Select Case oMyUnv.CurrentTableStrategy		Select Case oMyUnv.CurrentTableStrategy
	Case "Standard (Integriert)", "0"		Case "Standard (Integriert)", "0"
	oUnvProp.iCurrentTableStrategy = 0		oUnvProp.iCurrentTableStrategy = 0
	Case Else		Case Else
	oUnvProp.iCurrentTableStrategy = -1		oUnvProp.iCurrentTableStrategy = -1
	End Select		End Select
	For iUnvParams = 1 To oMyUnv.Parameters.Count		For iUnvParams = 1 To oMyUnv.Parameters.Count
	ReDim Preserve oUnvParams(iUnvParams)		ReDim Preserve oUnvParams(iUnvParams)
	oUnvParams(iUnvParams).sName = oMyUnv.Parameters(iUnvParams).Name		oUnvParams(iUnvParams).sName = oMyUnv.Parameters(iUnvParams).Name
	oUnvParams(iUnvParams).sValue = oMyUnv.Parameters(iUnvParams).Value		oUnvParams(iUnvParams).sValue = oMyUnv.Parameters(iUnvParams).Value
	Next iUnvParams		Next iUnvParams
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetUniverseTables(oMyUnv As Designer.Universe)		Private Sub GetUniverseTables(oMyUnv As Designer.Universe)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseTables"		sProcName = "GetUniverseTables"
	Dim oTable As Designer.Table		Dim oTable As Designer.Table
	Dim iTable As Integer		Dim iTable As Integer
	Dim iTable2 As Integer		Dim iTable2 As Integer
	Dim bExistAlready As Boolean		Dim bExistAlready As Boolean
	Dim iIncompatible As Integer		Dim iIncompatible As Integer
	Dim sClassName As String		Dim sClassName As String
	Dim sObjectName As String		Dim sObjectName As String
	Dim iObject As Integer		Dim iObject As Integer
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	ReDim oTables(0)		ReDim oTables(0)
	ReDim oIncombatibilities(0)		ReDim oIncombatibilities(0)
	ReDim oOriginalTables(0)		ReDim oOriginalTables(0)
	' lese alle tabellen		' lese alle tabellen
	For iTable = 1 To oMyUnv.Tables.Count		For iTable = 1 To oMyUnv.Tables.Count
	ReDim Preserve oTables(UBound(oTables) + 1)		ReDim Preserve oTables(UBound(oTables) + 1)
	oTables(UBound(oTables)).iId = UBound(oTables)		oTables(UBound(oTables)).iId = UBound(oTables)
	oTables(UBound(oTables)).sName = oMyUnv.Tables(iTable).Name		oTables(UBound(oTables)).sName = oMyUnv.Tables(iTable).Name
	oTables(UBound(oTables)).bIsAlias = oMyUnv.Tables(iTable).IsAlias		oTables(UBound(oTables)).bIsAlias = oMyUnv.Tables(iTable).IsAlias
	oTables(UBound(oTables)).iCountColumns = oMyUnv.Tables(iTable).Columns.Count		oTables(UBound(oTables)).iCountColumns = oMyUnv.Tables(iTable).Columns.Count
	oTables(UBound(oTables)).iCountIncompatibleObjects = oMyUnv.Tables(iTable).IncompatibleObjects.Count		oTables(UBound(oTables)).iCountIncompatibleObjects = oMyUnv.Tables(iTable).IncompatibleObjects.Count
	oTables(UBound(oTables)).iCountIncompatiblePredefConditions = oMyUnv.Tables(iTable).IncompatiblePredefConditions.Count		oTables(UBound(oTables)).iCountIncompatiblePredefConditions = oMyUnv.Tables(iTable).IncompatiblePredefConditions.Count
	oTables(UBound(oTables)).bIsDerived = oMyUnv.Tables(iTable).IsDerived		oTables(UBound(oTables)).bIsDerived = oMyUnv.Tables(iTable).IsDerived
	oTables(UBound(oTables)).sOriginalTable = IIf(sGetOriginalTable(iTable, oMyUnv) = "", oTables(UBound(oTables)).sName, sGetOriginalTable(iTable, oMyUnv))		oTables(UBound(oTables)).sOriginalTable = IIf(sGetOriginalTable(iTable, oMyUnv) = "", oTables(UBound(oTables)).sName, sGetOriginalTable(iTable, oMyUnv))
	oTables(UBound(oTables)).sSqlOfDerivedTable = oMyUnv.Tables(iTable).SqlOfDerivedTable		oTables(UBound(oTables)).sSqlOfDerivedTable = oMyUnv.Tables(iTable).SqlOfDerivedTable
	oTables(UBound(oTables)).sSqlOfDerivedTableWithAlias = oMyUnv.Tables(iTable).SqlOfDerivedTableWithAlias		oTables(UBound(oTables)).sSqlOfDerivedTableWithAlias = oMyUnv.Tables(iTable).SqlOfDerivedTableWithAlias
	oTables(UBound(oTables)).dblWeight = oMyUnv.Tables(iTable).Weight		oTables(UBound(oTables)).dblWeight = oMyUnv.Tables(iTable).Weight
	If oControl.bExecIncomb Then		If oControl.bExecIncomb Then
	' read incombatibility table to object definition		' read incombatibility table to object definition
	For iIncompatible = 1 To oMyUnv.Tables(iTable).IncompatibleObjects.Count		For iIncompatible = 1 To oMyUnv.Tables(iTable).IncompatibleObjects.Count
	ReDim Preserve oIncombatibilities(UBound(oIncombatibilities) + 1)		ReDim Preserve oIncombatibilities(UBound(oIncombatibilities) + 1)
	sClassName = oMyUnv.Tables(iTable).IncompatibleObjects(iIncompatible).RootClass		sClassName = oMyUnv.Tables(iTable).IncompatibleObjects(iIncompatible).RootClass
	sObjectName = oMyUnv.Tables(iTable).IncompatibleObjects(iIncompatible).Name		sObjectName = oMyUnv.Tables(iTable).IncompatibleObjects(iIncompatible).Name
	iObject = iGetObjectID(sClassName, sObjectName)		iObject = iGetObjectID(sClassName, sObjectName)
	oIncombatibilities(UBound(oIncombatibilities)).iIncId = UBound(oIncombatibilities)		oIncombatibilities(UBound(oIncombatibilities)).iIncId = UBound(oIncombatibilities)
	oIncombatibilities(UBound(oIncombatibilities)).iTableId = UBound(oTables)		oIncombatibilities(UBound(oIncombatibilities)).iTableId = UBound(oTables)
	oIncombatibilities(UBound(oIncombatibilities)).iClassId = oObjects(iObject).iClassId		oIncombatibilities(UBound(oIncombatibilities)).iClassId = oObjects(iObject).iClassId
	oIncombatibilities(UBound(oIncombatibilities)).iObjectID = iObject		oIncombatibilities(UBound(oIncombatibilities)).iObjectID = iObject
	oIncombatibilities(UBound(oIncombatibilities)).sTableName = oTables(UBound(oTables)).sName		oIncombatibilities(UBound(oIncombatibilities)).sTableName = oTables(UBound(oTables)).sName
	oIncombatibilities(UBound(oIncombatibilities)).sClassName = oObjects(iObject).sClassName		oIncombatibilities(UBound(oIncombatibilities)).sClassName = oObjects(iObject).sClassName
	oIncombatibilities(UBound(oIncombatibilities)).sObjectName = oObjects(iObject).sName		oIncombatibilities(UBound(oIncombatibilities)).sObjectName = oObjects(iObject).sName
	Next iIncompatible		Next iIncompatible
	' read incombatibility table to condition definition		' read incombatibility table to condition definition
	For iIncompatible = 1 To oMyUnv.Tables(iTable).IncompatiblePredefConditions.Count		For iIncompatible = 1 To oMyUnv.Tables(iTable).IncompatiblePredefConditions.Count
	ReDim Preserve oIncombatibilities(UBound(oIncombatibilities) + 1)		ReDim Preserve oIncombatibilities(UBound(oIncombatibilities) + 1)
	sClassName = oMyUnv.Tables(iTable).IncompatiblePredefConditions(iIncompatible).RootClass		sClassName = oMyUnv.Tables(iTable).IncompatiblePredefConditions(iIncompatible).RootClass
	sObjectName = oMyUnv.Tables(iTable).IncompatiblePredefConditions(iIncompatible).Name		sObjectName = oMyUnv.Tables(iTable).IncompatiblePredefConditions(iIncompatible).Name
	iObject = iGetObjectID(sClassName, sObjectName)		iObject = iGetObjectID(sClassName, sObjectName)
	oIncombatibilities(UBound(oIncombatibilities)).iIncId = UBound(oIncombatibilities)		oIncombatibilities(UBound(oIncombatibilities)).iIncId = UBound(oIncombatibilities)
	oIncombatibilities(UBound(oIncombatibilities)).iTableId = UBound(oTables)		oIncombatibilities(UBound(oIncombatibilities)).iTableId = UBound(oTables)
	oIncombatibilities(UBound(oIncombatibilities)).iClassId = oObjects(iObject).iClassId		oIncombatibilities(UBound(oIncombatibilities)).iClassId = oObjects(iObject).iClassId
	oIncombatibilities(UBound(oIncombatibilities)).iObjectID = iObject		oIncombatibilities(UBound(oIncombatibilities)).iObjectID = iObject
	oIncombatibilities(UBound(oIncombatibilities)).sTableName = oTables(UBound(oTables)).sName		oIncombatibilities(UBound(oIncombatibilities)).sTableName = oTables(UBound(oTables)).sName
	oIncombatibilities(UBound(oIncombatibilities)).sClassName = oObjects(iObject).sClassName		oIncombatibilities(UBound(oIncombatibilities)).sClassName = oObjects(iObject).sClassName
	oIncombatibilities(UBound(oIncombatibilities)).sObjectName = oObjects(iObject).sName		oIncombatibilities(UBound(oIncombatibilities)).sObjectName = oObjects(iObject).sName
	Next iIncompatible		Next iIncompatible
	End If		End If
	Next iTable		Next iTable
	' lese distinct der original tabellen		' lese distinct der original tabellen
	For iTable = 1 To UBound(oTables)		For iTable = 1 To UBound(oTables)
	bExistAlready = False		bExistAlready = False
	For iTable2 = 1 To UBound(oOriginalTables)		For iTable2 = 1 To UBound(oOriginalTables)
	If oOriginalTables(iTable2).sName = oTables(iTable).sOriginalTable Then bExistAlready = True		If oOriginalTables(iTable2).sName = oTables(iTable).sOriginalTable Then bExistAlready = True
	Next iTable2		Next iTable2
	If bExistAlready = False Then		If bExistAlready = False Then
	ReDim Preserve oOriginalTables(UBound(oOriginalTables) + 1)		ReDim Preserve oOriginalTables(UBound(oOriginalTables) + 1)
	oOriginalTables(UBound(oOriginalTables)).iId = UBound(oOriginalTables)		oOriginalTables(UBound(oOriginalTables)).iId = UBound(oOriginalTables)
	oOriginalTables(UBound(oOriginalTables)).sName = oTables(iTable).sOriginalTable		oOriginalTables(UBound(oOriginalTables)).sName = oTables(iTable).sOriginalTable
	End If		End If
	Next iTable		Next iTable
	' schreibe id der original table		' schreibe id der original table
	For iTable = 1 To UBound(oTables)		For iTable = 1 To UBound(oTables)
	For iTable2 = 1 To UBound(oOriginalTables)		For iTable2 = 1 To UBound(oOriginalTables)
	If oTables(iTable).sOriginalTable = oOriginalTables(iTable2).sName Then oTables(iTable).iIdOriginalTable = oOriginalTables(iTable2).iId		If oTables(iTable).sOriginalTable = oOriginalTables(iTable2).sName Then oTables(iTable).iIdOriginalTable = oOriginalTables(iTable2).iId
	Next iTable2		Next iTable2
	Next iTable		Next iTable
	oUnvProp.iCountTables = UBound(oOriginalTables)		oUnvProp.iCountTables = UBound(oOriginalTables)
	oUnvProp.iCountAliases = UBound(oTables) - UBound(oOriginalTables)		oUnvProp.iCountAliases = UBound(oTables) - UBound(oOriginalTables)
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetUniverseTableColumns(oMyUnv As Designer.Universe)		Private Sub GetUniverseTableColumns(oMyUnv As Designer.Universe)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseTableColumns"		sProcName = "GetUniverseTableColumns"
	Dim iTable As Integer		Dim iTable As Integer
	Dim iColumn As Integer		Dim iColumn As Integer
	Dim oTable As Designer.Table		Dim oTable As Designer.Table
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	ReDim oTableColumns(0)		ReDim oTableColumns(0)
	For iTable = 1 To UBound(oOriginalTables)		For iTable = 1 To UBound(oOriginalTables)
	Set oTable = oMyUnv.Tables(iGetTableID(oOriginalTables(iTable).sName, oMyUnv))		Set oTable = oMyUnv.Tables(iGetTableID(oOriginalTables(iTable).sName, oMyUnv))
	For iColumn = 1 To oTable.Columns.Count		For iColumn = 1 To oTable.Columns.Count
	ReDim Preserve oTableColumns(UBound(oTableColumns) + 1)		ReDim Preserve oTableColumns(UBound(oTableColumns) + 1)
	oTableColumns(UBound(oTableColumns)).iId = UBound(oTableColumns)		oTableColumns(UBound(oTableColumns)).iId = UBound(oTableColumns)
	oTableColumns(UBound(oTableColumns)).iTableId = oOriginalTables(iTable).iId		oTableColumns(UBound(oTableColumns)).iTableId = oOriginalTables(iTable).iId
	oTableColumns(UBound(oTableColumns)).sTableName = oOriginalTables(iTable).sName		oTableColumns(UBound(oTableColumns)).sTableName = oOriginalTables(iTable).sName
	oTableColumns(UBound(oTableColumns)).sName = oTable.Columns(iColumn).Name		oTableColumns(UBound(oTableColumns)).sName = oTable.Columns(iColumn).Name
	oTableColumns(UBound(oTableColumns)).iType = oTable.Columns(iColumn).Type		oTableColumns(UBound(oTableColumns)).iType = oTable.Columns(iColumn).Type
	oTableColumns(UBound(oTableColumns)).iKey = oTable.Columns(iColumn).Key		oTableColumns(UBound(oTableColumns)).iKey = oTable.Columns(iColumn).Key
	Next iColumn		Next iColumn
	Set oTable = Nothing		Set oTable = Nothing
	Next iTable		Next iTable
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetUniverseContexts(oMyUnv As Designer.Universe)		Private Sub GetUniverseContexts(oMyUnv As Designer.Universe)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseContexts"		sProcName = "GetUniverseContexts"
	Dim iJoin As Integer		Dim iJoin As Integer
	Dim iCount As Integer		Dim iCount As Integer
	Dim oContext As Designer.Context		Dim oContext As Designer.Context
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	ReDim oContexts(0)		ReDim oContexts(0)
	For Each oContext In oMyUnv.Contexts		For Each oContext In oMyUnv.Contexts
	For iJoin = 1 To oContext.Joins.Count		For iJoin = 1 To oContext.Joins.Count
	For iCount = 1 To oContext.Joins(iJoin).FirstColumns.Count		For iCount = 1 To oContext.Joins(iJoin).FirstColumns.Count
	ReDim Preserve oContexts(UBound(oContexts) + 1)		ReDim Preserve oContexts(UBound(oContexts) + 1)
	On Error Resume Next		On Error Resume Next
	oContexts(UBound(oContexts)).iId = UBound(oContexts)		oContexts(UBound(oContexts)).iId = UBound(oContexts)
	oContexts(UBound(oContexts)).sName = oContext.Name		oContexts(UBound(oContexts)).sName = oContext.Name
	oContexts(UBound(oContexts)).sDescription = oContext.Description		oContexts(UBound(oContexts)).sDescription = oContext.Description
	oContexts(UBound(oContexts)).sFirstTable = oContext.Joins(iJoin).FirstTable.Name		oContexts(UBound(oContexts)).sFirstTable = oContext.Joins(iJoin).FirstTable.Name
	oContexts(UBound(oContexts)).sFirstColumn = oContext.Joins(iJoin).FirstColumns(iCount).Name		oContexts(UBound(oContexts)).sFirstColumn = oContext.Joins(iJoin).FirstColumns(iCount).Name
	oContexts(UBound(oContexts)).sSecondTable = oContext.Joins(iJoin).SecondTable.Name		oContexts(UBound(oContexts)).sSecondTable = oContext.Joins(iJoin).SecondTable.Name
	oContexts(UBound(oContexts)).sSecondColumn = oContext.Joins(iJoin).SecondColumns(iCount).Name		oContexts(UBound(oContexts)).sSecondColumn = oContext.Joins(iJoin).SecondColumns(iCount).Name
	oContexts(UBound(oContexts)).sExpression = oContext.Joins(iJoin).Expression		oContexts(UBound(oContexts)).sExpression = oContext.Joins(iJoin).Expression
	Next iCount		Next iCount
	Next iJoin		Next iJoin
	Next oContext		Next oContext
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetUniverseJoins(oMyUnv As Designer.Universe)		Private Sub GetUniverseJoins(oMyUnv As Designer.Universe)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseJoins"		sProcName = "GetUniverseJoins"
	Dim iJoin As Integer		Dim iJoin As Integer
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	ReDim oJoins(oMyUnv.Joins.Count)		ReDim oJoins(oMyUnv.Joins.Count)
	For iJoin = 1 To oMyUnv.Joins.Count		For iJoin = 1 To oMyUnv.Joins.Count
	oJoins(iJoin).iJoinId = iJoin		oJoins(iJoin).iJoinId = iJoin
	oJoins(iJoin).iOuterJoin = oMyUnv.Joins(iJoin).OuterJoin		oJoins(iJoin).iOuterJoin = oMyUnv.Joins(iJoin).OuterJoin
	oJoins(iJoin).bShortCut = oMyUnv.Joins(iJoin).ShortCut		oJoins(iJoin).bShortCut = oMyUnv.Joins(iJoin).ShortCut
	oJoins(iJoin).iCardinality = oMyUnv.Joins(iJoin).Cardinality		oJoins(iJoin).iCardinality = oMyUnv.Joins(iJoin).Cardinality
	oJoins(iJoin).sExpression = oMyUnv.Joins(iJoin).Expression		oJoins(iJoin).sExpression = oMyUnv.Joins(iJoin).Expression
	Next iJoin		Next iJoin
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Function iGetTableID(sMyName As String, oMyUnv As Designer.Universe) As Integer		Private Function iGetTableID(sMyName As String, oMyUnv As Designer.Universe) As Integer
	Dim sProcName As String		Dim sProcName As String
	sProcName = "iGetTableID"		sProcName = "iGetTableID"
	Dim iTab As Integer		Dim iTab As Integer
	On Error GoTo Err		On Error GoTo Err
	For iTab = 1 To oMyUnv.Tables.Count		For iTab = 1 To oMyUnv.Tables.Count
	If oMyUnv.Tables(iTab).Name = sMyName Then		If oMyUnv.Tables(iTab).Name = sMyName Then
	iGetTableID = iTab		iGetTableID = iTab
	Exit Function		Exit Function
	End If		End If
	Next iTab		Next iTab
	iGetTableID = 0		iGetTableID = 0
	Exit Function		Exit Function
	Err:		Err:
	iGetTableID = 0		iGetTableID = 0
	End Function		End Function
	Private Function iGetObjectID(sMyClass As String, sMyObject As String) As Integer		Private Function iGetObjectID(sMyClass As String, sMyObject As String) As Integer
	Dim sProcName As String		Dim sProcName As String
	sProcName = "iGetObjectID"		sProcName = "iGetObjectID"
	Dim iObject As Integer		Dim iObject As Integer
	On Error GoTo Err		On Error GoTo Err
	For iObject = 1 To UBound(oObjects)		For iObject = 1 To UBound(oObjects)
	If oObjects(iObject).sClassName = sMyClass Then		If oObjects(iObject).sClassName = sMyClass Then
	If oObjects(iObject).sName = sMyObject Then		If oObjects(iObject).sName = sMyObject Then
	iGetObjectID = iObject		iGetObjectID = iObject
	Exit Function		Exit Function
	End If		End If
	End If		End If
	Next iObject		Next iObject
	iGetObjectID = 0		iGetObjectID = 0
	Exit Function		Exit Function
	Err:		Err:
	iGetObjectID = 0		iGetObjectID = 0
	End Function		End Function
	Private Function sGetOriginalTable(iMyTab As Integer, oMyUnv As Designer.Universe) As String		Private Function sGetOriginalTable(iMyTab As Integer, oMyUnv As Designer.Universe) As String
	Dim sProcName As String		Dim sProcName As String
	sProcName = "sGetOriginalTable"		sProcName = "sGetOriginalTable"
	On Error GoTo Err		On Error GoTo Err
	sGetOriginalTable = oMyUnv.Tables(iMyTab).OriginalTable		sGetOriginalTable = oMyUnv.Tables(iMyTab).OriginalTable
	Exit Function		Exit Function
	Err:		Err:
	sGetOriginalTable = ""		sGetOriginalTable = ""
	End Function		End Function
	Private Function sGetAggregateFunction(iMyAggregateFunction As Integer) As String		Private Function sGetAggregateFunction(iMyAggregateFunction As Integer) As String
	Dim sProcName As String		Dim sProcName As String
	sProcName = "sGetAggregateFunction"		sProcName = "sGetAggregateFunction"
	Dim iAggFunction As Integer		Dim iAggFunction As Integer
	On Error GoTo Err		On Error GoTo Err
	For iAggFunction = 1 To UBound(oAggregateFunction)		For iAggFunction = 1 To UBound(oAggregateFunction)
	If iMyAggregateFunction = oAggregateFunction(iAggFunction).iAggregateFunction Then		If iMyAggregateFunction = oAggregateFunction(iAggFunction).iAggregateFunction Then
	sGetAggregateFunction = oAggregateFunction(iAggFunction).sAggregateFunction		sGetAggregateFunction = oAggregateFunction(iAggFunction).sAggregateFunction
	Exit Function		Exit Function
	End If		End If
	Next iAggFunction		Next iAggFunction
	Exit Function		Exit Function
	Err:		Err:
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	sGetAggregateFunction = "unbekannt"		sGetAggregateFunction = "unbekannt"
	Case Else ' english		Case Else ' english
	sGetAggregateFunction = "unknown"		sGetAggregateFunction = "unknown"
	End Select		End Select
	End Function		End Function
	Private Function sGetSecurityAccessLevel(iMySecurityAccessLevel As Integer) As String		Private Function sGetSecurityAccessLevel(iMySecurityAccessLevel As Integer) As String
	Dim sProcName As String		Dim sProcName As String
	sProcName = "sGetSecurityAccessLevel"		sProcName = "sGetSecurityAccessLevel"
	Dim iSecAccLevel As Integer		Dim iSecAccLevel As Integer
	On Error GoTo Err		On Error GoTo Err
	For iSecAccLevel = 1 To UBound(oSecurityAccessLevel)		For iSecAccLevel = 1 To UBound(oSecurityAccessLevel)
	If iMySecurityAccessLevel = oSecurityAccessLevel(iSecAccLevel).iSecurityAccessLevel Then		If iMySecurityAccessLevel = oSecurityAccessLevel(iSecAccLevel).iSecurityAccessLevel Then
	sGetSecurityAccessLevel = oSecurityAccessLevel(iSecAccLevel).sSecurityAccessLevel		sGetSecurityAccessLevel = oSecurityAccessLevel(iSecAccLevel).sSecurityAccessLevel
	Exit Function		Exit Function
	End If		End If
	Next iSecAccLevel		Next iSecAccLevel
	Exit Function		Exit Function
	Err:		Err:
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	sGetSecurityAccessLevel = "unbekannt"		sGetSecurityAccessLevel = "unbekannt"
	Case Else ' english		Case Else ' english
	sGetSecurityAccessLevel = "unknown"		sGetSecurityAccessLevel = "unknown"
	End Select		End Select
	End Function		End Function
	Private Sub GetUniverseHierarchies(oMyUnv As Designer.Universe)		Private Sub GetUniverseHierarchies(oMyUnv As Designer.Universe)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseHierarchies"		sProcName = "GetUniverseHierarchies"
	Dim oHier As Designer.CustomHierarchy		Dim oHier As Designer.CustomHierarchy
	Dim iDim As Integer		Dim iDim As Integer
	Dim iObject As Integer		Dim iObject As Integer
	Dim bIsInvalidObject As Boolean		Dim bIsInvalidObject As Boolean
	On Error GoTo Err		If vbErrHand = vbErrExit Then
			On Error GoTo Err
			Else
			On Error Resume Next
			End If
	ReDim oHierarchies(0)		ReDim oHierarchies(0)
	For Each oHier In oMyUnv.CustomHierarchies		For Each oHier In oMyUnv.CustomHierarchies
	For iDim = 1 To oHier.Dimensions.Count		For iDim = 1 To oHier.Dimensions.Count
	ReDim Preserve oHierarchies(UBound(oHierarchies) + 1)		ReDim Preserve oHierarchies(UBound(oHierarchies) + 1)
	bIsInvalidObject = bGetValidationOfHierObject(oHier, iDim)		bIsInvalidObject = bGetValidationOfHierObject(oHier, iDim)
	oHierarchies(UBound(oHierarchies)).iId = UBound(oHierarchies)		oHierarchies(UBound(oHierarchies)).iId = UBound(oHierarchies)
	oHierarchies(UBound(oHierarchies)).sName = oHier.Name		oHierarchies(UBound(oHierarchies)).sName = oHier.Name
	If bIsInvalidObject Then		If bIsInvalidObject Then
	oHierarchies(UBound(oHierarchies)).sObjectName = oHier.Dimensions(iDim).Name		oHierarchies(UBound(oHierarchies)).sObjectName = oHier.Dimensions(iDim).Name
	oHierarchies(UBound(oHierarchies)).sClassName = oHier.Dimensions(iDim).RootClass		oHierarchies(UBound(oHierarchies)).sClassName = oHier.Dimensions(iDim).RootClass
	oHierarchies(UBound(oHierarchies)).bIsVisible = oHier.Dimensions(iDim).Show		oHierarchies(UBound(oHierarchies)).bIsVisible = oHier.Dimensions(iDim).Show
	iObject = iGetObjectID(oHier.Dimensions(iDim).RootClass, oHier.Dimensions(iDim).Name)		iObject = iGetObjectID(oHier.Dimensions(iDim).RootClass, oHier.Dimensions(iDim).Name)
	oHierarchies(UBound(oHierarchies)).iObjectID = oObjects(iObject).iId		oHierarchies(UBound(oHierarchies)).iObjectID = oObjects(iObject).iId
	oHierarchies(UBound(oHierarchies)).iClassId = oObjects(iObject).iClassId		oHierarchies(UBound(oHierarchies)).iClassId = oObjects(iObject).iClassId
	Else		Else
	oHierarchies(UBound(oHierarchies)).sObjectName = "n/a"		oHierarchies(UBound(oHierarchies)).sObjectName = "n/a"
	oHierarchies(UBound(oHierarchies)).sClassName = "n/a"		oHierarchies(UBound(oHierarchies)).sClassName = "n/a"
	oHierarchies(UBound(oHierarchies)).bIsVisible = False		oHierarchies(UBound(oHierarchies)).bIsVisible = False
	oHierarchies(UBound(oHierarchies)).iObjectID = -1		oHierarchies(UBound(oHierarchies)).iObjectID = -1
	oHierarchies(UBound(oHierarchies)).iClassId = -1		oHierarchies(UBound(oHierarchies)).iClassId = -1
	End If		End If
	Next iDim		Next iDim
	Next oHier		Next oHier
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Function bGetValidationOfHierObject(oMyHier As Designer.CustomHierarchy, iMyDim As Integer) As Boolean		Private Function bGetValidationOfHierObject(oMyHier As Designer.CustomHierarchy, iMyDim As Integer) As Boolean
	Dim sProcName As String		Dim sProcName As String
	sProcName = "bGetValidationOfHierObject"		sProcName = "bGetValidationOfHierObject"
	Dim sName As String		Dim sName As String
	On Error GoTo Err		On Error GoTo Err
	sName = oMyHier.Dimensions(iMyDim).Name		sName = oMyHier.Dimensions(iMyDim).Name
	bGetValidationOfHierObject = True		bGetValidationOfHierObject = True
	Exit Function		Exit Function
	Err:		Err:
	bGetValidationOfHierObject = False		bGetValidationOfHierObject = False
	End Function		End Function
	Private Sub GetUniverseDependencies()		Private Sub GetUniverseDependencies()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverseDependencies"		sProcName = "GetUniverseDependencies"
	Dim iObject As Integer		Dim iObject As Integer
	On Error GoTo Err		On Error GoTo Err
	ReDim oObjectTableDependencies(0)		ReDim oObjectTableDependencies(0)
	For iObject = 1 To UBound(oObjects)		For iObject = 1 To UBound(oObjects)
	'select		'select
	Call GetObjectDependencies(iObject, 1, oObjects(iObject).sSelect, False)		Call GetObjectDependencies(iObject, 1, oObjects(iObject).sSelect, False)
	Call GetObjectDependenciesAtFunction(iObject, 1, oObjects(iObject).sSelect, "@select")		Call GetObjectDependenciesAtFunction(iObject, 1, oObjects(iObject).sSelect, "@select")
	' where		' where
	Call GetObjectDependencies(iObject, 2, oObjects(iObject).sWhere, False)		Call GetObjectDependencies(iObject, 2, oObjects(iObject).sWhere, False)
	Call GetObjectDependenciesAtFunction(iObject, 2, oObjects(iObject).sWhere, "@select")		Call GetObjectDependenciesAtFunction(iObject, 2, oObjects(iObject).sWhere, "@select")
	Call GetObjectDependenciesAtFunction(iObject, 2, oObjects(iObject).sWhere, "@where")		Call GetObjectDependenciesAtFunction(iObject, 2, oObjects(iObject).sWhere, "@where")
	Next iObject		Next iObject
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetObjectDependencies(iMyObject As Integer, iMySource As Integer, sMyString As String, bMyIsDerived As Boolean)		Private Sub GetObjectDependencies(iMyObject As Integer, iMySource As Integer, sMyString As String, bMyIsDerived As Boolean)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetObjectDependencies"		sProcName = "GetObjectDependencies"
	Dim iTable As Integer		Dim iTable As Integer
	Dim iColumn As Integer		Dim iColumn As Integer
	Dim sString As String		Dim sString As String
	Dim sColumn As String		Dim sColumn As String
	Dim iPos1 As Integer		Dim iPos1 As Integer
	Dim iPos2 As Integer		Dim iPos2 As Integer
	On Error GoTo Err		On Error GoTo Err
	sString = sCleanString(sMyString)		sString = sCleanString(sMyString)
	For iTable = 1 To UBound(oTables)		For iTable = 1 To UBound(oTables)
	iPos1 = InStr(1, sString, sCleanString(oTables(iTable).sName) & ".", vbTextCompare)		iPos1 = InStr(1, sString, sCleanString(oTables(iTable).sName) & ".", vbTextCompare)
	While iPos1 > 0		While iPos1 > 0
	iPos2 = iGetPosOfEnding(iPos1, sString)		iPos2 = iGetPosOfEnding(iPos1, sString)
	sColumn = Mid(sString, iPos1 + Len(oTables(iTable).sName) + 1, iPos2 - (iPos1 + Len(oTables(iTable).sName)))		sColumn = Mid(sString, iPos1 + Len(oTables(iTable).sName) + 1, iPos2 - (iPos1 + Len(oTables(iTable).sName)))
	ReDim Preserve oObjectTableDependencies(UBound(oObjectTableDependencies) + 1)		ReDim Preserve oObjectTableDependencies(UBound(oObjectTableDependencies) + 1)
	oObjectTableDependencies(UBound(oObjectTableDependencies)).iId = UBound(oObjectTableDependencies)		oObjectTableDependencies(UBound(oObjectTableDependencies)).iId = UBound(oObjectTableDependencies)
	oObjectTableDependencies(UBound(oObjectTableDependencies)).iObjectID = iMyObject		oObjectTableDependencies(UBound(oObjectTableDependencies)).iObjectID = iMyObject
	oObjectTableDependencies(UBound(oObjectTableDependencies)).iClassId = oObjects(iMyObject).iClassId		oObjectTableDependencies(UBound(oObjectTableDependencies)).iClassId = oObjects(iMyObject).iClassId
	oObjectTableDependencies(UBound(oObjectTableDependencies)).sClassName = oObjects(iMyObject).sClassName		oObjectTableDependencies(UBound(oObjectTableDependencies)).sClassName = oObjects(iMyObject).sClassName
	oObjectTableDependencies(UBound(oObjectTableDependencies)).sObjectName = oObjects(iMyObject).sName		oObjectTableDependencies(UBound(oObjectTableDependencies)).sObjectName = oObjects(iMyObject).sName
	oObjectTableDependencies(UBound(oObjectTableDependencies)).iTableId = iTable		oObjectTableDependencies(UBound(oObjectTableDependencies)).iTableId = iTable
	oObjectTableDependencies(UBound(oObjectTableDependencies)).sTableName = oTables(iTable).sName		oObjectTableDependencies(UBound(oObjectTableDependencies)).sTableName = oTables(iTable).sName
	oObjectTableDependencies(UBound(oObjectTableDependencies)).sTableOriginalName = oTables(iTable).sOriginalTable		oObjectTableDependencies(UBound(oObjectTableDependencies)).sTableOriginalName = oTables(iTable).sOriginalTable
	oObjectTableDependencies(UBound(oObjectTableDependencies)).iSource = iMySource		oObjectTableDependencies(UBound(oObjectTableDependencies)).iSource = iMySource
	oObjectTableDependencies(UBound(oObjectTableDependencies)).bIsDerived = bMyIsDerived		oObjectTableDependencies(UBound(oObjectTableDependencies)).bIsDerived = bMyIsDerived
	For iColumn = 1 To UBound(oTableColumns)		For iColumn = 1 To UBound(oTableColumns)
	If oTableColumns(iColumn).sTableName = oTables(iTable).sOriginalTable Then		If oTableColumns(iColumn).sTableName = oTables(iTable).sOriginalTable Then
	If sCleanString(oTableColumns(iColumn).sName) = sColumn Then		If sCleanString(oTableColumns(iColumn).sName) = sColumn Then
	oObjectTableDependencies(UBound(oObjectTableDependencies)).iColumnId = iColumn		oObjectTableDependencies(UBound(oObjectTableDependencies)).iColumnId = iColumn
	oObjectTableDependencies(UBound(oObjectTableDependencies)).sColumnName = oTableColumns(iColumn).sName		oObjectTableDependencies(UBound(oObjectTableDependencies)).sColumnName = oTableColumns(iColumn).sName
	Exit For		Exit For
	End If		End If
	End If		End If
	Next iColumn		Next iColumn
	iPos1 = InStr(iPos2, sString, oTables(iTable).sName & ".", vbTextCompare)		iPos1 = InStr(iPos2, sString, oTables(iTable).sName & ".", vbTextCompare)
	Wend		Wend
	Next iTable		Next iTable
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub GetObjectDependenciesAtFunction(iMyObject As Integer, iMySource As Integer, sMyString As String, sAtFunction As String)		Private Sub GetObjectDependenciesAtFunction(iMyObject As Integer, iMySource As Integer, sMyString As String, sAtFunction As String)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetObjectDependenciesAtFunction"		sProcName = "GetObjectDependenciesAtFunction"
	Dim iPosAtFunction As Integer		Dim iPosAtFunction As Integer
	Dim iPos1 As Integer		Dim iPos1 As Integer
	Dim iPos2 As Integer		Dim iPos2 As Integer
	Dim sString As String		Dim sString As String
	Dim sClassObject As String		Dim sClassObject As String
	Dim sClass As String		Dim sClass As String
	Dim sObject As String		Dim sObject As String
	Dim iObject As Integer		Dim iObject As Integer
	Dim sSelect As String		Dim sSelect As String
	On Error GoTo Err		On Error GoTo Err
	sString = sCleanString(sMyString)		sString = sCleanString(sMyString)
	iPosAtFunction = InStr(1, sString, sAtFunction, vbTextCompare)		iPosAtFunction = InStr(1, sString, sAtFunction, vbTextCompare)
	While iPosAtFunction > 0		While iPosAtFunction > 0
	iPos1 = InStr(iPosAtFunction, sString, "(", vbTextCompare) + 1		iPos1 = InStr(iPosAtFunction, sString, "(", vbTextCompare) + 1
	iPos2 = iGetPosOfClosingBracket(iPos1, sString)		iPos2 = iGetPosOfClosingBracket(iPos1, sString)
	sClassObject = Mid(sString, iPos1, iPos2 - iPos1)		sClassObject = Mid(sString, iPos1, iPos2 - iPos1)
	iPos1 = 1		iPos1 = 1
	iPos2 = InStr(1, sClassObject, "\", vbTextCompare)		iPos2 = InStr(1, sClassObject, "\", vbTextCompare)
	sClass = Mid(sClassObject, iPos1, iPos2 - iPos1)		sClass = Mid(sClassObject, iPos1, iPos2 - iPos1)
	iPos1 = iPos2 + 1		iPos1 = iPos2 + 1
	iPos2 = Len(sClassObject)		iPos2 = Len(sClassObject)
	sObject = Mid(sClassObject, iPos1, iPos2 - iPos1 + 1)		sObject = Mid(sClassObject, iPos1, iPos2 - iPos1 + 1)
	For iObject = 1 To UBound(oObjects)		For iObject = 1 To UBound(oObjects)
	If sCleanString(oObjects(iObject).sClassName) = sClass Then		If sCleanString(oObjects(iObject).sClassName) = sClass Then
	If sCleanString(oObjects(iObject).sName) = sObject Then		If sCleanString(oObjects(iObject).sName) = sObject Then
	sSelect = sCleanString(oObjects(iObject).sSelect)		sSelect = sCleanString(oObjects(iObject).sSelect)
	If InStr(1, sSelect, sAtFunction, vbTextCompare) > 0 Then		If InStr(1, sSelect, sAtFunction, vbTextCompare) > 0 Then
	Call GetObjectDependenciesAtFunction(iMyObject, iMySource, sSelect, sAtFunction)		Call GetObjectDependenciesAtFunction(iMyObject, iMySource, sSelect, sAtFunction)
	Else		Else
	Call GetObjectDependencies(iMyObject, iMySource, sSelect, True)		Call GetObjectDependencies(iMyObject, iMySource, sSelect, True)
	End If		End If
	Exit For		Exit For
	End If		End If
	End If		End If
	Next iObject		Next iObject
	iPosAtFunction = InStr(iPosAtFunction + Len(sAtFunction), sMyString, sAtFunction, vbTextCompare)		iPosAtFunction = InStr(iPosAtFunction + Len(sAtFunction), sMyString, sAtFunction, vbTextCompare)
	Wend		Wend
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Function iGetPosOfClosingBracket(iMyPos As Integer, sMyStr As String) As Integer		Private Function iGetPosOfClosingBracket(iMyPos As Integer, sMyStr As String) As Integer
	Dim sProcName As String		Dim sProcName As String
	sProcName = "iGetPosOfClosingBracket"		sProcName = "iGetPosOfClosingBracket"
	Dim iPos As Integer		Dim iPos As Integer
	Dim iSpell As String		Dim iSpell As String
	Dim iCntBrackets As Integer		Dim iCntBrackets As Integer
	Dim bOpenParagraphs As Boolean		Dim bOpenParagraphs As Boolean
	On Error GoTo Err		On Error GoTo Err
	iCntBrackets = 1		iCntBrackets = 1
	bOpenParagraphs = False		bOpenParagraphs = False
	For iPos = iMyPos To Len(sMyStr) Step 1		For iPos = iMyPos To Len(sMyStr) Step 1
	iSpell = Mid(sMyStr, iPos, 1)		iSpell = Mid(sMyStr, iPos, 1)
	Select Case iSpell		Select Case iSpell
	Case "("		Case "("
	iCntBrackets = IIf(bOpenParagraphs, iCntBrackets, iCntBrackets + 1)		iCntBrackets = IIf(bOpenParagraphs, iCntBrackets, iCntBrackets + 1)
	Case "'"		Case "'"
	bOpenParagraphs = IIf(bOpenParagraphs, False, True)		bOpenParagraphs = IIf(bOpenParagraphs, False, True)
	Case ")"		Case ")"
	iCntBrackets = IIf(bOpenParagraphs, iCntBrackets, iCntBrackets - 1)		iCntBrackets = IIf(bOpenParagraphs, iCntBrackets, iCntBrackets - 1)
	End Select		End Select
	If iCntBrackets = 0 Then		If iCntBrackets = 0 Then
	iGetPosOfClosingBracket = iPos		iGetPosOfClosingBracket = iPos
	Exit Function		Exit Function
	End If		End If
	Next iPos		Next iPos
	iGetPosOfClosingBracket = 0		iGetPosOfClosingBracket = 0
	Exit Function		Exit Function
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Function		End Function
	Private Function iGetPosOfEnding(iMyPos As Integer, sMyStr As String) As Integer		Private Function iGetPosOfEnding(iMyPos As Integer, sMyStr As String) As Integer
	Dim sProcName As String		Dim sProcName As String
	sProcName = "iGetPosOfEnding"		sProcName = "iGetPosOfEnding"
	Dim iPos As Integer		Dim iPos As Integer
	Dim iPosSpace As Integer		Dim iPosSpace As Integer
	Dim iPosComma As Integer		Dim iPosComma As Integer
	Dim iPosClosingBracket As Integer		Dim iPosClosingBracket As Integer
	Dim iPosClosingBracket2 As Integer		Dim iPosClosingBracket2 As Integer
	Dim iPosClosingBracket3 As Integer		Dim iPosClosingBracket3 As Integer
	Dim iPosConcat As Integer		Dim iPosConcat As Integer
	Dim iPosEqual As Integer		Dim iPosEqual As Integer
	Dim iPosPlus As Integer		Dim iPosPlus As Integer
	Dim iPosMinus As Integer		Dim iPosMinus As Integer
	On Error GoTo Err		On Error GoTo Err
	iPosSpace = InStr(iMyPos, sMyStr, " ", vbTextCompare) - 1		iPosSpace = InStr(iMyPos, sMyStr, " ", vbTextCompare) - 1
	iPosComma = InStr(iMyPos, sMyStr, ",", vbTextCompare) - 1		iPosComma = InStr(iMyPos, sMyStr, ",", vbTextCompare) - 1
	iPosClosingBracket = InStr(iMyPos, sMyStr, ")", vbTextCompare) - 1		iPosClosingBracket = InStr(iMyPos, sMyStr, ")", vbTextCompare) - 1
	iPosClosingBracket2 = InStr(iMyPos, sMyStr, ">", vbTextCompare) - 1		iPosClosingBracket2 = InStr(iMyPos, sMyStr, ">", vbTextCompare) - 1
	iPosClosingBracket3 = InStr(iMyPos, sMyStr, "<", vbTextCompare) - 1		iPosClosingBracket3 = InStr(iMyPos, sMyStr, "<", vbTextCompare) - 1
	iPosConcat = InStr(iMyPos, sMyStr, "|", vbTextCompare) - 1		iPosConcat = InStr(iMyPos, sMyStr, "|", vbTextCompare) - 1
	iPosEqual = InStr(iMyPos, sMyStr, "=", vbTextCompare) - 1		iPosEqual = InStr(iMyPos, sMyStr, "=", vbTextCompare) - 1
	iPosPlus = InStr(iMyPos, sMyStr, "+", vbTextCompare) - 1		iPosPlus = InStr(iMyPos, sMyStr, "+", vbTextCompare) - 1
	iPosMinus = InStr(iMyPos, sMyStr, "-", vbTextCompare) - 1		iPosMinus = InStr(iMyPos, sMyStr, "-", vbTextCompare) - 1
	iPos = Len(sMyStr)		iPos = Len(sMyStr)
	If iPosSpace > 0 And iPosSpace < iPos Then iPos = iPosSpace		If iPosSpace > 0 And iPosSpace < iPos Then iPos = iPosSpace
	If iPosComma > 0 And iPosComma < iPos Then iPos = iPosComma		If iPosComma > 0 And iPosComma < iPos Then iPos = iPosComma
	If iPosClosingBracket > 0 And iPosClosingBracket < iPos Then iPos = iPosClosingBracket		If iPosClosingBracket > 0 And iPosClosingBracket < iPos Then iPos = iPosClosingBracket
	If iPosClosingBracket2 > 0 And iPosClosingBracket2 < iPos Then iPos = iPosClosingBracket2		If iPosClosingBracket2 > 0 And iPosClosingBracket2 < iPos Then iPos = iPosClosingBracket2
	If iPosClosingBracket3 > 0 And iPosClosingBracket3 < iPos Then iPos = iPosClosingBracket3		If iPosClosingBracket3 > 0 And iPosClosingBracket3 < iPos Then iPos = iPosClosingBracket3
	If iPosConcat > 0 And iPosConcat < iPos Then iPos = iPosConcat		If iPosConcat > 0 And iPosConcat < iPos Then iPos = iPosConcat
	If iPosEqual > 0 And iPosEqual < iPos Then iPos = iPosEqual		If iPosEqual > 0 And iPosEqual < iPos Then iPos = iPosEqual
	If iPosPlus > 0 And iPosPlus < iPos Then iPos = iPosPlus		If iPosPlus > 0 And iPosPlus < iPos Then iPos = iPosPlus
	If iPosMinus > 0 And iPosMinus < iPos Then iPos = iPosMinus		If iPosMinus > 0 And iPosMinus < iPos Then iPos = iPosMinus
	iGetPosOfEnding = iPos		iGetPosOfEnding = iPos
	Exit Function		Exit Function
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Function		End Function
	Private Function sCleanString(sMyStr As String) As String		Private Function sCleanString(sMyStr As String) As String
	Dim sProcName As String		Dim sProcName As String
	sProcName = "sCleanString"		sProcName = "sCleanString"
	Dim iPos As Integer		Dim iPos As Integer
	On Error GoTo Err		On Error GoTo Err
	sMyStr = Replace(sMyStr, vbCrLf, " ")		sMyStr = Replace(sMyStr, vbCrLf, " ")
	sMyStr = Replace(sMyStr, vbCr, " ")		sMyStr = Replace(sMyStr, vbCr, " ")
	sMyStr = Replace(sMyStr, vbLf, " ")		sMyStr = Replace(sMyStr, vbLf, " ")
	sMyStr = Trim(sMyStr)		sMyStr = Trim(sMyStr)
	' look for strings with 2 succeeded spaces		' look for strings with 2 succeeded spaces
	' reduce the string to only one space		' reduce the string to only one space
	While InStr(1, sMyStr, "  ", vbTextCompare) <> 0		While InStr(1, sMyStr, "  ", vbTextCompare) <> 0
	sMyStr = Replace(sMyStr, "  ", " ")		sMyStr = Replace(sMyStr, "  ", " ")
	Wend		Wend
	sCleanString = LCase(sMyStr)		sCleanString = LCase(sMyStr)
	Exit Function		Exit Function
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Function		End Function
	Private Function bLogOnDesigner(oMyDes As Designer.Application) As Boolean		Private Function bLogOnDesigner(oMyDes As Designer.Application) As Boolean
	Dim sProcName As String		Dim sProcName As String
	sProcName = "LogOnDesigner"		sProcName = "LogOnDesigner"
	On Error GoTo Err		On Error GoTo Err
	bLogOnDesigner = False		bLogOnDesigner = False
	oMyDes.LogonDialog		oMyDes.LogonDialog
	bLogOnDesigner = True		bLogOnDesigner = True
	Exit Function		Exit Function
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	bLogOnDesigner = False		bLogOnDesigner = False
	End Function		End Function
	Private Function bGetUniverse() As Boolean		Private Function bGetUniverse() As Boolean
	Dim sProcName As String		Dim sProcName As String
	sProcName = "GetUniverse"		sProcName = "GetUniverse"
	Dim oDes As Designer.Application		Dim oDes As Designer.Application
	Dim oUnv As Designer.Universe		Dim oUnv As Designer.Universe
	Dim iDesVariables As Integer		Dim iDesVariables As Integer
	'Dim bLogon As Boolean		'Dim bLogon As Boolean
	On Error GoTo Err		On Error GoTo Err
	bGetUniverse = False		bGetUniverse = False
	'Call GetControlData		'Call GetControlData
	Set oDes = New Designer.Application		Set oDes = New Designer.Application
	' start designer		' start designer
	bGetUniverse = bLogOnDesigner(oDes)		bGetUniverse = bLogOnDesigner(oDes)
	If bGetUniverse = False Then GoTo LogonBreak		If bGetUniverse = False Then GoTo LogonBreak
	'oDes.LogonDialog ' bo xi		'oDes.LogonDialog ' bo xi
	oDes.Visible = False		oDes.Visible = False
	oDes.Interactive = False		oDes.Interactive = False
	For iDesVariables = 1 To oDes.Variables.Count		For iDesVariables = 1 To oDes.Variables.Count
	If oDes.Variables(iDesVariables).Name = "BOSECURITYDOMAIN" Then oUnvProp.sLogonSystem = oDes.Variables(iDesVariables).Value		If oDes.Variables(iDesVariables).Name = "BOSECURITYDOMAIN" Then oUnvProp.sLogonSystem = oDes.Variables(iDesVariables).Value
	If oDes.Variables(iDesVariables).Name = "BOUSER" Then oUnvProp.sLogonName = oDes.Variables(iDesVariables).Value		If oDes.Variables(iDesVariables).Name = "BOUSER" Then oUnvProp.sLogonName = oDes.Variables(iDesVariables).Value
	Next iDesVariables		Next iDesVariables
	' offline modus		' offline modus
	If oUnvProp.sLogonSystem = "" Then		If oUnvProp.sLogonSystem = "" Then
	oUnvProp.sLogonSystem = "n/a"		oUnvProp.sLogonSystem = "n/a"
	oUnvProp.sLogonName = "n/a"		oUnvProp.sLogonName = "n/a"
	End If		End If
	' open universe		' open universe
	oDes.Universes.Open		oDes.Universes.Open
	Set oUnv = oDes.Universes(1)		Set oUnv = oDes.Universes(1)
	Call GetUniverseParameter(oUnv)		Call GetUniverseParameter(oUnv)
	Call GetUniverseClasses(oUnv)		Call GetUniverseClasses(oUnv)
	Call GetUniverseTables(oUnv)		Call GetUniverseTables(oUnv)
	Call GetUniverseTableColumns(oUnv)		Call GetUniverseTableColumns(oUnv)
	If oControl.bExecHier Then Call GetUniverseHierarchies(oUnv)		If oControl.bExecHier Then Call GetUniverseHierarchies(oUnv)
	If oControl.bExecContext Then Call GetUniverseContexts(oUnv)		If oControl.bExecContext Then Call GetUniverseContexts(oUnv)
	If oControl.bExecJoin Then Call GetUniverseJoins(oUnv)		If oControl.bExecJoin Then Call GetUniverseJoins(oUnv)
	oDes.Quit		oDes.Quit
	Set oUnv = Nothing		Set oUnv = Nothing
	Set oDes = Nothing		Set oDes = Nothing
	If oControl.bExecDependency Then Call GetUniverseDependencies		If oControl.bExecDependency Then Call GetUniverseDependencies
	Exit Function		Exit Function
	LogonBreak:		LogonBreak:
	Set oDes = Nothing		Set oDes = Nothing
	Exit Function		Exit Function
	Err:		Err:
	bGetUniverse = False		bGetUniverse = False
	oDes.Quit		oDes.Quit
	Set oUnv = Nothing		Set oUnv = Nothing
	Set oDes = Nothing		Set oDes = Nothing
	Select Case Err.Number		Select Case Err.Number
	Case 31		Case 31
	' exit during logon to designer		' exit during logon to designer
	Case Else		Case Else
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Select		End Select
	End Function		End Function
	Private Sub ExportUniverseORA()		Private Sub ExportUniverseORA()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "ExportUniverseORA"		sProcName = "ExportUniverseORA"
	Dim sWrkName As String		Dim sWrkName As String
	Dim iEntry As Integer		Dim iEntry As Integer
	Dim bGetData As Boolean		Dim bGetData As Boolean
	On Error GoTo Err		On Error GoTo Err
	bGetData = bGetUniverse		bGetData = bGetUniverse
	If bGetData = False Then GoTo LogonBreak		If bGetData = False Then GoTo LogonBreak
	sWrkName = oUnvProp.sName & "_v" & oUnvProp.sVersion & "_" & CStr(Format(Now, "yyyymmdd_hhmmss_")) & ".sql"		sWrkName = oUnvProp.sName & "_v" & oUnvProp.sVersion & "_" & CStr(Format(Now, "yyyymmdd_hhmmss_")) & ".sql"
	Open oUnvProp.sPath & "\init_script.sql" For Output As #2		Open oUnvProp.sPath & "\init_script.sql" For Output As #2
	Print #2, "-- initial script ddl"		Print #2, "-- initial script ddl"
	Print #2, "CREATE TABLE META_ALLTABLES"		Print #2, "CREATE TABLE META_ALLTABLES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION                     NUMBER(5),"		Print #2, "  SVERSION                     NUMBER(5),"
	Print #2, "  SUNIVERSENAME                VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME                VARCHAR2(8 BYTE),"
	Print #2, "  IID                          NUMBER(5),"		Print #2, "  IID                          NUMBER(5),"
	Print #2, "  SNAME                        VARCHAR2(255 BYTE),"		Print #2, "  SNAME                        VARCHAR2(255 BYTE),"
	Print #2, "  IORIGINALTABLEID             NUMBER(5),"		Print #2, "  IORIGINALTABLEID             NUMBER(5),"
	Print #2, "  SORIGINALTABLE               VARCHAR2(255 BYTE),"		Print #2, "  SORIGINALTABLE               VARCHAR2(255 BYTE),"
	Print #2, "  BISALIAS                     NUMBER(1),"		Print #2, "  BISALIAS                     NUMBER(1),"
	Print #2, "  BISDERIVED                   NUMBER(1),"		Print #2, "  BISDERIVED                   NUMBER(1),"
	Print #2, "  SSQLOFDERIVEDTABLE           VARCHAR2(2000 BYTE),"		Print #2, "  SSQLOFDERIVEDTABLE           VARCHAR2(2000 BYTE),"
	Print #2, "  SSQLOFDERIVEDTABLEWITHALIAS  VARCHAR2(2000 BYTE)"		Print #2, "  SSQLOFDERIVEDTABLEWITHALIAS  VARCHAR2(2000 BYTE)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_CLASSES"		Print #2, "CREATE TABLE META_CLASSES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION       NUMBER(5),"		Print #2, "  SVERSION       NUMBER(5),"
	Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"
	Print #2, "  IID            NUMBER(5),"		Print #2, "  IID            NUMBER(5),"
	Print #2, "  IPARENTID      NUMBER(5),"		Print #2, "  IPARENTID      NUMBER(5),"
	Print #2, "  ICOUNTCLASSES  NUMBER(5),"		Print #2, "  ICOUNTCLASSES  NUMBER(5),"
	Print #2, "  ILEVEL         NUMBER(5),"		Print #2, "  ILEVEL         NUMBER(5),"
	Print #2, "  SDESCRIPTION   VARCHAR2(255 BYTE),"		Print #2, "  SDESCRIPTION   VARCHAR2(255 BYTE),"
	Print #2, "  BISVISIBLE     NUMBER(1),"		Print #2, "  BISVISIBLE     NUMBER(1),"
	Print #2, "  SNAME          VARCHAR2(255 BYTE)"		Print #2, "  SNAME          VARCHAR2(255 BYTE)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_CONTEXTPROPERTIES"		Print #2, "CREATE TABLE META_CONTEXTPROPERTIES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION       NUMBER(5),"		Print #2, "  SVERSION       NUMBER(5),"
	Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"
	Print #2, "  IID            NUMBER(5),"		Print #2, "  IID            NUMBER(5),"
	Print #2, "  SNAME          VARCHAR2(255 BYTE),"		Print #2, "  SNAME          VARCHAR2(255 BYTE),"
	Print #2, "  SDESCRIPTION   VARCHAR2(255 BYTE),"		Print #2, "  SDESCRIPTION   VARCHAR2(255 BYTE),"
	Print #2, "  S1STTABLE      VARCHAR2(255 BYTE),"		Print #2, "  S1STTABLE      VARCHAR2(255 BYTE),"
	Print #2, "  I1STTABLEID    NUMBER(5),"		Print #2, "  I1STTABLEID    NUMBER(5),"
	Print #2, "  S2NDTABLE      VARCHAR2(255 BYTE),"		Print #2, "  S2NDTABLE      VARCHAR2(255 BYTE),"
	Print #2, "  I2NDTABLEID    NUMBER(5),"		Print #2, "  I2NDTABLEID    NUMBER(5),"
	Print #2, "  S1STCOLUMN     VARCHAR2(255 BYTE),"		Print #2, "  S1STCOLUMN     VARCHAR2(255 BYTE),"
	Print #2, "  I1STCOLUMNID   NUMBER(5),"		Print #2, "  I1STCOLUMNID   NUMBER(5),"
	Print #2, "  S2NDCOLUMN     VARCHAR2(255 BYTE),"		Print #2, "  S2NDCOLUMN     VARCHAR2(255 BYTE),"
	Print #2, "  I2NDCOLUMNID   NUMBER(5),"		Print #2, "  I2NDCOLUMNID   NUMBER(5),"
	Print #2, "  SEXPRESSION    VARCHAR2(2000 BYTE)"		Print #2, "  SEXPRESSION    VARCHAR2(2000 BYTE)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_DEPENDENCIES"		Print #2, "CREATE TABLE META_DEPENDENCIES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION            NUMBER(5),"		Print #2, "  SVERSION            NUMBER(5),"
	Print #2, "  SUNIVERSENAME       VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME       VARCHAR2(8 BYTE),"
	Print #2, "  IID                 NUMBER(5),"		Print #2, "  IID                 NUMBER(5),"
	Print #2, "  IOBJECTID           NUMBER(5),"		Print #2, "  IOBJECTID           NUMBER(5),"
	Print #2, "  ITABLEID            NUMBER(5),"		Print #2, "  ITABLEID            NUMBER(5),"
	Print #2, "  ICOLUMNID           NUMBER(5),"		Print #2, "  ICOLUMNID           NUMBER(5),"
	Print #2, "  SCLASSNAME          VARCHAR2(255 BYTE),"		Print #2, "  SCLASSNAME          VARCHAR2(255 BYTE),"
	Print #2, "  SOBJECTNAME         VARCHAR2(255 BYTE),"		Print #2, "  SOBJECTNAME         VARCHAR2(255 BYTE),"
	Print #2, "  STABLENAME          VARCHAR2(255 BYTE),"		Print #2, "  STABLENAME          VARCHAR2(255 BYTE),"
	Print #2, "  STABLEORIGINALNAME  VARCHAR2(255 BYTE),"		Print #2, "  STABLEORIGINALNAME  VARCHAR2(255 BYTE),"
	Print #2, "  SCOLUMNNAME         VARCHAR2(255 BYTE),"		Print #2, "  SCOLUMNNAME         VARCHAR2(255 BYTE),"
	Print #2, "  ISOURCE             NUMBER(1),"		Print #2, "  ISOURCE             NUMBER(1),"
	Print #2, "  BISDERIVED          NUMBER(1)"		Print #2, "  BISDERIVED          NUMBER(1)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_HIERARCHYPROPERTIES"		Print #2, "CREATE TABLE META_HIERARCHYPROPERTIES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION       NUMBER(5),"		Print #2, "  SVERSION       NUMBER(5),"
	Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"
	Print #2, "  SNAME          VARCHAR2(255 BYTE),"		Print #2, "  SNAME          VARCHAR2(255 BYTE),"
	Print #2, "  IID            NUMBER(5),"		Print #2, "  IID            NUMBER(5),"
	Print #2, "  IOBJECTID      NUMBER(5),"		Print #2, "  IOBJECTID      NUMBER(5),"
	Print #2, "  ICLASSID       NUMBER(5),"		Print #2, "  ICLASSID       NUMBER(5),"
	Print #2, "  SOBJECTNAME    VARCHAR2(255 BYTE),"		Print #2, "  SOBJECTNAME    VARCHAR2(255 BYTE),"
	Print #2, "  SCLASSNAME     VARCHAR2(255 BYTE),"		Print #2, "  SCLASSNAME     VARCHAR2(255 BYTE),"
	Print #2, "  BISVISIBLE     NUMBER(1)"		Print #2, "  BISVISIBLE     NUMBER(1)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_OBJECTKEYS"		Print #2, "CREATE TABLE META_OBJECTKEYS"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION       NUMBER(5),"		Print #2, "  SVERSION       NUMBER(5),"
	Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"
	Print #2, "  IID            NUMBER(5),"		Print #2, "  IID            NUMBER(5),"
	Print #2, "  SCLASSID       NUMBER(5),"		Print #2, "  SCLASSID       NUMBER(5),"
	Print #2, "  SOBJECTID      NUMBER(5),"		Print #2, "  SOBJECTID      NUMBER(5),"
	Print #2, "  SCLASSNAME     VARCHAR2(255 BYTE),"		Print #2, "  SCLASSNAME     VARCHAR2(255 BYTE),"
	Print #2, "  SOBJECTNAME    VARCHAR2(255 BYTE),"		Print #2, "  SOBJECTNAME    VARCHAR2(255 BYTE),"
	Print #2, "  SSELECT        VARCHAR2(255 BYTE),"		Print #2, "  SSELECT        VARCHAR2(255 BYTE),"
	Print #2, "  SWHERE         VARCHAR2(255 BYTE),"		Print #2, "  SWHERE         VARCHAR2(255 BYTE),"
	Print #2, "  BENABLE        NUMBER(1),"		Print #2, "  BENABLE        NUMBER(1),"
	Print #2, "  ITYPE          NUMBER(1)"		Print #2, "  ITYPE          NUMBER(1)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_OBJECTPROPERTIES"		Print #2, "CREATE TABLE META_OBJECTPROPERTIES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION                       NUMBER(5),"		Print #2, "  SVERSION                       NUMBER(5),"
	Print #2, "  SUNIVERSENAME                  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME                  VARCHAR2(8 BYTE),"
	Print #2, "  SNAME                          VARCHAR2(255 BYTE),"		Print #2, "  SNAME                          VARCHAR2(255 BYTE),"
	Print #2, "  IID                            NUMBER(5),"		Print #2, "  IID                            NUMBER(5),"
	Print #2, "  IIDCLASS                       NUMBER(5),"		Print #2, "  IIDCLASS                       NUMBER(5),"
	Print #2, "  SCLASSNAME                     VARCHAR2(255 BYTE),"		Print #2, "  SCLASSNAME                     VARCHAR2(255 BYTE),"
	Print #2, "  SDESCRIPTION                   VARCHAR2(2000 BYTE),"		Print #2, "  SDESCRIPTION                   VARCHAR2(2000 BYTE),"
	Print #2, "  SSELECT                        VARCHAR2(2000 BYTE),"		Print #2, "  SSELECT                        VARCHAR2(2000 BYTE),"
	Print #2, "  SWHERE                         VARCHAR2(2000 BYTE),"		Print #2, "  SWHERE                         VARCHAR2(2000 BYTE),"
	Print #2, "  IDATABASEFORMAT                NUMBER(1),"		Print #2, "  IDATABASEFORMAT                NUMBER(1),"
	Print #2, "  IQUALIFICATION                 NUMBER(1),"		Print #2, "  IQUALIFICATION                 NUMBER(1),"
	Print #2, "  IAGGREGATEFUNCTION             NUMBER(1),"		Print #2, "  IAGGREGATEFUNCTION             NUMBER(1),"
	Print #2, "  BISVISIBLE                     NUMBER(1),"		Print #2, "  BISVISIBLE                     NUMBER(1),"
	Print #2, "  BCANBEUSEDCONDITION            NUMBER(1),"		Print #2, "  BCANBEUSEDCONDITION            NUMBER(1),"
	Print #2, "  BCANBEUSEDRESULT               NUMBER(1),"		Print #2, "  BCANBEUSEDRESULT               NUMBER(1),"
	Print #2, "  BCANBEUSEDSORT                 NUMBER(1),"		Print #2, "  BCANBEUSEDSORT                 NUMBER(1),"
	Print #2, "  BALLOWUSERTOEDITLOV            NUMBER(1),"		Print #2, "  BALLOWUSERTOEDITLOV            NUMBER(1),"
	Print #2, "  BAUTOMATICLOVREFRESHBEFOREUSE  NUMBER(1),"		Print #2, "  BAUTOMATICLOVREFRESHBEFOREUSE  NUMBER(1),"
	Print #2, "  BEXPORTLOVWITHUNIVERSE         NUMBER(1),"		Print #2, "  BEXPORTLOVWITHUNIVERSE         NUMBER(1),"
	Print #2, "  BHASLISTOFVALUES               NUMBER(1),"		Print #2, "  BHASLISTOFVALUES               NUMBER(1),"
	Print #2, "  SLISTOFVALUESNAME              VARCHAR2(255 BYTE),"		Print #2, "  SLISTOFVALUESNAME              VARCHAR2(255 BYTE),"
	Print #2, "  ICOUNTOBJECTS                  NUMBER(5),"		Print #2, "  ICOUNTOBJECTS                  NUMBER(5),"
	Print #2, "  ISECURITYACCESSLEVEL           NUMBER(1),"		Print #2, "  ISECURITYACCESSLEVEL           NUMBER(1),"
	Print #2, "  ITYPE                          NUMBER(1),"		Print #2, "  ITYPE                          NUMBER(1),"
	Print #2, "  BUSEHIERARCHICALDISPLAY        NUMBER(1)"		Print #2, "  BUSEHIERARCHICALDISPLAY        NUMBER(1)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_ORIGINALTABLES"		Print #2, "CREATE TABLE META_ORIGINALTABLES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION       NUMBER(5),"		Print #2, "  SVERSION       NUMBER(5),"
	Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"
	Print #2, "  IID            NUMBER(5),"		Print #2, "  IID            NUMBER(5),"
	Print #2, "  SNAME          VARCHAR2(255 BYTE)"		Print #2, "  SNAME          VARCHAR2(255 BYTE)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_TABLECOLUMNS"		Print #2, "CREATE TABLE META_TABLECOLUMNS"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION       NUMBER(5),"		Print #2, "  SVERSION       NUMBER(5),"
	Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"
	Print #2, "  IID            NUMBER(5),"		Print #2, "  IID            NUMBER(5),"
	Print #2, "  ITABLEID       NUMBER(5),"		Print #2, "  ITABLEID       NUMBER(5),"
	Print #2, "  STABLE         VARCHAR2(255 BYTE),"		Print #2, "  STABLE         VARCHAR2(255 BYTE),"
	Print #2, "  SNAME          VARCHAR2(255 BYTE),"		Print #2, "  SNAME          VARCHAR2(255 BYTE),"
	Print #2, "  ITYP           NUMBER(1),"		Print #2, "  ITYP           NUMBER(1),"
	Print #2, "  IKEY           NUMBER(1)"		Print #2, "  IKEY           NUMBER(1)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_UNIVERSEPARAMETERS"		Print #2, "CREATE TABLE META_UNIVERSEPARAMETERS"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION       NUMBER(5),"		Print #2, "  SVERSION       NUMBER(5),"
	Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"		Print #2, "  SUNIVERSENAME  VARCHAR2(8 BYTE),"
	Print #2, "  ID             NUMBER(5),"		Print #2, "  ID             NUMBER(5),"
	Print #2, "  SNAME          VARCHAR2(255 BYTE),"		Print #2, "  SNAME          VARCHAR2(255 BYTE),"
	Print #2, "  SVALUE         VARCHAR2(255 BYTE)"		Print #2, "  SVALUE         VARCHAR2(255 BYTE)"
	Print #2, ");"		Print #2, ");"
	Print #2,		Print #2,
	Print #2, "CREATE TABLE META_UNIVERSEPROPERTIES"		Print #2, "CREATE TABLE META_UNIVERSEPROPERTIES"
	Print #2, "("		Print #2, "("
	Print #2, "  SVERSION                       NUMBER(5),"		Print #2, "  SVERSION                       NUMBER(5),"
	Print #2, "  SNAME                          VARCHAR2(8 BYTE),"		Print #2, "  SNAME                          VARCHAR2(8 BYTE),"
	Print #2, "  SLONGNAME                      VARCHAR2(200 BYTE),"		Print #2, "  SLONGNAME                      VARCHAR2(200 BYTE),"
	Print #2, "  SPATH                          VARCHAR2(200 BYTE),"		Print #2, "  SPATH                          VARCHAR2(200 BYTE),"
	Print #2, "  SAUTHOR                        VARCHAR2(100 BYTE),"		Print #2, "  SAUTHOR                        VARCHAR2(100 BYTE),"
	Print #2, "  DCREATE                        DATE,"		Print #2, "  DCREATE                        DATE,"
	Print #2, "  DCHANGED                       DATE,"		Print #2, "  DCHANGED                       DATE,"
	Print #2, "  DIMPORTED                      DATE,"		Print #2, "  DIMPORTED                      DATE,"
	Print #2, "  SCONNECTION                    VARCHAR2(100 BYTE),"		Print #2, "  SCONNECTION                    VARCHAR2(100 BYTE),"
	Print #2, "  SDESCRIPTION                   VARCHAR2(2000 BYTE),"		Print #2, "  SDESCRIPTION                   VARCHAR2(2000 BYTE),"
	Print #2, "  SCOMMENT                       VARCHAR2(2000 BYTE),"		Print #2, "  SCOMMENT                       VARCHAR2(2000 BYTE),"
	Print #2, "  ICOUNTCLASSES                  NUMBER(5),"		Print #2, "  ICOUNTCLASSES                  NUMBER(5),"
	Print #2, "  ICOUNTOBJECTS                  NUMBER(5),"		Print #2, "  ICOUNTOBJECTS                  NUMBER(5),"
	Print #2, "  ICOUNTCONDITIONS               NUMBER(5),"		Print #2, "  ICOUNTCONDITIONS               NUMBER(5),"
	Print #2, "  ICOUNTTABLES                   NUMBER(5),"		Print #2, "  ICOUNTTABLES                   NUMBER(5),"
	Print #2, "  ICOUNTALIASES                  NUMBER(5),"		Print #2, "  ICOUNTALIASES                  NUMBER(5),"
	Print #2, "  ICOUNTJOINS                    NUMBER(5),"		Print #2, "  ICOUNTJOINS                    NUMBER(5),"
	Print #2, "  ICOUNTCONTEXTS                 NUMBER(5),"		Print #2, "  ICOUNTCONTEXTS                 NUMBER(5),"
	Print #2, "  ICOUNTHIERACHIES               NUMBER(5),"		Print #2, "  ICOUNTHIERACHIES               NUMBER(5),"
	Print #2, "  ICURRENTOBJECTSTRATEGY         NUMBER(5),"		Print #2, "  ICURRENTOBJECTSTRATEGY         NUMBER(5),"
	Print #2, "  ICURRENTJOINSTRATEGY           NUMBER(5),"		Print #2, "  ICURRENTJOINSTRATEGY           NUMBER(5),"
	Print #2, "  ICURRENTTABLESTRATEGY          NUMBER(5),"		Print #2, "  ICURRENTTABLESTRATEGY          NUMBER(5),"
	Print #2, "  BSQLCOMPLEXOPERATORS           NUMBER(1),"		Print #2, "  BSQLCOMPLEXOPERATORS           NUMBER(1),"
	Print #2, "  BSQLMULTIPLESQLFORCONTEXT      NUMBER(1),"		Print #2, "  BSQLMULTIPLESQLFORCONTEXT      NUMBER(1),"
	Print #2, "  BSQLMULTIPLESQLFORMEASURE      NUMBER(1),"		Print #2, "  BSQLMULTIPLESQLFORMEASURE      NUMBER(1),"
	Print #2, "  BSQLOPERATORS                  NUMBER(1),"		Print #2, "  BSQLOPERATORS                  NUMBER(1),"
	Print #2, "  BSQLPREVENTCARTESIANPRODUCTS   NUMBER(1),"		Print #2, "  BSQLPREVENTCARTESIANPRODUCTS   NUMBER(1),"
	Print #2, "  BSQLSELECTMULTIPLECONTEXTS     NUMBER(1),"		Print #2, "  BSQLSELECTMULTIPLECONTEXTS     NUMBER(1),"
	Print #2, "  BSQLSUBQUERIES                 NUMBER(1),"		Print #2, "  BSQLSUBQUERIES                 NUMBER(1),"
	Print #2, "  BLIMITEXECUTIONTIME            NUMBER(1),"		Print #2, "  BLIMITEXECUTIONTIME            NUMBER(1),"
	Print #2, "  DBLLIMITEXECUTIONTIMEVALUE     NUMBER(10),"		Print #2, "  DBLLIMITEXECUTIONTIMEVALUE     NUMBER(10),"
	Print #2, "  BLIMITSIZEOFLONGTEXTOBJECT     NUMBER(1),"		Print #2, "  BLIMITSIZEOFLONGTEXTOBJECT     NUMBER(1),"
	Print #2, "  ILIMITSIZEOFLONGTEXTOBJECTVAL  NUMBER(10),"		Print #2, "  ILIMITSIZEOFLONGTEXTOBJECTVAL  NUMBER(10),"
	Print #2, "  BLIMITSIZEOFRESULTSET          NUMBER(1),"		Print #2, "  BLIMITSIZEOFRESULTSET          NUMBER(1),"
	Print #2, "  ILIMITSIZEOFRESULTSETVALUE     NUMBER(10),"		Print #2, "  ILIMITSIZEOFRESULTSETVALUE     NUMBER(10),"
	Print #2, "  BWARNIFCOSTESTIMATEEXCEEDED    NUMBER(1),"		Print #2, "  BWARNIFCOSTESTIMATEEXCEEDED    NUMBER(1),"
	Print #2, "  DBLCOSTESTIMATEEXCEEDEDVAL     NUMBER(10)"		Print #2, "  DBLCOSTESTIMATEEXCEEDEDVAL     NUMBER(10)"
	Print #2, ");"		Print #2, ");"
	Close #2		Close #2
	Open oUnvProp.sPath & "\" & sWrkName For Output As #1		Open oUnvProp.sPath & "\" & sWrkName For Output As #1
	Print #1, "-- meta_UniverseProperties"		Print #1, "-- meta_UniverseProperties"
	Print #1, "insert into meta_UniverseProperties"		Print #1, "insert into meta_UniverseProperties"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, "'" & oUnvProp.sLongName & "',"		Print #1, "'" & oUnvProp.sLongName & "',"
	Print #1, "'" & oUnvProp.sPath & "',"		Print #1, "'" & oUnvProp.sPath & "',"
	Print #1, "'" & oUnvProp.sAuthor & "',"		Print #1, "'" & oUnvProp.sAuthor & "',"
	Print #1, "to_date('" & Format(oUnvProp.sCreate, "dd.mm.yyyy") & "','dd.mm.yyyy'),"		Print #1, "to_date('" & Format(oUnvProp.sCreate, "dd.mm.yyyy") & "','dd.mm.yyyy'),"
	Print #1, "to_date('" & Format(oUnvProp.sChanged, "dd.mm.yyyy") & "','dd.mm.yyyy'),"		Print #1, "to_date('" & Format(oUnvProp.sChanged, "dd.mm.yyyy") & "','dd.mm.yyyy'),"
	Print #1, "to_date('" & Format(oUnvProp.dImported, "dd.mm.yyyy") & "','dd.mm.yyyy'),"		Print #1, "to_date('" & Format(oUnvProp.dImported, "dd.mm.yyyy") & "','dd.mm.yyyy'),"
	Print #1, "'" & oUnvProp.sConnection & "',"		Print #1, "'" & oUnvProp.sConnection & "',"
	Print #1, "'" & oUnvProp.sDescription & "',"		Print #1, "'" & oUnvProp.sDescription & "',"
	Print #1, "'" & oUnvProp.sComment & "',"		Print #1, "'" & oUnvProp.sComment & "',"
	Print #1, CStr(oUnvProp.iCountClasses) & ","		Print #1, CStr(oUnvProp.iCountClasses) & ","
	Print #1, CStr(oUnvProp.iCountObjects) & ","		Print #1, CStr(oUnvProp.iCountObjects) & ","
	Print #1, CStr(oUnvProp.iCountConditions) & ","		Print #1, CStr(oUnvProp.iCountConditions) & ","
	Print #1, CStr(oUnvProp.iCountTables) & ","		Print #1, CStr(oUnvProp.iCountTables) & ","
	Print #1, CStr(oUnvProp.iCountAliases) & ","		Print #1, CStr(oUnvProp.iCountAliases) & ","
	Print #1, CStr(oUnvProp.iCountJoins) & ","		Print #1, CStr(oUnvProp.iCountJoins) & ","
	Print #1, CStr(oUnvProp.iCountContexts) & ","		Print #1, CStr(oUnvProp.iCountContexts) & ","
	Print #1, CStr(oUnvProp.iCountHierachies) & ","		Print #1, CStr(oUnvProp.iCountHierachies) & ","
	Print #1, CStr(oUnvProp.iCurrentObjectStrategy) & ","		Print #1, CStr(oUnvProp.iCurrentObjectStrategy) & ","
	Print #1, CStr(oUnvProp.iCurrentJoinStrategy) & ","		Print #1, CStr(oUnvProp.iCurrentJoinStrategy) & ","
	Print #1, CStr(oUnvProp.iCurrentTableStrategy) & ","		Print #1, CStr(oUnvProp.iCurrentTableStrategy) & ","
	Print #1, CStr(IIf(oUnvProp.bSQLComplexOperators, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bSQLComplexOperators, 1, 0)) & ","
	Print #1, CStr(IIf(oUnvProp.bSQLMultipleSQLForContext, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bSQLMultipleSQLForContext, 1, 0)) & ","
	Print #1, CStr(IIf(oUnvProp.bSQLMultipleSQLForMeasure, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bSQLMultipleSQLForMeasure, 1, 0)) & ","
	Print #1, CStr(IIf(oUnvProp.bSQLOperators, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bSQLOperators, 1, 0)) & ","
	Print #1, CStr(IIf(oUnvProp.bSQLPreventCartesianProducts, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bSQLPreventCartesianProducts, 1, 0)) & ","
	Print #1, CStr(IIf(oUnvProp.bSQLSelectMultipleContexts, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bSQLSelectMultipleContexts, 1, 0)) & ","
	Print #1, CStr(IIf(oUnvProp.bSQLSubQueries, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bSQLSubQueries, 1, 0)) & ","
	Print #1, CStr(IIf(oUnvProp.bLimitExecutionTime, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bLimitExecutionTime, 1, 0)) & ","
	Print #1, CStr(oUnvProp.dblLimitExecutionTimeValue) & ","		Print #1, CStr(oUnvProp.dblLimitExecutionTimeValue) & ","
	Print #1, CStr(IIf(oUnvProp.bLimitSizeOfLongTextObject, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bLimitSizeOfLongTextObject, 1, 0)) & ","
	Print #1, CStr(oUnvProp.dblLimitSizeOfLongTextObjectValue) & ","		Print #1, CStr(oUnvProp.dblLimitSizeOfLongTextObjectValue) & ","
	Print #1, CStr(IIf(oUnvProp.bLimitSizeofResultSet, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bLimitSizeofResultSet, 1, 0)) & ","
	Print #1, CStr(oUnvProp.dblLimitSizeofResultSetValue) & ","		Print #1, CStr(oUnvProp.dblLimitSizeofResultSetValue) & ","
	Print #1, CStr(IIf(oUnvProp.bWarnIfCostEstimateExceeded, 1, 0)) & ","		Print #1, CStr(IIf(oUnvProp.bWarnIfCostEstimateExceeded, 1, 0)) & ","
	Print #1, CStr(oUnvProp.dblCostEstimateExceededValue)		Print #1, CStr(oUnvProp.dblCostEstimateExceededValue)
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Print #1, "-- meta_UniverseProperties"		Print #1, "-- meta_UniverseProperties"
	For iEntry = 1 To UBound(oUnvParams)		For iEntry = 1 To UBound(oUnvParams)
	Print #1, "insert into meta_UniverseParameters"		Print #1, "insert into meta_UniverseParameters"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, "'" & oUnvParams(iEntry).sName & "',"		Print #1, "'" & oUnvParams(iEntry).sName & "',"
	Print #1, "'" & oUnvParams(iEntry).sValue & "'"		Print #1, "'" & oUnvParams(iEntry).sValue & "'"
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_Classes"		Print #1, "-- meta_Classes"
	For iEntry = 1 To UBound(oClasses)		For iEntry = 1 To UBound(oClasses)
	Print #1, "insert into meta_Classes"		Print #1, "insert into meta_Classes"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, CStr(oClasses(iEntry).iParentId) & ","		Print #1, CStr(oClasses(iEntry).iParentId) & ","
	Print #1, CStr(oClasses(iEntry).iCountClasses) & ","		Print #1, CStr(oClasses(iEntry).iCountClasses) & ","
	Print #1, CStr(oClasses(iEntry).iLevel) & ","		Print #1, CStr(oClasses(iEntry).iLevel) & ","
	Print #1, "'" & oClasses(iEntry).sDescription & "',"		Print #1, "'" & oClasses(iEntry).sDescription & "',"
	Print #1, IIf(oClasses(iEntry).bIsVisible, 1, 0) & ","		Print #1, IIf(oClasses(iEntry).bIsVisible, 1, 0) & ","
	Print #1, "'" & oClasses(iEntry).sName & "'"		Print #1, "'" & oClasses(iEntry).sName & "'"
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_Classes"		Print #1, "-- meta_Classes"
	For iEntry = 1 To UBound(oHierarchies)		For iEntry = 1 To UBound(oHierarchies)
	Print #1, "insert into meta_HierarchyProperties"		Print #1, "insert into meta_HierarchyProperties"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, "'" & oHierarchies(iEntry).sName & "',"		Print #1, "'" & oHierarchies(iEntry).sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, CStr(oHierarchies(iEntry).iObjectID) & ","		Print #1, CStr(oHierarchies(iEntry).iObjectID) & ","
	Print #1, CStr(oHierarchies(iEntry).iClassId) & ","		Print #1, CStr(oHierarchies(iEntry).iClassId) & ","
	Print #1, "'" & oHierarchies(iEntry).sObjectName & "',"		Print #1, "'" & oHierarchies(iEntry).sObjectName & "',"
	Print #1, "'" & oHierarchies(iEntry).sClassName & "',"		Print #1, "'" & oHierarchies(iEntry).sClassName & "',"
	Print #1, IIf(oHierarchies(iEntry).bIsVisible, 1, 0)		Print #1, IIf(oHierarchies(iEntry).bIsVisible, 1, 0)
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_ObjectProperties"		Print #1, "-- meta_ObjectProperties"
	For iEntry = 1 To UBound(oObjects)		For iEntry = 1 To UBound(oObjects)
	Print #1, "insert into meta_ObjectProperties"		Print #1, "insert into meta_ObjectProperties"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, "'" & oObjects(iEntry).sName & "',"		Print #1, "'" & oObjects(iEntry).sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, CStr(oObjects(iEntry).iClassId) & ","		Print #1, CStr(oObjects(iEntry).iClassId) & ","
	Print #1, "'" & oObjects(iEntry).sClassName & "',"		Print #1, "'" & oObjects(iEntry).sClassName & "',"
	Print #1, "'" & Replace(oObjects(iEntry).sDescription, "'", """") & "',"		Print #1, "'" & Replace(oObjects(iEntry).sDescription, "'", """") & "',"
	Print #1, "'" & Replace(oObjects(iEntry).sSelect, "'", """") & "',"		Print #1, "'" & Replace(oObjects(iEntry).sSelect, "'", """") & "',"
	Print #1, "'" & Replace(oObjects(iEntry).sWhere, "'", """") & "',"		Print #1, "'" & Replace(oObjects(iEntry).sWhere, "'", """") & "',"
	Print #1, CStr(oObjects(iEntry).iDataBaseFormat) & ","		Print #1, CStr(oObjects(iEntry).iDataBaseFormat) & ","
	Print #1, CStr(oObjects(iEntry).iQualification) & ","		Print #1, CStr(oObjects(iEntry).iQualification) & ","
	Print #1, oObjects(iEntry).iAggregateFunction & ","		Print #1, oObjects(iEntry).iAggregateFunction & ","
	Print #1, IIf(oObjects(iEntry).bIsVisible, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bIsVisible, 1, 0) & ","
	Print #1, IIf(oObjects(iEntry).bCanBeUsedCondition, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bCanBeUsedCondition, 1, 0) & ","
	Print #1, IIf(oObjects(iEntry).bCanBeUsedResult, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bCanBeUsedResult, 1, 0) & ","
	Print #1, IIf(oObjects(iEntry).bCanBeUsedSort, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bCanBeUsedSort, 1, 0) & ","
	Print #1, IIf(oObjects(iEntry).bAllowUserToEditLov, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bAllowUserToEditLov, 1, 0) & ","
	Print #1, IIf(oObjects(iEntry).bAutomaticLovRefreshBeforeUse, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bAutomaticLovRefreshBeforeUse, 1, 0) & ","
	Print #1, IIf(oObjects(iEntry).bExportLovWithUniverse, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bExportLovWithUniverse, 1, 0) & ","
	Print #1, IIf(oObjects(iEntry).bHasListOfValues, 1, 0) & ","		Print #1, IIf(oObjects(iEntry).bHasListOfValues, 1, 0) & ","
	Print #1, "'" & oObjects(iEntry).sListOfValuesName & "',"		Print #1, "'" & oObjects(iEntry).sListOfValuesName & "',"
	Print #1, CStr(oObjects(iEntry).iCountObjects) & ","		Print #1, CStr(oObjects(iEntry).iCountObjects) & ","
	Print #1, CStr(oObjects(iEntry).iSecurityAccessLevel) & ","		Print #1, CStr(oObjects(iEntry).iSecurityAccessLevel) & ","
	Print #1, CStr(oObjects(iEntry).iType) & ","		Print #1, CStr(oObjects(iEntry).iType) & ","
	Print #1, IIf(oObjects(iEntry).bUseHierarchicalDisplay, 1, 0)		Print #1, IIf(oObjects(iEntry).bUseHierarchicalDisplay, 1, 0)
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_Dependencies"		Print #1, "-- meta_Dependencies"
	For iEntry = 1 To UBound(oObjectTableDependencies)		For iEntry = 1 To UBound(oObjectTableDependencies)
	Print #1, "insert into meta_Dependencies"		Print #1, "insert into meta_Dependencies"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, CStr(oObjectTableDependencies(iEntry).iObjectID) & ","		Print #1, CStr(oObjectTableDependencies(iEntry).iObjectID) & ","
	Print #1, CStr(oObjectTableDependencies(iEntry).iTableId) & ","		Print #1, CStr(oObjectTableDependencies(iEntry).iTableId) & ","
	Print #1, CStr(oObjectTableDependencies(iEntry).iColumnId) & ","		Print #1, CStr(oObjectTableDependencies(iEntry).iColumnId) & ","
	Print #1, "'" & oObjectTableDependencies(iEntry).sClassName & "',"		Print #1, "'" & oObjectTableDependencies(iEntry).sClassName & "',"
	Print #1, "'" & oObjectTableDependencies(iEntry).sObjectName & "',"		Print #1, "'" & oObjectTableDependencies(iEntry).sObjectName & "',"
	Print #1, "'" & oObjectTableDependencies(iEntry).sTableName & "',"		Print #1, "'" & oObjectTableDependencies(iEntry).sTableName & "',"
	Print #1, "'" & oObjectTableDependencies(iEntry).sTableOriginalName & "',"		Print #1, "'" & oObjectTableDependencies(iEntry).sTableOriginalName & "',"
	Print #1, "'" & oObjectTableDependencies(iEntry).sColumnName & "',"		Print #1, "'" & oObjectTableDependencies(iEntry).sColumnName & "',"
	Print #1, CStr(oObjectTableDependencies(iEntry).iSource) & ","		Print #1, CStr(oObjectTableDependencies(iEntry).iSource) & ","
	Print #1, IIf(oObjectTableDependencies(iEntry).bIsDerived, 1, 0)		Print #1, IIf(oObjectTableDependencies(iEntry).bIsDerived, 1, 0)
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_ObjectKeys"		Print #1, "-- meta_ObjectKeys"
	For iEntry = 1 To UBound(oObjectKeys)		For iEntry = 1 To UBound(oObjectKeys)
	Print #1, "insert into meta_ObjectKeys"		Print #1, "insert into meta_ObjectKeys"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, CStr(oObjectKeys(iEntry).iClassId) & ","		Print #1, CStr(oObjectKeys(iEntry).iClassId) & ","
	Print #1, CStr(oObjectKeys(iEntry).iObjectID) & ","		Print #1, CStr(oObjectKeys(iEntry).iObjectID) & ","
	Print #1, "'" & oObjectKeys(iEntry).sClassName & "',"		Print #1, "'" & oObjectKeys(iEntry).sClassName & "',"
	Print #1, "'" & oObjectKeys(iEntry).sObjectName & "',"		Print #1, "'" & oObjectKeys(iEntry).sObjectName & "',"
	Print #1, "'" & Replace(oObjectKeys(iEntry).sSelect, "'", """") & "',"		Print #1, "'" & Replace(oObjectKeys(iEntry).sSelect, "'", """") & "',"
	Print #1, "'" & Replace(oObjectKeys(iEntry).sWhere, "'", """") & "',"		Print #1, "'" & Replace(oObjectKeys(iEntry).sWhere, "'", """") & "',"
	Print #1, IIf(oObjectKeys(iEntry).bEnable, 1, 0) & ","		Print #1, IIf(oObjectKeys(iEntry).bEnable, 1, 0) & ","
	Print #1, CStr(oObjectKeys(iEntry).iType)		Print #1, CStr(oObjectKeys(iEntry).iType)
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_AllTables"		Print #1, "-- meta_AllTables"
	For iEntry = 1 To UBound(oTables)		For iEntry = 1 To UBound(oTables)
	Print #1, "insert into meta_AllTables"		Print #1, "insert into meta_AllTables"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, "'" & oTables(iEntry).sName & "',"		Print #1, "'" & oTables(iEntry).sName & "',"
	Print #1, CStr(oTables(iEntry).iIdOriginalTable) & ","		Print #1, CStr(oTables(iEntry).iIdOriginalTable) & ","
	Print #1, "'" & oTables(iEntry).sOriginalTable & "',"		Print #1, "'" & oTables(iEntry).sOriginalTable & "',"
	Print #1, IIf(oTables(iEntry).bIsAlias, 1, 0) & ","		Print #1, IIf(oTables(iEntry).bIsAlias, 1, 0) & ","
	Print #1, IIf(oTables(iEntry).bIsDerived, 1, 0) & ","		Print #1, IIf(oTables(iEntry).bIsDerived, 1, 0) & ","
	Print #1, "'" & Replace(oTables(iEntry).sSqlOfDerivedTable, "'", """") & "',"		Print #1, "'" & Replace(oTables(iEntry).sSqlOfDerivedTable, "'", """") & "',"
	Print #1, "'" & Replace(oTables(iEntry).sSqlOfDerivedTableWithAlias, "'", """") & "'"		Print #1, "'" & Replace(oTables(iEntry).sSqlOfDerivedTableWithAlias, "'", """") & "'"
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_OriginalTables"		Print #1, "-- meta_OriginalTables"
	For iEntry = 1 To UBound(oOriginalTables)		For iEntry = 1 To UBound(oOriginalTables)
	Print #1, "insert into meta_OriginalTables"		Print #1, "insert into meta_OriginalTables"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, "'" & oOriginalTables(iEntry).sName & "'"		Print #1, "'" & oOriginalTables(iEntry).sName & "'"
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_TableColumns"		Print #1, "-- meta_TableColumns"
	For iEntry = 1 To UBound(oTableColumns)		For iEntry = 1 To UBound(oTableColumns)
	Print #1, "insert into meta_TableColumns"		Print #1, "insert into meta_TableColumns"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, CStr(oTableColumns(iEntry).iTableId) & ","		Print #1, CStr(oTableColumns(iEntry).iTableId) & ","
	Print #1, "'" & oTableColumns(iEntry).sTableName & "',"		Print #1, "'" & oTableColumns(iEntry).sTableName & "',"
	Print #1, "'" & oTableColumns(iEntry).sName & "',"		Print #1, "'" & oTableColumns(iEntry).sName & "',"
	Print #1, CStr(oTableColumns(iEntry).iType) & ","		Print #1, CStr(oTableColumns(iEntry).iType) & ","
	Print #1, CStr(oTableColumns(iEntry).iKey)		Print #1, CStr(oTableColumns(iEntry).iKey)
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1,		Print #1,
	Print #1, "-- meta_ContextProperties"		Print #1, "-- meta_ContextProperties"
	For iEntry = 1 To UBound(oContexts)		For iEntry = 1 To UBound(oContexts)
	Print #1, "insert into meta_ContextProperties"		Print #1, "insert into meta_ContextProperties"
	Print #1, "values ("		Print #1, "values ("
	Print #1, CStr(oUnvProp.sVersion) & ","		Print #1, CStr(oUnvProp.sVersion) & ","
	Print #1, "'" & oUnvProp.sName & "',"		Print #1, "'" & oUnvProp.sName & "',"
	Print #1, CStr(iEntry) & ","		Print #1, CStr(iEntry) & ","
	Print #1, "'" & oContexts(iEntry).sName & "',"		Print #1, "'" & oContexts(iEntry).sName & "',"
	Print #1, "'" & oContexts(iEntry).sDescription & "',"		Print #1, "'" & oContexts(iEntry).sDescription & "',"
	Print #1, "'" & oContexts(iEntry).sFirstTable & "',"		Print #1, "'" & oContexts(iEntry).sFirstTable & "',"
	Print #1, CStr(oContexts(iEntry).iFirstTableId) & ","		Print #1, CStr(oContexts(iEntry).iFirstTableId) & ","
	Print #1, "'" & oContexts(iEntry).sSecondTable & "',"		Print #1, "'" & oContexts(iEntry).sSecondTable & "',"
	Print #1, CStr(oContexts(iEntry).iSecondTable) & ","		Print #1, CStr(oContexts(iEntry).iSecondTable) & ","
	Print #1, "'" & oContexts(iEntry).sFirstColumn & "',"		Print #1, "'" & oContexts(iEntry).sFirstColumn & "',"
	Print #1, CStr(oContexts(iEntry).iFirstColumn) & ","		Print #1, CStr(oContexts(iEntry).iFirstColumn) & ","
	Print #1, "'" & oContexts(iEntry).sSecondColumn & "',"		Print #1, "'" & oContexts(iEntry).sSecondColumn & "',"
	Print #1, CStr(oContexts(iEntry).iSecondColumn) & ","		Print #1, CStr(oContexts(iEntry).iSecondColumn) & ","
	Print #1, "'" & Replace(oContexts(iEntry).sExpression, "'", """") & "'"		Print #1, "'" & Replace(oContexts(iEntry).sExpression, "'", """") & "'"
	Print #1, ");"		Print #1, ");"
	Print #1,		Print #1,
	Next iEntry		Next iEntry
	Print #1, "commit;"		Print #1, "commit;"
	Close #1		Close #1
	Exit Sub		Exit Sub
	LogonBreak:		LogonBreak:
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	Close #1		Close #1
	End Sub		End Sub
	Private Sub WriteUniverseXLS()		Private Sub WriteUniverseXLS()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLS"		sProcName = "WriteUniverseXLS"
	Dim oXls As Excel.Application		Dim oXls As Excel.Application
	Dim bGetData As Boolean		Dim bGetData As Boolean
	On Error GoTo Err		On Error GoTo Err
	vbLang = iGetLanguage		vbLang = iGetLanguage
			vbErrHand = iGetErrHand
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	MsgBox "Demomodus." & vbCrLf & _		MsgBox "Demomodus." & vbCrLf & _
	"In der Demonstration werden lediglich" & vbCrLf & _		"In der Demonstration werden lediglich" & vbCrLf & _
	"50% der Informationen verarbeitet.", vbInformation, _		"50% der Informationen verarbeitet.", vbInformation, _
	Title:=vbVersion		Title:=vbVersion
	Case Else ' english		Case Else ' english
	MsgBox "Demo mode." & vbCrLf & _		MsgBox "Demo mode." & vbCrLf & _
	"For demonstration" & vbCrLf & _		"For demonstration" & vbCrLf & _
	"50% of data will be processed only.", vbInformation, _		"50% of data will be processed only.", vbInformation, _
	Title:=vbVersion		Title:=vbVersion
	End Select		End Select
	End If		End If
	Set oXls = Excel.Application		Set oXls = Excel.Application
	oXls.Interactive = False		oXls.Interactive = False
	oXls.DisplayAlerts = False		oXls.DisplayAlerts = False
	'Call GetControlData		'Call GetControlData
	bGetData = bGetUniverse		bGetData = bGetUniverse
	If bGetData = False Then GoTo LogonBreak		If bGetData = False Then GoTo LogonBreak
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	Call DefinitionOfDimensionTablesDE		Call DefinitionOfDimensionTablesDE
	Case Else ' english		Case Else ' english
	Call DefinitionOfDimensionTablesEN		Call DefinitionOfDimensionTablesEN
	End Select		End Select
	Call WriteUniverseXLSInfos(ActiveWorkbook)		Call WriteUniverseXLSInfos(ActiveWorkbook)
	Call WriteUniverseXLSObjects(ActiveWorkbook)		Call WriteUniverseXLSObjects(ActiveWorkbook)
	Call WriteUniverseXLSObjectsCopy(ActiveWorkbook)		Call WriteUniverseXLSObjectsCopy(ActiveWorkbook)
	oXls.Interactive = True		oXls.Interactive = True
	oXls.DisplayAlerts = True		oXls.DisplayAlerts = True
	Set oXls = Nothing		Set oXls = Nothing
	Exit Sub		Exit Sub
	LogonBreak:		LogonBreak:
	oXls.Interactive = True		oXls.Interactive = True
	oXls.DisplayAlerts = True		oXls.DisplayAlerts = True
	Set oXls = Nothing		Set oXls = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	oXls.Interactive = True		oXls.Interactive = True
	oXls.DisplayAlerts = True		oXls.DisplayAlerts = True
	Set oXls = Nothing		Set oXls = Nothing
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub ExportUniverseXLS()		Private Sub ExportUniverseXLS()
	Dim sProcName As String		Dim sProcName As String
	sProcName = "ExportUniverseXLS"		sProcName = "ExportUniverseXLS"
	Dim oXls As Excel.Application		Dim oXls As Excel.Application
	Dim oWrk As Excel.Workbook		Dim oWrk As Excel.Workbook
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim sWrkName As String		Dim sWrkName As String
	Dim bGetData  As Boolean		Dim bGetData  As Boolean
	On Error GoTo Err		On Error GoTo Err
	vbLang = iGetLanguage		vbLang = iGetLanguage
			vbErrHand = iGetErrHand
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	MsgBox "Demomodus." & vbCrLf & _		MsgBox "Demomodus." & vbCrLf & _
	"In der Demonstration werden lediglich" & vbCrLf & _		"In der Demonstration werden lediglich" & vbCrLf & _
	"50% der Informationen verarbeitet.", vbInformation, _		"50% der Informationen verarbeitet.", vbInformation, _
	Title:=vbVersion		Title:=vbVersion
	Case Else ' english		Case Else ' english
	MsgBox "Demo mode." & vbCrLf & _		MsgBox "Demo mode." & vbCrLf & _
	"For demonstration" & vbCrLf & _		"For demonstration" & vbCrLf & _
	"50% of data will be processed only.", vbInformation, _		"50% of data will be processed only.", vbInformation, _
	Title:=vbVersion		Title:=vbVersion
	End Select		End Select
	End If		End If
	Call GetControlData		Call GetControlData
	bGetData = bGetUniverse		bGetData = bGetUniverse
	If bGetData = False Then GoTo LogonBreak		If bGetData = False Then GoTo LogonBreak
	Set oXls = Excel.Application		Set oXls = Excel.Application
	Set oWrk = oXls.Workbooks.Add		Set oWrk = oXls.Workbooks.Add
	oXls.Interactive = False		oXls.Interactive = False
	oXls.DisplayAlerts = False		oXls.DisplayAlerts = False
	sWrkName = oUnvProp.sName & "_v" & oUnvProp.sVersion & "_" & CStr(Format(Now, "yyyymmdd_hhmmss_")) & ".xls"		sWrkName = oUnvProp.sName & "_v" & oUnvProp.sVersion & "_" & CStr(Format(Now, "yyyymmdd_hhmmss_")) & ".xls"
	oWrk.SaveAs oUnvProp.sPath & "\" & sWrkName		oWrk.SaveAs oUnvProp.sPath & "\" & sWrkName
	While oWrk.Worksheets.Count > 1		While oWrk.Worksheets.Count > 1
	oWrk.Worksheets(1).Delete		oWrk.Worksheets(1).Delete
	Wend		Wend
	oWrk.Worksheets(1).Name = "master"		oWrk.Worksheets(1).Name = "master"
	Select Case oXls.International(xlCountryCode)		Select Case oXls.International(xlCountryCode)
	Case 49 'german		Case 49 'german
	Call DefinitionOfDimensionTablesDE		Call DefinitionOfDimensionTablesDE
	Case Else ' english		Case Else ' english
	Call DefinitionOfDimensionTablesEN		Call DefinitionOfDimensionTablesEN
	End Select		End Select
	If oControl.bExecInfo Then Call WriteUniverseXLSInfos(oWrk)		If oControl.bExecInfo Then Call WriteUniverseXLSInfos(oWrk)
	If oControl.bExecParameter Then Call WriteUniverseXLSParameters(oWrk)		If oControl.bExecParameter Then Call WriteUniverseXLSParameters(oWrk)
	If oControl.bExecObject Then Call WriteUniverseXLSObjectsComplete(oWrk)		If oControl.bExecObject Then Call WriteUniverseXLSObjectsComplete(oWrk)
	If oControl.bExecDependency Then Call WriteUniverseXLSDependecies(oWrk)		If oControl.bExecDependency Then Call WriteUniverseXLSDependecies(oWrk)
	If oControl.bExecHier Then Call WriteUniverseXLSHierarchies(ActiveWorkbook)		If oControl.bExecHier Then Call WriteUniverseXLSHierarchies(ActiveWorkbook)
	If oControl.bExecContext Then Call WriteUniverseXLSContexts(oWrk)		If oControl.bExecContext Then Call WriteUniverseXLSContexts(oWrk)
	If oControl.bExecJoin Then Call WriteUniverseXLSJoins(ActiveWorkbook)		If oControl.bExecJoin Then Call WriteUniverseXLSJoins(ActiveWorkbook)
	If oControl.bExecIncomb Then Call WriteUniverseXLSInCombs(oWrk)		If oControl.bExecIncomb Then Call WriteUniverseXLSInCombs(oWrk)
	oXls.Worksheets(1).Activate		oXls.Worksheets(1).Activate
	oXls.Interactive = True		oXls.Interactive = True
	oWrk.Save		oWrk.Save
	oWrk.Close		oWrk.Close
	oXls.DisplayAlerts = True		oXls.DisplayAlerts = True
	Set oWrk = Nothing		Set oWrk = Nothing
	Set oXls = Nothing		Set oXls = Nothing
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	MsgBox "Export in die Datei" & vbCrLf & _		MsgBox "Export in die Datei" & vbCrLf & _
	oUnvProp.sPath & "\" & sWrkName & vbCrLf & _		oUnvProp.sPath & "\" & sWrkName & vbCrLf & _
	"erfolgreich.", vbInformation, Title:=vbVersion		"erfolgreich.", vbInformation, Title:=vbVersion
	Case Else ' english		Case Else ' english
	MsgBox "Export to file" & vbCrLf & _		MsgBox "Export to file" & vbCrLf & _
	oUnvProp.sPath & "\" & sWrkName & vbCrLf & _		oUnvProp.sPath & "\" & sWrkName & vbCrLf & _
	"successful.", vbInformation, Title:=vbVersion		"successful.", vbInformation, Title:=vbVersion
	End Select		End Select
	Exit Sub		Exit Sub
	LogonBreak:		LogonBreak:
	Exit Sub		Exit Sub
	Err:		Err:
	oXls.DisplayAlerts = True		oXls.DisplayAlerts = True
	oXls.Interactive = True		oXls.Interactive = True
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSObjects(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSObjects(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSObjects"		sProcName = "WriteUniverseXLSObjects"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	Dim iObject As Integer		Dim iObject As Integer
	Dim iMaxObject As Integer		Dim iMaxObject As Integer
	On Error GoTo Err		On Error GoTo Err
	iSh = iCreateWorksheet(oMyWrk, "objects_" & oUnvProp.sName)		iSh = iCreateWorksheet(oMyWrk, "objects_" & oUnvProp.sName)
	Set oSh = oMyWrk.Worksheets(iSh)		Set oSh = oMyWrk.Worksheets(iSh)
	'init		'init
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Cells(1, colObjClassId).Value = "Klasse ID"		oSh.Cells(1, colObjClassId).Value = "Klasse ID"
	oSh.Cells(1, colObjObjectId).Value = "Objekt ID"		oSh.Cells(1, colObjObjectId).Value = "Objekt ID"
	oSh.Cells(1, colObjClassName).Value = "Klasse Name"		oSh.Cells(1, colObjClassName).Value = "Klasse Name"
	oSh.Cells(1, colObjObjectName).Value = "Objekt Name"		oSh.Cells(1, colObjObjectName).Value = "Objekt Name"
	oSh.Cells(1, colObjObjectType).Value = "Objekt Typ"		oSh.Cells(1, colObjObjectType).Value = "Objekt Typ"
	oSh.Cells(1, colObjDataType).Value = "Datentyp"		oSh.Cells(1, colObjDataType).Value = "Datentyp"
	oSh.Cells(1, colObjDescription).Value = "Beschreibung"		oSh.Cells(1, colObjDescription).Value = "Beschreibung"
	oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"		oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"
	oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"		oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"
	oSh.Cells(1, colObjHidden).Value = "Ausgeblendet"		oSh.Cells(1, colObjHidden).Value = "Ausgeblendet"
	Case Else ' english		Case Else ' english
	oSh.Cells(1, colObjClassId).Value = "Class ID"		oSh.Cells(1, colObjClassId).Value = "Class ID"
	oSh.Cells(1, colObjObjectId).Value = "Object ID"		oSh.Cells(1, colObjObjectId).Value = "Object ID"
	oSh.Cells(1, colObjClassName).Value = "Class name"		oSh.Cells(1, colObjClassName).Value = "Class name"
	oSh.Cells(1, colObjObjectName).Value = "Object name"		oSh.Cells(1, colObjObjectName).Value = "Object name"
	oSh.Cells(1, colObjObjectType).Value = "Data Type"		oSh.Cells(1, colObjObjectType).Value = "Data Type"
	oSh.Cells(1, colObjDataType).Value = "Object type"		oSh.Cells(1, colObjDataType).Value = "Object type"
	oSh.Cells(1, colObjDescription).Value = "Description"		oSh.Cells(1, colObjDescription).Value = "Description"
	oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"		oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"
	oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"		oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"
	oSh.Cells(1, colObjHidden).Value = "Hidden"		oSh.Cells(1, colObjHidden).Value = "Hidden"
	End Select		End Select
	oSh.Cells(1, colObjClassId).Font.Bold = True		oSh.Cells(1, colObjClassId).Font.Bold = True
	oSh.Columns(colObjClassId).NumberFormat = "@"		oSh.Columns(colObjClassId).NumberFormat = "@"
	oSh.Columns(colObjClassId).ColumnWidth = 5		oSh.Columns(colObjClassId).ColumnWidth = 5
	oSh.Cells(1, colObjObjectId).Font.Bold = True		oSh.Cells(1, colObjObjectId).Font.Bold = True
	oSh.Columns(colObjObjectId).NumberFormat = "@"		oSh.Columns(colObjObjectId).NumberFormat = "@"
	oSh.Columns(colObjObjectId).ColumnWidth = 5		oSh.Columns(colObjObjectId).ColumnWidth = 5
	oSh.Cells(1, colObjClassName).Font.Bold = True		oSh.Cells(1, colObjClassName).Font.Bold = True
	oSh.Columns(colObjClassName).NumberFormat = "@"		oSh.Columns(colObjClassName).NumberFormat = "@"
	oSh.Columns(colObjClassName).ColumnWidth = 30		oSh.Columns(colObjClassName).ColumnWidth = 30
	oSh.Cells(1, colObjObjectName).Font.Bold = True		oSh.Cells(1, colObjObjectName).Font.Bold = True
	oSh.Columns(colObjObjectName).NumberFormat = "@"		oSh.Columns(colObjObjectName).NumberFormat = "@"
	oSh.Columns(colObjObjectName).ColumnWidth = 30		oSh.Columns(colObjObjectName).ColumnWidth = 30
	oSh.Cells(1, colObjObjectType).Font.Bold = True		oSh.Cells(1, colObjObjectType).Font.Bold = True
	oSh.Columns(colObjObjectType).NumberFormat = "@"		oSh.Columns(colObjObjectType).NumberFormat = "@"
	oSh.Columns(colObjObjectType).ColumnWidth = 10		oSh.Columns(colObjObjectType).ColumnWidth = 10
	oSh.Cells(1, colObjDataType).Font.Bold = True		oSh.Cells(1, colObjDataType).Font.Bold = True
	oSh.Columns(colObjDataType).NumberFormat = "@"		oSh.Columns(colObjDataType).NumberFormat = "@"
	oSh.Columns(colObjDataType).ColumnWidth = 15		oSh.Columns(colObjDataType).ColumnWidth = 15
	oSh.Cells(1, colObjDescription).Font.Bold = True		oSh.Cells(1, colObjDescription).Font.Bold = True
	oSh.Columns(colObjDescription).NumberFormat = "@"		oSh.Columns(colObjDescription).NumberFormat = "@"
	oSh.Columns(colObjDescription).ColumnWidth = 30		oSh.Columns(colObjDescription).ColumnWidth = 30
	oSh.Cells(1, colObjSqlSelect).Font.Bold = True		oSh.Cells(1, colObjSqlSelect).Font.Bold = True
	oSh.Columns(colObjSqlSelect).NumberFormat = "@"		oSh.Columns(colObjSqlSelect).NumberFormat = "@"
	oSh.Columns(colObjSqlSelect).ColumnWidth = 30		oSh.Columns(colObjSqlSelect).ColumnWidth = 30
	oSh.Cells(1, colObjSQLWhere).Font.Bold = True		oSh.Cells(1, colObjSQLWhere).Font.Bold = True
	oSh.Columns(colObjSQLWhere).NumberFormat = "@"		oSh.Columns(colObjSQLWhere).NumberFormat = "@"
	oSh.Columns(colObjSQLWhere).ColumnWidth = 30		oSh.Columns(colObjSQLWhere).ColumnWidth = 30
	oSh.Cells(1, colObjHidden).Font.Bold = True		oSh.Cells(1, colObjHidden).Font.Bold = True
	oSh.Columns(colObjHidden).NumberFormat = "@"		oSh.Columns(colObjHidden).NumberFormat = "@"
	oSh.Columns(colObjHidden).ColumnWidth = 5		oSh.Columns(colObjHidden).ColumnWidth = 5
	' data		' data
	' demo mode		' demo mode
	' only the first half of data will be outputted		' only the first half of data will be outputted
	iMaxObject = IIf(vbModus = vbModusLive, UBound(oObjects), UBound(oObjects) / 2)		iMaxObject = IIf(vbModus = vbModusLive, UBound(oObjects), UBound(oObjects) / 2)
	If iMaxObject > 0 Then		If iMaxObject > 0 Then
	For iObject = 1 To iMaxObject		For iObject = 1 To iMaxObject
	oSh.Cells(iObject + 1, colObjClassId).Value = oObjects(iObject).iClassId		oSh.Cells(iObject + 1, colObjClassId).Value = oObjects(iObject).iClassId
	oSh.Cells(iObject + 1, colObjObjectId).Value = oObjects(iObject).iObjectID		oSh.Cells(iObject + 1, colObjObjectId).Value = oObjects(iObject).iObjectID
	oSh.Cells(iObject + 1, colObjClassName).Value = oObjects(iObject).sClassName		oSh.Cells(iObject + 1, colObjClassName).Value = oObjects(iObject).sClassName
	oSh.Cells(iObject + 1, colObjObjectName).Value = oObjects(iObject).sName		oSh.Cells(iObject + 1, colObjObjectName).Value = oObjects(iObject).sName
	Select Case oObjects(iObject).iQualification		Select Case oObjects(iObject).iQualification
	Case dsDimensionObject		Case dsDimensionObject
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(1).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(1).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDimensionObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDimensionObject
	Case dsDetailObject		Case dsDetailObject
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(2).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(2).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDetailObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDetailObject
	Case dsMeasureObject		Case dsMeasureObject
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(3).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(3).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsMeasureObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsMeasureObject
	Case 4		Case 4
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(4).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(4).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsConditionObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsConditionObject
	Case Else		Case Else
	oSh.Cells(iObject + 1, colObjObjectType).Value = "unbekannt"		oSh.Cells(iObject + 1, colObjObjectType).Value = "unbekannt"
	End Select		End Select
	Select Case oObjects(iObject).iType		Select Case oObjects(iObject).iType
	Case dsNumericObject		Case dsNumericObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(1).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(1).sType
	Case dsCharacterObject		Case dsCharacterObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(2).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(2).sType
	Case dsDateObject		Case dsDateObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(3).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(3).sType
	Case dsBlobObject		Case dsBlobObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(4).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(4).sType
	Case dsUnknownObject		Case dsUnknownObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(5).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(5).sType
	Case dsNullObject		Case dsNullObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(6).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(6).sType
	End Select		End Select
	oSh.Cells(iObject + 1, colObjDescription).Value = oObjects(iObject).sDescription		oSh.Cells(iObject + 1, colObjDescription).Value = oObjects(iObject).sDescription
	oSh.Cells(iObject + 1, colObjSqlSelect).Value = oObjects(iObject).sSelect		oSh.Cells(iObject + 1, colObjSqlSelect).Value = oObjects(iObject).sSelect
	oSh.Cells(iObject + 1, colObjSQLWhere).Value = oObjects(iObject).sWhere		oSh.Cells(iObject + 1, colObjSQLWhere).Value = oObjects(iObject).sWhere
	oSh.Cells(iObject + 1, colObjHidden).Value = IIf(oObjects(iObject).bIsVisible, "", "x")		oSh.Cells(iObject + 1, colObjHidden).Value = IIf(oObjects(iObject).bIsVisible, "", "x")
	Next iObject		Next iObject
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	oSh.Rows(iObject + 1).Select		oSh.Rows(iObject + 1).Select
	oSh.Rows(iObject + 1).MergeCells = True		oSh.Rows(iObject + 1).MergeCells = True
	oSh.Rows(iObject + 1).Font.FontStyle = "Bold"		oSh.Rows(iObject + 1).Font.FontStyle = "Bold"
	oSh.Rows(iObject + 1).Font.ColorIndex = 40		oSh.Rows(iObject + 1).Font.ColorIndex = 40
	oSh.Rows(iObject + 1).Interior.ColorIndex = 3		oSh.Rows(iObject + 1).Interior.ColorIndex = 3
	oSh.Rows(iObject + 1) = "demo mode, only first half of data will be represented"		oSh.Rows(iObject + 1) = "demo mode, only first half of data will be represented"
	End If		End If
	oSh.Activate		oSh.Activate
	oSh.Range(Cells(1, 1), Cells(UBound(oObjects) + 1, colObjHidden)).Select		oSh.Range(Cells(1, 1), Cells(UBound(oObjects) + 1, colObjHidden)).Select
	Selection.AutoFilter		Selection.AutoFilter
	oSh.Cells(2, 1).Select		oSh.Cells(2, 1).Select
	ActiveWindow.FreezePanes = True		ActiveWindow.FreezePanes = True
	Else		Else
	oSh.Visible = xlSheetVeryHidden		oSh.Visible = xlSheetVeryHidden
	End If		End If
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSObjectsComplete(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSObjectsComplete(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSObjects"		sProcName = "WriteUniverseXLSObjects"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	Dim iObject As Integer		Dim iObject As Integer
	Dim iMaxObject As Integer		Dim iMaxObject As Integer
	On Error GoTo Err		On Error GoTo Err
	iSh = iCreateWorksheet(oMyWrk, "objects_" & oUnvProp.sName)		iSh = iCreateWorksheet(oMyWrk, "objects_" & oUnvProp.sName)
	Set oSh = oMyWrk.Worksheets(iSh)		Set oSh = oMyWrk.Worksheets(iSh)
	'init		'init
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Cells(1, colObjClassId).Value = "Klasse ID"		oSh.Cells(1, colObjClassId).Value = "Klasse ID"
	oSh.Cells(1, colObjObjectId).Value = "Objekt ID"		oSh.Cells(1, colObjObjectId).Value = "Objekt ID"
	oSh.Cells(1, colObjClassName).Value = "Klasse Name"		oSh.Cells(1, colObjClassName).Value = "Klasse Name"
	oSh.Cells(1, colObjObjectName).Value = "Objekt Name"		oSh.Cells(1, colObjObjectName).Value = "Objekt Name"
	oSh.Cells(1, colObjObjectType).Value = "Objekt Typ"		oSh.Cells(1, colObjObjectType).Value = "Objekt Typ"
	oSh.Cells(1, colObjDataType).Value = "Datentyp"		oSh.Cells(1, colObjDataType).Value = "Datentyp"
	oSh.Cells(1, colObjDescription).Value = "Beschreibung"		oSh.Cells(1, colObjDescription).Value = "Beschreibung"
	oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"		oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"
	oSh.Cells(1, colObjHidden).Value = "Ausgeblendet"		oSh.Cells(1, colObjHidden).Value = "Ausgeblendet"
	oSh.Cells(1, colObjAggregateFunction).Value = "Aggregat Funktion"		oSh.Cells(1, colObjAggregateFunction).Value = "Aggregat Funktion"
	oSh.Cells(1, colObjCanBeUsedResult).Value = "zu verwenden in: Ergebnis"		oSh.Cells(1, colObjCanBeUsedResult).Value = "zu verwenden in: Ergebnis"
	oSh.Cells(1, colObjCanBeUsedCondition).Value = "zu verwenden in: Bedingung"		oSh.Cells(1, colObjCanBeUsedCondition).Value = "zu verwenden in: Bedingung"
	oSh.Cells(1, colObjCanBeUsedSort).Value = "zu verwenden in: Sortierung"		oSh.Cells(1, colObjCanBeUsedSort).Value = "zu verwenden in: Sortierung"
	oSh.Cells(1, colObjAllowUserToEditLov).Value = "Anwendern Bearbeitungsrecht gewähren"		oSh.Cells(1, colObjAllowUserToEditLov).Value = "Anwendern Bearbeitungsrecht gewähren"
	oSh.Cells(1, colObjAutomaticLovRefreshBeforeUse).Value = "Vor Benutzung stets aktualisieren"		oSh.Cells(1, colObjAutomaticLovRefreshBeforeUse).Value = "Vor Benutzung stets aktualisieren"
	oSh.Cells(1, colObjExportLovWithUniverse).Value = "Mit Universum exportieren"		oSh.Cells(1, colObjExportLovWithUniverse).Value = "Mit Universum exportieren"
	oSh.Cells(1, colObjHasListOfValues).Value = "Werteliste verbinden"		oSh.Cells(1, colObjHasListOfValues).Value = "Werteliste verbinden"
	oSh.Cells(1, colObjListOfValuesName).Value = "Listenname"		oSh.Cells(1, colObjListOfValuesName).Value = "Listenname"
	oSh.Cells(1, colObjSecurityAccessLevel).Value = "Sicherheitszugriffsniveau"		oSh.Cells(1, colObjSecurityAccessLevel).Value = "Sicherheitszugriffsniveau"
	oSh.Cells(1, colObjUseHierarchicalDisplay).Value = "Hierarchische Anzeige"		oSh.Cells(1, colObjUseHierarchicalDisplay).Value = "Hierarchische Anzeige"
	Case Else ' english		Case Else ' english
	oSh.Cells(1, colObjClassId).Value = "Class ID"		oSh.Cells(1, colObjClassId).Value = "Class ID"
	oSh.Cells(1, colObjObjectId).Value = "Object ID"		oSh.Cells(1, colObjObjectId).Value = "Object ID"
	oSh.Cells(1, colObjClassName).Value = "Class name"		oSh.Cells(1, colObjClassName).Value = "Class name"
	oSh.Cells(1, colObjObjectName).Value = "Object name"		oSh.Cells(1, colObjObjectName).Value = "Object name"
	oSh.Cells(1, colObjObjectType).Value = "Data Type"		oSh.Cells(1, colObjObjectType).Value = "Data Type"
	oSh.Cells(1, colObjDataType).Value = "Object type"		oSh.Cells(1, colObjDataType).Value = "Object type"
	oSh.Cells(1, colObjDescription).Value = "Description"		oSh.Cells(1, colObjDescription).Value = "Description"
	oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"		oSh.Cells(1, colObjSqlSelect).Value = "SQL Select"
	oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"		oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"
	oSh.Cells(1, colObjHidden).Value = "Hidden"		oSh.Cells(1, colObjHidden).Value = "Hidden"
	oSh.Cells(1, colObjAggregateFunction).Value = "Aggregat function"		oSh.Cells(1, colObjAggregateFunction).Value = "Aggregat function"
	oSh.Cells(1, colObjCanBeUsedResult).Value = "can be used in: Result"		oSh.Cells(1, colObjCanBeUsedResult).Value = "can be used in: Result"
	oSh.Cells(1, colObjCanBeUsedCondition).Value = "can be used in: Condition"		oSh.Cells(1, colObjCanBeUsedCondition).Value = "can be used in: Condition"
	oSh.Cells(1, colObjCanBeUsedSort).Value = "can be used in: Sort"		oSh.Cells(1, colObjCanBeUsedSort).Value = "can be used in: Sort"
	oSh.Cells(1, colObjAllowUserToEditLov).Value = "Allow users to edit this list of values"		oSh.Cells(1, colObjAllowUserToEditLov).Value = "Allow users to edit this list of values"
	oSh.Cells(1, colObjAutomaticLovRefreshBeforeUse).Value = "Automatic refresh before use"		oSh.Cells(1, colObjAutomaticLovRefreshBeforeUse).Value = "Automatic refresh before use"
	oSh.Cells(1, colObjExportLovWithUniverse).Value = "Export with universe"		oSh.Cells(1, colObjExportLovWithUniverse).Value = "Export with universe"
	oSh.Cells(1, colObjHasListOfValues).Value = "Associate a List of Values"		oSh.Cells(1, colObjHasListOfValues).Value = "Associate a List of Values"
	oSh.Cells(1, colObjListOfValuesName).Value = "List name"		oSh.Cells(1, colObjListOfValuesName).Value = "List name"
	oSh.Cells(1, colObjSecurityAccessLevel).Value = "Security Access Level"		oSh.Cells(1, colObjSecurityAccessLevel).Value = "Security Access Level"
	oSh.Cells(1, colObjUseHierarchicalDisplay).Value = "Hierarchical Display"		oSh.Cells(1, colObjUseHierarchicalDisplay).Value = "Hierarchical Display"
	End Select		End Select
	oSh.Cells(1, colObjClassId).Font.Bold = True		oSh.Cells(1, colObjClassId).Font.Bold = True
	oSh.Columns(colObjClassId).NumberFormat = "@"		oSh.Columns(colObjClassId).NumberFormat = "@"
	oSh.Columns(colObjClassId).ColumnWidth = 5		oSh.Columns(colObjClassId).ColumnWidth = 5
	oSh.Cells(1, colObjObjectId).Font.Bold = True		oSh.Cells(1, colObjObjectId).Font.Bold = True
	oSh.Columns(colObjObjectId).NumberFormat = "@"		oSh.Columns(colObjObjectId).NumberFormat = "@"
	oSh.Columns(colObjObjectId).ColumnWidth = 5		oSh.Columns(colObjObjectId).ColumnWidth = 5
	oSh.Cells(1, colObjClassName).Font.Bold = True		oSh.Cells(1, colObjClassName).Font.Bold = True
	oSh.Columns(colObjClassName).NumberFormat = "@"		oSh.Columns(colObjClassName).NumberFormat = "@"
	oSh.Columns(colObjClassName).ColumnWidth = 30		oSh.Columns(colObjClassName).ColumnWidth = 30
	oSh.Cells(1, colObjObjectName).Font.Bold = True		oSh.Cells(1, colObjObjectName).Font.Bold = True
	oSh.Columns(colObjObjectName).NumberFormat = "@"		oSh.Columns(colObjObjectName).NumberFormat = "@"
	oSh.Columns(colObjObjectName).ColumnWidth = 30		oSh.Columns(colObjObjectName).ColumnWidth = 30
	oSh.Cells(1, colObjObjectType).Font.Bold = True		oSh.Cells(1, colObjObjectType).Font.Bold = True
	oSh.Columns(colObjObjectType).NumberFormat = "@"		oSh.Columns(colObjObjectType).NumberFormat = "@"
	oSh.Columns(colObjObjectType).ColumnWidth = 10		oSh.Columns(colObjObjectType).ColumnWidth = 10
	oSh.Cells(1, colObjDataType).Font.Bold = True		oSh.Cells(1, colObjDataType).Font.Bold = True
	oSh.Columns(colObjDataType).NumberFormat = "@"		oSh.Columns(colObjDataType).NumberFormat = "@"
	oSh.Columns(colObjDataType).ColumnWidth = 15		oSh.Columns(colObjDataType).ColumnWidth = 15
	oSh.Cells(1, colObjDescription).Font.Bold = True		oSh.Cells(1, colObjDescription).Font.Bold = True
	oSh.Columns(colObjDescription).NumberFormat = "@"		oSh.Columns(colObjDescription).NumberFormat = "@"
	oSh.Columns(colObjDescription).ColumnWidth = 30		oSh.Columns(colObjDescription).ColumnWidth = 30
	oSh.Cells(1, colObjSqlSelect).Font.Bold = True		oSh.Cells(1, colObjSqlSelect).Font.Bold = True
	oSh.Columns(colObjSqlSelect).NumberFormat = "@"		oSh.Columns(colObjSqlSelect).NumberFormat = "@"
	oSh.Columns(colObjSqlSelect).ColumnWidth = 30		oSh.Columns(colObjSqlSelect).ColumnWidth = 30
	oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"		oSh.Cells(1, colObjSQLWhere).Value = "SQL Where"
	oSh.Cells(1, colObjSQLWhere).Font.Bold = True		oSh.Cells(1, colObjSQLWhere).Font.Bold = True
	oSh.Columns(colObjSQLWhere).NumberFormat = "@"		oSh.Columns(colObjSQLWhere).NumberFormat = "@"
	oSh.Columns(colObjSQLWhere).ColumnWidth = 30		oSh.Columns(colObjSQLWhere).ColumnWidth = 30
	oSh.Cells(1, colObjHidden).Font.Bold = True		oSh.Cells(1, colObjHidden).Font.Bold = True
	oSh.Columns(colObjHidden).NumberFormat = "@"		oSh.Columns(colObjHidden).NumberFormat = "@"
	oSh.Columns(colObjHidden).ColumnWidth = 5		oSh.Columns(colObjHidden).ColumnWidth = 5
	oSh.Cells(1, colObjAggregateFunction).Font.Bold = True		oSh.Cells(1, colObjAggregateFunction).Font.Bold = True
	oSh.Columns(colObjAggregateFunction).NumberFormat = "@"		oSh.Columns(colObjAggregateFunction).NumberFormat = "@"
	oSh.Columns(colObjAggregateFunction).ColumnWidth = 10		oSh.Columns(colObjAggregateFunction).ColumnWidth = 10
	oSh.Cells(1, colObjCanBeUsedResult).Font.Bold = True		oSh.Cells(1, colObjCanBeUsedResult).Font.Bold = True
	oSh.Columns(colObjCanBeUsedResult).NumberFormat = "@"		oSh.Columns(colObjCanBeUsedResult).NumberFormat = "@"
	oSh.Columns(colObjCanBeUsedResult).ColumnWidth = 5		oSh.Columns(colObjCanBeUsedResult).ColumnWidth = 5
	oSh.Cells(1, colObjCanBeUsedCondition).Font.Bold = True		oSh.Cells(1, colObjCanBeUsedCondition).Font.Bold = True
	oSh.Columns(colObjCanBeUsedCondition).NumberFormat = "@"		oSh.Columns(colObjCanBeUsedCondition).NumberFormat = "@"
	oSh.Columns(colObjCanBeUsedCondition).ColumnWidth = 5		oSh.Columns(colObjCanBeUsedCondition).ColumnWidth = 5
	oSh.Cells(1, colObjCanBeUsedSort).Font.Bold = True		oSh.Cells(1, colObjCanBeUsedSort).Font.Bold = True
	oSh.Columns(colObjCanBeUsedSort).NumberFormat = "@"		oSh.Columns(colObjCanBeUsedSort).NumberFormat = "@"
	oSh.Columns(colObjCanBeUsedSort).ColumnWidth = 5		oSh.Columns(colObjCanBeUsedSort).ColumnWidth = 5
	oSh.Cells(1, colObjAllowUserToEditLov).Font.Bold = True		oSh.Cells(1, colObjAllowUserToEditLov).Font.Bold = True
	oSh.Columns(colObjAllowUserToEditLov).NumberFormat = "@"		oSh.Columns(colObjAllowUserToEditLov).NumberFormat = "@"
	oSh.Columns(colObjAllowUserToEditLov).ColumnWidth = 5		oSh.Columns(colObjAllowUserToEditLov).ColumnWidth = 5
	oSh.Cells(1, colObjAutomaticLovRefreshBeforeUse).Font.Bold = True		oSh.Cells(1, colObjAutomaticLovRefreshBeforeUse).Font.Bold = True
	oSh.Columns(colObjAutomaticLovRefreshBeforeUse).NumberFormat = "@"		oSh.Columns(colObjAutomaticLovRefreshBeforeUse).NumberFormat = "@"
	oSh.Columns(colObjAutomaticLovRefreshBeforeUse).ColumnWidth = 5		oSh.Columns(colObjAutomaticLovRefreshBeforeUse).ColumnWidth = 5
	oSh.Cells(1, colObjExportLovWithUniverse).Font.Bold = True		oSh.Cells(1, colObjExportLovWithUniverse).Font.Bold = True
	oSh.Columns(colObjExportLovWithUniverse).NumberFormat = "@"		oSh.Columns(colObjExportLovWithUniverse).NumberFormat = "@"
	oSh.Columns(colObjExportLovWithUniverse).ColumnWidth = 5		oSh.Columns(colObjExportLovWithUniverse).ColumnWidth = 5
	oSh.Cells(1, colObjHasListOfValues).Font.Bold = True		oSh.Cells(1, colObjHasListOfValues).Font.Bold = True
	oSh.Columns(colObjHasListOfValues).NumberFormat = "@"		oSh.Columns(colObjHasListOfValues).NumberFormat = "@"
	oSh.Columns(colObjHasListOfValues).ColumnWidth = 5		oSh.Columns(colObjHasListOfValues).ColumnWidth = 5
	oSh.Cells(1, colObjListOfValuesName).Font.Bold = True		oSh.Cells(1, colObjListOfValuesName).Font.Bold = True
	oSh.Columns(colObjListOfValuesName).NumberFormat = "@"		oSh.Columns(colObjListOfValuesName).NumberFormat = "@"
	oSh.Columns(colObjListOfValuesName).ColumnWidth = 5		oSh.Columns(colObjListOfValuesName).ColumnWidth = 5
	oSh.Cells(1, colObjSecurityAccessLevel).Font.Bold = True		oSh.Cells(1, colObjSecurityAccessLevel).Font.Bold = True
	oSh.Columns(colObjSecurityAccessLevel).NumberFormat = "@"		oSh.Columns(colObjSecurityAccessLevel).NumberFormat = "@"
	oSh.Columns(colObjSecurityAccessLevel).ColumnWidth = 5		oSh.Columns(colObjSecurityAccessLevel).ColumnWidth = 5
	oSh.Cells(1, colObjUseHierarchicalDisplay).Font.Bold = True		oSh.Cells(1, colObjUseHierarchicalDisplay).Font.Bold = True
	oSh.Columns(colObjUseHierarchicalDisplay).NumberFormat = "@"		oSh.Columns(colObjUseHierarchicalDisplay).NumberFormat = "@"
	oSh.Columns(colObjUseHierarchicalDisplay).ColumnWidth = 5		oSh.Columns(colObjUseHierarchicalDisplay).ColumnWidth = 5
	' data		' data
	' demo mode		' demo mode
	' only the first half of data will be outputted		' only the first half of data will be outputted
	iMaxObject = IIf(vbModus = vbModusLive, UBound(oObjects), UBound(oObjects) / 2)		iMaxObject = IIf(vbModus = vbModusLive, UBound(oObjects), UBound(oObjects) / 2)
	If iMaxObject > 0 Then		If iMaxObject > 0 Then
	For iObject = 1 To iMaxObject		For iObject = 1 To iMaxObject
	oSh.Cells(iObject + 1, colObjClassId).Value = oObjects(iObject).iClassId		oSh.Cells(iObject + 1, colObjClassId).Value = oObjects(iObject).iClassId
	oSh.Cells(iObject + 1, colObjObjectId).Value = oObjects(iObject).iObjectID		oSh.Cells(iObject + 1, colObjObjectId).Value = oObjects(iObject).iObjectID
	oSh.Cells(iObject + 1, colObjClassName).Value = oObjects(iObject).sClassName		oSh.Cells(iObject + 1, colObjClassName).Value = oObjects(iObject).sClassName
	oSh.Cells(iObject + 1, colObjObjectName).Value = oObjects(iObject).sName		oSh.Cells(iObject + 1, colObjObjectName).Value = oObjects(iObject).sName
	Select Case oObjects(iObject).iQualification		Select Case oObjects(iObject).iQualification
	Case dsDimensionObject		Case dsDimensionObject
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(1).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(1).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDimensionObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDimensionObject
	Case dsDetailObject		Case dsDetailObject
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(2).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(2).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDetailObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsDetailObject
	Case dsMeasureObject		Case dsMeasureObject
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(3).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(3).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsMeasureObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsMeasureObject
	Case 4		Case 4
	oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(4).sQualification		oSh.Cells(iObject + 1, colObjObjectType).Value = oQualification(4).sQualification
	oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsConditionObject		oSh.Rows(iObject + 1).Font.ColorIndex = vbColorDsConditionObject
	Case Else		Case Else
	oSh.Cells(iObject + 1, colObjObjectType).Value = "unbekannt"		oSh.Cells(iObject + 1, colObjObjectType).Value = "unbekannt"
	End Select		End Select
	Select Case oObjects(iObject).iType		Select Case oObjects(iObject).iType
	Case dsNumericObject		Case dsNumericObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(1).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(1).sType
	Case dsCharacterObject		Case dsCharacterObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(2).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(2).sType
	Case dsDateObject		Case dsDateObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(3).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(3).sType
	Case dsBlobObject		Case dsBlobObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(4).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(4).sType
	Case dsUnknownObject		Case dsUnknownObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(5).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(5).sType
	Case dsNullObject		Case dsNullObject
	oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(6).sType		oSh.Cells(iObject + 1, colObjDataType).Value = oObjectPropertiesType(6).sType
	End Select		End Select
	oSh.Cells(iObject + 1, colObjDescription).Value = oObjects(iObject).sDescription		oSh.Cells(iObject + 1, colObjDescription).Value = oObjects(iObject).sDescription
	oSh.Cells(iObject + 1, colObjSqlSelect).Value = oObjects(iObject).sSelect		oSh.Cells(iObject + 1, colObjSqlSelect).Value = oObjects(iObject).sSelect
	oSh.Cells(iObject + 1, colObjSQLWhere).Value = oObjects(iObject).sWhere		oSh.Cells(iObject + 1, colObjSQLWhere).Value = oObjects(iObject).sWhere
	oSh.Cells(iObject + 1, colObjHidden).Value = IIf(oObjects(iObject).bIsVisible, "", "x")		oSh.Cells(iObject + 1, colObjHidden).Value = IIf(oObjects(iObject).bIsVisible, "", "x")
	oSh.Cells(iObject + 1, colObjAggregateFunction).Value = sGetAggregateFunction(oObjects(iObject).iAggregateFunction)		oSh.Cells(iObject + 1, colObjAggregateFunction).Value = sGetAggregateFunction(oObjects(iObject).iAggregateFunction)
	oSh.Cells(iObject + 1, colObjHasListOfValues).Value = IIf(oObjects(iObject).bHasListOfValues, "x", "")		oSh.Cells(iObject + 1, colObjHasListOfValues).Value = IIf(oObjects(iObject).bHasListOfValues, "x", "")
	oSh.Cells(iObject + 1, colObjListOfValuesName).Value = oObjects(iObject).sListOfValuesName		oSh.Cells(iObject + 1, colObjListOfValuesName).Value = oObjects(iObject).sListOfValuesName
	oSh.Cells(iObject + 1, colObjAllowUserToEditLov).Value = IIf(oObjects(iObject).bAllowUserToEditLov, "x", "")		oSh.Cells(iObject + 1, colObjAllowUserToEditLov).Value = IIf(oObjects(iObject).bAllowUserToEditLov, "x", "")
	oSh.Cells(iObject + 1, colObjAutomaticLovRefreshBeforeUse).Value = IIf(oObjects(iObject).bAutomaticLovRefreshBeforeUse, "x", "")		oSh.Cells(iObject + 1, colObjAutomaticLovRefreshBeforeUse).Value = IIf(oObjects(iObject).bAutomaticLovRefreshBeforeUse, "x", "")
	oSh.Cells(iObject + 1, colObjUseHierarchicalDisplay).Value = IIf(oObjects(iObject).bUseHierarchicalDisplay, "x", "")		oSh.Cells(iObject + 1, colObjUseHierarchicalDisplay).Value = IIf(oObjects(iObject).bUseHierarchicalDisplay, "x", "")
	oSh.Cells(iObject + 1, colObjExportLovWithUniverse).Value = IIf(oObjects(iObject).bExportLovWithUniverse, "x", "")		oSh.Cells(iObject + 1, colObjExportLovWithUniverse).Value = IIf(oObjects(iObject).bExportLovWithUniverse, "x", "")
	oSh.Cells(iObject + 1, colObjSecurityAccessLevel).Value = sGetSecurityAccessLevel(oObjects(iObject).iSecurityAccessLevel)		oSh.Cells(iObject + 1, colObjSecurityAccessLevel).Value = sGetSecurityAccessLevel(oObjects(iObject).iSecurityAccessLevel)
	oSh.Cells(iObject + 1, colObjCanBeUsedResult).Value = IIf(oObjects(iObject).bCanBeUsedResult, "x", "")		oSh.Cells(iObject + 1, colObjCanBeUsedResult).Value = IIf(oObjects(iObject).bCanBeUsedResult, "x", "")
	oSh.Cells(iObject + 1, colObjCanBeUsedCondition).Value = IIf(oObjects(iObject).bCanBeUsedCondition, "x", "")		oSh.Cells(iObject + 1, colObjCanBeUsedCondition).Value = IIf(oObjects(iObject).bCanBeUsedCondition, "x", "")
	oSh.Cells(iObject + 1, colObjCanBeUsedSort).Value = IIf(oObjects(iObject).bCanBeUsedSort, "x", "")		oSh.Cells(iObject + 1, colObjCanBeUsedSort).Value = IIf(oObjects(iObject).bCanBeUsedSort, "x", "")
	Next iObject		Next iObject
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	oSh.Rows(iObject + 1).Select		oSh.Rows(iObject + 1).Select
	oSh.Rows(iObject + 1).MergeCells = True		oSh.Rows(iObject + 1).MergeCells = True
	oSh.Rows(iObject + 1).Font.FontStyle = "Bold"		oSh.Rows(iObject + 1).Font.FontStyle = "Bold"
	oSh.Rows(iObject + 1).Font.ColorIndex = 40		oSh.Rows(iObject + 1).Font.ColorIndex = 40
	oSh.Rows(iObject + 1).Interior.ColorIndex = 3		oSh.Rows(iObject + 1).Interior.ColorIndex = 3
	oSh.Rows(iObject + 1) = "demo mode, only first half of data will be represented"		oSh.Rows(iObject + 1) = "demo mode, only first half of data will be represented"
	End If		End If
	oSh.Activate		oSh.Activate
	oSh.Range(Cells(1, 1), Cells(UBound(oObjects) + 1, colObjCanBeUsedSort)).Select		oSh.Range(Cells(1, 1), Cells(UBound(oObjects) + 1, colObjCanBeUsedSort)).Select
	Selection.AutoFilter		Selection.AutoFilter
	oSh.Cells(2, 1).Select		oSh.Cells(2, 1).Select
	ActiveWindow.FreezePanes = True		ActiveWindow.FreezePanes = True
	Else		Else
	oSh.Visible = xlSheetVeryHidden		oSh.Visible = xlSheetVeryHidden
	End If		End If
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSObjectsCopy(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSObjectsCopy(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSObjectsCopy"		sProcName = "WriteUniverseXLSObjectsCopy"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	On Error GoTo Err		On Error GoTo Err
	iSh = iCreateWorksheet(oMyWrk, "copy_" & oUnvProp.sName)		iSh = iCreateWorksheet(oMyWrk, "copy_" & oUnvProp.sName)
	Set oSh = oMyWrk.Worksheets(iSh)		Set oSh = oMyWrk.Worksheets(iSh)
	oSh.Visible = xlSheetVisible		oSh.Visible = xlSheetVisible
	iSh = iGetWorksheetID(oMyWrk, "objects_" & oUnvProp.sName)		iSh = iGetWorksheetID(oMyWrk, "objects_" & oUnvProp.sName)
	oMyWrk.Worksheets(iSh).Activate		oMyWrk.Worksheets(iSh).Activate
	oMyWrk.Worksheets(iSh).Range(Cells(1, 1), Cells(UBound(oObjects) + 1, colObjHidden)).Select		oMyWrk.Worksheets(iSh).Range(Cells(1, 1), Cells(UBound(oObjects) + 1, colObjHidden)).Select
	Selection.Copy		Selection.Copy
	oSh.Activate		oSh.Activate
	oSh.Paste		oSh.Paste
	oSh.Visible = xlSheetVeryHidden		oSh.Visible = xlSheetVeryHidden
	Application.CutCopyMode = False		Application.CutCopyMode = False
	oMyWrk.Worksheets(iSh).Cells(2, 1).Select		oMyWrk.Worksheets(iSh).Cells(2, 1).Select
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSInCombs(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSInCombs(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSInCombs"		sProcName = "WriteUniverseXLSInCombs"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	Dim iIncomb As Integer		Dim iIncomb As Integer
	On Error GoTo Err		On Error GoTo Err
	iSh = iCreateWorksheet(oMyWrk, "incomb_" & oUnvProp.sName)		iSh = iCreateWorksheet(oMyWrk, "incomb_" & oUnvProp.sName)
	Set oSh = oMyWrk.Worksheets(iSh)		Set oSh = oMyWrk.Worksheets(iSh)
	oSh.Activate		oSh.Activate
	'init		'init
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Cells(1, colInCombTableName).Value = "Tabelle Name"		oSh.Cells(1, colInCombTableName).Value = "Tabelle Name"
	oSh.Cells(1, colInCombClassName).Value = "Klasse Name"		oSh.Cells(1, colInCombClassName).Value = "Klasse Name"
	oSh.Cells(1, colInCombObjectName).Value = "Objekt Name"		oSh.Cells(1, colInCombObjectName).Value = "Objekt Name"
	oSh.Cells(1, colInCombTableId).Value = "Tabelle ID"		oSh.Cells(1, colInCombTableId).Value = "Tabelle ID"
	oSh.Cells(1, colInCombClassId).Value = "Klasse ID"		oSh.Cells(1, colInCombClassId).Value = "Klasse ID"
	oSh.Cells(1, colInCombObjectId).Value = "Objekt ID"		oSh.Cells(1, colInCombObjectId).Value = "Objekt ID"
	Case Else ' english		Case Else ' english
	oSh.Cells(1, colInCombTableName).Value = "Table name"		oSh.Cells(1, colInCombTableName).Value = "Table name"
	oSh.Cells(1, colInCombClassName).Value = "Class name"		oSh.Cells(1, colInCombClassName).Value = "Class name"
	oSh.Cells(1, colInCombObjectName).Value = "Object name"		oSh.Cells(1, colInCombObjectName).Value = "Object name"
	oSh.Cells(1, colInCombTableId).Value = "Table ID"		oSh.Cells(1, colInCombTableId).Value = "Table ID"
	oSh.Cells(1, colInCombClassId).Value = "Class ID"		oSh.Cells(1, colInCombClassId).Value = "Class ID"
	oSh.Cells(1, colInCombObjectId).Value = "Object ID"		oSh.Cells(1, colInCombObjectId).Value = "Object ID"
	End Select		End Select
	oSh.Cells(1, colInCombTableName).Font.Bold = True		oSh.Cells(1, colInCombTableName).Font.Bold = True
	oSh.Columns(colInCombTableName).NumberFormat = "@"		oSh.Columns(colInCombTableName).NumberFormat = "@"
	oSh.Columns(colInCombTableName).ColumnWidth = 30		oSh.Columns(colInCombTableName).ColumnWidth = 30
	oSh.Cells(1, colInCombClassName).Font.Bold = True		oSh.Cells(1, colInCombClassName).Font.Bold = True
	oSh.Columns(colInCombClassName).NumberFormat = "@"		oSh.Columns(colInCombClassName).NumberFormat = "@"
	oSh.Columns(colInCombClassName).ColumnWidth = 30		oSh.Columns(colInCombClassName).ColumnWidth = 30
	oSh.Cells(1, colInCombObjectName).Font.Bold = True		oSh.Cells(1, colInCombObjectName).Font.Bold = True
	oSh.Columns(colInCombObjectName).NumberFormat = "@"		oSh.Columns(colInCombObjectName).NumberFormat = "@"
	oSh.Columns(colInCombObjectName).ColumnWidth = 30		oSh.Columns(colInCombObjectName).ColumnWidth = 30
	oSh.Cells(1, colInCombTableId).Font.Bold = True		oSh.Cells(1, colInCombTableId).Font.Bold = True
	oSh.Columns(colInCombTableId).NumberFormat = "@"		oSh.Columns(colInCombTableId).NumberFormat = "@"
	oSh.Columns(colInCombTableId).ColumnWidth = 10		oSh.Columns(colInCombTableId).ColumnWidth = 10
	oSh.Cells(1, colInCombClassId).Font.Bold = True		oSh.Cells(1, colInCombClassId).Font.Bold = True
	oSh.Columns(colInCombClassId).NumberFormat = "@"		oSh.Columns(colInCombClassId).NumberFormat = "@"
	oSh.Columns(colInCombClassId).ColumnWidth = 10		oSh.Columns(colInCombClassId).ColumnWidth = 10
	oSh.Cells(1, colInCombObjectId).Font.Bold = True		oSh.Cells(1, colInCombObjectId).Font.Bold = True
	oSh.Columns(colInCombObjectId).NumberFormat = "@"		oSh.Columns(colInCombObjectId).NumberFormat = "@"
	oSh.Columns(colInCombObjectId).ColumnWidth = 10		oSh.Columns(colInCombObjectId).ColumnWidth = 10
	' data		' data
	If UBound(oIncombatibilities) > 0 Then		If UBound(oIncombatibilities) > 0 Then
	For iIncomb = 1 To UBound(oIncombatibilities)		For iIncomb = 1 To UBound(oIncombatibilities)
	oSh.Cells(iIncomb + 1, colInCombTableName).Value = oIncombatibilities(iIncomb).sTableName		oSh.Cells(iIncomb + 1, colInCombTableName).Value = oIncombatibilities(iIncomb).sTableName
	oSh.Cells(iIncomb + 1, colInCombClassName).Value = oIncombatibilities(iIncomb).sClassName		oSh.Cells(iIncomb + 1, colInCombClassName).Value = oIncombatibilities(iIncomb).sClassName
	oSh.Cells(iIncomb + 1, colInCombObjectName).Value = oIncombatibilities(iIncomb).sObjectName		oSh.Cells(iIncomb + 1, colInCombObjectName).Value = oIncombatibilities(iIncomb).sObjectName
	oSh.Cells(iIncomb + 1, colInCombTableId).Value = oIncombatibilities(iIncomb).iTableId		oSh.Cells(iIncomb + 1, colInCombTableId).Value = oIncombatibilities(iIncomb).iTableId
	oSh.Cells(iIncomb + 1, colInCombClassId).Value = oIncombatibilities(iIncomb).iClassId		oSh.Cells(iIncomb + 1, colInCombClassId).Value = oIncombatibilities(iIncomb).iClassId
	oSh.Cells(iIncomb + 1, colInCombObjectId).Value = oIncombatibilities(iIncomb).iObjectID		oSh.Cells(iIncomb + 1, colInCombObjectId).Value = oIncombatibilities(iIncomb).iObjectID
	Next iIncomb		Next iIncomb
	oSh.Range(Cells(2, 1), Cells(UBound(oIncombatibilities) + 1, colInCombObjectId)).Select		oSh.Range(Cells(2, 1), Cells(UBound(oIncombatibilities) + 1, colInCombObjectId)).Select
	Selection.Font.ColorIndex = vbColorDsStandard		Selection.Font.ColorIndex = vbColorDsStandard
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	oSh.Rows(iIncomb + 1).Select		oSh.Rows(iIncomb + 1).Select
	oSh.Rows(iIncomb + 1).MergeCells = True		oSh.Rows(iIncomb + 1).MergeCells = True
	oSh.Rows(iIncomb + 1).Font.FontStyle = "Bold"		oSh.Rows(iIncomb + 1).Font.FontStyle = "Bold"
	oSh.Rows(iIncomb + 1).Font.ColorIndex = 40		oSh.Rows(iIncomb + 1).Font.ColorIndex = 40
	oSh.Rows(iIncomb + 1).Interior.ColorIndex = 3		oSh.Rows(iIncomb + 1).Interior.ColorIndex = 3
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Rows(iIncomb + 1) = "Demomodus. Es werden nur 50% der Daten angezeigt."		oSh.Rows(iIncomb + 1) = "Demomodus. Es werden nur 50% der Daten angezeigt."
	Case Else ' english		Case Else ' english
	oSh.Rows(iIncomb + 1) = "demo mode, only first half of data will be represented"		oSh.Rows(iIncomb + 1) = "demo mode, only first half of data will be represented"
	End Select		End Select
	End If		End If
	oSh.Activate		oSh.Activate
	oSh.Range(Cells(1, 1), Cells(UBound(oIncombatibilities) + 1, colInCombObjectId)).Select		oSh.Range(Cells(1, 1), Cells(UBound(oIncombatibilities) + 1, colInCombObjectId)).Select
	Selection.AutoFilter		Selection.AutoFilter
	oSh.Cells(2, 1).Select		oSh.Cells(2, 1).Select
	ActiveWindow.FreezePanes = True		ActiveWindow.FreezePanes = True
	oSh.Visible = xlSheetVisible		oSh.Visible = xlSheetVisible
	Else		Else
	oSh.Visible = xlSheetVeryHidden		oSh.Visible = xlSheetVeryHidden
	End If		End If
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSHierarchies(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSHierarchies(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSHierarchies"		sProcName = "WriteUniverseXLSHierarchies"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	Dim iHier As Integer		Dim iHier As Integer
	Dim iMaxHier As Integer		Dim iMaxHier As Integer
	On Error GoTo Err		On Error GoTo Err
	iSh = iCreateWorksheet(oMyWrk, "hier_" & oUnvProp.sName)		iSh = iCreateWorksheet(oMyWrk, "hier_" & oUnvProp.sName)
	Set oSh = oMyWrk.Worksheets(iSh)		Set oSh = oMyWrk.Worksheets(iSh)
	oSh.Activate		oSh.Activate
	'init		'init
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Cells(1, colHierName).Value = "Hierarchie Name"		oSh.Cells(1, colHierName).Value = "Hierarchie Name"
	oSh.Cells(1, colHierObjectName).Value = "Objekt Name"		oSh.Cells(1, colHierObjectName).Value = "Objekt Name"
	oSh.Cells(1, colHierClassName).Value = "Klasse Name"		oSh.Cells(1, colHierClassName).Value = "Klasse Name"
	oSh.Cells(1, colHierIsVisible).Value = "Ausgeblendet"		oSh.Cells(1, colHierIsVisible).Value = "Ausgeblendet"
	Case Else ' english		Case Else ' english
	oSh.Cells(1, colHierName).Value = "Hierarchy name"		oSh.Cells(1, colHierName).Value = "Hierarchy name"
	oSh.Cells(1, colHierObjectName).Value = "Object name"		oSh.Cells(1, colHierObjectName).Value = "Object name"
	oSh.Cells(1, colHierClassName).Value = "Class name"		oSh.Cells(1, colHierClassName).Value = "Class name"
	oSh.Cells(1, colHierIsVisible).Value = "Hidden"		oSh.Cells(1, colHierIsVisible).Value = "Hidden"
	End Select		End Select
	oSh.Cells(1, colHierName).Font.Bold = True		oSh.Cells(1, colHierName).Font.Bold = True
	oSh.Columns(colHierName).NumberFormat = "@"		oSh.Columns(colHierName).NumberFormat = "@"
	oSh.Columns(colHierName).ColumnWidth = 30		oSh.Columns(colHierName).ColumnWidth = 30
	oSh.Cells(1, colHierObjectName).Font.Bold = True		oSh.Cells(1, colHierObjectName).Font.Bold = True
	oSh.Columns(colHierObjectName).NumberFormat = "@"		oSh.Columns(colHierObjectName).NumberFormat = "@"
	oSh.Columns(colHierObjectName).ColumnWidth = 30		oSh.Columns(colHierObjectName).ColumnWidth = 30
	oSh.Cells(1, colHierClassName).Font.Bold = True		oSh.Cells(1, colHierClassName).Font.Bold = True
	oSh.Columns(colHierClassName).NumberFormat = "@"		oSh.Columns(colHierClassName).NumberFormat = "@"
	oSh.Columns(colHierClassName).ColumnWidth = 30		oSh.Columns(colHierClassName).ColumnWidth = 30
	oSh.Cells(1, colHierIsVisible).Font.Bold = True		oSh.Cells(1, colHierIsVisible).Font.Bold = True
	oSh.Columns(colHierIsVisible).NumberFormat = "@"		oSh.Columns(colHierIsVisible).NumberFormat = "@"
	oSh.Columns(colHierIsVisible).ColumnWidth = 10		oSh.Columns(colHierIsVisible).ColumnWidth = 10
	' data		' data
	' demo mode		' demo mode
	' only the first half of data will be outputted		' only the first half of data will be outputted
	iMaxHier = IIf(vbModus = vbModusLive, UBound(oHierarchies), UBound(oHierarchies) / 2)		iMaxHier = IIf(vbModus = vbModusLive, UBound(oHierarchies), UBound(oHierarchies) / 2)
	If iMaxHier > 0 Then		If iMaxHier > 0 Then
	For iHier = 1 To UBound(oHierarchies)		For iHier = 1 To UBound(oHierarchies)
	oSh.Cells(iHier + 1, colHierName).Value = oHierarchies(iHier).sName		oSh.Cells(iHier + 1, colHierName).Value = oHierarchies(iHier).sName
	oSh.Cells(iHier + 1, colHierObjectName).Value = oHierarchies(iHier).sObjectName		oSh.Cells(iHier + 1, colHierObjectName).Value = oHierarchies(iHier).sObjectName
	oSh.Cells(iHier + 1, colHierClassName).Value = oHierarchies(iHier).sClassName		oSh.Cells(iHier + 1, colHierClassName).Value = oHierarchies(iHier).sClassName
	oSh.Cells(iHier + 1, colHierIsVisible).Value = IIf(oHierarchies(iHier).bIsVisible, "", "x")		oSh.Cells(iHier + 1, colHierIsVisible).Value = IIf(oHierarchies(iHier).bIsVisible, "", "x")
	If oHierarchies(iHier).iObjectID = -1 Then		If oHierarchies(iHier).iObjectID = -1 Then
	oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsError		oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsError
	Else		Else
	Select Case oObjects(oHierarchies(iHier).iObjectID).iQualification		Select Case oObjects(oHierarchies(iHier).iObjectID).iQualification
	Case dsDimensionObject		Case dsDimensionObject
	oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsDimensionObject		oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsDimensionObject
	Case dsDetailObject		Case dsDetailObject
	oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsDetailObject		oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsDetailObject
	Case dsMeasureObject		Case dsMeasureObject
	oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsMeasureObject		oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsMeasureObject
	Case 4		Case 4
	oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsConditionObject		oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsConditionObject
	Case Else		Case Else
	oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsError		oSh.Rows(iHier + 1).Font.ColorIndex = vbColorDsError
	End Select		End Select
	End If		End If
	Next iHier		Next iHier
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	oSh.Rows(iHier + 1).Select		oSh.Rows(iHier + 1).Select
	oSh.Rows(iHier + 1).MergeCells = True		oSh.Rows(iHier + 1).MergeCells = True
	oSh.Rows(iHier + 1).Font.FontStyle = "Bold"		oSh.Rows(iHier + 1).Font.FontStyle = "Bold"
	oSh.Rows(iHier + 1).Font.ColorIndex = 40		oSh.Rows(iHier + 1).Font.ColorIndex = 40
	oSh.Rows(iHier + 1).Interior.ColorIndex = 3		oSh.Rows(iHier + 1).Interior.ColorIndex = 3
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Rows(iHier + 1) = "Demomodus. Es werden nur 50% der Daten angezeigt."		oSh.Rows(iHier + 1) = "Demomodus. Es werden nur 50% der Daten angezeigt."
	Case Else ' english		Case Else ' english
	oSh.Rows(iHier + 1) = "demo mode, only first half of data will be represented"		oSh.Rows(iHier + 1) = "demo mode, only first half of data will be represented"
	End Select		End Select
	End If		End If
	oSh.Activate		oSh.Activate
	oSh.Range(Cells(1, 1), Cells(UBound(oHierarchies) + 1, colHierIsVisible)).Select		oSh.Range(Cells(1, 1), Cells(UBound(oHierarchies) + 1, colHierIsVisible)).Select
	Selection.AutoFilter		Selection.AutoFilter
	oSh.Cells(2, 1).Select		oSh.Cells(2, 1).Select
	ActiveWindow.FreezePanes = True		ActiveWindow.FreezePanes = True
	oSh.Visible = xlSheetVisible		oSh.Visible = xlSheetVisible
	Else		Else
	oSh.Visible = xlSheetVeryHidden		oSh.Visible = xlSheetVeryHidden
	End If		End If
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSJoins(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSJoins(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSJoins"		sProcName = "WriteUniverseXLSJoins"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	Dim iJoin As Integer		Dim iJoin As Integer
	Dim iMaxJoin As Integer		Dim iMaxJoin As Integer
	On Error GoTo Err		On Error GoTo Err
	iSh = iCreateWorksheet(oMyWrk, "joins_" & oUnvProp.sName)		iSh = iCreateWorksheet(oMyWrk, "joins_" & oUnvProp.sName)
	Set oSh = oMyWrk.Worksheets(iSh)		Set oSh = oMyWrk.Worksheets(iSh)
	oSh.Activate		oSh.Activate
	'init		'init
	oSh.Cells(1, colJoinId).Value = "Join Id"		oSh.Cells(1, colJoinId).Value = "Join Id"
	oSh.Cells(1, colJoinId).Font.Bold = True		oSh.Cells(1, colJoinId).Font.Bold = True
	oSh.Columns(colJoinId).NumberFormat = "@"		oSh.Columns(colJoinId).NumberFormat = "@"
	oSh.Columns(colJoinId).ColumnWidth = 10		oSh.Columns(colJoinId).ColumnWidth = 10
	oSh.Cells(1, colJoinExpr).Value = "Expression"		oSh.Cells(1, colJoinExpr).Value = "Expression"
	oSh.Cells(1, colJoinExpr).Font.Bold = True		oSh.Cells(1, colJoinExpr).Font.Bold = True
	oSh.Columns(colJoinExpr).NumberFormat = "@"		oSh.Columns(colJoinExpr).NumberFormat = "@"
	oSh.Columns(colJoinExpr).ColumnWidth = 100		oSh.Columns(colJoinExpr).ColumnWidth = 100
	' data		' data
	' demo mode		' demo mode
	' only the first half of data will be outputted		' only the first half of data will be outputted
	iMaxJoin = IIf(vbModus = vbModusLive, UBound(oJoins), UBound(oJoins) / 2)		iMaxJoin = IIf(vbModus = vbModusLive, UBound(oJoins), UBound(oJoins) / 2)
	If iMaxJoin > 0 Then		If iMaxJoin > 0 Then
	For iJoin = 1 To iMaxJoin		For iJoin = 1 To iMaxJoin
	oSh.Cells(iJoin + 1, colJoinId).Value = oJoins(iJoin).iJoinId		oSh.Cells(iJoin + 1, colJoinId).Value = oJoins(iJoin).iJoinId
	oSh.Cells(iJoin + 1, colJoinExpr).Value = oJoins(iJoin).sExpression		oSh.Cells(iJoin + 1, colJoinExpr).Value = oJoins(iJoin).sExpression
	Next iJoin		Next iJoin
	oSh.Range(Cells(2, 1), Cells(UBound(oJoins) + 1, colJoinExpr)).Select		oSh.Range(Cells(2, 1), Cells(UBound(oJoins) + 1, colJoinExpr)).Select
	Selection.Font.ColorIndex = vbColorDsStandard		Selection.Font.ColorIndex = vbColorDsStandard
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	oSh.Rows(iJoin + 1).Select		oSh.Rows(iJoin + 1).Select
	oSh.Rows(iJoin + 1).MergeCells = True		oSh.Rows(iJoin + 1).MergeCells = True
	oSh.Rows(iJoin + 1).Font.FontStyle = "Bold"		oSh.Rows(iJoin + 1).Font.FontStyle = "Bold"
	oSh.Rows(iJoin + 1).Font.ColorIndex = 40		oSh.Rows(iJoin + 1).Font.ColorIndex = 40
	oSh.Rows(iJoin + 1).Interior.ColorIndex = 3		oSh.Rows(iJoin + 1).Interior.ColorIndex = 3
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Rows(iJoin + 1) = "Demomodus. Es werden nur 50% der Daten angezeigt."		oSh.Rows(iJoin + 1) = "Demomodus. Es werden nur 50% der Daten angezeigt."
	Case Else ' english		Case Else ' english
	oSh.Rows(iJoin + 1) = "demo mode, only first half of data will be represented"		oSh.Rows(iJoin + 1) = "demo mode, only first half of data will be represented"
	End Select		End Select
	End If		End If
	oSh.Activate		oSh.Activate
	oSh.Range(Cells(1, 1), Cells(UBound(oJoins) + 1, colJoinExpr)).Select		oSh.Range(Cells(1, 1), Cells(UBound(oJoins) + 1, colJoinExpr)).Select
	Selection.AutoFilter		Selection.AutoFilter
	oSh.Cells(2, 1).Select		oSh.Cells(2, 1).Select
	ActiveWindow.FreezePanes = True		ActiveWindow.FreezePanes = True
	oSh.Visible = xlSheetVisible		oSh.Visible = xlSheetVisible
	Else		Else
	oSh.Visible = xlSheetVeryHidden		oSh.Visible = xlSheetVeryHidden
	End If		End If
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSContexts(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSContexts(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSContexts"		sProcName = "WriteUniverseXLSContexts"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	Dim iContext As Integer		Dim iContext As Integer
	Dim iMaxContext As Integer		Dim iMaxContext As Integer
	On Error GoTo Err		On Error GoTo Err
	iSh = iCreateWorksheet(oMyWrk, "contexts_" & oUnvProp.sName)		iSh = iCreateWorksheet(oMyWrk, "contexts_" & oUnvProp.sName)
	Set oSh = oMyWrk.Worksheets(iSh)		Set oSh = oMyWrk.Worksheets(iSh)
	oSh.Activate		oSh.Activate
	'init		'init
	Select Case vbLang		Select Case vbLang
	Case 49 'german		Case 49 'german
	oSh.Cells(1, colCtxtName).Value = "Context Name"		oSh.Cells(1, colCtxtName).Value = "Context Name"
	oSh.Cells(1, colCtxtTab1).Value = "Tabelle 1"		oSh.Cells(1, colCtxtTab1).Value = "Tabelle 1"
	oSh.Cells(1, colCtxtCol1).Value = "Spalte 1"		oSh.Cells(1, colCtxtCol1).Value = "Spalte 1"
	oSh.Cells(1, colCtxtTab2).Value = "Tabelle 2"		oSh.Cells(1, colCtxtTab2).Value = "Tabelle 2"
	oSh.Cells(1, colCtxtCol2).Value = "Spalte 2"		oSh.Cells(1, colCtxtCol2).Value = "Spalte 2"
	oSh.Cells(1, colCtxtExpr).Value = "Expression"		oSh.Cells(1, colCtxtExpr).Value = "Expression"
	Case Else ' english		Case Else ' english
	oSh.Cells(1, colCtxtName).Value = "Context name"		oSh.Cells(1, colCtxtName).Value = "Context name"
	oSh.Cells(1, colCtxtTab1).Value = "Table 1"		oSh.Cells(1, colCtxtTab1).Value = "Table 1"
	oSh.Cells(1, colCtxtCol1).Value = "Column 1"		oSh.Cells(1, colCtxtCol1).Value = "Column 1"
	oSh.Cells(1, colCtxtTab2).Value = "Table 2"		oSh.Cells(1, colCtxtTab2).Value = "Table 2"
	oSh.Cells(1, colCtxtCol2).Value = "Column 2"		oSh.Cells(1, colCtxtCol2).Value = "Column 2"
	oSh.Cells(1, colCtxtExpr).Value = "Expression"		oSh.Cells(1, colCtxtExpr).Value = "Expression"
	End Select		End Select
	oSh.Cells(1, colCtxtName).Font.Bold = True		oSh.Cells(1, colCtxtName).Font.Bold = True
	oSh.Columns(colCtxtName).NumberFormat = "@"		oSh.Columns(colCtxtName).NumberFormat = "@"
	oSh.Columns(colCtxtName).ColumnWidth = 30		oSh.Columns(colCtxtName).ColumnWidth = 30
	oSh.Cells(1, colCtxtTab1).Font.Bold = True		oSh.Cells(1, colCtxtTab1).Font.Bold = True
	oSh.Columns(colCtxtTab1).NumberFormat = "@"		oSh.Columns(colCtxtTab1).NumberFormat = "@"
	oSh.Columns(colCtxtTab1).ColumnWidth = 30		oSh.Columns(colCtxtTab1).ColumnWidth = 30
	oSh.Cells(1, colCtxtCol1).Font.Bold = True		oSh.Cells(1, colCtxtCol1).Font.Bold = True
	oSh.Columns(colCtxtCol1).NumberFormat = "@"		oSh.Columns(colCtxtCol1).NumberFormat = "@"
	oSh.Columns(colCtxtCol1).ColumnWidth = 30		oSh.Columns(colCtxtCol1).ColumnWidth = 30
	oSh.Cells(1, colCtxtTab2).Font.Bold = True		oSh.Cells(1, colCtxtTab2).Font.Bold = True
	oSh.Columns(colCtxtTab2).NumberFormat = "@"		oSh.Columns(colCtxtTab2).NumberFormat = "@"
	oSh.Columns(colCtxtTab2).ColumnWidth = 30		oSh.Columns(colCtxtTab2).ColumnWidth = 30
	oSh.Cells(1, colCtxtCol2).Font.Bold = True		oSh.Cells(1, colCtxtCol2).Font.Bold = True
	oSh.Columns(colCtxtCol2).NumberFormat = "@"		oSh.Columns(colCtxtCol2).NumberFormat = "@"
	oSh.Columns(colCtxtCol2).ColumnWidth = 30		oSh.Columns(colCtxtCol2).ColumnWidth = 30
	oSh.Cells(1, colCtxtExpr).Font.Bold = True		oSh.Cells(1, colCtxtExpr).Font.Bold = True
	oSh.Columns(colCtxtExpr).NumberFormat = "@"		oSh.Columns(colCtxtExpr).NumberFormat = "@"
	oSh.Columns(colCtxtExpr).ColumnWidth = 100		oSh.Columns(colCtxtExpr).ColumnWidth = 100
	' data		' data
	' demo mode		' demo mode
	' only the first half of data will be outputted		' only the first half of data will be outputted
	iMaxContext = IIf(vbModus = vbModusLive, UBound(oContexts), UBound(oContexts) / 2)		iMaxContext = IIf(vbModus = vbModusLive, UBound(oContexts), UBound(oContexts) / 2)
	If iMaxContext > 0 Then		If iMaxContext > 0 Then
	For iContext = 1 To iMaxContext		For iContext = 1 To iMaxContext
	oSh.Cells(iContext + 1, colCtxtName).Value = oContexts(iContext).sName		oSh.Cells(iContext + 1, colCtxtName).Value = oContexts(iContext).sName
	oSh.Cells(iContext + 1, colCtxtTab1).Value = oContexts(iContext).sFirstTable		oSh.Cells(iContext + 1, colCtxtTab1).Value = oContexts(iContext).sFirstTable
	oSh.Cells(iContext + 1, colCtxtCol1).Value = oContexts(iContext).sFirstColumn		oSh.Cells(iContext + 1, colCtxtCol1).Value = oContexts(iContext).sFirstColumn
	oSh.Cells(iContext + 1, colCtxtTab2).Value = oContexts(iContext).sSecondTable		oSh.Cells(iContext + 1, colCtxtTab2).Value = oContexts(iContext).sSecondTable
	oSh.Cells(iContext + 1, colCtxtCol2).Value = oContexts(iContext).sSecondColumn		oSh.Cells(iContext + 1, colCtxtCol2).Value = oContexts(iContext).sSecondColumn
	oSh.Cells(iContext + 1, colCtxtExpr).Value = sCleanString(oContexts(iContext).sExpression)		oSh.Cells(iContext + 1, colCtxtExpr).Value = sCleanString(oContexts(iContext).sExpression)
	Next iContext		Next iContext
	oSh.Range(Cells(2, 1), Cells(UBound(oContexts) + 1, colCtxtExpr)).Select		oSh.Range(Cells(2, 1), Cells(UBound(oContexts) + 1, colCtxtExpr)).Select
	Selection.Font.ColorIndex = vbColorDsStandard		Selection.Font.ColorIndex = vbColorDsStandard
	If vbModus = vbModusDemo Then		If vbModus = vbModusDemo Then
	oSh.Rows(iContext + 1).Select		oSh.Rows(iContext + 1).Select
	oSh.Rows(iContext + 1).MergeCells = True		oSh.Rows(iContext + 1).MergeCells = True
	oSh.Rows(iContext + 1).Font.FontStyle = "Bold"		oSh.Rows(iContext + 1).Font.FontStyle = "Bold"
	oSh.Rows(iContext + 1).Font.ColorIndex = 40		oSh.Rows(iContext + 1).Font.ColorIndex = 40
	oSh.Rows(iContext + 1).Interior.ColorIndex = 3		oSh.Rows(iContext + 1).Interior.ColorIndex = 3
	oSh.Rows(iContext + 1) = "demo mode, only first half of data will be represented"		oSh.Rows(iContext + 1) = "demo mode, only first half of data will be represented"
	End If		End If
	oSh.Activate		oSh.Activate
	oSh.Range(Cells(1, 1), Cells(UBound(oContexts) + 1, colCtxtExpr)).Select		oSh.Range(Cells(1, 1), Cells(UBound(oContexts) + 1, colCtxtExpr)).Select
	Selection.AutoFilter		Selection.AutoFilter
	oSh.Cells(2, 1).Select		oSh.Cells(2, 1).Select
	ActiveWindow.FreezePanes = True		ActiveWindow.FreezePanes = True
	oSh.Visible = xlSheetVisible		oSh.Visible = xlSheetVisible
	Else		Else
	oSh.Visible = xlSheetVeryHidden		oSh.Visible = xlSheetVeryHidden
	End If		End If
	Set oSh = Nothing		Set oSh = Nothing
	Exit Sub		Exit Sub
	Err:		Err:
	MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName		MsgBox Err.Description, vbCritical, Title:=vbErrHeader & sProcName
	End Sub		End Sub
	Private Sub WriteUniverseXLSDependecies(oMyWrk As Excel.Workbook)		Private Sub WriteUniverseXLSDependecies(oMyWrk As Excel.Workbook)
	Dim sProcName As String		Dim sProcName As String
	sProcName = "WriteUniverseXLSDependecies"		sProcName = "WriteUniverseXLSDependecies"
	Dim oSh As Excel.Worksheet		Dim oSh As Excel.Worksheet
	Dim iSh As Integer		Dim iSh As Integer
	Dim iObject As Integer		Dim iObject As Integer
	Dim iDependent As Integer		Dim iDependent As Integer
	Dim iMaxDependent As Integer		Dim iMaxDependent As Integer